单选题
设有下列程序
设有下列程序
Private Sub Form Click（ ）
X=50
For i=1 T0 4
y=InputBox("请输入一个整数")
y=Val(v)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
发布于 2022-05-11 09:57:11
登录后免费查看答案
关注者
0
被浏览
14
1 个回答
推荐阅读
-
设有下列程序Private Sub Form＿Click（）x＝50For i ＝1To 4y ＝InputBox（＂请输入一个整数＂）y ＝Val（y）If y Mod 5＝0Thena＝a＋yx＝yElsea＝a＋xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
2022-05-11 关注 0 浏览15 1答案
-
设有以下程序：Private Sub Form_Click()x=50For i=1 To 4y=InputBox("请输入一个整数")y=Val(y)If y Mod 5 = 0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
2022-05-11 关注 0 浏览24 1答案
-
设有如下程序：Private Sub Form Click（ ）Dim i As Integer，x As String，y As Stringx="ABCDEFG"For i=4 To 1Step-1y=Mid(X，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为（ ）。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：Dim Flag As BooleanPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox("请输入：")If Flag ThenPrint f(intNum)End IfEnd SubFunction f(X As Integer)As IntegerIf X<10 ThenY=XElseY=X+10End Iff=YEnd FunctionPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Flag=TrueEnd Sub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。
2022-05-11 关注 0 浏览13 1答案
-
有如下事件过程：Private Sub Form Click（ ）Dim n As Integcrx=0n=InputBox("请输入一个整数")For i=1 To ifor j =1 To jx=x+1Next jNext iPrint xEnd sub程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer) As IntegerIf X < 20 ThenY = XElseY = 20 + XEnd Iffunc = YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)SW = FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)SW = TrueEnd SubPrivate Sub Command1_Click()Dim intNum As IntegerintNum = InputBox("")If SW ThenPrint func(intNum)End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（ ）。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：Di mSW As BooleanFunction func（X As Integer）As IntegerIf X＜20ThenY ＝XElseY ＝20＋XEnd Iffunc ＝YEnd FunctionPrivate Sub Form＿MouseDown（Button As Integer ，＿Shift As Integer ，X As Si ngle ，Y As Si ngle）SW＝FalseEnd SubPrivate Sub Form＿Mouse Up（Button As Integer ，＿Shift As Integer ，X As Si ngle ，Y As Si ngle）SW＝TrueEnd SubPrivate Sub Co mmand1＿Click（）Di mi nt Num As Integeri nt Num＝InputBox（＂＂）If SW ThenPrint func（i nt Num）End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为（ ）。
2022-05-11 关注 0 浏览10 1答案
-
有如下事件过程：Private Sub Form_Click()Dim n As Integerx = 0n = InputBox("请输入一个整数")For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体中有一个文本框Test1，编写事件代码如下：Private Sub Form CliCk()X=val(Inputbox(”输入x的值”))Y=lIf X<>0 Then Y=27Fextl．Value=YEnd Sub打开窗体运行后，在输入框中输入整数12，文本框 Text1中输出的结果是（ ）。
2022-05-13 关注 0 浏览14 1答案
-
设有如下程序Private Sub Command1_Click()x = 10: y = 0For i = 1 To 5Dox = x - 2y = y + 2Loop Until y > 5 Or x < -1NextEnd Sub运行程序，其中Do循环执行的次数是（ ）。
2022-05-11 关注 0 浏览17 1答案
