单项选择题

有如下程序： Private Sub Form_C1ick() Dim CheCk,Counter CheCk=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Ptint Counter,Check End Sub 程序运行后，单击窗体，输出结果为______。

A．15 0
B．20 -1
C．10 Tree
D．10 False

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl，然后编写如下事件过程 Private Sub Form_Load() Listl.Addltem Iteml Listl.Addltem Item2 Listl.Addltem Item3 End Sub Private Sub Commandl_Click() Listl.List(Listl.ListCount)= AAAA End Sub 程序运行后，单击命令按钮，其结果为______。

A．把字符串“AAAA”添加到列表框中，但位置不能确定
B．把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)
C．把列表框中原有的最后一项改为“A从A”
D．把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)

单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form Load() Show Text1.Text= Text2.Text= Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是______。

A．BeijingChina
B．China
C．Beijing
D．BeijingC

相关试题