题目内容
（请给出正确答案）
[单选题]
程序段如下，程序运行后消息框显示的结果是______。 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
提问人：网友lnslta2
发布时间：2022-01-07
如搜索结果不匹配，请 
A．15和1
B．27和3
C．195和3
D．600和4
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“程序段如下，程序运行后消息框显示的结果是______。 Di…”相关的问题
第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 程序运行后，单击命令按钮，在两个文本框中显示的值分别是
点击查看答案
第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
