题目内容（请给出正确答案）

[单选题]

1. 现有如下程序： Private Sub Command1_Click（) a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i MsgBox a End Sub 程序运行后，消息框输出的结果是（)。 A．3 B．4 C．5 D．6

A.A

B.B

C.C

D.D

提问人：网友yuyu526 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

网友答案

查看全部（）

· 有3位网友选择 B，占比37.5%
· 有3位网友选择 A，占比37.5%
· 有2位网友选择 C，占比25%

ABCD

提交我的答案

登录提交答案，可赢取奖励机会。

登录/注册

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“1. 现有如下程序： Private Sub Command…”相关的问题

第1题

a = 2 For i = 1 To 3 Select Case i Case 1,3 a=a+1 Case2,4 a=a+2 End Select Next i Msgbox a 运行程序，消息框结果是？

A、3

B、4

C、5

D、6

点击查看答案

第2题

设有如下窗体单击事件过程：

Private Sub Form Click()

x=1

For i=1 To 3

Select Case I

Case 1,3

x=x+3

Case 2,4

x=x-2

End Select

Next I

MsgBox x

End Sub

打开窗体运行后，单击窗体，则消息框的输出结果是______。

点击查看答案

第3题

设有以下窗体单击事件过程：Private Sub Form_C1ick()

a=1

For i=1 To 3

Select Case I

Case 1,3

a=a+1

Case 2,4

a=a+2

End Select

Next I

MsgBox a

End Sub

打开窗体运行后，单击窗体，则消息框的输出内容是______。

点击查看答案

第4题

某窗体主体的Click事件过程如下，窗体运行后单击窗体主体，消息框中输出的结果是( )。

Private Sub主体_Click()

Dim i As Integer,a As Integer

a=1

For i=1 To 3

Select Case i

Case 1,3

a=a+1

Case 2,4

a=a+2

End Select

Next i

MsgBox a

End Sub

A．3 B．4 C．5 D．6

点击查看答案

第5题

1. 阅读下面的程序段： A = 0 FOR I = 1 TO 3 FOR J = 1 TO I A = A+1 NEXT J Next I 执行上面的程序段后，A的值为( )。 A．3 B．5 C．6 D．9

A、A

B、B

C、C

D、D

点击查看答案

第6题

1. 现有如下程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i Print sum End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。 A．1+1/2+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5 C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/5

A、A

B、B

C、C

D、D

点击查看答案

第7题

1. 在窗体上画一个名为Command 1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim b, k For k = 1 TO 6 b = 23+k Next k MsgBox b+k End Sub 运行程序，单击命令按钮，消息框输出结果是( )。 A．36 B．29 C．41 D．34

A、A

B、B

C、C

D、D

点击查看答案

第8题

1. 设有以下程序： Private Sub Form_Click() 　　x＝50 　　For i＝1 To 4 　　　　y＝InputBox("请输入一个整数") 　　　　y＝Val(y) 　　　　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，输出结果为(　　)。 A. 100 B. 50 C. 120 D. 70

A、A

B、B

C、C

D、D

点击查看答案

第9题

1. 执行下面的程序段后，变量c的值为(　　)。 a = 29 b = 33 Select Case b\10 Case 0 c = a * 10 + b Case 1 To 9 c = a * 100 + b Case 10 To 99 c = a * 1000 + b End Select Print c A. 29 B. 2933 C. 33 D. 3329

A、A

B、B

C、C

D、D

点击查看答案