单项选择题

在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程：
Private Sub Form_Load()
For i=1 To 10
List1.AddItem i * 10
Next i
Text1.Text=" "
End Sub
Private Sub List1_Click()
Print List1.Text + Text1.Text
End Sub
程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为

A．40123
B．163
C．123
D．30123
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() X=0 Do While x ＜ 50 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A．1和0
B．2和72
C．3和50
D．4和168
单项选择题
阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox( ) If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为
A．0
B．20
C．40
D．无任何输出
相关试题