《Visual Basic 程序设计》（电工版第六版）期末复习卷（一）

《Visual Basic程序设计（第6版）》 期末复习卷（一） 时间：90分钟 总分：100分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1、窗体上有1个名称为Command1的命令按钮，在设计模式下，双击Command1，将打开（ ）。 A. 属性窗口 B. 代码窗口 C. 工程资源管理器窗口 D. 工具箱窗口 2、与传统的程序设计语言相比,Visual Basic最突出的特点是（ ）。 A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术 3、下列各项不是Visual Basic的基本数据类型的是( )。 A. Char B. String C. Integer D. Double 4、VB表达式2*3^2+2*8/4+3^2的值为( )。 A. 64 B. 31 C. 49 D. 22 5、下列关于变体数据类型的叙述中正确的是（ ）。 A.变体是一种没有类型的数据 B.给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值 C.一个变量没有定义就赋值，该变量即为变体类型 D.变体的空值就表示该变体值为0 6、设a="MicrosoftVisualBasic", 则以下使变量b的值为"VisualBasic"的语句是（ ）。 A. b=Left(a,11) B. b=Mid(a,11) C. b=Right(a,11) D. b=Mid(a,11,10) 7、下列表达式中，值为True的是（ ）。 A．Ucase("abcd")>="abed" B．14/2\3<10 Mod 4 C．Mid("ABCD",2,2)>Left("ABCD",2) D．Not(Sqr(4)-3>=-2) 8、下列说法不正确的是（ ）。 A．VB允许将一个数字字符串赋值给一个数值型的变量 B．VB允许使用未经说明的变量，其类型都是Variant类型 C．Cls方法只清除运行时在窗体或图形框中显示的文本或图形 D．事件过程既可建在窗体模块中，也可建在标准模块中 9、以下有关数组的说明中，错误的是( )。 A．根据数组说明的方式，可将数组分为动态数组和静态数组 B．在过程中，不能用Private语句定义数组 C．利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型 D．数组重新定维后，原有的数组元素内容将不予保留 10、文本框没有( )属性 A.Enabled B.Visible C.BackColor D.Caption 11、要使某控件在运行时不可显示，应对( )进行设置 A.Enabled B.Visible C.BackColor D.Caption 12、在VB集成环境创建VB应用程序时，除了工具箱窗口，窗体中的窗口，属性窗口外，必不可少的窗口是( ) A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口 13、VB控件中能够存放组合框的所有项目内容的属性是( )。 A.Caption B.Text C.List D.Selected 14、对于窗体，下面( )属性在程序运行时其属性设置起作用。 A.MaxButton B.BorderStyle C.Name D.Left 15、窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程: Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.Addltem Text End If Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。 A.将For循环的终值改为List1.ListCount B.将List1.Selected(i)=True 改为List1.List(i).Selected= True C.将List2.AddItem Text 改为List2.AddItem List1 .List(i) D.将List2.AddItem Text 改为List2.AddItem List1.ListIndex 16、在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Cmdl_Click() a=InputBox("Enter the First Integer") b=InputBox("Enter the Second Integer") Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为( )。 A.2 B.62 C.8 D.26 17、窗体中存在命令按钮Command1，其Click事件代码如下： Private Sub Command1_Click() X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 A. True B. False C.-1 D.1 18、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(C）) For i=1 To 4 Print ____ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为（ ）。 A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i) 19、在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim array1(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 4 For j = 1 To 4 array1(i, j) = i * 10 + j Next j Next i Text1.Text = array1(2, 1) + array1(3, 2) End Sub 程序运行后，单击命令按钮，在文本框中显示的结果是（ ）。 A. 54 B. 53 C. 55 D. 56 20、有如下程序： Do 循环体 Loop While <条件> 则以下叙述中错误的是（ ）。 A.若“条件”是一个为0 的常数，则一次也不执行循环体 B.“条件”可以是关系表达式、逻辑表达式或常数 C.循环体中可以使用Exit Do语句 D.如果“条件”总是为True，则不停地执行循环体 21、通过设置Shape控件的( )属性可以绘制多种形状的图形。 A.Shape B.BorderStyle C.FillStyle D.Style 22、文件号最大可取的值为（ ） A.255 B.511 C.512 D.256 23、以下叙述中错误的是( )。 A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B.Sub过程中不能嵌套定义Sub过程 C.Sub过程中可以嵌套调用Sub过程 D.事件过程可以像通用过程一样由用户定义过程名 24、下面程序运行后的结果是( ) Public sub f1(n%, byval m%) N=n mod 10 M=m\10 End sub Private sub command1_click( ) Dim x%, y% X=12 Y=34 Call f1(x, y) Print x, y End sub A.2 34 B.12 34 C.2 3 D.12 3 25、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用( )关键字在过程中定义局部变量。 A. Dim B. Private C. Public D. Static 二、填空题(本大题共10小题，每小题2分，共20分) 1、一个Visual Basic应用程序可由________、标准模块和类模块组成。 2、VB有三种工作模式，它们分别是________模式、设计模式和________模式。 3、VB逻辑数据类型只有True与False两个值。当逻辑数据转换成整型数据时，True 转换为________，False转换为________。 4、VB中，对控件一些属性的设置，即可以通过在属性窗口中设置，也可以在________中设置，两种方法来设置。 5、表达式“12345”<>“12345”&“ABC”的值是________。 6、在窗体上已建立了多个控件如Text1 Label1 Command1 若要使程序已运行焦点就定位在Command1控件上，应对Command1控件设置 TabIndex属性的值为________。 7、在VB中事件过程名由_______和_______构成。 8、VB 中打开文件的语句是 Open，格式为Open 文件名 For 模式 As #文件号，其中 “读模式” 的关键字是______。 9、Do While 循环中，______关键字用于强制退出循环。 10、有如下Sub过程与调用过程： Private Sub Command1_Click() ind 2 End Sub Sub ind(a As Integer) Static X As Integer X=X+a Print X； End Sub 程序运行后，单击命令按钮3次，其输出结果为________。 三、程序填空题(本大题共3小题，每题10分，共30分) 1、程序功能：用选择排序将下列数组元素从大到小进行排序。完成程序填空。 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 imin = i For j = ___(1)________ If a(j) > a(imin) Then___(2)________ Next j t = a(i): a(i) = a(imin): a(imin) = t Next i End Sub Private Sub Form_Click() Dim b(), i% b = Array(8, 9, 4, 2, 6) Call sort(b()) For i = 0 To UBound(b) Print b(i); Next i End Sub 2、 程序功能：求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如a=3,n=6,则s=3+33+333+3333+33333+333333。 Private Sub Form_click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) t = 0: s = 0 Print Tab(9); "a="; a, "n="; n Print For i = 1 To n t = ___(1)________ s = ___(2)________ Print Tab(9); t Next i Print Print Tab(9); "s="; s End Sub 3、程序功能：用1～25的自然数生成1个5×5按自然排列的二维矩阵，并输出到Picture1上；然后将该矩阵循环上移一行，第一行元素换到最后一行，结果在Picture2上输出。程序运行界面如下图所示。 Private Sub Command1_Click() Dim a%(1 To 5, 1 To 5), t(1 To 5) As Integer Picture1.Print "生成的原始矩阵为：" & vbCrLf For i = 1 To 5 For j = 1 To 5 a(i, j) = 5 * (i - 1) + j Picture1.Print Tab(5 * (j - 1)); a(i, j); Next j Picture1.Print Next i Picture2.Print "变换后的矩阵为：" & vbCrLf For j = 1 To 5 t(j) = a(1, j) Next j For i = 1 To 4 For j = 1 To 5 a(i, j) = ___(1)________ Next j Next i For j = 1 To 5 a(5, j) =___(2)________ Next j For i = 1 To 5 For j = 1 To 5 Picture2.Print Tab(5 * (j - 1)); a(i, j); Next j Picture2.Print Next i End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 《Visual Basic程序设计（第6版）》 期末复习卷（一） 时间：90分钟 总分：100分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1、窗体上有1个名称为Command1的命令按钮，在设计模式下，双击Command1，将打开（ ）。 A. 属性窗口 B. 代码窗口 C. 工程资源管理器窗口 D. 工具箱窗口 【答案】B 【解析】在设计模式下，双击按钮控件，将进入代码设计窗口。 2、与传统的程序设计语言相比,Visual Basic最突出的特点是（ ）。 A.结构化程序设计 B.程序开发环境 C.事件驱动编程机制 D.程序调试技术 【答案】C 【解析】VB 的核心特性是事件驱动：程序没有固定的执行顺序，完全由用户的操作触发对应的代码。 3、下列各项不是Visual Basic的基本数据类型的是( )。 A. Char B. String C. Integer D. Double 【答案】A 【解析】Char并非 VB6.0 的基本数据类型。 4、VB表达式2*3^2+2*8/4+3^2的值为( )。 A. 64 B. 31 C. 49 D. 22 【答案】B 【解析】指数运算 ^（次方）；乘法 *、除法 /（同级，从左到右计算）；加法 +、减法 -。 5、下列关于变体数据类型的叙述中正确的是（ ）。 A.变体是一种没有类型的数据 B.给变体变量赋某一种类型数值后，就不能再赋给另一种类型数值 C.一个变量没有定义就赋值，该变量即为变体类型 D.变体的空值就表示该变体值为0 【答案】C 【解析】Variant 是 VB 的默认数据类型，未声明直接赋值的变量默认是 Variant 类型。 6、设a="MicrosoftVisualBasic", 则以下使变量b的值为"VisualBasic"的语句是（ ）。 A. b=Left(a,11) B. b=Mid(a,11) C. b=Right(a,11) D. b=Mid(a,11,10) 【答案】B 【解析】Left：左起截取指定长度；Mid：指定位置开始截取（灵活度最高）；Right：右起截取指定长度。 7、下列表达式中，值为True的是（ ）。 A．Ucase("abcd")>="abed" B．14/2\3<10 Mod 4 C．Mid("ABCD",2,2)>Left("ABCD",2) D．Not(Sqr(4)-3>=-2) 【答案】C 【解析】Ucase(字符串)：将字符串转为大写；Mid(字符串, 起始位, 长度)：截取指定位置的字符串；Left(字符串, 长度)：从左侧截取指定长度；Sqr(数值)：计算平方根. 8、下列说法不正确的是（ ）。 A．VB允许将一个数字字符串赋值给一个数值型的变量 B．VB允许使用未经说明的变量，其类型都是Variant类型 C．Cls方法只清除运行时在窗体或图形框中显示的文本或图形 D．事件过程既可建在窗体模块中，也可建在标准模块中 【答案】D 【解析】事件过程必须建在窗体模块中，不能放在标准模块中。标准模块只能存放通用过程或函数，不能响应控件事件。 9、以下有关数组的说明中，错误的是( )。 A．根据数组说明的方式，可将数组分为动态数组和静态数组 B．在过程中，不能用Private语句定义数组 C．利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型 D．数组重新定维后，原有的数组元素内容将不予保留 【答案】D 【解析】ReDim 默认会清空原数组内容，但若使用 ReDim Preserve，原有元素内容会被保留。 10、文本框没有( )属性 A.Enabled B.Visible C.BackColor D.Caption 【答案】D 【解析】Caption是标签、按钮等控件的静态文字属性，文本框无此属性。 11、要使某控件在运行时不可显示，应对( )进行设置 A.Enabled B.Visible C.BackColor D.Caption 【答案】B 【解析】Visible = False：控件完全隐藏，运行时看不到; Visible = True（默认）：控件正常显示。 12、在VB集成环境创建VB应用程序时，除了工具箱窗口，窗体中的窗口，属性窗口外，必不可少的窗口是( ) A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口 【答案】C 【解析】代码窗口是编写程序逻辑的唯一载体，无它则无法实现任何交互功能；窗体布局、立即、监视窗口均为辅助窗口，非创建应用程序的必需项。 13、VB控件中能够存放组合框的所有项目内容的属性是( )。 A.Caption B.Text C.List D.Selected 【答案】 C 【解析】List 是保存全部项目列表的字符串数组属性。 14、对于窗体，下面( )属性在程序运行时其属性设置起作用。 A.MaxButton B.BorderStyle C.Name D.Left 【答案】D 【解析】MaxButton/BorderStyle仅设计时生效，运行时修改无效；Name是只读属性，运行时无法修改。 15、窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程: Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then List2.Addltem Text End If Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。 A.将For循环的终值改为List1.ListCount B.将List1.Selected(i)=True 改为List1.List(i).Selected= True C.将List2.AddItem Text 改为List2.AddItem List1 .List(i) D.将List2.AddItem Text 改为List2.AddItem List1.ListIndex 【答案】C 【解析】题目程序不能将List1中的选中项添加到List2中，List2.AddItem Text一行有误，应该改为List2.AddItem List1.List(i)才能使List1中每个选中的行添加到List2中。列表框控件的List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。 16、在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Cmdl_Click() a=InputBox("Enter the First Integer") b=InputBox("Enter the Second Integer") Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为( )。 A.2 B.62 C.8 D.26 【答案】B 【解析】InputBox函数的返回值永远是字符串类型，无论用户输入的是数字还是文本。因此变量a和b存储的不是数值 “2”“6”，而是字符串 “2”“6”。 17、窗体中存在命令按钮Command1，其Click事件代码如下： Private Sub Command1_Click() X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 A. True B. False C.-1 D.1 【答案】B 【解析】X*Y=2，2<1为False，执行 Y=-1。 18、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(C）) For i=1 To 4 Print ____ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为（ ）。 A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i) 【答案】B 【解析】Left(字符串, 截取长度)函数的作用是从字符串左侧截取指定长度的字符。 19、在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim array1(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 4 For j = 1 To 4 array1(i, j) = i * 10 + j Next j Next i Text1.Text = array1(2, 1) + array1(3, 2) End Sub 程序运行后，单击命令按钮，在文本框中显示的结果是（ ）。 A. 54 B. 53 C. 55 D. 56 【答案】B 【解析】程序开始时，定义了一个二维数组array1，大小为6×6。然后使用二重For循环给部分数组元素赋值，其中array1(2,1)=2*10+1=21，array1(3,2)=3*10+2=32，最后将两个数组元素的值相加后输出到Text1文本框中，结果为53。 20、有如下程序： Do 循环体 Loop While <条件> 则以下叙述中错误的是（ ）。 A.若“条件”是一个为0 的常数，则一次也不执行循环体 B.“条件”可以是关系表达式、逻辑表达式或常数 C.循环体中可以使用Exit Do语句 D.如果“条件”总是为True，则不停地执行循环体 【答案】A 【解析】Do...Loop While的核心特征是先执行、后判断：无论条件是否成立，循环体至少会执行一次。 21、通过设置Shape控件的( )属性可以绘制多种形状的图形。 A.Shape B.BorderStyle C.FillStyle D.Style 【答案】A 【解析】Shape 控件的Shape属性是控制绘制图形类型的专属属性，通过设置不同的数值（或枚举值），可绘制 6 种基础形状。 22、文件号最大可取的值为（ ） A.255 B.511 C.512 D.256 【答案】B 【解析】文件号的合法取值为 1 ~ 511。 23、以下叙述中错误的是( )。 A.如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B.Sub过程中不能嵌套定义Sub过程 C.Sub过程中可以嵌套调用Sub过程 D.事件过程可以像通用过程一样由用户定义过程名 【答案】D 【解析】事件过程名称为固定格式（控件名_事件名），不能像通用过程一样自定义。 24、下面程序运行后的结果是( ) Public sub f1(n%, byval m%) N=n mod 10 M=m\10 End sub Private sub command1_click( ) Dim x%, y% X=12 Y=34 Call f1(x, y) Print x, y End sub A.2 34 B.12 34 C.2 3 D.12 3 【答案】A 【解析】ByRef（默认）：传址传递，子程序中修改参数值会影响主程序的变量（地址指向同一内存）；ByVal：传值传递，子程序中修改参数值仅在子程序内有效，不会影响主程序的变量。 25、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用( )关键字在过程中定义局部变量。 A. Dim B. Private C. Public D. Static 【答案】D 【解析】Static静态局部变量，过程调用结束后值仍保存在内存中。 二、填空题(本大题共10小题，每小题2分，共20分) 1、一个Visual Basic应用程序可由________、标准模块和类模块组成。 【答案】 窗体模块 【解析】一个 Visual Basic 应用程序可由窗体模块、标准模块和类模块组成。 2、VB有三种工作模式，它们分别是________模式、设计模式和________模式。 【答案】运行; 中断 【解析】VB 三大工作模式：运行、设计、中断。设计模式用于开发，运行模式用于测试，中断模式用于调试。 3、VB逻辑数据类型只有True与False两个值。当逻辑数据转换成整型数据时，True 转换为________，False转换为________。 【答案】-1 ; 0 【解析】True → -1：VB 将 True 定义为 “非 0 值” 的极致，用 - 1 表示；False → 0：False 对应 “空 / 无”，用 0 表示。 4、VB中，对控件一些属性的设置，即可以通过在属性窗口中设置，也可以在________中设置，两种方法来设置。 【答案】程序代码 【解析】VB 中，对控件一些属性的设置，即可以通过在属性窗口中设置，也可以在代码（程序代码 / 运行时代码） 中设置，两种方法来设置。 5、表达式“12345”<>“12345”&“ABC”的值是________。 【答案】True 【解析】"12345" 和 "12345ABC" 是不同字符串，因此不等于的结果为 True。 6、在窗体上已建立了多个控件如Text1 Label1 Command1 若要使程序已运行焦点就定位在Command1控件上，应对Command1控件设置 TabIndex属性的值为________。 【答案】0 【解析】TabIndex属性控制控件的Tab 键焦点顺序，同时决定程序启动时 “默认获得焦点” 的控件,应将 Command1 控件的TabIndex属性值设置为 0。 7、在VB中事件过程名由_______和_______构成。 【答案】控件名; 事件名 【解析】在 VB 中事件过程名由控件名（或窗体名） 和事件名构成。 8、VB 中打开文件的语句是 Open，格式为Open 文件名 For 模式 As #文件号，其中 “读模式” 的关键字是______。 【答案】Input 【解析】文件打开模式：Input（读）、Output（写，覆盖）、Append（追加写）。 9、Do While 循环中，______关键字用于强制退出循环。 【答案】Exit Do 【解析】Exit Do 可在循环体中提前终止循环，无需等待条件不满足。 10、有如下Sub过程与调用过程： Private Sub Command1_Click() ind 2 End Sub Sub ind(a As Integer) Static X As Integer X=X+a Print X； End Sub 程序运行后，单击命令按钮3次，其输出结果为________。 【答案】2 4 6 【解析】Static（静态变量）：过程内声明的静态变量，在过程执行完毕后不会销毁，会保留当前值，下次调用过程时直接使用。 三、程序填空题(本大题共3小题，每题10分，共30分) 1、程序功能：用选择排序将下列数组元素从大到小进行排序。完成程序填空。 Sub sort(a()) Dim imin%, i%, j% For i = 0 To UBound(a) - 1 imin = i For j = ___(1)________ If a(j) > a(imin) Then___(2)________ Next j t = a(i): a(i) = a(imin): a(imin) = t Next i End Sub Private Sub Form_Click() Dim b(), i% b = Array(8, 9, 4, 2, 6) Call sort(b()) For i = 0 To UBound(b) Print b(i); Next i End Sub 【答案】 （1）i + 1 To UBound(a) （2）imin = j 【解析】内层循环 j 需要从 i+1 开始遍历到数组末尾（UBound(a)），目的是在剩余未排序元素中找最大值的下标；imin 是 “当前未排序区间最大值的下标”，初始值设为当前未排序区间的第一个元素下标 i；内层循环中，若发现 a(j) > a(imin)，则更新 imin 为 j，确保 imin 始终指向未排序区间的最大值。 2、 程序功能：求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如a=3,n=6,则s=3+33+333+3333+33333+333333。 Private Sub Form_click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) t = 0: s = 0 Print Tab(9); "a="; a, "n="; n Print For i = 1 To n t = ___(1)________ s = ___(2)________ Print Tab(9); t Next i Print Print Tab(9); "s="; s End Sub 【答案】 （1）t * 10 + a （2）s + t 【解析】每一次循环都通过 “乘以 10 + 原数字 a” 的方式，在原有数字末尾追加一个 a；s 是所有项的累加和，初始值为 0；每构造出一个项 t，就将其加到 s 中，最终得到 a+aa+aaa+...+n个a 的总和。 3、程序功能：用1～25的自然数生成1个5×5按自然排列的二维矩阵，并输出到Picture1上；然后将该矩阵循环上移一行，第一行元素换到最后一行，结果在Picture2上输出。程序运行界面如下图所示。 Private Sub Command1_Click() Dim a%(1 To 5, 1 To 5), t(1 To 5) As Integer Picture1.Print "生成的原始矩阵为：" & vbCrLf For i = 1 To 5 For j = 1 To 5 a(i, j) = 5 * (i - 1) + j Picture1.Print Tab(5 * (j - 1)); a(i, j); Next j Picture1.Print Next i Picture2.Print "变换后的矩阵为：" & vbCrLf For j = 1 To 5 t(j) = a(1, j) Next j For i = 1 To 4 For j = 1 To 5 a(i, j) = ___(1)________ Next j Next i For j = 1 To 5 a(5, j) =___(2)________ Next j For i = 1 To 5 For j = 1 To 5 Picture2.Print Tab(5 * (j - 1)); a(i, j); Next j Picture2.Print Next i End Sub 【答案】 （1） a(i + 1, j) （2） t(j) 【解析】内层循环 j 遍历每一列，将 i+1 行的元素赋值给 i 行，实现 “上移”，将临时数组 t 中保存的原始第一行数据赋值给矩阵第 5 行，完成 “循环上移”（第一行换到最后一行）。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $