vb期末复习题-.pdf

《vb期末复习题-.pdf》由会员分享，可在线阅读，更多相关《vb期末复习题-.pdf（18页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、1.由Array 函数建立的数组，其变量必须是_c_类型A、字符型B、整型C、变体型D、字符串类型2.通用过程可以通过执行“工具”菜单中的_d_ 命令来建立。A、添加模块B、添加窗体C、通用过程D、添加过程3.在参数传递过程中，使用关键字_d_来修饰参数，可以使之按地址传递。A、Reference B、Value C、ByVal D、ByRef 要想从子过程用后指定回两个结果，下面子过程语句说明合法的是_B_。A、Sub f1(n%,ByVal m%)B、Sub f1(n%,m%)C、Sub f2(ByVal n%,ByVal m%)D、Sub f1(ByVal n%,m%)如果列表框 Lis

2、t1 中已有 10项数据，应使用语句 _C_将数据 Mydata 插入到列表框的第 3项。A、List1.Insert Mydata,3 B、List1.Insert Mydata,2 C、List1.AddItem Mydata,2 D、List1.AddItem Mydata,3 用户在组合框中输入或选择的数据可以通过_B_ 属性获得。A、List B、Text C、ListIndex D、ListCount 下列控件中，没有Caption 属性的是_D_。A、复选框B、单选按钮C、框架D、列表框若使图片框（PictureBox）的大小能随图像的大小而变化，要定义图片框的_D_属性为 Tr

3、ue。A、Stretch B、Autosize C、Visible D、Picture 如果列表框(List1)中没有被选定的项目，则执行 List1.RemoveItem List1.ListIndex语句的结果是_A_。A、以上都不对B、移去最后加入列表的一项C、移去最后一项D、移去第一项使用菜单编辑器设计菜单时，必须输入的项是D_。A、快捷键B、索引C、标题D、名称在菜单编辑器中定义了一个菜单项，名为menu1,为了在运行时隐藏该菜单项，应使用的语句 _C_。A、Menu1.Enabled=False B、Menu1.Enabled=True C、Menu1.Visible=False

4、D、Menu1.Visible=True 程序题（69）在窗体上画一个名称为Command1 的命令按钮，编写下列程序：Private Sub Command1_Click()Dim a As Integer Static b As Integer a=a+b b=b+4 Print a,b End Sub 程序运行后，单击该命令按钮三次后，屏幕上显示的值是_A_。A、8 12 B、4 8 C、0 4 D、4 12 i=i+1 End If i=i+1 Loop Print s End Sub 运行后，输出的结果是_D_ A、13 B、9 C、11 D、7 程序题（14）建立并输出 10*10

5、的方阵，其中每个数都是随机数且范围是1，9，把下面程序补充完整Private Sub Form_click()Dim a%(1 to 10,1 to 10),i%,j%Randomize For i=1 To 10 For j=1 To 10 a(i,j)=_A_ Print Tab(j*5);a(i,j);Next j Print Next i End Sub A、Int(Rnd*9)+1 B、Int(Rnd*9)C、Int(Rnd)D、Rnd*9 a=InputBox(a=)If x=a or x=-a Then y=0 Else If x-a _B_ xa Then y=a-x Else

6、 y=x-1 End If End If Print y=;y End Sub A、not B、and C、or D、xor 程序题（22）下列 Visual Basic 程序段运行后，变量s、t的值为 _A_。s=0:t=1 For k=2 To 4 s=s+k t=t*k Next k A、9 24 B、5 6 C、2 2 D、0 1 程序题（46）执行后，s的值为 10，请填空Private Sub form_Click()s=0 For i=1 _B_ s=s+i Next i Print s End Sub A、To 3 B、To 4 C、To 5 D、To 2 程序题（51）执行下

7、面程序段后，X的值为 21,请填空 X=5 For i=1 To 20 Step 2 x=x+_A_ Next I A、i5 B、i+5 C、i*5 D、i-5 判断题：当 k=2 时,执行语句：If k 4 Then n=9:If k 4 Then n=8:If k 1)To(a+b 10)B、a+b 1 C、a+b 1 D、a+b 1 表达式 Len(VB 程序设计 ABC)的值是_D_。A、14 B、20 C、10 D、9 下面 _C_是合法的单精度型变量A、sum%B、xinte$C、num!D、mm#表达式 10 8 Mod 9 的值是 _B_。A、2 B、1 C、9 D、0 Msg

