单项选择题

设有如下程序： Private Sub Command1_Click( ) Dim c As Integer，d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d＞0 If d＞c Then C=C+1 End lf d=InputBox(“请输入一个整数”) Loop Print c+d End sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是

A．12
B．11
C．10
D．9

<上一题目录下一题>

热门试题

单项选择题

把窗体的KeyPreview属性设置为True，然后编写如下事件过程Private Sub Form_KeyPress(KeyAseii As Integer)Dim ch As Stringch=Chr(KeyAscii)KeyAscii=Ase(UCase(ch))Print Chr(KcyAseii+2)End Sub程序运行后，按键盘上的“A”键，则在窗体上显示的内容是

A．A
U．B
C．C
D．D

单项选择题

在窗本上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click( ) Timer1．______ End Sub Privale Sub Timer1_Timer( ) Text1.Text=Time End Sub 在______处应填入的内容是

A．Enabled=True
B．Enabled=False
C．Visible=True
D．Visible=False

相关试题