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

搜题

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

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

[单选题]

程序段如下，程序运行后消息框显示的结果是______。 Dim x%, n% x = 0 Do While x ＜ 50 x = （x + 2) * （x + 3) n = n + 1 Loop MsgBox（n & " " & x)

A.2 72

B.2 50

C.3 72

D.3 50

参考答案

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

查看官方参考答案

网友提供的答案

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

查看全部

· 有5位网友选择 D，占比62.5%
· 有1位网友选择 C，占比12.5%
· 有1位网友选择 B，占比12.5%
· 有1位网友选择 A，占比12.5%

ABCD

提交我的答案

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

更多“程序段如下，程序运行后消息框显示的结果是______。 Dim x%, n% x = 0 Do While x ＜ 50 x = （x + 2) * （x + 3) n = n + 1 Loop Ms…”相关的问题

第1题

在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim x As Integer， n As Integer x = 1 n = 0 Do While x ＜ 20 x = x * 3 n = n + 1 Loop Text1．Text = Str(x) TextText = Str(n) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是

A．15和1

B．27和3

C．195和3

D．600和4

点击查看答案

第2题

输入两个整数M，N，求它俩的最大公约数。 Private Sub Command1_Click() Dim m%, n%，t%，x% m = Val(InputBox("请输入第1个数m：")) n = Val(InputBox(“请输入第2个数n：”)) If m < n Then t = m: m = n: n = t For y = n To 1 Step -1 If Then Print "最大公约数为："; y Exit For End If Next y End Sub

A、y Mod m = 0 And y Mod n = 0

B、m Mod y = 0 And n Mod y = 0

C、m Mod y = 0 or n Mod y = 0

D、y Mod m = 0 or y Mod n = 0

点击查看答案

第3题

下面的程序段运行后，消息框显示的结果是______。 For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Next i MsgBox(n)

A、4

B、5

C、24

D、288

点击查看答案

第4题

下面的程序运行后，Label1显示的结果是______。 Dim n, s As Long n = 87562423 Do While n >= 10 s = 0 Do s = s + n Mod 10 n = n \ 10 Loop Until n = 0 n = s Loop Label1.Text = n

A、1

B、2

C、3

D、4

点击查看答案

第5题

下列程序段执行后，变量a，b，c，d的值分别为______。 Dim a, b, c, d, i, j As Integer a = 0: b = 0: c = 0: d = 0 For i = 1 To 20 a = a + 1 For j = 1 To 10 b = b + 1 If j > 6 Then Exit For End If c = c + 1 Next d = d + 1 Next

A、20 140 120 20

B、20 200 180 20

C、20 140 120 200

D、200 140 120 20

点击查看答案

第6题

下列程序段执行后，在标签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、

点击查看答案

第7题

下面代码执行后，变量s的值为______。 Dim i, n As Integer, s As String i = 2 : n = 12 : s = n & "=" Do Until n = 1 Do While n Mod i = 0 s &= i & "*" n = n \ i Loop i += 1 Loop s = Strings.Left(s, Len(s) - 1)

A、12=2*6

B、12=4*3

C、12=2*2*3

D、12=3*4

点击查看答案

第8题

下列程序段执行后，在标签Label1中显示的图形为______。 Dim i As Integer Dim p As String = "ABCDEFGH" Dim s As String s = "" For i = 1 To 5 s &= Microsoft.VisualBasic.Left(p, i) s &= vbCrLf Next Label1.Text = s

A、

B、

C、

D、

点击查看答案

第9题

必须将源代码粘贴到答题的文本编辑框中，无需上传附件。注意：如果未将源代码粘贴到文本框中，则本题不给分。编程显示多层字母构成的金字塔图形，如图2.4.9所示。实现以下功能： 1．在文本框中输入1-9之间的数字，该数字表示金字塔的层数。 2．点击按钮后，显示对应的由字母构成的金字塔。注意：第一层至第九层分别需要由字符A至字符I中对应的字符构成提示：打印由多行组成的图案，通常采用双重循环，外层循环用于控制行数，内层循环用于输出每一行的信息。

点击查看答案

第10题

已知有一个一维数组A，下列语句______不能得到数组的总大小。

A、A.Length

B、A.GetLength

C、A.GetLength(0)

D、A.GetUpperBound(0) + 1

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

杭州自考报名时间2024年具体在几月报考 2024成人自考会计要什么条件才能考需要哪些要求 2024年河南省自考本科考试科目报名条件有哪些黄浦区自考本科2024年具体报名时间是多少嘉兴成人自考本科2024年报名时间及条件自考成人大专需要多少钱考完要多久 2024年初中没毕业能补学历吗有什么途径大专成人自考报名入口考哪些内容初中毕业自学可以参加自学考试吗报名条件是什么广州2024年成人自考大专网上报名流程及详细步骤

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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