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

搜题

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

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

[单选题]

下列这段代码执行后，消息框弹出的结果是______。 Dim i As Integer For i = 1 To 5 i += 2 Next i MsgBox（i)

A.5

B.11

C.7

D.10

参考答案

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

查看官方参考答案

网友提供的答案

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

查看全部

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

ABCD

提交我的答案

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

更多“下列这段代码执行后，消息框弹出的结果是______。 Dim i As Integer For i = 1 To 5 i += 2 Next i MsgBox（i)”相关的问题

第1题

有下面程序代码： Private Sub Command1_Click() Dim sign As Integer sign = 1 a = 1 b = 2 For k = 1 To 5 c = a + sign * b a = b b = c Print c; sign = -sign Next k End Sub 程序运行后，单击命令按钮Command1，输出结果是_______________。

A、3 -1 2 -3 -1

B、3 5 8 13 21

C、-1 1 -2 -1 -1

D、3 4 5 6 7

点击查看答案

第2题

有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1)) 运行后输出的结果为（）。

A、0 0

B、-5 0

C、-5 6

D、0 6

点击查看答案

第3题

如下程序段，要计算s=1+（1+2）+（1+2+3），已知主调程序为： Private Sub Command1_Click() Dim s%, i% For i = 1 To 3 s = s + sum(i) Next MsgBox ("s=" & s) End Sub 则下列sum函数过程正确的是__________。

A、Function sum%(ByVal n%) Static c% c = c + n sum = c End Function

B、Function sum%(ByVal n%) Dim c% c = c + n sum = c End Function

C、Function sum%(ByVal n%) Public c% c = c + n sum = c End Function

D、Function sum%(ByVal n%) Private c% c = c + n sum = c End Function

点击查看答案

第4题

程序代码段如下： Dim k as integer For k = 1 To 5 Step 2 k = k + 3 Next MsgBox(k) 上述代码执行完毕后，在消息框中显示的消息是（）。

A、3

B、4

C、5

D、6

点击查看答案

第5题

下列程序段执行后，在标签Label1中显示的图形是______。 Dim s$, i%, j% s = "" For i = 1 To 4 s &= Space(4 - i) For j = 1 To i s &= 2 * i - 1 Next j s &= vbCrLf Next i Label1.Text = s

A、

B、

C、

D、

点击查看答案

第6题

执行下面程序段后，输出的结果为（）。 Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5)

A、22

B、42

C、32

D、52

点击查看答案

第7题

Dim i,j,x For i=i To 20 step 2 x=0 For j=i To 20 step 3 x=x+1 Next j Next i Textl.Value=Str(x) End Sub 文本框中显示的结果

A、1

B、2

C、0

D、3

点击查看答案

第8题

执行下面程序段后输出的结果是（）。 Dim i As Integer, x As Integer For i = 1 To 5 x = 4 For j = 1 To 2 x = x + 1 Next j Next i Form1.Print x

A、72

B、22

C、6

D、7

点击查看答案

第9题

执行下列程序后立即窗口中的输出结果是______。

Private Sub a2()

Dim i As Integer,j As Integer

For i=1 To 5

For j=1 To i

If i Mod 2=0 Then

Debug.Print"*";

E1se

Debug.Print"#";

End If

Next j

Debug.Print

Next i

End Sub

点击查看答案

第10题

有如下程序段： Dim i%, n% For i = 3 To 20 Step 4 n = n + 1 Next MsgBox(i & " " & n) 执行该段程序后，消息对话框显示的内容为______。

A、19 4

B、19 5

C、23 4

D、23 5

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

自考本科在哪里考报名流程是怎样 2024年每年自考本科的报名时间考哪些内容 2024年女生最实用的自考专业含金量高的推荐 2024年成人高考和成人自考哪个更好有什么区别 2024年自考本科网上报名条件考试科目有什么 2024成人高中学历怎么提升学历考哪些内容 2024年自考成人本科考哪些科目合格标准是多少 2024年自考什么时候报名考哪些内容 2024年本科自考报考时间考哪些内容 2024年自考本科在哪里报名报考条件有哪些

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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