网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
设有如下程序：
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 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
参考答案
更多 “ 设有如下程序：Private Sub Command1_Click（）Dim c As Integer, d As Integerc = 4d = InputBox（"请输入一个整数"）Do While d 0If d c Then c = c + 1End If d = InputBox（"请输入一个整数"）LoopPrint c + dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。A．12B．11C．10D．9 ” 相关考题
考题
设有如下程序： 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．12B．11C．10D．9
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click（）Dim c As Integer, d As Integerd = 0c = 6x = Array（2, 4, 6, 8, 10, 12）For i = 1 To 6 If x（i） c Then d = d + x（i） c = x（i） Else d = d - c End IfNextPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ ）。A．10B．16C．12D．20
考题
设有如下程序： 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．12B．11C．10D．9
考题
设有如下程序： 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 If d=InputBox(“请输入一个整数”) Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9和0，则输出结果是A．12B．11C．10D．9
考题
在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Do Until b ＜ 0a = InputBox( "输入a的值" )a = Val(@A@b = InputBox( "输入b的值" )b =VM(@B@a=a+bLoopPrint aEnd Sub程序运行后，依次输入5,4,3,2,1,0,-1,-2,则输出结果是【 】。
考题
以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End SubA．3+4B．7C．34D．12
考题
下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是A．7B．34C．3+4D．出错
考题
设有如下程序： 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 If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9和0，则输出结果是( )。A．12B．11C．10D．9
考题
设有如下程序： 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 If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。A．12B．11C．10D．9
热门标签
最新试卷
