窗体Form. 1上有一个名称为Command 1的命令按钮 以下对应窗体单击事件的事件过程是A)Private()
A.Private Sub Form. 1_ClickB)Private Sub Form. _Click
B.End Sub End Sub
C.Private Sub Commandl_ClickD)Private Sub Command_ Click
D.End Sub End Sub
A.Private Sub Form. 1_ClickB)Private Sub Form. _Click
B.End Sub End Sub
C.Private Sub Commandl_ClickD)Private Sub Command_ Click
D.End Sub End Sub
第1题
窗体Form. 1上有一个名称为Command 1的命令按钮,以下对应窗体单击事件的事件过程是
A)Private Sub Form. 1_Click() B)Private Sub Form. _Click()
End Sub End Sub
C)Private Sub Commandl_Click() D)Private Sub Command_ Click()
End Sub End Sub
第2题
A)Private Sub Form. 1_Click() B)Private Sub Form. _Click()
End Sub End Sub
C)Private Sub Commandl_Click() D)Private Sub Command_ Click()
End Sub End Sub
A.
B.
C.
D.
第3题
窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是()。
A.Private Sub Form1 Click() End Sub···
B.Private Sub Form. Cliok() End Sub···
C.Private Sub Command1 click() End Sub···
D.Private Sub Command Click() End Sub···
第4题
A.Private Sub Form1 Click( ) End Sub···
B.Private Sub Form. Cliok( ) End Sub···
C.Private Sub Command1 click( ) End Sub···
D.Private Sub Command Click( ) End Sub···
第5题
A.Private Sub Form1 Click( ) End Sub···
B.Private Sub Form. Cliok( ) End Sub···
C.Private Sub Command1 click( ) End Sub···
D.Private Sub Command Click( ) End Sub···
第6题
Dim down as Boolean
Private Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)
Select Case【8】
Case 1
Down=true
Case2
Down=false
End select
End Sub
Private Sub form. mousemove(button as integer,shIft as integer,X as single, Y as single)
If 【9】then
【10】=”X-” & X & ” Y-” & Y
Else
Label1.caption=””
End If
End Sub
第7题
在窗体上画一个名称为Labell的标签,然后编写如下事件过程: Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后,单击窗体,在标签中显示的内容是 ______。
A.100
B.10
C.121
D.出错信息
第8题
窗体上有一个名称为List1的列表框,一个名称为Picture1的图片框。Form. Load事件过程的作用是,把Data1.txt文件中的物品名称添加到列表框中。运行程序,当双击列表框中的物品名称时,可以把该物品对应的图片显示在图片框中,如图所示,以下是类型定义及程序,请填空。
Private Type Pic
gNane As String*10 ’物品名称
picFile As String*20 ’物品图片的图片文件名
End Type
Dime p(4)As Pic,pRec As Pic
Private Sub Form_Load()
Open”Data1.txt”For Random As1______=Len(pRec)
For i=0 To 4
Get1,i+1,p(i)
List 1,Addltem p(i)gName
Next i
Close1
End Sub
Private Sub List 1_DblClick()
For i=0 To 4
If RTrim(List1.List(i))=RTrim(________)Then
Picture1.Picture=LoadPicture(p(i)._______)
Exit For
End If
Next
End Sub
第9题
第10题
Private Type Pic
gNane As String*10 ’物品名称
picFile As String*20 ’物品图片的图片文件名
End Type
Dime p(4)As Pic,pRec As Pic
Private Sub Form_Load()
Open”Data1.txt”For Random As1______=Len(pRec)
For i=0 To 4
Get1,i+1,p(i)
List 1,Addltem p(i)gName
Next i
Close1
End Sub
Private Sub List 1_DblClick()
For i=0 To 4
If RTrim(List1.List(i))=RTrim(________)Then
Picture1.Picture=LoadPicture(p(i)._______)
Exit For
End If
Next
End Sub
第11题
A.100
B.10
C.121
D.出错信息
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!