题目内容
（请给出正确答案）
[单选题]
下列程序执行后，a（n) 与b（n) 结果为______。 Dim a（10), b（10) As Integer n = 3 For i = 1 To 5 a（i) = i b（n) = 2 * n + i Next i
A.13 4
B.3 11
C.1 13
D.2 33
提问人：网友fanly121119
发布时间：2022-01-07
如搜索结果不匹配，请 
A、Dim
B、ReDim
C、Static
D、Public
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“下列程序执行后，a（n) 与b（n) 结果为______。 …”相关的问题
第2题
执行以下程序时，则输出结果为______。 Dim a() = {1, 3, 5, 7}, b(4) , i As Integer For i = 0 To 2 b(3 - i) = a(i + 1) Next i MsgBox(b(i))
A、0
B、1
C、3
D、5
第3题
下列程序执行后，s的值为______。 Dim i%, j%, s% Dim a%() = {1, 2, 3, 4} j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i
A、4321
B、12
C、34
D、1234
第4题
运行以下程序，消息框中的输出结果为______。 Dim x$() = {"VB语言", "VB.Net语言", "C++语言", "C#语言"} MsgBox(x(Len(x(2)) - x.Length - x.Rank))
A、VB语言
B、VB.Net语言
C、C++语言
D、C#语言
第5题
请使用Visual Studio作为程序的开发环境，将源代码粘贴到答题的文本编辑框中（无需提交附件）。 在窗体的Load事件过程中随机产生10个取值范围为100~200（包括100和200）的整数，放到一个数组中，并在TextBox1中显示。单击“统计”命令按钮后，求这10个数的最大值、最小值、平均值，并分别显示在Label2、Label3和Label4中。程序界面如下图所示。 
提示： 1）该数组将被两个事件过程使用，因此需要定义成模块级的数组，即需要定义在事件过程的上方。 2）求最大值、最小值、平均值可使用数组对象的Max、Min和Average方法。例如：下面的语句可以求得数组a的最大值并将结果显示在Label2中： Label2.Text = "最大值：" & a.Max() 也可以不使用Max、Min、Average方法，而自己写代码实现求数组的最大值、最小值和平均值。建议两种方法都用一下。
提示： 1）该数组将被两个事件过程使用，因此需要定义成模块级的数组，即需要定义在事件过程的上方。 2）求最大值、最小值、平均值可使用数组对象的Max、Min和Average方法。例如：下面的语句可以求得数组a的最大值并将结果显示在Label2中： Label2.Text = "最大值：" & a.Max() 也可以不使用Max、Min、Average方法，而自己写代码实现求数组的最大值、最小值和平均值。建议两种方法都用一下。
第6题
以下程序的输出结果为______。 Dim a%() = {345, -54, 200, 356, 65, 23} Dim i As Integer, m As Integer, intIndex As Integer m = a(intIndex) For i = a.GetLowerBound(0) To a.GetUpperBound(0) If a(i) > m Then m = a(i) intIndex = i End If Next MsgBox(m & " " & intIndex)
A、-24 2
B、356 4
C、345 1
D、356 3
第7题
请使用Visual Studio作为程序的开发环境，将源代码粘贴到答题的文本编辑框中（无需提交附件）。 编写一个分数统计的程序。通过文本框TextBox1接受10个考试成绩的输入，单击“统计”命令按钮（Button1）后，统计优秀（90～100分）、良好（80～89分）、中等（70～79分）、及格（60～69分）、不及格（0～59分）的人数，统计结果显示在标签中Label1~Label5中。程序界面如下图所示。
提示： 1）定义一个有10个数据元素的整型数组intScore来存放10个成绩。定义一个计数变量intNum来记录已输入的数据的个数。intScore和intNum需要定义为模块级的量，即需要定义在事件过程的上方。 2）编写文本框TextBox1的KeyPress事件过程来向数组中输入数据，用户输入回车表示一个数据输入完毕。（此段代码与9.3节的第2个视频的例子代码很相像，请看这个视频） If e.KeyChar = vbCr Then If intNum > 9 Then MsgBox("数据个数已满！不能再输入") TextBox1.Text = "" Exit Sub End If intScore(intNum) = Val(TextBox1.Text) intNum = intNum + 1 TextBox1.Text = "" End If 3）编写命令按钮Button1的Click事件过程来进行数据统计。 第一步：定义5个整型变量作为各档次人数的计数变量（注意，不要为变量起名为：e，因为e是这个事件过程的参数）。 第二步：通过循环依次读取数组中的数据元素，判断它的取值范围，并将相应的计数变量的值加1。 For i = 0 To 9 判断Score(i)的取值范围，并将相应的计数变量的值加1 Next 第三步：将计数变量的值依次显示在标签Label1~Label5中。
第8题
在窗体中添加一文本框TextBox1，然后编写以下程序代码： Private Sub Form1_Click(…) Handles Me.Click Dim a = Split(TextBox1.Text, ",") Dim strTemp As String For i = a.GetLowerBound(0) To a.GetUpperBound(0) strTemp &= a(i) + trim(str(i)) Next MsgBox(strTemp) End Sub 在程序运行时，先在文本框中键入数据“0,1,2,3,4”，然后单击窗体，程序的输出结果是______。
A、02468
B、0011223344
C、01234
D、都不对
第9题
下列有关ReDim语句的叙述中，正确的是______。
A、ReDim语句只能更改一维数组的大小
B、它和Dim语句一样，可以定义数组的大小，可以写在程序的任何地方
C、ReDim语句是一种非执行语句
D、它只能用于过程内部
第10题
把整型数组a的大小更改为6，并要求保留老数据，下面的语句正确的是______。
A、ReDim a(6)
B、ReDim Preserve a(6)
C、ReDim a(5)
D、ReDim Preserve a(5)
