题目内容
（请给出正确答案）
（27）设有如下程序
Private Sub Command 1_Click()
x=10：Y=0
For i=1 To S
Do
x＝x-2
y＝y+2
Loop Until y＞5 Or x＜-1
Next
End Sub
运行程序，其中Do循环执行的次数是
A）15
B）10
C）7
D）3
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“（27）设有如下程序Private Sub Command 1_Click（)x=10：Y=0For i=1 To SDox＝x-2y＝y+2Loop Until y＞”相关的问题
有如下程序:
Private Sub Form_Click()
E=1:F=1
For j=1 To 3
E=E+F:F=F+E
Next
Print E;F
End Sub
该程序的输出结果是
A．6 6
B．5 8
C．13 21
D．34 55
（8 ）有如下程序：
Private Sub Form_Click （）
n=10
i=0
Do
i=i+n
n=n-2
Loop While n＞2
Print i
End Sub
程序运行后，单击窗体，输出结果为 【 10 】 。
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1＝"VB programming"
Text2＝Text1
Text1＝"ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：
Private Sub Commandl_Click()
a=Textl．Value+Text2．Value
MsgBox a
End Sub
Private Sub Form_Load()
TextI．Value=“”
Text2．Value=””
End Sub
程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【 】。
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。
A．7 11
B．5 11
C．76
D．2 1
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。
A．5
B．120
C．153
D．160
在窗体中添加一个命令按钮,编写如下程序:
Private Sub Sub1(p,m,n)
p=p+1:m=m+1:n=n+1
Print "sub1:";p;m;n
End Sub
Private Sub Command1_Click()
a1=1:b=2:c1=3
Call Sub1(a,b1+3,c1)
Print"Main:";a1;b1;c1
End Sub
程序运行后,输出结果为
A．Sub: 2 6 4 Main: 2 6 4
B．Sub: 2 6 4 Main: 2 6 4
C．Sub: 2 6 4 Main: 1 2 3
D．Sub: 2 6 4 Main: 2 2 3
在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："_ &IIf(a＞0 And a＜=10，"长城:,"")_ &IIf(a＞10 And a＜=20，"故宫","")_ &IIf(a＞20And a＜=31，"颐和园:,"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是()
A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
在窗体中添加一个命令按钮，编写如下程序： Private Sub Subl(p,m,n) p=p+1:m=m+1:n=n+1 Print"subl:";p;m;n End Sub Private Sub Command1_Click() al=1:b=2:c1=3 Call Subl(a,b1+3,c1) Print"Main:";a1;b1;c1 End Sub 程序运行后，输出结果为
A．Sub：2 6 4 Main：2 6 4
B．Sub：2 6 4 Main：2 6 4
C．Sub：2 6 4 Main：1 2 3
D．Sub：2 6 4 Main：2 2 3
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
