VB调试题解答(07-3-17)
- 格式:doc
- 大小:201.00 KB
- 文档页数:28
vb 练习题及答案【篇一:vb 习题(含答案)】lass=txt>1 、vb 程序中,通常不会产生错误提示的是( )。
(1 分)a、编译错误b、逻辑错误c、运行时错误d、实时错误2、在设计阶段,双击窗体上任一空白处,打开的窗口是( )。
(1 分)a、工程资源管理器窗口b、代码窗口c、工具箱窗口d、属性窗口3、下列说法中,正确的说法是( )。
(1 分)a、窗体名称和该窗体文件名必须一致b、窗体名称和该窗体文件名可以不相同c、窗体名称和该窗体文件名不能使用汉字d、窗体名称不能使用汉字、但该窗体文件名能使用汉字4、visual basic 有完备的help 联机帮助功能,可以通过按下功能键( )得到帮助。
( 1 分)a、f9 b 、f8c、f1 d 、f55、以下( )控件可作为容器使用。
( 1 分)a、label b 、pictureboxc、textbox d 、image6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。
( 1 分)a、0 b 、1c、2 d 、57、文本框没有( )属性(1 分)a、text b 、namec、caption d 、borderstyle23、下列( )是不合法的常量。
( 1 分)a、100 b 、10e02c、100.0 d 、10e0.524、下列对变量的定义中,定义x 为变体型变量的是( )。
(1 分)a、dim x as double b 、dim xc、dim x! d 、x%=2325、设有如下变量声明:dim testdate as date ,为变量testdate正确赋值的表达方式是( )。
(1 分)a、textdate=#1/1/2002# b 、testdate=#1/1/2002#c、textdate=date(1/1/2002) d 、testdate=format(m/d/yy,1/1/2002)26、在立即窗口中运行以下语句,a=beijing :b=shanghai :printa,b 对其输出结果的描述中,正确的是( )。
2007年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计(考试时间90分钟,满分100分)一、选择题(每小题2分,共70分)下列各题A) 、B) 、C) 、D)四个选项中,只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。
(1)软件是指A)程序B)程序和文档C)算法加数据结构D)程序、数据与相关文档的完整集合(2)软件调试的目的是A)发现错误B)改正错误C)改善软件的性能D)验证软件的正确性(3)在面向对象方法中,实现信息隐蔽是依靠A)对象的继承B)对象的多态C)对象的封装D)对象的分类(4)下列叙述中,不符合良好程序设计风格要求的是A)程序的效率第一,清晰第二B)程序的可读性好C)程序中要有必要的注释D)输入数据前要有提示信息(5)下列叙述中正确的是A)程序执行的效率与数据的存储结构密切相关B)程序执行的效率只取决于程序的控制结构C)程序执行的效率只取决于所处理的数据量D)以上三种说法都不对(6)下列叙述中正确的是A)数据的逻辑结构与存储结构必定是一一对应的B)由于计算机存储空间是向量式的存储结构,因此,数据的存储结构一定是线性结构C)程序设计语言中的数组一般是顺序存储结构,因此,利用数组只能处理线性结构D)以上三种说法都不对(7)冒泡排序在最坏情况下的比较次数是A)n(n+1)/2 B)nlog2 n C)n(n-1)/2 D)n/2(8)一棵二叉树中共有70个叶子结点与80个度为1的结点,则该二叉树中的总结点数为A)219 B)221 C)229 D)231(9)下列叙述中正确的是A)数据库系统是一个独立的系统,不需要操作系统的支持B)数据库技术的根本目标是要解决数据的共享问题C)数据库管理系统就是数据库系统D)以上三种说法都不对(10)下列叙述中正确的是A)为了建立一个关系,首先要构造数据的逻辑关系B)表示关系的二维表中各元组的每一个分量还可以分成若干数据项C)一个关系的属性名表称为关系模式D)一个关系可以包括多个二维表(11)要使一个文本框可以显示多行文本,应设置为True的属性是A)Enabled B)MultiLine C)MasLenfth D)Width(12)在窗体上有一个名为Text1的文本框。
vb考试试题及答案1. 介绍VB语言特点VB(Visual Basic)是一种基于事件驱动的可视化编程语言,最早由微软公司于1991年推出。
以下是VB语言的特点:简单易学:VB语言采用自然语言和图形化的界面,减少了繁杂的语法和代码编写,使得初学者能够迅速掌握。
可视化设计:VB提供了强大的可视化设计功能,开发者可以通过拖拽控件、设置属性等直观的方式创建用户界面。
面向对象编程:VB具备面向对象的编程特性,支持封装、继承和多态等概念,可以更好地组织和管理代码。
强大的控件库:VB拥有丰富的控件库,开发者可以通过调用这些控件实现各种功能,如按钮、文本框、列表框等。
易于与其他技术集成:VB能够与其他微软技术集成,如数据库、Office套件和网络等,方便开发者进行相关应用的开发。
2. VB考试试题1) VB语言中的变量命名规则是什么?2) VB中的条件语句有哪些?请列举并示例。
3) 如何在VB中实现错误处理?4) VB中如何定义函数和子过程?它们之间有什么区别?5) VB中常用的数据类型有哪些?请简要介绍。
6) 如何在VB中连接数据库,并执行相关操作?3. VB考试答案1) VB语言中的变量命名规则是以下几点:- 变量名由字母、数字和下划线组成,但不能以数字开头。
- 变量名区分大小写。
- 变量名不能与VB的关键字相同。
- 变量名应具有描述性,方便代码维护。
2) VB中的条件语句包括以下几种:- If语句:根据条件判断执行不同的代码块。
示例:```If condition Then' 执行语句块Else' 执行其他语句块End If```- Select Case语句:根据表达式的值选择执行对应的代码块。
示例:```Select Case expressionCase value1' 执行语句块1Case value2' 执行语句块2Case Else' 执行其他语句块End Select```3) 在VB中,可以使用Try...Catch...Finally块来实现错误处理。
vb考试试题和答案**VB考试试题和答案**一、单项选择题(每题2分,共20分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. IntC. DoubleD. All of the above**答案:D**2. VB中,哪个函数用于计算一个数的平方根?A. SqrB. PowC. LogD. Abs**答案:A**3. 下列哪个选项是VB中的保留字?A. MyB. MeC. DimD. All of the above**答案:D**4. 在VB中,下列哪个选项用于声明一个变量?A. ConstB. DimC. FunctionD. Sub**答案:B**5. VB中,哪个控件用于显示文本,但不能编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案:B**6. 在VB中,下列哪个选项用于循环遍历数组中的每个元素?A. For EachB. ForC. WhileD. Do**答案:A**7. VB中,哪个函数用于将字符串转换为大写?A. LCaseB. UCaseC. StrCompD. Trim**答案:B**8. 在VB中,哪个事件用于响应按钮点击?A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案:A**9. VB中,哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. BackColor**答案:A**10. 在VB中,下列哪个选项用于声明一个过程?A. FunctionB. SubC. ClassD. Module**答案:B**二、填空题(每题2分,共20分)1. 在VB中,声明一个整型变量的关键字是________。
**答案:Integer**2. VB中,用于定义一个函数的关键字是________。
**答案:Function**3. VB中,用于定义一个子程序的关键字是________。
第四部分:上机程序调试题(改错或填空)(一)说明等级考试上机测试的程序调试题常常是在考生目录中给出一个标准模块程序Modify.BAS,要求根据题意修改该模块中的函数或过程,为检测所作修改是否正确,可以按照以下操作步骤进行调试:1.要求学生建立一工程,将这一模块添加到工程中。
如果你是通过双击标准模块程序Modify.BAS进入Visual Basic程序设计系统的,则首先需要添加一个窗体模块。
2.将该标准模块程序Modify.BAS代码中用---n---(n为1,2,3,4,5)部分删除后改为合适的内容或将用****错误n****标示的下一语句中的错误改正,并在窗体模块中编写代码(常常写在窗体的Click()事件中)调用标准模块中的sub过程或自定义函数(如果在标准模块程序中有多个过程或函数,要注意调用的先后顺序,否则得不到正确结果),调试运行程序,使其能输出正确结果。
3.按试题要求保存工程。
(二)程序调试题[题1] Modify.bas模块中的Transfer过程用于将一个十六进制整数转换为十进制整数;number函数过程用于将一个十六进制符号转换为数值。
Public Sub Transfer()Dim Hex As String '十六进制数Dim Dec As Double '十进制数Dim temp As StringDim i As IntegerDim n As IntegerHex = InputBox("输入一个十六进制整数")'****** 错误1 *******n = Val(Hex)‘n=len(Hex)i = 0Do'****** 错误2 *******temp = Mid(Hex, i, 1)‘temp=Mid(Hex,n-i,1)'****** 错误3 *******Dec = Dec + number * 16 ^ iDec=Dec+number(temp)*16^ii = i + 1Loop While i < n'****** 错误4 ******Form1.Print str(Hex) & "转换为十进制数为" & str(Dec)‘Form1.print Hex & “转换为十进制数为” & str(Dec)End SubPublic Function number(str As String) As IntegerSelect Case strCase "a", "A"number = 10Case "b", "B"number = 11Case "c", "C"number = 12Case "d", "D"number = 13Case "e", "E"number = 14Case "f", "F"number = 15Case Elsenumber = Val(str)End SelectEnd Function[题2] Modify.bas模块中的BubbleSort过程是冒泡排序法;GenerateData过程产生个[1,20]之间互不相同的随机整数;Swap过程交换两个变量的数值。
vb考试大题及答案VB考试大题及答案一、编写一个VB程序,实现以下功能:1. 计算并显示一个整数的平方根。
2. 如果输入的不是整数,则弹出对话框提示错误。
答案:```vbOption ExplicitPrivate Sub Command1_Click()Dim num As DoubleDim result As DoubleDim strInput As StringstrInput = InputBox("请输入一个整数")If IsNumeric(strInput) Thennum = Val(strInput)If num < 0 ThenMsgBox "负数没有平方根"Elseresult = Sqr(num)MsgBox "平方根为: " & resultEnd IfElseMsgBox "输入错误,请输入一个整数"End IfEnd Sub```二、设计一个VB程序,实现以下功能:1. 通过文本框输入一个字符串。
2. 统计字符串中每个字符出现的次数,并在列表框中显示。
答案:```vbOption ExplicitPrivate Sub Command1_Click()Dim strInput As StringDim strChar As StringDim i As IntegerDim count As IntegerstrInput = Text1.TextFor i = 1 To Len(strInput)strChar = Mid(strInput, i, 1)count = 0For j = 1 To Len(strInput)If Mid(strInput, j, 1) = strChar Then count = count + 1End IfNext jIf count > 0 ThenList1.AddItem strChar & ": " & countEnd IfNext iEnd Sub```三、编写一个VB程序,实现以下功能:1. 通过单选按钮选择一个颜色(红、绿、蓝)。
vb考试题及答案一、单选题(每题2分,共20分)1. 在VB中,以下哪个关键字用于声明变量?A. DimB. SubC. FunctionD. Const答案:A2. VB中的“Mid”函数用于什么?A. 计算字符串长度B. 计算字符串的ASCII值C. 从字符串中提取子字符串D. 将字符串转换为大写答案:C3. 以下哪个是VB中的流程控制语句?A. IfB. ForC. NextD. All of the above答案:D4. 在VB中,如何声明一个整型变量?A. Dim x As IntegerB. Integer xC. x = IntegerD. x Integer答案:A5. VB中的“Print”方法用于做什么?A. 打印文档B. 在窗体上显示文本C. 打印窗体D. 显示错误信息答案:B6. 在VB中,以下哪个不是基本数据类型?A. IntegerB. StringC. DateD. Object答案:D7. VB中的“Select Case”语句用于什么?A. 循环控制B. 条件分支C. 数据类型转换D. 异常处理答案:B8. 在VB中,如何将一个变量的值赋给另一个变量?A. x = yB. x := yC. x = y = zD. x = (y)答案:A9. VB中的“Do While”循环在什么条件下执行?A. 条件为真时B. 条件为假时C. 条件未知时D. 从不执行答案:A10. 在VB中,以下哪个不是集合(Collection)的方法?A. AddB. RemoveC. CountD. Find答案:D二、多选题(每题3分,共15分)1. VB中,哪些是合法的变量名?A. _nameB. 2nameC. name$D. name答案:A, D2. 在VB中,哪些是合法的常量声明?A. Const pi = 3.14B. Const pi = "3.14"C. Const pi = 3.14DD. Const pi = 3.14F答案:A, C, D3. VB中,哪些是合法的数组声明?A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr() As Integer = New Integer(10) {}D. Dim arr(,) As Integer = New Integer(,) {{1, 2}, {3, 4}} 答案:A, C, D4. 在VB中,哪些是合法的函数调用?A. MsgBox("Hello World")B. Int(123.456)C. UCase("Hello World")D. LCase("HELLO WORLD")答案:A, B, C, D5. VB中,哪些是合法的循环控制语句?A. For i = 1 To 10B. While TrueC. Do Until FalseD. For Each item In collection答案:A, B, C, D三、判断题(每题1分,共10分)1. VB中,所有变量都必须在使用前声明。
vb考试试题及答案VB考试试题及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. VB中的哪个函数可以用来获取当前系统时间?A. Now()B. Date()C. Time()D. All of the above答案:D3. 在VB中,以下哪个选项是正确的循环结构?A. For...NextB. Do...LoopC. While...WendD. All of the above答案:D4. VB中,以下哪个选项是正确的条件判断语句?A. If...ThenB. Select...CaseC. Both A and BD. None of the above答案:C5. 在VB中,以下哪个选项是正确的数组声明方式?A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案:C6. VB中,以下哪个选项是正确的窗体属性?A. CaptionB. TextC. Both A and BD. None of the above答案:C7. 在VB中,以下哪个选项是正确的事件处理程序?A. Sub Form_Load()B. Sub Form_Click()C. Both A and BD. None of the above答案:C8. VB中,以下哪个选项是正确的控件?A. LabelB. TextBoxC. Both A and BD. None of the above答案:C9. 在VB中,以下哪个选项是正确的文件访问模式?A. Open For InputB. Open For OutputC. Both A and BD. None of the above答案:C10. VB中,以下哪个选项是正确的错误处理语句?A. On Error GoToB. On Error Resume NextC. Both A and BD. None of the above答案:C二、填空题(每题2分,共20分)1. 在VB中,声明一个整型变量i,可以使用语句_________。
目录一、填空题 (2)二、选择题 (5)三、程序填空 (18)四、阅读程序写结果 (25)五、编程题 (31)六、历年全国计算机二级等级考试真题(附答案) (33)2006年4月全国计算机等级考试二级VB笔试试卷 (33)2005年9月全国计算机等级考试二级VB笔试试卷 (43)2005年4月全国计算机等级考试二级VB笔试试卷 (50)2004年9月全国计算机等级考试二级VB笔试试卷 (57)一、填空题1、在程序中使用日期型数据时,必须用符号 将日期型数据括起来。
2、VB 集成发环境窗口,它包括了数个独立的窗口。
除必须的"主窗口"外,常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。
3、在计算机上建立一个VB 应用程序的完整过程,一般分:建立用户界面的对象、对象属性的设置 、对象事件过程及编程、 程序的运行和调试 和 保存文件 五个步骤。
4、VB 中每个对象都有自己的属性, visible 属性决定控件是否允许可见。
5、在VB 对象的三要素中,可以把 属性 看作一个对象的性质,把 事件 看作对象的响应,把 方法 看作对象的动作。
6、VB 有三种工作模式,它们分别是 模式、 模式和 模式。
7、如果希望每0.6秒钟产生一个计时事件,那么应将InterVal 属性值应设置为 。
8、在VB 中,为了使一个控件在运行时不可操作,应将控件的 enable 属性设置为 false 。
9、为了防止用户编辑文本框内的内容,应将控件的 locked 属性设置为 true 。
10、当要使标签框的大小随着Caption 属性的值进行扩展或缩小时,应将该控件的 autosize 属性设置为 true 。
11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是 dim ch5 as string*8 。
12、VB 中拥有多个窗体的程序可用 load 语句窗体装入内存,用 unload 语句从内存中删除指定窗体.13、在多窗体工程中,可用 show 方法显示一个窗体,用 hide 方法将一个窗体隐藏起来。
vb考试题及答案解析VB考试题及答案解析1. 以下哪个选项是Visual Basic的简称?A. VBAB. VBSC. VBD. VBScript答案:C解析: Visual Basic的简称是VB,而VBA是Visual Basic for Applications的缩写,VBS是Visual Basic Script的缩写,VBScript是一种脚本语言。
2. 在Visual Basic中,以下哪个关键字用于声明一个变量?A. DimB. SubC. FunctionD. Const答案:A解析: Dim关键字用于声明变量,Sub关键字用于声明一个过程,Function用于声明一个函数,而Const用于声明一个常量。
3. 如果要在一个窗体上显示文本“Hello, World!”,以下哪个代码段是正确的?A. Label1.Text = "Hello, World!"B. Form1.Caption = "Hello, World!"C. TextBox1.Text = "Hello, World!"D. Button1.Text = "Hello, World!"答案:B解析: Form1.Caption属性用于设置窗体的标题栏文本,因此选项B是正确的。
Label1是标签控件,TextBox1是文本框控件,Button1是按钮控件,它们用于显示文本,但不是设置窗体标题。
4. 如何在Visual Basic中创建一个数组?A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers = New Integer(5)D. Dim numbers(5) As Integer()答案:D解析:在Visual Basic中,创建数组的正确方式是声明一个数组变量,并指定数组的类型和大小。
第四部分:上机程序调试题(改错或填空)(一)说明等级考试上机测试的程序调试题常常是在考生目录中给出一个标准模块程序Modify.BAS,要求根据题意修改该模块中的函数或过程,为检测所作修改是否正确,可以按照以下操作步骤进行调试:1.要求学生建立一工程,将这一模块添加到工程中。
如果你是通过双击标准模块程序Modify.BAS进入Visual Basic程序设计系统的,则首先需要添加一个窗体模块。
2.将该标准模块程序Modify.BAS代码中用---n---(n为1,2,3,4,5)部分删除后改为合适的内容或将用****错误n****标示的下一语句中的错误改正,并在窗体模块中编写代码(常常写在窗体的Click()事件中)调用标准模块中的sub过程或自定义函数(如果在标准模块程序中有多个过程或函数,要注意调用的先后顺序,否则得不到正确结果),调试运行程序,使其能输出正确结果。
3.按试题要求保存工程。
(二)程序调试题[题1] Modify.bas模块中的Transfer过程用于将一个十六进制整数转换为十进制整数;number函数过程用于将一个十六进制符号转换为数值。
Public Sub Transfer()Dim Hex As String '十六进制数Dim Dec As Double '十进制数Dim temp As StringDim i As IntegerDim n As IntegerHex = InputBox("输入一个十六进制整数")'****** 错误1 *******n = Val(Hex)‘n=len(Hex)i = 0Do'****** 错误2 *******temp = Mid(Hex, i, 1)‘temp=Mid(Hex,n-i,1)'****** 错误3 *******Dec = Dec + number * 16 ^ iDec=Dec+number(temp)*16^ii = i + 1Loop While i < n'****** 错误4 ******Form1.Print str(Hex) & "转换为十进制数为" & str(Dec)‘Form1.print Hex & “转换为十进制数为” & str(Dec)End SubPublic Function number(str As String) As IntegerSelect Case strCase "a", "A"number = 10Case "b", "B"number = 11Case "c", "C"number = 12Case "d", "D"number = 13Case "e", "E"number = 14Case "f", "F"number = 15Case Elsenumber = Val(str)End SelectEnd Function[题2] Modify.bas模块中的BubbleSort过程是冒泡排序法;GenerateData过程产生个[1,20]之间互不相同的随机整数;Swap过程交换两个变量的数值。
Private Const n = 10Private a(1 To n) As Integer'BubbleSort过程是冒泡排序'Swap过程交换两个变量数值'GenerateData过程产生10个[1,20]之间互不相同的随机整数Public Sub BubbleSort()Dim i As Integer, j As Integeri = 1DoFor j = i + 1 To nIf a(j) > a(i) Then'******* 1 *********Swap (a(j), a(i))‘.Swap a(j),a(i)End IfNext ji = i + 1'******* 2 *******Loop While i = n‘Loop while i<nForm1.Print "排序结果"For i = 1 To nForm1.Print a(i);Next iEnd SubPublic Sub GenerateData()Dim i As IntegerDim j As IntegerDim b As BooleanFor i = 1 To nb = FalseDo While Not ba(i) = Int(20 * Rnd + 1)b = True'****** 3 ******For j = 1 To i‘for j=1 to i-1If a(i) = a(j) Thenb = FalseExit ForEnd IfNext jLoopForm1.Print a(i)Next iEnd Sub'******** 4 ********Public Sub Swap(ByVal a As Integer, ByVal b As Integer)‘Public Sub Swap(a as integer,b as integer)Dim temp As Integertemp = aa = bb = temp[题3] Modify.bas模块中的wrap过程用于判断一个字符串是否“回文”。
所谓“回文”是指字符串顺读与倒读都是一样的,如“潮起潮落,落潮起潮”。
Public Sub Wrap()Dim length As IntegerDim str1 As StringDim strleft As StringDim strright As StringDim k As Integerstr1 = InputBox("请输入任意的字符串") '输入任意字符串'****错误1*****length = Val(str1)‘length=len(str1)k = 1Do'****错误2*****strleft = Left(str1, k) '从左边起逐个取出一个字符‘strleft= mid(str1,k,1)'****错误3*****strright = Right(str1, k) '从右边起逐个取出一个字符‘strright= mid(str1,length-k+1,1)'****错误4****If strleft = strright Then‘If strleft<> strright ThenExit DoEnd Ifk = k + 1Loop While k <= length / 2If k > length / 2 ThenForm1.Print str1 & "是回文"ElseForm1.Print str1 & "不是回文"End If[题4] Modify.bas模块中的MaxLine过程用于查找一个5行4列的二维数组中行平均值最大的行,并将该行所有数据调整到第一行的位置。
Modify.bas模块中的DataProduce过程用于产生原始数据;Average过程用于计算各行的平均值;PrintArraay过程用于打印二维数组和行平均值。
Dim a(1 To 5, 1 To 4) As IntegerDim ave(1 To 5) As IntegerPublic Sub MaxLine()Dim i As IntegerDim j As IntegerDim temp As IntegerDim Line_no As Integer '最大平均值的行号'找出最大平均值所在行Line_no = 1For i = 2 To 5'****** 错误1 *******If ave(Line_no) >= ave(i) Then‘If ave(Line_no)<ave(i) then'****** 错误2 *******Line_no = ave(i)‘Line_no=iEnd If'交换第一行与最大平均值所在行For j = 1 To 4temp = a(1, j)'****** 错误3 ******a(Line_no, j) = a(1, j)‘a(1,j)=a(Line_no,j)a(Line_no, j) = tempNext j'交换对应行的平均值temp = ave(1)ave(1) = ave(Line_no)ave(Line_no) = temp'打印交换后的数据Form1.Print "交换后的数据和平均值" PrintArrayEnd SubPublic Sub DataProduce()Dim i As IntegerDim j As Integer'产生5*4数组For i = 1 To 5For j = 1 To 4a(i, j) = Int(100 * Rnd)Next jNext iEnd SubPublic Sub Average()Dim i As IntegerDim j As IntegerDim sum As Integer'计算各行平均值For i = 1 To 5sum = 0For j = 1 To 4'****** 错误4 ******sum = a(i, j)‘sum=sum+a(i,j)Next jave(i) = sum / 4Next i'将数组和平均值打印出来Form1.Print "原始数据和平均值"PrintArrayEnd SubPublic Sub PrintArray()Dim i As IntegerDim j As IntegerFor i = 1 To 5For j = 1 To 4Form1.Print a(i, j); Spc(3); Next jForm1.Print "平均值="; ave(i)Next i[题5] Modify.bas模块中的TJ过程是将一批数据中小于零的数及它们的积打印出来,但不完整,请在横线上填入必要的内容,使其完整。