更多"有如下程序，运行时从键盘输入3，输出结果是 ______。 Priv"的相关试题:
[单项选择]有如下程序，运行时从键盘输入3，输出结果是 ______。 Private Sub Command1_Click（ ） a=InputBox("请输入一个数字：") Select Case a Case Is＞2 b=a+1 Case Is＞3 b=a+2 Case Is＞4 b=a＋3 Case Is＞5 b＝a＋4 End Select Print a ＋ b End Sub
[单项选择]有如下程序，用来求10个整数(整数从键盘输入)中的最大值：
Private Sub Command1_Click（ ）
Dim a(10) As Integer, max As Integer
For k=1 To 10
a(k)=InputBox("输入一个整数")
Next k
max=0
For k=1 To 10
If a(k)＞max Then
max=a(k)
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个整数时，可以得到正确结果；但输入10个负数时结果是错误的。程序需要修改，下列修改中可以得到正确运行结果的是
A. 把If a(k)＞max Then改为If a(k)＜max Then
B. 把max=a(k)改为a(k)=max
C. 把第二个循环语句For k=1 To 10改为For k=2 To 10
D. 把max=0改为max=a(10)
[填空题]有如下程序，该程序的执行结果是 【6】 。
Private Sub Command1 Click（ ）
For i=1 To 4
x=4
For j=1 To i
x =3
For k=1 To 2
x= x + 5
Next k
Next j
Next i
Print x
End Sub
[填空题]有如下程序，该程序的执行结果是 【6】 。
Private Sub Command1_lick（ ）
For i= 1 To 4
x= 4
For j =1 To 3
x =3
For k=1 To 2
X= K+5
Next k
Next j
Next i
Print x
End Sub
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
j=0
For i=1 To n
b(i)=CInt(Rnd( )*100)
If b(i)/2=b(i)/2 Then
j=j+1
c(j)=b(i)
End lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[单项选择]有如下事件程序，运行该程序后输出结果是______。
Private Sub Command33_Click（ ）
Dim x As Integer，y As Integer
x=1:y=0
Do Until y＜=25
y=y+x*x
x=x+1
Loop
MsgBox"x="&x&", y="&y
End Sub
A. x=1，y=0
B. x=4，y=25
C. x=5，y=30
D. 输出其他结果
[单项选择]现有如下程序：
Private Sub Command1_Click（ ）
s=0
For i=1 To 5
s=s+f(5+i)
Next
Print s
End Sub
Public Function f(x As Integer)
If x＞=10 Then
t=x+1
Else
t=x+2
End If
f=t
End Function
运行程序，则窗体上显示的是( )。
A. 38
B. 49
C. 61
D. 70
[单项选择]设有如下程序
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
Dim n As Integer
n=lnput Box(“输入数据”)
If n＜10 Then
Call GetArray(a，n)
End If
End Sub
Private Sub GetArray(b( )As Integer，n As Integer)
Dim c(10)AsInteger
j=0
For i=1 To n
b(i)=CInt(Rnd( )*100)
If b(i)/2=b(i)/2 Then
j=j+1
c(j)=b(i)
End lf
Next
Print j
End Sub
以下叙述中错误的是
A. 数组b中的偶数被保存在数组c中
B. 程序运行结束时，在窗体上显示的是c数组中元素的个数
C. GetArray过程的参数n是按值传送的
D. 如果输入的数据大于10，则窗体上不显示任何信息
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ） As Integer
ReDim arr(3)
For i=0 To 3
art(i)=i
Next i
x=InputBol("请输入一个数字：")
If Val(x)＞4 Then
ReDim arr(4)
art(4)=x
End If
Me.Print (arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