8、Box 函数返回值的类型是B_ A、数值或字符串B、整型数值C、字符串D、变体赋值语句：a=123&Mid(123456,3,2)执行后，a变量中的值是 A_ A、12334 B、12334 C、123 D、157 循环语句 For i=-3 To 20 Step 4的循环次数为 _B_。A、4 B、6 C、3 D、5 循环语句 For i=20 To 10 Step-2的循环次数为 _A_。A、6 B、4 C、不循环D、5 设有数组说明语句：Dim c(1 To 10)，则下面表示数组c的元素选项中错误的是_B_。A、c(i)B、c(0)C、c(10)D、c(3+4)设有数组说明语句：Dim

9、 b(-1 To 2,-2 To 2)，则数组 b中元素的个数是_D_。A、16 B、15 C、12 D、20 在参数传递过程中，使用关键字 D_来修饰参数，可以使之按地址传递。A、Reference B、Value C、ByVal D、ByRef 在参数传递过程中，使用关键字 _B_来修饰参数，可以使之按值传递。A、Reference B、ByVal C、ByRef D、Value 如果单击一个当前没有被选中的复选框，其它已被选中的复选框会处于_C_。A、禁止B、不选中C、选中D、不显示下列语句中 _A_ 可以把当前目录下的图形文件 pic1.jpg装到入 Picture1中。A、Pictu

10、re1.Picture=LoadPicture(pic1.jpg)B、Picture.Handle=pic1.jpg C、Picture=LoadPicture(pic1.jpg)D、Picture=pic1.jpg 单选按钮(OptionButton)用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的_A_中A、框架控件（Frame）或 图片框（PictureBox）B、框架控件（Frame）或图象控件（Image）C、组合框（ComboBox）或 图片框（PictureBox）D、组合框（ComboBox）或 图象控件（Image）若要使单选按钮具有图形特性可通过_C_属性来

11、进行。A、Appearance B、BackStyle C、Style D、Bordestyle 使用 _B_ 方法将新的项添加到一个列表框中。A、Print B、AddItem C、Insert D、Add 在设计菜单时，如果要在菜单中加入一个菜单分隔项，则菜单分隔项的标题必须设置为_B_。A、加号(+)B、减号(-)C、感叹号(!)D、冒号(:)程序题（70）的功能是：D 在窗体上画一个名称为Command1 的命令按钮，编写下列程序：Private Sub Command1_Click()Dim a As Integer，b As Integer a=45:b=36 do until a

12、=b if ab then a=a-b else b=b-a loop Print a End sub A、求 a,b 的最小公倍数B、比较 a,b 大小C、比较 a,b 是否相等D、求 a,b 的最大公约数程序题（11）Private Sub Form_click()Dim s%,i%s=0 i=100 Do While i=A And c 0 Then Picture1.Print ;Chr$(j+64);=;a(j);Next j End Sub A、以上都不对B、Left(c,n,1)C、Right(c,n,1)D、Mid(Text1,I,1)程序题（32）下列程序执行后M,N,D的值

13、分别为：B Private Sub Form_click()t=365 M=t Mod 60 N=Int(t/60)D=t 60 Print M;N;D End Sub A、6 6 6 B、5 6 6 C、6 5 6 D、5；6；6 程序题（66）Private Sub form_click()s=0 i=1 Do While i=10 If i Mod 2 0 Then s=s+i i=i+1 Else i=i+1 End If Loop Print s End Sub 运行后，输出的结果是_C_ A、20 B、10 C、25 D、55 程序题（49）执行下列程序段后，输出结果7,请填空 x

14、=1 For i=0 To 20 Step 5 x=x+i B_ 4 Next i Print x A、8 B、mod C、D、/判断题：Int(6*Rnd)+1的值在 1,6范围内。T 判断题：安装VB6.0 后，系统默认目录为VB98。T 判断题：语句：For i=20 To 1是错误的。F 判断题：子过程必须指定类型，而函数过程可以不指定其类型。F 判断题：Cls 方法可以清除窗体或图形框中程序运行时产生的图形和文字的内容。T判断题：语句If 0 x y,x,y)End Function Private Sub command1_Click()Dim a As Integer,b As

15、Integer a=100 b=200 Print M(a,b)End Sub 结果为：200_。为了使列表框中的项目分为多列显示，需要设置的属性是 _columns _。如果建立菜单时在标题文本框中输入一个_-_，那么显示时将形成一行分隔符。组合框有 3种不同的类型，这 3种类型是下拉式列表框、简单组合框和_下拉式组合框_。-【程序设计】-题目：(事件)双击窗体。(响应)求100以内奇数的和，并将结果输出在窗体上。将结果存入变量 SUM 中参考代码】Dim i As Integer For i=1 To 100 If i Mod 2=1 Then sum=sum+i End If Next

