问题

设有如下程序：Private Sub Commandl_click（)Dim c As Integer,d As Integerc=4d=InputBox（"请输

设有如下程序： Private Sub Commandl_click() Dim c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0 If d＞c Then c=c+1 End If 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

参考答案

您可能感兴趣的试题

在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Text1，然后编写如下程序：Private Sub

答案解析
在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_

答案解析
（27）设有如下程序Private Sub Command 1_Click（)x=10：Y=0For i=1 To SDox＝x－2y＝y＋2Loop Until y＞

答案解析
窗体上有一个名为Commandl的命令按钮，并有如下程序：Private Sub Command 1_Click（)Dim a As

答案解析
单击窗体上Commandl命令按钮时，执行如下事件过程： Private Sub Commandl． Click （) a$="SOftWare

答案解析
设有如下程序:Private Sub Commandl Click()Dimsum As Double x As D0ublesum=0n=0For i=1 To 5x

答案解析