1、二级 VISUAL+BASIC-32-1 及答案解析(总分：67.50，做题时间：90 分钟)一、选择题(总题数：25，分数：40.50)1.简单的交换排序方法是 _ 。（分数：2.00）A.快速排序B.选择排序C.堆排序D.冒泡排序2.当对命令按钮的 Picture 属性装入.bmp 图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为 1，该属性是 _ 。（分数：2.00）A.MousePictureB.StyleC.DownPictureD.DisabledPicture3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Su
2、b Command1_Click() Static y As Integer Cls For i=0 To 2 x=x+y y=y+3 Next Print x,y End Sub 程序运行后，连续二次单击 Command1 按钮后，窗体上显示的是 _。（分数：1.00）A.9 9B.36 18C.30 12D.63 274.执行下列程序段后，整型变量 n 的值为 _ 。 n=0 For i=1 To 20 Step 5 n=n+1 Next i（分数：2.00）A.50B.4C.15D.2105.用链表表示线性表的优点是_。（分数：2.00）A.便于插入和删除操作B.数据元素的物理顺序与逻辑
3、顺序相同C.花费的存储空间较顺序存储少D.便于随机存取6.执行以下 Commaand1 的 Click 事件过程在窗体上显示 _ 。 Option Base 0 Prinvate Sub Command1_Clcik() Dim a a=Array(“a“,“b“,“C“,“d“,“e“,“f“,“g“) Print a(1);a(3);a(5) End Sub（分数：2.00）A.abcB.bdfC.aceD.出错7.软件测试过程是软件开发过程的逆过程，其最基础性的测试应是 _ 。（分数：1.00）A.集成测试B.单元测试C.有效性测试D.系统测试8.窗体上有一个名称为 Command1 的
4、命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim s As Double s=0:i=1 Do While i6 s=s+i/(i+1):i=i+1 Loop Print s End Sub 该事件过程的功能是计算一个表达式的值，该表达式是（分数：2.50）A.1+1/2+2/3+3/4+4/5B.1+1/2+2/3+3/4+4/5+5/6C.1/2+2/3+3/4+4/5D.1/2+2/3+3/4+4/5+5/69.设有下列二叉树： （分数：1.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA10.下列数据模型中，具有坚实
5、理论基础的是（分数：2.00）A.层次模型B.网状模型C.关系模型D.以上 3 个都是11.在窗体上画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”和“黑体”；1 个复选框(名称为 Check1，标题为“粗体”)和 1 个文本框(名称为 Text1，Text 属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是_。 （分数：1.00）A.Option1.Value=FalseCheck1.Value=TrueB.Option1.Value=TrueCheck1.Value=0C.Op
6、tion2.Value=FalseCheck1.Value=2D.Option1.Value=TrueCheck1.Value=112.下列叙述中正确的是 _ 。（分数：1.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用过程中，所有局部变量被系统初始化为 0 或空字符串13.有下列程序段，其输出结果为 _ 。 a=0:b=0 For i=-1 To-2 Step-1 For j=1 To 2 b=b+1 Next j a
7、=a+1 Next i Print a；b（分数：2.00）A.23B.-22C.42D.2414.在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Sub Commandl_click() Dim i As Integer,X As Integer For i=1 To 6 If i=1 Then x=i If i=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为_。（分数：1.00）A.9B.6C.12D.1515.在一个长度为 n 的顺序表中，删除第
8、 i(1in)个元素时，需要移动的元素个数为（分数：1.00）A.n-i+1B.n-iCiD.i-116.要将窗体 Form1 标题设为“学习 VB”，以下能正确实现该功能的语句为（分数：2.00）A.Form1.Name=“学习 VB“B.Form1.Visible=“学习 VB“C.Form1.Caption=“学习 VB“D.Form1.Show=“学习 VB“17.在列表框中当前被选中的列表项的序号是由下列哪个属性表示_。（分数：2.00）A.ListB.IndexC.ListindexD.Tabindex18.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、L
9、abell 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox(“请输入“) Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入 Visual，则在标签中显示的内容是（分数：1.00）A空B.VisualC.VisD.ual19.设在工程中有一个标准模块，其中定义了如下类型： Type stutype i
10、no As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为 Connnand1 的命令按钮，要求当执行事件过程 Command1_Click 时，在 c:/的随机文件 studentdat 写入一条记录。下列能够完成该操作的事件过程是 _ 。（分数：2.00）A.Sub Command1_C1ick()Dim student As studtypeDim record_no As Integerrecord_no=1With student.ino=12.strname=“sm
11、ith“.strsex=“男“.smark=89End WithOpen“ c:/student.dat“ For input As # 1 len=len(student)Put # 1,record_no,studentClose #1End SubB.Sub Command1_Click( )Dim student As studtypeDim record_no As Integerrecord_no=1With student.ino=12.strname=“smith“.strsex=“男“.smark=89End WithOpen“c:/student.dat“ For rand
12、om As #1 len=len(student)Put #1,record_no,studentClose #1End SubC.Sub Command1_Click()Dim student As studtypeDim record_no As integerrecord_no=1With student.ino=12.stmame=“smith“.strsex=“男“.smark=89End WithOpen“c:/student.dat“ For random As #1 len=len(student)Write #1,record_no,studentClose #1End Su
13、bD.Sub Command1_Click()Dim Student As studtypeDim Record_no As Integerrecord_no=1With student.ino=12.strname=“smith“.strsex=“男“.smark=89End WithOpen“c:/student.dat“For output As #1 len=len(student)Put #1,record_no,studentClose #1End #120.阅读程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请
14、输入一个整数“) y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为_。（分数：1.00）A.100B.50C.120D.7021.设“A=“87654321“”，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为 _ 。（分数：2.00）A.876543B.876554C.8D.622.Fibonacci 数列的规律是：前 2 个数为 1，从第 3 个数开始，每个数是它前 2 个数之和，即1，1
15、，2，3，5，8，13，21，34，55，89，某人编写了下面的函数，判断大于 1 的整数 x 是否是Fibonaeci 数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer)As Boolean Dim a As Integer，b As Integer，c As Integer，flag As Boolean fIag=False a=1:b=1 Do While xb c=a+b a=b b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数
16、x，函数都返回 False，程序需要修改。下面的修改方案中正确的是 _（分数：2.00）A.把 a=b 与 b=C 的位置互换B.把 c=a+b 移到 b=c 之后C.把 Do while xb 改为 Do While xbD.把 If x=b Then flag=True 改为 If x=a Then flag=True23.设有如下通用过程： Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事
17、件过程： Private Sub Command1_Click() Dim art(5)As Variant For i=1 To 5 art(i)=i Next n=10 Call Fun(art(), n) Text1. Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_。（分数：2.00）A.10B.15C.25D.2424.在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print “sub1:“;p;m;n End Sub Private Sub Command1_Click
18、() a1=1:b1=2:c1=3 Call Sub1(a),b1+3,c1) Print “Main:“;a1;b1;c1 End Sub 程序运行后，输出结果为 _ 。（分数：2.00）A.Sub: 2 6 4Main:2 6 4B.Sub: 2 6 4Main: 2 6 4C.Sub: 2 6 4Main: 1 2 4D.Sub: 2 6 4Main: 2 2 425.要把名为 Form1 的窗体从内存中卸载，应使用语句 _ 。（分数：1.00）A.Form1UnloadB.Close Form1C.Form1EndD.Unload Form1二、填空题(总题数：14，分数：27.00)
19、26.下列过程的功能是：用来计算并输出 S=1+1/2+1/3+1/100 的值。请完善下列程序。 Function SumD(n As Integer)As Single s=1 i=1 Do i=i+1 S=S+1/i Loop Until 1 SumD=s End Function Private Sub Form_Click 2 sum1=SumD(100) Print “sum1=“ : sum1 End Sub （分数：2.00）27.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n = 5 f
20、 = 1 s = 0 For i = 1 To n f = f 1 s = s + f Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：1.00）28.函数 Int(Rnd*10)+10 的值的范围是 _ 1_ 。 （分数：2.00）29.在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 1 事件，当对象失去焦点时将触发 2事件。 （分数：1.00）30.在程序运行时，可以通过 1 方法来移动滚动条的位置。 （分数：2.00）31.下列程序的功能是把顺序文件 smtextl.txt 的内容全部读入内存，并在
21、文本框 Textl 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text=“ Open “smtext1.txt“ _ 1_ As _ 2_ Do While _ 3_ Input #2，inData Text1.Text=Text1.Text a(3);a(5) End Sub（分数：2.00）A.abcB.bdf C.aceD.出错解析：7.软件测试过程是软件开发过程的逆过程，其最基础性的测试应是 _ 。（分数：1.00）A.集成测试B.单元测试 C.有效性测试D.系统测试解析：解析 本题的考查点是软
22、件测试的组成。单元是程序中：最小和有意义的部分，单元测试是通过测试发现该模块单元的子程序或过程的实际功能与该模块的功能和接口的描述是否相符，以及是否有编码错误存在，所以它是最基础性的测试。8.窗体上有一个名称为 Command1 的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim s As Double s=0:i=1 Do While i6 s=s+i/(i+1):i=i+1 Loop Print s End Sub 该事件过程的功能是计算一个表达式的值，该表达式是（分数：2.50）A.1+1/2+2/3+3/4+4/5B.1+1/2+2/3+
23、3/4+4/5+5/6C.1/2+2/3+3/4+4/5D.1/2+2/3+3/4+4/5+5/6 解析：解析 本题中 Do 循环的循环变量 i 的初值为 1，继续循环的条件是 i6，在每次循环中 i 的值加1，因此循环会执行 5 次：在第一次循环中累加 1/2，第二次循环中累加 2/3，第三次循环中累加 3/4即最后计算的是 1/2+2/3+3/4+4/5+5/6 的值。9.设有下列二叉树： （分数：1.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA 解析：解析 二叉树的遍历分为先序、中序、后序三种不同方式。本题要求后序遍历，其遍历顺序应该为：后序遍历左子树一，后序遍
24、历右子树，访问根结点。按照定义，后序遍历序列是 DEBFCA。10.下列数据模型中，具有坚实理论基础的是（分数：2.00）A.层次模型B.网状模型C.关系模型 D.以上 3 个都是解析：解析 本题考查了数据模型。 关系模型较之格式化模型(网状模型和层次模型)有以下几方面的优点，即数据结构比较简单、具有很高的数据独立性、可以直接处理多对多的联系以及有坚实的理论基础。 E-R 模型。11.在窗体上画两个单选按钮，名称分别为 Option1、Option2，标题分别为“宋体”和“黑体”；1 个复选框(名称为 Check1，标题为“粗体”)和 1 个文本框(名称为 Text1，Text 属性为“改变文
25、字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是_。 （分数：1.00）A.Option1.Value=FalseCheck1.Value=TrueB.Option1.Value=TrueCheck1.Value=0C.Option2.Value=FalseCheck1.Value=2D.Option1.Value=TrueCheck1.Value=1 解析：解析 单选按钮控件的 Value 属性值为 True 表示被选中，False 表示未被选中；复选框控件的Value 属性值为 0 表示未选中，1 表示选中，2 表示禁
26、止。本题中是单选按钮和复选框都被选中，故 D 选项正确。12.下列叙述中正确的是 _ 。（分数：1.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 D.在调用过程中，所有局部变量被系统初始化为 0 或空字符串解析：解析 1模块变量包括窗体变量和标准模块变量，窗体变量可以作用于该窗体的所有过程。全局变量只能在标准模块中声明，不能在过程或窗体模块中声明。 2在过程(事件过程或通用过程)内定义的变量叫做局部变量，其作用域是它所在的过程。
27、某一过程的执行只对该过程内的变量产生作用，对其他过程中相同名字的局部变量没有任何影响。因此，在不同的过程中可以定义相同名字的变量，它们之间没有任何关系。如果需要，则可以通过“过程名变量名”的形式分别引用不同过程中相同名字的变量。 3在过程中的局部变量，如果过程定义使用了 Static，则过程中的局部变量就是 Static 型的，即在每次调用过程时，局部变量的值保持不变；如果省略 Static，则局部变量就默认为“自动”的，即在每次调用过程时，局部变量被初始化为 0 或空字符串。 13.有下列程序段，其输出结果为 _ 。 a=0:b=0 For i=-1 To-2 Step-1 For j=1
28、To 2 b=b+1 Next j a=a+1 Next i Print a；b（分数：2.00）A.23B.-22C.42D.24 解析：解析 这个双重 For 循环中，外层的 For 循环次数是两次，计算变量 a 的值；内层 For 循环每次执行循环次数也是 2 次，计算变量 b 的值。执行过程为：当 a=0；b=0 时，语句 b=b+1 执行两次，结果为 2，a=a+1=1。当 a=1；b=2 时，语句 b=b+1 执行两次，结果为 4，a=a+1=2。因此最后计算结果为a=2，b=4。14.在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Su
29、b Commandl_click() Dim i As Integer,X As Integer For i=1 To 6 If i=1 Then x=i If i=4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为_。（分数：1.00）A.9 B.6C.12D.15解析：解析 本题循环 6 次，当 i=1 时，x 先被赋值为 1，然后再加 1；当 i 等于 2、3、4 时，x 都被加1；而当 i 等于 5、6 时，x 都被加 2。故 x=1+1+1+1+1+2+2=9。15.在一个长度为 n 的顺
30、序表中，删除第 i(1in)个元素时，需要移动的元素个数为（分数：1.00）A.n-i+1B.n-i CiD.i-1解析：解析 在一个长度为 n 的顺序表中，删除一个元素时，有 n 个位置可供选择。需要改变从第 i+1个元素起到第 n 个元素的存储位置，即进行“从第 i+1 到第 n 个元素往前移动一个位置”的操作，共需移动 n-i 个元素。16.要将窗体 Form1 标题设为“学习 VB”，以下能正确实现该功能的语句为（分数：2.00）A.Form1.Name=“学习 VB“B.Form1.Visible=“学习 VB“C.Form1.Caption=“学习 VB“ D.Form1.Show
31、=“学习 VB“解析：解析 设置窗体(Form1)的标题值应使用 Caption 属性，其代码书写为：Form1.Caption=“学习VB“。17.在列表框中当前被选中的列表项的序号是由下列哪个属性表示_。（分数：2.00）A.ListB.IndexC.Listindex D.Tabindex解析：解析 List 属性：该属性用来列出列表项的内容。List 属性保存了列表框中所有值的数组，可以通过下标访问数组中的值(下标值介于 0 到 List.ListCount-1 之间)。 ListIndex 属性：该属性的设置值是已选中的列表项的位置。列表项位置由索引值指定，第一项的索引值为 0，第二
32、项为 1，依次类推。如果没有选中任何列表项，ListIndex 的值将设置为-1。18.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Labell 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox(“请输入“) Text1.Text=strText End Sub Private Sub Text1_Change() Labell.Caption=Right(Trim(Text1.Text)，3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入 Visual，
33、则在标签中显示的内容是（分数：1.00）A空B.VisualC.VisD.ual 解析：解析 当用户向文本框中输入新信息或当程序将 Text 属性设置为新值从而改变文本框的 Text 属性时，将触发 Change 事件，即执行“Text1.Text=strText”语句时，就触发了 Change 事件。Trim(字符串)将返回的是去掉“字符串”两边的空白字符，Right(字符串，n)将返回“字符串”的最后 n 个字符。字符串 Visual 最右边的 3 个字符为 ual。19.设在工程中有一个标准模块，其中定义了如下类型： Type stutype ino As Integer strname
34、 As String*20 strsex As String*1 smark As Single End Type 在窗体上画一个名为 Connnand1 的命令按钮，要求当执行事件过程 Command1_Click 时，在 c:/的随机文件 studentdat 写入一条记录。下列能够完成该操作的事件过程是 _ 。（分数：2.00）A.Sub Command1_C1ick()Dim student As studtypeDim record_no As Integerrecord_no=1With student.ino=12.strname=“smith“.strsex=“男“.smark
35、=89End WithOpen“ c:/student.dat“ For input As # 1 len=len(student)Put # 1,record_no,studentClose #1End SubB.Sub Command1_Click( )Dim student As studtypeDim record_no As Integerrecord_no=1With student.ino=12.strname=“smith“.strsex=“男“.smark=89End WithOpen“c:/student.dat“ For random As #1 len=len(stud
36、ent)Put #1,record_no,studentClose #1End Sub C.Sub Command1_Click()Dim student As studtypeDim record_no As integerrecord_no=1With student.ino=12.stmame=“smith“.strsex=“男“.smark=89End WithOpen“c:/student.dat“ For random As #1 len=len(student)Write #1,record_no,studentClose #1End SubD.Sub Command1_Clic
37、k()Dim Student As studtypeDim Record_no As Integerrecord_no=1With student.ino=12.strname=“smith“.strsex=“男“.smark=89End WithOpen“c:/student.dat“For output As #1 len=len(student)Put #1,record_no,studentClose #1End #1解析：20.阅读程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y)
38、 If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为_。（分数：1.00）A.100 B.50C.120D.70解析：解析 程序的作用是输入的数如果是 5 的倍数就累加，如果不是就与每次加 50 或与上次是 5 的倍数的那个数相累加。因此最终 a 的值是 15+15+35+35=100。21.设“A=“87654321“”，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为 _ 。（分数：2.00）A.876543
39、B.876554 C.8D.6解析：解析 Left(string,length)函数是字符串截取函数。功能是截取某字符串最左边的“length”个字符，这里截取字符串为“8765”。 Val(string)函数用于返回字符串中所含的数值，这里“8765”返回的数值为“8765”。Mid(Str,p,n)函数是字符截取函数，功能是截取从第 p 个字符开始，向后取字符串的n 个“Str”字符串中的字符。这里 Mid(A,4,2)为截取字符串“54”。“+”做字符串连接，这里将“8765”和“54”进行相连接运算。22.Fibonacci 数列的规律是：前 2 个数为 1，从第 3 个数开始，每个数
40、是它前 2 个数之和，即1，1，2，3，5，8，13，21，34，55，89，某人编写了下面的函数，判断大于 1 的整数 x 是否是Fibonaeci 数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer)As Boolean Dim a As Integer，b As Integer，c As Integer，flag As Boolean fIag=False a=1:b=1 Do While xb c=a+b a=b b=c If x=b Then flag=True Loop Isfab=flag End Functio
41、n 测试时发现对于所有正整数 x，函数都返回 False，程序需要修改。下面的修改方案中正确的是 _（分数：2.00）A.把 a=b 与 b=C 的位置互换B.把 c=a+b 移到 b=c 之后C.把 Do while xb 改为 Do While xb D.把 If x=b Then flag=True 改为 If x=a Then flag=True解析：解析 本题是利用 While 循环求斐波拉希契数列，将求的值与 x 进行比对，若 x 是数列中的值，则返回 True，否则将返回 False。由于循环条件为 xb，a 与 b 的初始值为 1，而 x 是整数，所以 x 不可能小于 b，所以
42、循环不执行，如果需要执行，只需改动 While 中的条件判断，所以答案选 C。23.设有如下通用过程： Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim art(5)As Variant For i=1 To 5 art(i)=i Next n=10 Call Fun(art(), n) Text1. Text=n End
43、 Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是_。（分数：2.00）A.10 B.15C.25D.24解析：解析 由于在定义形参 x 时使用了 ByVal，所以实参 n 与形参 x 之间是传值传送关系，那么无论fun 子过程的计算结果为何值，都不能改变实参 n 的值，最终 n 将 10 赋值给 Text1 文本框。本题中，数组赋初值、传送以及计算，对打印结果都没有任何影响。24.在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p,m,n) p=p+1:m=m+1:n=n+1 Print “sub1:“;p;m;n End Sub Private Sub
44、 Command1_Click() a1=1:b1=2:c1=3 Call Sub1(a),b1+3,c1) Print “Main:“;a1;b1;c1 End Sub 程序运行后，输出结果为 _ 。（分数：2.00）A.Sub: 2 6 4Main:2 6 4B.Sub: 2 6 4Main: 2 6 4C.Sub: 2 6 4Main: 1 2 4D.Sub: 2 6 4Main: 2 2 4 解析：解析 这是在实现子过程被调用时参数虚实结合的问题。a1 为变量按址传送，b1+3 和 c1 为表达式按值传送。25.要把名为 Form1 的窗体从内存中卸载，应使用语句 _ 。（分数：1.0
45、0）A.Form1UnloadB.Close Form1C.Form1EndD.Unload Form1 解析：解析 Unload 和 End 都不是窗体的方法，故答案 A 和 C 是错误的，VB 中没有 Close 语句，所以答案 B 是错误的。Unload 是一条语句，其作用是把对象(此题为窗体)从内存中卸载(清除)。二、填空题(总题数：14，分数：27.00)26.下列过程的功能是：用来计算并输出 S=1+1/2+1/3+1/100 的值。请完善下列程序。 Function SumD(n As Integer)As Single s=1 i=1 Do i=i+1 S=S+1/i Loop
46、 Until 1 SumD=s End Function Private Sub Form_Click 2 sum1=SumD(100) Print “sum1=“ : sum1 End Sub （分数：2.00）解析：i=n解析 从公式可以看出，第一项为 1/1，第二项为 1/2，第三项为 1/3，第 n 项为 1/n。也就是说，分母每次增加 1，而分子始终为 1。为求前 n 项之和，在 DoLoop 循环中应该用变量 i 来控制循环，即当 i 大于等于 n 时就结束循环。27.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command
47、1_Click() n = 5 f = 1 s = 0 For i = 1 To n f = f 1 s = s + f Next Print s End Sub 该事件过程的功能是计算 s=1+1/2!+1/3!+1/n! 的值。请填空。 （分数：1.00）解析：/i28.函数 Int(Rnd*10)+10 的值的范围是 _ 1_ 。 （分数：2.00）解析：10，19解析 Rnd 产生随机数的范围为(0，1)，因此，Rnd*10 的范围为(0，10)；Int()函数是取整，Int(Rnd*10)取整后的范围为0，9；再加上 10，所以试值的取值范围为10，19。29.在窗体上有几个对象，运
48、行程序时，当对象得到焦点时，会触发 1 事件，当对象失去焦点时将触发 2事件。 （分数：1.00）解析：GotFocus LostFocus 解析 考核考生对控件事件的了解。 在 Visual Basic 中，焦点是接收用户鼠标或键盘输入的能力，当对象得到焦点时，它可以接收用户的输入；当得到焦点时会触发 GotFocus 事件，当失去焦点时会触发 LostFocus 事件。 SetFocus 方法的使用。30.在程序运行时，可以通过 1 方法来移动滚动条的位置。 （分数：2.00）解析：Move解析 Move 方法用于移动控件，其基本语法为 Object.Move Left,Top,Width
49、,Height。其中，参数“Left、Top”指控件移动到的坐标位置；“Width、Heght”指控件移动后新的宽度和高度。31.下列程序的功能是把顺序文件 smtextl.txt 的内容全部读入内存，并在文本框 Textl 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text=“ Open “smtext1.txt“ _ 1_ As _ 2_ Do While _ 3_ Input #2，inData Text1.Text=Text1.Text & inData Loop Close #2 End Sub （分数：2.00）解析：For Input #2 NOT EOF(2)32.