16、Print sum 在窗体上添加 5个标签、3个文本框、2个命令按钮，如图 1；在属性窗口里设置相关属性，运行时显示如图 2所示，功能是：计算某个学生奖学金的等级(假定只考虑一等奖)，以三门功课成绩为评奖依据，奖学金一等评定标准如下：1、平均分大于 95者；2、有两门是 100分，且第三门功课不低于80分者。符合上述标准之一，输出“一等奖”否则输出“非一等奖”。图1 图2【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=结束学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=评定学生答案：C

17、aption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=学生成绩评定程序学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=程序设计：太原理工大学理学院计算机基础教学部学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=计算机学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=英语学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=数学学生答案：Caption=【事件评分】

18、错误【事件】Private Sub Command1_Click()标准答案：一等奖 95 =100 学生答案：不论何控件，共同具有的是_D_属性A、Caption B、Text C、ForeColor D、Name 如果文本框的 Enabled 属性设为 False，则_B_。A、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。B、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上C、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。一条语句要在下一行续写，用_A_符

19、号作为续行符A、_ B、C、+D、-下列各赋值语句，语法不正确的是_D_。A、sLength=x+y B、iNumber=15 C、Labell.Caption=time D、x+y=5 表达式 10 8 Mod 9 的值是 _B_。A、2 B、1 C、9 D、0 a+b 小于 10，且 a-b 大于 1 的逻辑表达式是 _C_。A、(a-b 1)To(a+b 10)B、a+b 1 C、a+b 1 D、a+b 1 在VB 中，对于已经声明但没有赋值的布尔型变量，系统的默认值是_C_。A、1 B、0 C、False D、True 以下关系表达式中，其值为False 的是 A A、ABCAbC B

20、、中国 中东 C、BASIC=Ucase(basic)D、12323 在VB 集成环境中，调试程序可以设置跟踪点。如果设置了跟踪点，那么当程序运行至该跟踪点时，会出现一条黄色C A、下一行语句B、当前行语句C、上一句语句D、当前语句下面语句正确的是A_。A、If xy then print x不等于 y B、If xy print x不等于 y C、If xy print x不等于 y D、If xy then print x不等于 y 下列语句正确的是_A_。A、If x=y Then t=a:a=b:b=t B、If xy Then t=a;a=b;b=t C、If x=y Then t=

21、a a=b b=t D、If xy Then t=a a=b b=t 要使 For语句 for k=_ To-5 Step-2循环执行 20次，循环变量的初值应是_B_。A、35 B、33 C、32 D、34 关于数组正确的说法是_D_。A、数组是一种数据类型B、数组可以不声明直接使用C、声明数组时必须要指定数组的大小D、数组必须先声明再使用若有数组说明语句：Dim a()S Integer，则a被定义为 _B_。A、定长数组B、动态数组C、静态数组D、可变类型数组Dim Abc(5)所定义的数组元素个数是_A_。A、6 B、5 C、4 D、10 若能在多个窗体中访问同一定义的Sub子过程，最

22、合适的应将过程定义放在_D_中。A、工程B、窗体模块C、类模块D、标准模块根据变量的作用域，可以将变量分为三类，它们是 _A_。A、局部变量、窗体/模块级变量和全局变量B、局部变量、模块变量和标准变量C、局部变量、窗体/模块级变量和标准变量D、局部变量、窗体变量和全局变量根据变量的作用域，可以将变量分为三类，它们是 _A_。A、局部变量、窗体/模块级变量和全局变量B、局部变量、模块变量和标准变量C、局部变量、窗体/模块级变量和标准变量D、局部变量、窗体变量和全局变量如果单击一个当前没有被选中的复选框，其它已被选中的复选框会处于_C_。A、禁止B、不选中C、选中D、不显示在Visual Basi

23、c 中要将一个正在运行的窗体隐含在内存中，应该使用语句_C。A、UnLoad B、Load C、Hide D、Show 复选框的 Value 属性的值表示复选框的状态，若状态为被选定时，其值为_C_。A、2 B、True C、0 D、1 用户按下键盘上任意一个键时被触发的事件是 C_。A、Key B、KeyUp C、KeyDown D、KeyPress 按下任意一个鼠标按钮时被触发的是_C_事件。A、MouseMove B、DblClick C、MouseDown D、MouseUp 程序题（16）建立并输出 10*10的上三角矩阵，其中每个数都是随机数且范围是1，9，把下面程序补充完整Pri

