题目内容
（请给出正确答案）
运行下列程序：
Private Sub form_Click()
t = Val(InputBox("请输入一个数："))
x = t - 1
Select Case t
Case 1 To 10
y = 4 * t
Case Is >10
y = 3 * t
Case Else
y = 2 * t
End Select
Print x; y
End Sub
运行时，从键盘输入4，输出的结果是()。
A.3 16
B.4 4
C.3 4
D.4 10
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“运行下列程序：Private Sub form_Click（)t = Val（InputBox（"请输入一个数："))x = t”相关的问题
运行下列程序，结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k＜=5
f=f0+f1
f0=fl
f1=f
k=k+1
Loop
MsgBox“f=”＆f
End Sub
A．f=5
B．f=7
C．f=8
D．f=13
下列程序运行后的输出结果是______。
Private Sub f(k，s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i，s)
Sum=Sum+s
Next
Print Sum
End Sub
（32）运行下列程序，结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k＜=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox "f="&f
End Sub
A）f=5
B）f=7
C）f=8
D）f=13
运行下列程序，结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k＜=5
f=f0+f1
f0=fl
f1=f
k=k+1
Loop
MsgBox“f=”＆f
End Sub
A．f=5
B．f=7
C．f=8
D．f=13
下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click () Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub
A．0
B．3
C．6
D．9
（25 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列程序：
Private Sub Command1_Click()
Dim a (10 ) As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next
x=2
Print a(f(x)+x)
End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为（）。
A ） 12
B ） 15
C ） 17
D ） 18
运行下列程序：
Private Sub Command1_Click()
x = "祝你成功"
y = "1234"
For i = 1 To 4
z = z + Mid(x, i, 1) + Left(y, 1)
Next i
Print z
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是()。
A.祝你成功1234
B.祝1你2成3功4
C.1234祝你成功
D.祝1你1成1功1
在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写下列程序：
Private Sub Command1 click()
A=InputBox("请输入日期(1～31)")
t="旅游景点："_
&Ⅱf(A＞0 And A＜=10,"长城","")_
&Ⅱf(A＞10 And A＜=20,"故宫","")_
&Ⅱf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是()。
A．旅游景点：长城
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
（31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox(" 请输入 :")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X＜10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序 ， 首先单击窗体 ， 然后单击命令按钮 ， 在输入对话框中输入 5 ， 则程序的输出结果为 （） 。
A ） 0
B ） 5
C ） 15
D ）无任何输出
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub f(ByVal x As Integer)
x=x+4
End Sub
Private Sub Command1_Click()
i=3
Call f(i)
If i＞4 Then i=i*2
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为()。
设有如下程序：
Private Sub Form_C1ick()
Dim s As Long，f As Long
Dim n As Integer，i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是
A．32
B．33
C．34 0)35
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
