运行下列程序：
Private Sub form_Click()
x = InputBox("请输入一个数：")
Select Case x
Case Is ＞ 0: y = x + 1: x = y + 1
Case Is = 0: y = x + 2: x = y + 2
Case Else: y = x + 3: x = y + 3
End Select
Print x; y
End Sub
从键盘输入1，输出的结果是()。
A.3 2
B.2 3
C.2 2
D.1 4
如搜索结果不匹配，请 联系老师 获取答案
更多“运行下列程序：Private Sub form_Click（…”相关的问题
第1题
下列程序运行后的输出结果是______。
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
第2题
（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
第3题
下列程序运行后的输出结果是______。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
第4题
（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
第5题
运行下列程序：
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
第6题
第7题
在窗体上画一个命令按钮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．旅游景点：故宫
第8题
（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 ）无任何输出
第9题
在窗体中添加一个名称为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
窗体打开运行后，单击命令按钮，则消息框的输出结果为()。
第10题
编写下列程序：
Private Sub Form_Load()
Text1.Text=" "
Text2.Text=" "
Text3.Text=" "
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x,y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y＜＞0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序 ， 在 Text1 文本框中输入 36 ， 在 Text2 文本框中输入 24 ， 然后单击命令按钮 ， 则在 Text 3
文本框中显示的内容是（）。
A ） 4
B ） 6
C ） 8
D ） 12
第11题
设有如下程序：
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
为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
赏学吧
微信搜一搜
赏学吧