24、vate Sub Form_click()Dim a%(1 to 10,1 to 10),i%,j%Randomize For i=1 To 10 For j _C_ a(i,j)=Int(Rnd*9)+1 Print Tab(j*5);a(i,j);Next j Print Next i End Sub A、=1 To 10-i B、=1 To 10 C、=i To 10 D、=1 To i 程序题（38）下列程序的功能是通过字符串变量操作竖向显示“程序设计”，请填空Private Sub Form_click()Cls xy=程序设计 n=1 Do While n 5 Print _C_

25、n=n+1 Loop Print End Sub A、Mid(xy,n,1),B、Mid(xy,n,1);C、Mid(xy,n,1)D、以上都不对程序题（26）下列程序执行后，整型变量n的值为 D n=0 for i=1 to 100 if i mod 4=0 then n=n+1 next i A、5050 B、33 C、26 D、25 程序题（44）以下程序输出结果为“*”,请填空;Private Sub Form_click()Dim a As Integer,b As Integer,c As Integer a=1:b=2:c=3 If a=b-c Then Print#_C_ Pr

26、int*End If End Sub A、next B、endif C、else D、elseif 程序题（52）执行下面程序段后，X 的值为 5,请填空 X=5 i=20 Do while i 0 Then y=7x-1是正确的。F 判断题：若使命令按钮Command1 重新生效，则使用的赋值语句为Command1.Enabled=false F 判断题：在代码中设置窗体Form2的字体大小为 20点使用的语句为Form.FontSize=20 F 判断题：用于去掉字符串左边空格的函数是Trim()。F 判断题：for i=1 to 20 step 0 语句循环无数次。T 判断题：当 k=2

27、 时,执行语句：If k 4 Then n=9:If k 4 Then n=8:If k B AND CC 的值是 False。T 当用 _append_方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。文本框的默认属性是text_。确 定 单 选框 是否 选 中，应 访问 的属 性 是_value_。关 闭 所 有已 经打 开 的文 件，应 使用 语 句_close_。-【程序设计】-题目：(事件)单击窗体。(响应)求1-100 中为 5或7的倍数的和。请将结果 输出到窗体上,并存入所给变量SUM 中。使用 while.wend语句完成程序【参考代码】Dim i As

