单选题
设有下列程序
设有下列程序
Private Sub Form＿Click（）
x＝50
For i ＝1To 4
y ＝InputBox（＂请输入一个整数＂）
y ＝Val（y）
If y Mod 5＝0Then
a＝a＋y
x＝y
Else
a＝a＋x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
发布于 2022-05-11 10:00:11
登录后免费查看答案
关注者
0
被浏览
15
1 个回答
推荐阅读
-
设有下列程序Private Sub Form Click（ ）X=50For i=1 T0 4y=InputBox("请输入一个整数")y=Val(v)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
2022-05-11 关注 0 浏览14 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答案
-
在窗体上画一个名称为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 a As Integer, b As Integera = 20: b = 50p1 a, bp2 a, bp3 a, bPrint "a="; a, "b="; bEnd SubSub p1(x As Integer, ByVal y As Integer)x = x + 10y = y + 20End SubSub p2(ByVal x As Integer, y As Integer)x = x + 10y = y + 20End SubSub p3(ByVal x As Integer, ByVal y As Integer)x = x + 10y = y + 20End Sub该程序运行后，单击窗体，则在窗体上显示的内容是：a = ______ 和 b = ______ 。
2022-05-11 关注 0 浏览14 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答案
-
单击按钮时，以下程序运行后的输出结果是Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx=1: y=2: z=3Call God(x, x, z)Print x; x; zCall God(x, y, y)Print x; y; yEnd SubPrivate Sub God(x As Integer, y As Integer, z As Integer)x=3 * z + 1y=2 * zz=x + yEnd Sub
2022-05-11 关注 0 浏览88 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答案
