网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

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

[单选题]

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

参考答案

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

网友提供的答案

共位网友提供了参考答案，

查看全部

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

ABCD

提交我的答案

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

更多“1. 现有如下程序： Private Sub Command1_Click（) a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case …”相关的问题

第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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

报考湖南成人高考艺术类专业注意事项! 2024年自考准考证打印入口官网有什么注意事项 2024年自考大专报名需要中专毕业证吗都要哪些材料湖南成人高考艺术类专业录取控制分数线划定方式？初中可以自考本科文凭吗报考要求有哪些考生报名2024年湖南成人高考要趁早，注意改革变化! 2024年自考本科报名限制学历吗流程步骤是什么 2024年考自考大专要具备什么学历有哪些要求 2024年初中学历去自考大专怎么报名需要什么条件 2024年湖南成人高考录取查询时间！

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次