28、Integer i=1 While i=100 If i Mod 5=0 Or i Mod 7=0 Then Sum=Sum+i End If i=i+1 Wend Print Sum 在窗体上添加 1个标签、2个命令按钮、3个文本框，如图 1所示，在属性窗口修改控件的属性，实现运行时输入半径，计算圆周长和面积如图2所示。要求：对输入半径进行合法检查(在Text1的LostFocus 事件中检查），若发现有非法数字，利用MsgBox 显示出错信息，利用SetFocus方法定位于出错的文本框处，并清除原有内容，重新输入。计算时注意字符数据转换为数值数据，使用函数 Val()，取值为3.14159

29、26。图1 图2【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=圆面积学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=圆周长学生答案：Caption=【事件评分】错误【事件】Private Sub Text1_LostFocus()标准答案：MsgBox 半径有非数字字符错误 Text1.Text=Text1.SetFocus 学生答案：【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=请输入半径学生答案：Caption=【事件评分】错误【事件】Private

30、Sub Command2_Click()标准答案：Text3.Text=Val 学生答案：【事件评分】错误【事件】Private Sub Command1_Click()标准答案：Text2.Text=Val 学生答案：在窗体上添加 6个标签，4个文本框、4个命令按钮，如图 1，在属性窗口设置相关属性，运行时如图 2，实现公用电话收费的功能，标准如下：通话时间在 3分钟以下，收费0.5元；3分钟以上，则每超过 1分钟加收 0.15元；在 7:0019:00之间通话，按上述收费标准全价收费，在其它时间通话者，一律按收费标准的半价收费。试计算某人在 T时间S分钟，应缴多少电话费。图1 控件属性评分

31、】错误【控件】VB.CommandButton_ 标准答案：Caption=清除学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=计费学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=结束通话学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=开始通话学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=通话费用学生答案：Caption=【控件属性评分】错

32、误【控件】VB.Label_ 标准答案：Caption=通话时间学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=通话结束学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=通话开始学生答案：Caption=【事件评分】错误【事件】Private Sub Command2_Click()标准答案：Text2 学生答案：【事件评分】错误【事件】Private Sub Command1_Click()标准答案：Text1=学生答案：【事件评分】错误【事件】Private Sub Command3_Cl

33、ick()标准答案：0.5 7 B、a=7 C、a7 D、a7 程序题（27）执行下面程序段后，X 的值为 C X=5 For i=1 To 20 Step 2 x=x+i5 Next i A、22 B、24 C、21 D、23 程序题（45）请把程序补充完整:Private Sub Command1_Click()For j=1 To 4 a=a+1 _A_ Print a+j End Sub A、next j B、endfor C、next a D、endif 判断题：Fix(-5.45)+Int(6.78)的值是 0。F 一程序设计：1.题目：(事件)双击窗体。(响应)求出 100200

34、之间，能被 5整除，但不能被 3 整除的数。并求所有数之和，存入变量中 SUM中。答案：Dim i As Integer For i=100 To 200 If(i Mod 5)=0)And(i Mod 3)0)Then Print(CStr(i)sum=sum+i End If Next 窗体设计：1.题目：(事件)双击窗体。(响应)求出 100200之间，能被 5整除，但不能被 3 整除的数。并求所有数之和，存入变量中 SUM中。答案：Dim i As Integer For i=100 To 200 If(i Mod 5)=0)And(i Mod 3)0)Then Print(CStr(

35、i)sum=sum+i End If Next 二程序设计：题目：(事件)单击窗体。(响应)求50以内所有偶数的和，并在窗体上输出出来。将结果存入变量S中。答案：Dim i As Integer For i=2 To 50 If(i Mod 2)=0 Then s=s+i End If Next Print(CStr(s)窗体设计：在窗体上添加 6个标签、4个文本框、2个命令按钮，如图 1所示，运行时如图 2所示，实现模拟袖珍计算器的程序。要求如下：1、输入两个操作数和一个操作符（+、-、*、/)，根据操作符决定所做的运算2、使用Select 语句，对输入数据合法效验3、对输入的数据进行合法检

36、验，当输入出错时，调用 MsgBox()提示图1 图2 答案：【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=结束学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=计算学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=运算结果学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=运算符学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=运算数 2

37、 学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=运算数 1 学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=程序设计：太原理工大学理学院计算机基础教学部学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=自由运算器学生答案：Caption=【事件评分】错误【事件】Private Sub Command1_Click()标准答案：Case+Case-Case*Case/MsgBox Text4=学生答案：63【程序设计】-题目：(事件)单击窗体

38、。(响应)求1+2+3+100的值，并把结果输出在窗体上。结果存入变量 SUM 中。【参考代码】Dim i As Integer For i=1 To 100 sum=sum+i Next Print sum 64在窗体上添加 1个标签、2个命令按钮、3个文本框，如图 1所示，在属性窗口修改控件的属性，实现运行时输入半径，计算圆周长和面积如图2所示。要求：对输入半径进行合法检查(在Text1的LostFocus 事件中检查），若发现有非法数字，利用MsgBox 显示出错信息，利用SetFocus方法定位于出错的文本框处，并清除原有内容，重新输入。计算时注意字符数据转换为数值数据，使用函数 Va

39、l()，取值为3.1415926。图1 题目：(事件)双击窗体。(响应)求1+5+10+15+500的和，并将结果输 出到窗体上。将结果存入变量SUM 中。-注意：请在指定的事件内编写代码。-【参考代码】Dim i As Integer For i=1 To 500 If i Mod 5=0 Then sum=sum+i End If Next Print sum=在窗体上添加 6个标签，4个文本框、4个命令按钮，如图 1，在属性窗口设置相关属性，运行时如图 2，实现公用电话收费的功能，标准如下：通话时间在 3分钟以下，收费0.5 元；3分钟以上，则每超过 1分钟加收 0.15元；在 7:00

40、19:00之间通话，按上述收费标准全价收费，在其它时间通话者，一律按收费标准的半价收费。试计算某人在 T时间S分钟，应缴多少电话费。图1 图2【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=清除学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=计费学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=结束通话学生答案：Caption=【控件属性评分】错误【控件】VB.CommandButton_ 标准答案：Caption=开始

41、通话学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=通话费用学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=通话时间学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=通话结束学生答案：Caption=【控件属性评分】错误【控件】VB.Label_ 标准答案：Caption=通话开始学生答案：Caption=【事件评分】错误【事件】Private Sub Command2_Click()标准答案：Text2 学生答案：【事件评分】错误【事件】Private Sub Command1_Click()标准答案：Text1=学生答案：【事件评分】错误【事件】Private Sub Command3_Click()标准答案：0.5 3 7 19 0.15 Text3 学生答案：