单项选择题

设有如下程序： 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 FirStr As StringFirSt= abcdef Print Pat(FirStr)End SubPrivate Function Pat(xStr As String)As StringDim tempStr As String，strLen As IntegertempStr= strLen=Len(xStr)i=1Do While i<=Len(xStr)-3tempStr=tempStr+Mid(xStr，i，1)+Mid(xStr，strLen -i+1，1)i=i+1LoopPat=tempStrEnd Function

A．abcdef
B．afbecd
C．fedcba
D．defabc

单项选择题

单击按钮时，以下程序运行后的输出结果是（）。Private Sub proc1(x As Integer，y As Integer，z As Integer)x=3*zy=2*zz=x+yEnd SubPrivate Sub Command1_Click()Dim x As Integer，y As Integer，Z As Integerx=1：y=2：z=3Call proc1(x，x，z)Print x；x；zCall proc1(x，y，y)Print x；y；yEnd Sub

A． Dim NewArray(10)As Integer
B．Dim NewArray(1 T0 10)As Integer
C． Dim NewArray(10)Integer
D．Dim NewArray(1 To 10)Integer

相关试题