[单项选择]设有如下程序： 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"的相关试题:

[填空题]设有如下程序 Private Sub Form Click（　） Dim a As Integer， b As Integer a=20： b=50 p1 a， b p2 a， b p3 a， b Print "a="； a， "b="； b End Sub Sub p1(x As Integer， ByVal y As Integer) x = x+10 y = Y+20 End Sub Sub p2(ByVal x As Integer， y As Integer) x = x+10 y = y+20 End Sub Sub p3(ByVal x As Integer， ByVal y As Integer) x = x+10 y = y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。

查看答案

[填空题]设有如下程序
Private Sub Form Click（　）
Dim a As Integer， b As Integer
a=20： b=50
p1 a， b
p2 a， b
p3 a， b
Print "a="； a， "b="； b
End Sub
Sub p1(x As Integer， ByVal y As Integer)
x = x+10
y = Y+20
End Sub
Sub p2(ByVal x As Integer， y As Integer)
x = x+10
y = y+20
End Sub
Sub p3(ByVal x As Integer， ByVal y As Integer)
x = x+10
y = y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a==______和b=______。

查看答案

[填空题]设有如下程序： Private Sub Form_Click( ) Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【10】。程序进行后，单击窗体，输出结果为【11】。

查看答案

[填空题]设有如下程序：
Private Sub Command1_Click（　）
Dim sum As Double, a As Double
sum＝0
n＝1
For i=1 To 5
a＝n*i
n＝n+1
sum＝sum+a
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式的值是 (15) 。

查看答案

[单项选择]设有如下程序：
Private Sub Command1 Click（　）
Dim sum As Double， x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是( )。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5

查看答案

[单项选择]

设有如下程序
Option Base 1
Private Sub Form_Click( )
Dim a(5) As String , i As Integer
For i=1 To 5
a(i)=Chr(Asc(“A”)+i)
Call f(a,i)
Next i
End Sub
Sub f(ta（　） As String , n As Integer)
Dim i As Integer
For i=1 To
Print ta(i);
Next i
End Sub
对上述程序，以下叙述中正确的是（）。

A. 程序有错，因为在过程f的定义中数组参数格式不正确
B. 程序可正常运行，输出内容的第一行是一个字母“A”
C. 程序可正常运行，输出内容的第一行是一个字母“B”
D. 程序可正常运行，输出内容的第一行是数字65

查看答案

[填空题]设有如下程序
Private Sub Fom1_Click( )
Dim s As Integer，b As Integer
a=20：b=50
p1 a，b
p2 a，b
p3 a，b
Print"a="；a，"b=";b
End Sub
Sub pl(x As Integer，ByValy As Integer)
x=x+10
y=y+20
End Sub
Sub p2(ByVal x As Integer，y As Integer)
x=x+10
y=y+20
End Sub
Sub p3(ByVal x As Integer，ByValy As Integer)
x=x+10
y=y+20
End Sub
该程序运行后，单击窗体，则在窗体上显示的内容是：a= 【9】和b= 【10】。

查看答案

[单项选择]设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double，x As Double
sum＝0
n＝0
For i＝1 To 5
x＝n/i
n＝n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3＋3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5

查看答案

[单项选择]设有如下程序：
Private Sub Command1_Click（　）
Dim sum As Double，x As Double
sum=0
n=0
Fori=1 To 5
x=n/i
n=n+1
sum=sum+x
Nexti
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是( )。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+1/4+1/5

查看答案

[单项选择]设有如下程序：
Private Sub Cimmand1_Click（　）
Dim sum As Double，x As Double
Sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next i
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+1/3+1/4+1/5
C. 1/2+2/3+3/4+4/5
D. 1/2+1/3+l/4+1/5

查看答案

[单项选择]设有如下程序：
Private Sub Command1_Click（　）
Dim sum As Double, x As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5

查看答案

[填空题]设有如下程序： Private Sub Form_Click（　） Dim a As Integer,b As Intger a=20:b=50 p1 a,b p2 a,b p3 a,b Print"a=";a,"b=";b End Sub Sub p1(x As Integer,ByVal y As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer,y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As Integer,ByVal y As Integer) x=x+10 y=y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a= 【14】和b= 【15】。

查看答案

我来回答:

提交