题目内容
（请给出正确答案）
[单选题]
执行下面的程序段后，m的值为______。 Dim m%, n% For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n \ 3 Next n Label1.text = m
A.70
B.18
C.24
D.42
提问人：网友hxwan82
发布时间：2022-01-07
题目内容
（请给出正确答案）
如搜索结果不匹配，请 
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“执行下面的程序段后，m的值为______。 Dim m%, …”相关的问题
第1题
给出下列程序段的输出结果 x=0 for i=1 to 10 if (i mod 2 = 1) then x=x+1 else x=x-1 end if exit for next i print x
第2题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3$amp;Next
Print n
End Sub
程序运行后,如果单击命令按钮,则窗体上显示的内容是
A．15
B．18
C．21
D．24
第3题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：
Pfivae Sub Commandl_click()
a＝0
For i＝1 To 2
For j＝1 To 4
If i Mod 2$amp;a＝a-1
End If
a＝a+1
Next j
Next I
MsgBox a
End Sub
程序运行后，单击命令按钮，消息框中的输出结果是______。
第5题
下列程序段的运行结果为______。 Label1.Text = "" For i = 3 To 1 Step -1 Label1.Text &= Space(5-i) For j = 1 To 2 * i - 1 Label1.Text &= "*" Next j Label1.Text &= vbCrLf Next i
A、
B、
C、
D、
第6题
必须将源代码粘贴到答题的文本编辑框中，无需上传附件。 注意：如果未将源代码粘贴到文本框中，则本题不给分。 反复抛骰子1000次，并统计骰子的点数为1点、2点、3点、4点、5点、6点时分别出现的次数和概率。要求： （1）单击Button1，则显示结果。 （2）最终的结果显示在支持多行的文本框textbox1中，显示的内容是： 骰子为1点的情况一共出现了？？次，出现的概率为？？%； 骰子为2点的情况一共出现了？？次，出现的概率为？？%； 骰子为3点的情况一共出现了？？次，出现的概率为？？%； 骰子为4点的情况一共出现了？？次，出现的概率为？？%； 骰子为5点的情况一共出现了？？次，出现的概率为？？%； 骰子为6点的情况一共出现了？？次，出现的概率为？？%； 注意：上述内容在文本框textbox1中要求分六行显示。 提示： （1）骰子每抛出一次，可能为1点、2点、3点、4点、5点、6点中的任何一种情况，即可能为数字[1,6]中的任何一个值,可考虑使用随机函数来实现。 （2）反复抛出1000次，每次均对当前骰子的点数进行判断，并分别统计每种点数出现的次数。
第7题
必须将源代码粘贴到答题的文本编辑框中，无需上传附件。 注意：如果未将源代码粘贴到文本框中，则本题不给分。 编程显示多层字母构成的金字塔图形，如图2.4.9所示。实现以下功能： 1． 在文本框中输入1-9之间的数字，该数字表示金字塔的层数。 2． 点击按钮后，显示对应的由字母构成的金字塔。注意：第一层至第九层分别需要由字符A至字符I中对应的字符构成 提示：打印由多行组成的图案，通常采用双重循环，外层循环用于控制行数，内层循环用于输出每一行的信息。 
第10题
下面语句正确的是______。
A、Dim a(1) As Integer = {12}
B、Dim a( ) As Integer = 0
C、Dim a( ) As Integer = {12}
D、Dim a(1) As Integer = {12, 12}
