更多"在下面的程序中，要求循环体执行四次，请填空。 Private Sub "的相关试题:
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_Click（ ）
x=1
Do While 【13】
x=x+2
Loop
End Sub
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_click（ ）
x=1
Do While 【13】
x=x+2
Loop
End Sub
[填空题]下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，
没有意义。请填空。
Private Sub Command1_Click（ ）
Dim x As Single
x=InputBox("请输入x的值!")
【10】
Case Is<50
y=0．8 * x
Case 50 To 100
y=0．7 * x
【11】
Print"输入的数据出界!"
End Select
Print x，y
End Sub
[填空题]设有如下程序
Option Base 1
Private Sub Command1_Click（ ）
Dim arrl
Dim Min As Integer，i As Integer
arrl=Array(12，435，76，-24，78，54， 866， 43)
Min=____
For i=2 To 8
If arrl(i)＜Min Then
Next i
Print “最小值是：”；Min
End Sub
以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
[填空题]窗体上命令按钮Command1的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
S=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为______。
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_Click（ ）
x=1
Do While 【13】
x=x+2
Loop
End Sub
[填空题]在下面的程序中，要求循环体执行四次，请填空。
Private Sub Command1_click（ ）
x=1
Do While 【13】
x=x+2
Loop
End Sub
[单项选择]单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click( ) Print MyFunc(24，18) End Sub Public Function MyFunc(m As Integer，n As Integer)As Integer Do While m ◇ n Do While m>n：m=m—n：Loop DO While m＜n：n=n-m：Loop Loop My Func=m End Function
A. 2
B. 4
C. 6
D. 8
[填空题]窗体下面有一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=0
Do Until x=-1
a=InputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为______。
[单项选择]单击—次命令按钮后，下列程序的执行结果是
Private Sub Command1_Click( )
S=P(1)+P(2)+P(3)+P(4)
Print S
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
A. 15
B. 25
C. 35
D. 45
[填空题]窗体中有一个命令按钮，然后编写下列事件过程：
Private Sub Command1_Click（ ）
x=0
Do Untilx=-1
a=InputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5,4,8,5,8,-1，输出的结果是______。
[填空题]在窗体中添加一个命令按钮，然后编写如下代码：
Private Sub Command1_Click（ ）
a＝InputBox("请输入一个整数")
b＝InputBox("请输入一个整数")
Print Val(a)+Val(b)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为 【10】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） x=0 Do Until x=-1 a=InputDox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(B) x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End sub 程序运行后，单击命令按钮，依次在输入对话框中输入10、8、9、2、11、-1，则输出结果为 ______。
A. 15
B. 14
C. 13
D. 12
