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

《Visual Basic程序设计（第6版）》 期末复习卷（二） 时间：90分钟 总分：100分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1、以下叙述中错误的是（ ）。 A. 程序运行过程中装入窗体时，系统自动触发该窗体的Load事件 B. Visual Basic应用程序只能以解释方式执行 C. 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 D. 事件过程是一段程序，当相应事件发生时被调用 【答案】B 【解析】在Visual Basic环境中，程序可以以解释方式执行，也可以生产可执行文件（.EXE）。 2、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（ ）。 A.Form1.Name="VisualBasic窗体" B.Form1.Title="VisualBasic窗体" C.Form1.Caption="VisualBasic窗体" D.Form1.Text="VisualBasic窗体" 【答案】C 【解析】Caption是 VB 中控制窗体 / 控件显示文本的核心属性。 3、( )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。 A.文件 B.属性 C.方法 D.窗体 【答案】C 【解析】方法是 VB 为对象内置的子程序 / 过程 / 函数，用于实现对象的特定功能，反映对象 “能做什么”，是对象的行为。 4、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$ = "VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 A. VVV B. Vis C. sic D. ll 【答案】A 【解析】String(n, 字符串) 函数的核心规则：多字符字符串仅取第一个字符，生成 n 个该字符。 5、VB表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是( ) A.1 B.11 C.14 C.99 【答案】C 【解析】DateDiff函数用于计算两个日期之间的时间间隔，语法：DateDiff(间隔类型, 起始日期, 结束日期)。 6、下面VB表达式的值为True的是（ ）。 A.Mid("Visual Basic", 1, 12) = Right("Programming language Visual Basic", 12) B."ABCRG" > "abcde" C.Int(134.69) >= CInt(134.69) D.78.9 / 32.77 <= 97.5 / 43.97 And -4.94 > -4.98 【答案】A 【解析】Mid("Visual Basic",1,12)：截取前 12 个字符，结果为"Visual Basic"；Right("Programming language Visual Basic",12)：截取最后 12 个字符，结果为"Visual Basic"；相等比较结果为 True。 7、VB语句PRINT “INT(-13.2)”；INT(-13.2)的输出结果为（ ） A．INT(-13.2)= -13.2 B．INT(-13.2)= 13.2 C．INT(-13.2)= -13 D．INT(-13.2)= -14 【答案】D 【解析INT(数值) 是 VB 的取整函数，核心逻辑是：返回不大于该数值的最大整数（向下取整）。 8、设有变量声明Dim TextR As String,为变量TextR正确赋值的表达式是（ ） A. TextR=abcdef B. TextR=123456 C. TextR=#123456# D. TextR="abe" 【答案】D 【解析】TextR被声明为字符串类型，赋值时字符串常量需要用双引号括起来。A选项没有双引号，会被当作变量；B选项是数值，赋值给字符串变量虽然可能自动转换，但不是正确的字符串赋值方式；C选项...用于表示日期，不符合要求。 9、在标准模块过程中用 Public 语句声明的变量的作用域是（ ） A. 整个应用程序 B. 某窗体中的所有程序 C. 仅限于标准模块中的某个程序 D. 仅限于标准模块中 【答案】A 【解析】在标准模块中用Public声明的变量是全局变量，其作用域是整个应用程序，在应用程序的任何地方都可以访问。 10、在 VB6 中，下列关于数组的说法正确的是（ ） A. 数组可作为函数返回值 B. 数组可作为 ByVal 参数 C. 数组可作为 ByRef 参数 D. 以上都对 【答案】C 【解析】VB6 中数组仅能作为 ByRef 参数传递。 11、在VB中，下列函数可以返回数组某一维长度的是（ ） A. UBound - LBound + 1  B. Len  C. Size  D. DimLength 【答案】A 【解析】UBound(数组, 维数)：返回数组指定维度的上界（最大下标）；LBound(数组, 维数)：返回数组指定维度的下界（最小下标，默认 0）；数组某一维的长度 = UBound(数组, 维数) - LBound(数组, 维数) + 1。 12、假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,计算机将发出( )次Beep声. Sub Timer1_Timer( ) For I=1 to 10 Beep Next I End sub A.1000 B.10000 C.10 D.以上都不对 【答案】C 【解析】Timer 每 1000 ms（1 秒）触发一次，每次进入 Timer1_Timer 事件过程都会执行一次 For 循环，循环里 Beep 10 声。 13、以下控件中可以作为容器的控件是（ ） A.Image控件 B.TextBox控件 C.ListBox控件 D.PictureBox控件 【答案】D 【解析】PictureBox控件可以容纳其他控件，作为它们的容器。Image控件主要用于显示图片，TextBox控件用于输入和显示文本，ListBox控件用于显示列表项，均不能作为容器。 14、在VB中，用来设置粗体字的属性是( ) A.FontItalic B.FontName C.FontBold D.FontSize 【答案】C 【解析】FontBold设置文字是否为粗体表示 True：粗体；值为False表示常规字体。 15、有如下程序段，该程序执行后，变量a的值为( )。 For I=1 To 2 For J=I To 2 For K=1 To J a=a+2 Next K Next J Next I A.2 B.8 C.10 D.20 【答案】C 【解析】嵌套循环需从外到内逐层确定循环范围，统计每轮a=a+2的执行次数。 16、执行完下面的程序段后，循环将执行( )次。 For I=1.7 To 5.9 Step 0.9 a=a+1 Print a Next I A. 3 B. 4 C. 5 D. 6 【答案】C 【解析】循环次数 = Int((终值 - 初值) / 步长) + 1= Int((5.9 - 1.7) / 0.9) + 1= Int(4.2 / 0.9) + 1= 4 + 1 = 5次。 17、下面的程序段，显示的结果是（ ）。 Dim x x= Int(Rnd） + 5 Select Case x Case 5 Print “优秀” Case 4 Print “良好” Case 3 Print “及格” Case Else Print “不及格” End Select A.不及格 B.良好 C.及格 D.优秀 【答案】D 【解析】无参数时，Rnd返回一个大于等于 0 且小于 1 的单精度随机数，Int(数值)是向下取整函数。 18、设有以下程序代码： Private Sub Command1_Click() a = Array(1, 2, 7, 10, 6) b = Array(5, 4, 7, 8, 2) i = 0 j = 0 Do If i <= UBound(a) And j <= UBound(b) Then If a(i) < b(j) Then Print a(i); i = i + 1 Else Print b(j); j = j + 1 End If Else If i <= UBound(a) Then Print a(i); i = i + 1 End If If j <= UBound(b) Then Print b(j); j = j + 1 End If End If Loop Until i > UBound(a) And j > UBound(b) End Sub 上面事件过程执行后产生的输出是（ ）。 A.1 5 2 4 7 7 10 8 6 2 B. 1 2 2 4 5 6 7 7 8 10 C. 1 2 7 10 6 5 4 7 8 1 D. 1 2 5 4 7 7 8 2 10 6 【答案】D 【解析】程序核心逻辑是双数组逐元素比较，输出较小值，直到遍历完所有元素；相等值会执行Else分支，输出b(j)并更新j。 19、下列程序段的执行结果为( )。 N=0:J=1 Do Until N>2 N=N+1 J=J+N*(N+1) Loop Print N;J A.0 1 B.3 7 C.3 21 D.3 13 【答案】C 【解析】Do Until 循环的逻辑是：先判定条件（N>2），不满足则执行循环体，满足则退出。 20、假定有如下的Sub过程： Sub S(x As Single, ByVal y as Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single, b As Single a=5:b=4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 【答案】C 【解析】x As Single：未指定传递方式，默认是ByRef（按地址传递），ByVal y as Single：显式指定ByVal（按值传递）。 21、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便的调用Sort子过程，应该将该过程放在( )。 A.窗体模块 B.标准模块 C.类模块 D.工程 【答案】B 【解析】标准模块（.bas）是 VB 中专门用于存放公共可复用代码的模块。 22、以下关于Function过程的说法中，错误的是（ ）。 A．Function过程名可以有一个或多个返回值 B．在Function过程内部不得再定义Function过程 C．Function过程中可以包含多个Exit Function语句 D．可以像调用Sub过程一样调用Function过程 【答案】A 【解析】Function 过程名只能有一个返回值，若想 “返回多个值”，只能通过ByRef 参数间接实现。 23、以下说法错误的是（ ） A. 在同一模块不同过程中的变量可以同名 B. 不同模块中定义的全局变量不可以同名 C. 引用另一个模块中的全局变量时，必须在变量名前加模块名 D. 同一模块中不同级的变量可以同名 【答案】B 【解析】不同模块中定义的全局变量是可以同名的，只要在引用时通过模块名加以区分即可。 24、下列叙述中正确的是（ ） A. 在窗体的Form_Load事件过程中定义的变量是全局变量 B. 局部变量的作用域可以超出所定义的过程 C. 在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但作用域只限于该过程 D. 在调用过程时，所有局部变量被系统初始化为0或空字符串 【答案】C 【解析】不同过程中的局部变量是相互独立的内存空间，即使名称相同，也不会互相干扰；每个局部变量的作用域仅局限于自身所属的过程，修改其中一个过程的同名变量，不会影响另一个过程的变量。 25、下列说法中，（ ）是不正确的。 A．当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭 B．在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 C．可以用不同的文件号同时打开一个随机文件 D．用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 【答案】B 【解析】记录锁定后，必须用 Unlock 语句显式解锁，否则可能造成文件锁定残留或下次打开失败。 二、填空题(本大题共10小题，每小题2分，共20分) 1、在VB中 ，工程文件的扩展名是_______ ，窗体文件的扩展名是_______。 【答案】.vbp ； .frm 【解析】工程文件的扩展名是：.vbp，窗体文件的扩展名是：.frm。 2、VB 中变量未显式声明时，默认数据类型为________；强制要求所有变量必须声明的语句是________。 【答案】Variant ；Option Explicit 【解析】VB 中变量未显式声明时，默认数据类型为：Variant（变体类型），强制要求所有变量必须声明的语句是：Option Explicit。 3、VB中每个对象都有自己的属性，______属性决定控件是否允许可见。 【答案】visible 【解析】Visible属性是布尔类型（Boolean），只有两个取值：True（默认值）：控件可见，显示在窗体上；False：控件隐藏，不在窗体上显示。 4、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal属性值应设置为______。 【答案】600 【解析】Timer 控件的 Interval 属性单位是毫秒（ms），1 秒 = 1000 毫秒。 5、将 “2024-01-12” 转换为日期类型并赋值给变量 d，语句为：______。 【答案】d = CDate("2024-01-12") 【解析】CDate 是 VB 专用日期转换函数。 6、要定义一个过程可以在程序的任何地方调用它，应使用____关键字来定义该过程。 【答案】Public 【解析】Public（公共的）是 VB 中用于定义全局作用域过程 / 变量的关键字。 7、判断变量 score 是否在 60~100 之间（含边界），If 语句的条件表达式为：______。 【答案】score >= 60 And score <= 100 【解析】VB 中逻辑与用 And，而非 &&。 8、过程参数传递中，按值传递的关键字是______，按地址传递的关键字是______ 【答案】ByVal；ByRef 【解析】ByVal 仅传值，ByRef 传地址，修改参数会影响原变量。 9、打开文件以只读模式读取，Open 语句的模式关键字：For ______。 【答案】Input 【解析】Input 模式为只读，仅能读取文件内容，不能写入。 10、在图片框Picture1 中绘制一个圆心 (200,200)、半径 50 的圆形，语句：______。 【答案】Picture1.Circle (200,200),50 【解析】Circle 语句格式：对象.Circle (圆心 x,y), 半径。 三、程序填空题(本大题共3小题，每题10分，共30分) 1、程序功能：计算并输出区间[10，100]内所有素数的和。完成填空题。 Private Sub Picture1_Click() Dim i%, avera avera = 0 For i = 10 To 100 If ss(i) <> 0 Then Print ss(i) avera = avera + ss(i) Next i Picture1.Print avera End Sub Function ss(n) As Integer Dim i%, tag As Boolean ___(1)________ For i = 2 To n-1 If ___(2)________ Then tag = False Next i If tag Then ss = n End Function 【答案】 （1）tag = True （2）(n Mod i) = 0 【解析】初始化布尔标记tag为True，表示先假设当前数 n 是素数，若找到能整除 n 的数，再将标记改为False；n Mod i = 0的作用是判断 n 能否被 i（2 到 n-1 之间的数）整除。 2、 程序功能：已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 Private Sub Form_Click() Dim a(), i%, n% a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31) n = UBound(a) For i = 0 To n Print a(i); Next i Print For i = 5 To n ___(1)________ Next i n = n - 1 ___(2)________ For i = 0 To n Print a(i); Next i Print End Sub 【答案】 (1)a(i - 1) = a(i) (2)ReDim Preserve a(n) 【解析】VB 中Array创建的数组是0 下标开头，ReDim用于重新定义数组的大小，Preserve关键字表示保留数组中已有的数据。 3、程序功能：Visual Basic窗体,有如下图所示控件(文本框名称从上往下依次为textl.text2.text3,列表框List1)。程序的功能如下:程序运行时,在Text1中输入一个商品名称,在Text2中输入一个数量,单击“计算”按钮,则会在列表框中找到该商品的单价,乘以数量后显示在Text3中。(如下图所示);若输入的商品名称是错误的,则在Text3中显示“无此商品"。(为方便编程,列表框中每个单价均为4位,含小数点)。请补全程序。 Private Sub Command1_Click() Dim flag As Boolean, name As String flag = False For k = 1 To ___(1)________ n% = InStr(List1.List(k), " ") name = Left(List1.List(k), ___(2)________) If Text1 = name Then price = Val(Right(List1.List(k), 4)) flag = True Exit For End If Next k If flag = True Then Text3 = Val(Text2) * price Else Text3 = "无此商品" End If End Sub 【答案】 （1） List1.ListCount - 1 （2） n - 1 【解析】List1.ListCount是列表框的总项数，VB 列表框的项下标从0开始，Left(字符串, 长度)是截取字符串左侧指定长度的字符，n-1表示 “截取到空格前一位”。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 《Visual Basic程序设计（第6版）》 期末复习卷（二） 时间：90分钟 总分：100分 班级 姓名 学号 成绩 一、选择题(本大题共25小题，每小题2分，共50分) 1、以下叙述中错误的是（ ）。 A. 程序运行过程中装入窗体时，系统自动触发该窗体的Load事件 B. Visual Basic应用程序只能以解释方式执行 C. 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 D. 事件过程是一段程序，当相应事件发生时被调用 2、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（ ）。 A.Form1.Name="VisualBasic窗体" B.Form1.Title="VisualBasic窗体" C.Form1.Caption="VisualBasic窗体" D.Form1.Text="VisualBasic窗体" 3、( )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。 A.文件 B.属性 C.方法 D.窗体 4、在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$ = "VisualBasic" Print String(3, a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 A. VVV B. Vis C. sic D. ll 5、VB表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是( ) A.1 B.11 C.14 C.99 6、下面VB表达式的值为True的是（ ）。 A.Mid("Visual Basic", 1, 12) = Right("Programming language Visual Basic", 12) B."ABCRG" > "abcde" C.Int(134.69) >= CInt(134.69) D.78.9 / 32.77 <= 97.5 / 43.97 And -4.94 > -4.98 7、VB语句PRINT “INT(-13.2)”；INT(-13.2)的输出结果为（ ） A．INT(-13.2)= -13.2 B．INT(-13.2)= 13.2 C．INT(-13.2)= -13 D．INT(-13.2)= -14 8、设有变量声明Dim TextR As String,为变量TextR正确赋值的表达式是（ ） A. TextR=abcdef B. TextR=123456 C. TextR=#123456# D. TextR="abe" 9、在标准模块过程中用 Public 语句声明的变量的作用域是（ ） A. 整个应用程序 B. 某窗体中的所有程序 C. 仅限于标准模块中的某个程序 D. 仅限于标准模块中 10、在 VB6 中，下列关于数组的说法正确的是（ ） A. 数组可作为函数返回值 B. 数组可作为 ByVal 参数 C. 数组可作为 ByRef 参数 D. 以上都对 11、在VB中，下列函数可以返回数组某一维长度的是（ ） A. UBound - LBound + 1  B. Len  C. Size  D. DimLength 12、假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程,计算机将发出( )次Beep声. Sub Timer1_Timer( ) For I=1 to 10 Beep Next I End sub A.1000 B.10000 C.10 D.以上都不对 13、以下控件中可以作为容器的控件是（ ） A.Image控件 B.TextBox控件 C.ListBox控件 D.PictureBox控件 14、在VB中，用来设置粗体字的属性是( ) A.FontItalic B.FontName C.FontBold D.FontSize 15、有如下程序段，该程序执行后，变量a的值为( )。 For I=1 To 2 For J=I To 2 For K=1 To J a=a+2 Next K Next J Next I A.2 B.8 C.10 D.20 16、执行完下面的程序段后，循环将执行( )次。 For I=1.7 To 5.9 Step 0.9 a=a+1 Print a Next I A. 3 B. 4 C. 5 D. 6 17、下面的程序段，显示的结果是（ ）。 Dim x x= Int(Rnd） + 5 Select Case x Case 5 Print “优秀” Case 4 Print “良好” Case 3 Print “及格” Case Else Print “不及格” End Select A.不及格 B.良好 C.及格 D.优秀 18、设有以下程序代码： Private Sub Command1_Click() a = Array(1, 2, 7, 10, 6) b = Array(5, 4, 7, 8, 2) i = 0 j = 0 Do If i <= UBound(a) And j <= UBound(b) Then If a(i) < b(j) Then Print a(i); i = i + 1 Else Print b(j); j = j + 1 End If Else If i <= UBound(a) Then Print a(i); i = i + 1 End If If j <= UBound(b) Then Print b(j); j = j + 1 End If End If Loop Until i > UBound(a) And j > UBound(b) End Sub 上面事件过程执行后产生的输出是（ ）。 A.1 5 2 4 7 7 10 8 6 2 B. 1 2 2 4 5 6 7 7 8 10 C. 1 2 7 10 6 5 4 7 8 1 D. 1 2 5 4 7 7 8 2 10 6 19、下列程序段的执行结果为( )。 N=0:J=1 Do Until N>2 N=N+1 J=J+N*(N+1) Loop Print N;J A.0 1 B.3 7 C.3 21 D.3 13 20、假定有如下的Sub过程： Sub S(x As Single, ByVal y as Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single, b As Single a=5:b=4 S a,b Print a,b End Sub 程序运行后，单击命令按钮，输出结果为（ ）。 A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 21、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便的调用Sort子过程，应该将该过程放在( )。 A.窗体模块 B.标准模块 C.类模块 D.工程 22、以下关于Function过程的说法中，错误的是（ ）。 A．Function过程名可以有一个或多个返回值 B．在Function过程内部不得再定义Function过程 C．Function过程中可以包含多个Exit Function语句 D．可以像调用Sub过程一样调用Function过程 23、以下说法错误的是（ ） A. 在同一模块不同过程中的变量可以同名 B. 不同模块中定义的全局变量不可以同名 C. 引用另一个模块中的全局变量时，必须在变量名前加模块名 D. 同一模块中不同级的变量可以同名 【答案】B 【解析】不同模块中定义的全局变量是可以同名的，只要在引用时通过模块名加以区分即可。 24、下列叙述中正确的是（ ） A. 在窗体的Form_Load事件过程中定义的变量是全局变量 B. 局部变量的作用域可以超出所定义的过程 C. 在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但作用域只限于该过程 D. 在调用过程时，所有局部变量被系统初始化为0或空字符串 25、下列说法中，（ ）是不正确的。 A．当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭 B．在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁 C．可以用不同的文件号同时打开一个随机文件 D．用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除 二、填空题(本大题共10小题，每小题2分，共20分) 1、在VB中 ，工程文件的扩展名是_______ ，窗体文件的扩展名是_______。 2、VB 中变量未显式声明时，默认数据类型为________；强制要求所有变量必须声明的语句是________。 3、VB中每个对象都有自己的属性，______属性决定控件是否允许可见。 4、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal属性值应设置为______。 5、将 “2024-01-12” 转换为日期类型并赋值给变量 d，语句为：______。 6、要定义一个过程可以在程序的任何地方调用它，应使用____关键字来定义该过程。 7、判断变量 score 是否在 60~100 之间（含边界），If 语句的条件表达式为：______。 8、过程参数传递中，按值传递的关键字是______，按地址传递的关键字是______ 9、打开文件以只读模式读取，Open 语句的模式关键字：For ______。 10、在图片框Picture1 中绘制一个圆心 (200,200)、半径 50 的圆形，语句：______。 三、程序填空题(本大题共3小题，每题10分，共30分) 1、程序功能：计算并输出区间[10，100]内所有素数的和。完成填空题。 Private Sub Picture1_Click() Dim i%, avera avera = 0 For i = 10 To 100 If ss(i) <> 0 Then Print ss(i) avera = avera + ss(i) Next i Picture1.Print avera End Sub Function ss(n) As Integer Dim i%, tag As Boolean ___(1)________ For i = 2 To n-1 If ___(2)________ Then tag = False Next i If tag Then ss = n End Function 2、 程序功能：已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 Private Sub Form_Click() Dim a(), i%, n% a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31) n = UBound(a) For i = 0 To n Print a(i); Next i Print For i = 5 To n ___(1)________ Next i n = n - 1 ___(2)________ For i = 0 To n Print a(i); Next i Print End Sub 3、程序功能：Visual Basic窗体,有如下图所示控件(文本框名称从上往下依次为textl.text2.text3,列表框List1)。程序的功能如下:程序运行时,在Text1中输入一个商品名称,在Text2中输入一个数量,单击“计算”按钮,则会在列表框中找到该商品的单价,乘以数量后显示在Text3中。(如下图所示);若输入的商品名称是错误的,则在Text3中显示“无此商品"。(为方便编程,列表框中每个单价均为4位,含小数点)。请补全程序。 Private Sub Command1_Click() Dim flag As Boolean, name As String flag = False For k = 1 To ___(1)________ n% = InStr(List1.List(k), " ") name = Left(List1.List(k), ___(2)________) If Text1 = name Then price = Val(Right(List1.List(k), 4)) flag = True Exit For End If Next k If flag = True Then Text3 = Val(Text2) * price Else Text3 = "无此商品" End If End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $