在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后,在列表框中添加
Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1 【9】 ()
Labe1.Caption= 【10】
End Sub
Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1 【9】 ()
Labe1.Caption= 【10】
End Sub
A.程序运行有错误,数据类型不匹配
B.程序运行有错误,InputBox函数的格式不对
C.在Label1中显示5
D.在Label1中显示23
下图所示的窗体上有一个命令按钮(名称为ciotamand1)和一个选项组(名称为Frame1),选项组上显示“Frame1”文本的标签控件名称为Label1,若将选项组上显示文本“Frame1”改为汉字“性别”,应使用的语句是()。
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后如果在文本框中输入文本,则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是()。
A.Private Sub Text1 Change()
Label1.Caption=Text1.Text
End Sub
B.Private Sub Label1 Change()
Label1.Caption=Text1.Text
End Sub
C.Private Sub Text1 Click()
Label1.Capnon=Text1.text
End Sub
D.Private Sub Label1 Click()
Label1.Caption=Text1.Text
End sot
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后如果在文本框中输入文本,则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是()。
A.Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub
B.Private Sub Label 1_Change() Label1.Caption=Text1.Text End Sub
C.Private Sub Text1_Click() Label1.Caption=Text1.text End Sub
D.Private Sub Label1_Click() Label1.Caption=Text1.Text End sot
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() S=0 For i=1 To 15 x=2*i-1 1fx Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是
A.1
B.5
C.27
D.45
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
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是______。
A.1
B.5
C.27
D.45
在窗体上画一个名称为Command1的命令按钮、一个名称为Label1的标签,然后编写如下事件过程; Private Sub Command1_Click() s=0 For i=1 to 15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i Label1. Caption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是______。
A.1
B.5
C.27
D.45
A.36 和8
B.36 和4
C.6和8
D.6 和4
在窗体上绘制一个名称为Label1的标签,然后编写如下事件过程: Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i =2 To 4 For j =2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3)) End Sub 程序运行后,单击窗体,在标签中显示的内容是()。
A.12
B.13
C.14
D.15
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!