1、二级 VISUAL+BASIC 笔试-63 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.一个关系中属性个数为 l 时，称此关系为（分数：2.00）A.对应关系B.单一关系C.一元关系D.二元关系2.以下不是面向对象思想中的主要特征的是（分数：2.00）A.多态B.继承C.封装D.垃圾回收3.在窗体上有一个文本框控件，名称为 TextTime；-个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ _TxtTime.text=TimeEnd Sub在下画线上应填入的内容
2、是（分数：2.00）A.EnabledB.VisibleC.IntervalD.Time4.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.Alt+BB.Alt+QC.Alt+ShiftD.Alt+a5.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后输写如下程序：Private Sub Command1_Click()Dim x，y，z As Integerx=5y=7z=0Text1.Text=“Call Funl(x,y,z)Text1.Text=Str(z)End SubSub Funl(ByVal a As I
3、nteger，ByVal b As Integer，c As Integer)C=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.0B.12C.Str(Z)D.没有显示6.将一个窗体设置为 MDI 子窗体的方法是（分数：2.00）A.将窗体的名称改为 MDIB.将窗体的 MDIChild 属性设为 TrueC.将窗体的 MDIChild 属性设为 FalseD.将窗体的 Enabled 属性设为 False7.有如下程序：Private Sub Form_Click()Dim i As Integer，Sum As IntegerSum=0For
4、 i=2 To 10If i Mod 20 And i Mod 3=0 ThenSum=Sum+iEnd IfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为（分数：2.00）A.12B.30C.24D.188.在窗体上添加一个按钮，名为 Command1，然后编写如下的事件过程，输出结果为Prinvate Sub Comandl_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+5NextNextNextPrint xEnd Sub（分数：2.00）A.13B.26C.30D.409.下列程序段的执行结果为m=2
5、n=3Dom=m+nn=n+1Loop While m10Print m;n（分数：2.00）A.1 5B.14 6C.a bD.10 2510.在窗体上添加一命令按钮，其名为 Command1，然后编写代码如下：private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integern=3For i=1 To 5arr(i)=iarr1(n)=2*n+iNextPrint arr1(n)；art(n)End Sub程序的运行结果为（分数：2.00）A.3 11B.11 3C.13 3D.3 1311.假设线性表的长度为 z，则在最
6、坏情况下，冒泡排序需要的比较次数为（分数：2.00）A.log2nB.n2C.D(n1.5)D.n(n-1)/212.编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住“Shift”键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是（分数：2.00）A.AAB.aAC.AaD.
7、aa13.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应使用的语句是（分数：2.00）A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=False14.为了提高测试的效率，应该（分数：2.00）A.随机选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制定软件的测试计划D.集中对付那些错误群集的程序15.下列程序运行后的输出结果是Function Fun(n)x=n*nFun=x 一 11End FunctionPrivate Sub Com
8、mand1_Click()For k=1 To 2Y=Fun(k)：Print YNextEnd Sub（分数：2.00）A.-10 -7B.10 8C.1 3D.0 416.以下用户自定义函数Function Func(a As Integer，b As Integer)As IntegerStatic m As Integeri As Integerm=0：i=2i=i+m+im=i+a-i-bFunc=mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim k As Integer，m As Integer，
9、p As Integerk=4：m=1P=Func(k,m)Print PEnd Sub程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8B.9C.10D.1117.软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指（分数：2.00）A.模块间的关系B.系统结构部件转换成软件的过程描述C.软件层次结构D.软件开发过程18.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为 M1。设窗体 Form1 标题为“myform1”，双击控件数组中的第 3 个按钮，打开代码编辑器，写下如下代码：Privae Sub M1_Click(Index As Integer)F
10、orm1.Caption=“myform 2“End Sub运行时，单击按钮数组中的第 1 个按钮，窗体标题为（分数：2.00）A.Form1B.M1C.myform1D.myform219.在深度为 5 的满二叉树中，叶子结点的个数为（分数：2.00）A.32B.31C.16D.1520.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统C.模拟模型D.软件工程21.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程：Private Sub Form_Load()List1.AddItem “Item 1“List1.Add
11、Item “Item 2“List1.AddItem “Item 3“End SubPrivate Sub Command1_Click()List1.List(List1.Listcount)=“AAAA“End Sub程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但位置不能确定B.把字符串“AAAA“添加到列表框的最后(即“Item 3“的后面)C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面(即“Item 1“的前面)22.表达式 Right(“Beijing“，4)的值是（分数：2.00）A.Beij
12、B.jingC.eijiD.ijin23.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到（分数：2.00）A.GotFocus 事件B.Click 事件C.Change 事件D.DblClick 事件24.以下语句用于打开一个顺序文件 Open“C:/MyFile.txt”For OutPut，但是该语句的一个重要错误是没有（分数：2.00）A.指定打开方式B.指定文件号C.指定打开文件名D.指定文件类型25.软件生命周期中所花费用最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护26.下列说法正确的是（分数：2.00）A
13、.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框是由用户根据自己需要定义的C.预定义对话框是用户在设置程序代码后定义的D.MsgBox 函数是用户的自定义对话框的函数27.在窗体上画一个命令按钮 Command1 和两个文本框，名称分别为 Text1 和 Text2。编写如下两个事件过程：Dim Str1 As String，str2 As StringPrivate Sub form_load()Text1.Text=“Text2.Text=“Text1.Enabled=FalseText2.Enabled=FalseEnd SubPriva
14、te Sub Form_KeyPress(KeyAscii As Integer)str1=str1n（分数：2.00）A.1 5B.14 6 C.a bD.10 25解析：解析 此题内容比较简单，开始 m 为 2，n 为 3，执行 Do 语句，具体运行为：执行 m=m+n；n=n+1语句后，m 为 5，n 为 4。这样运行到 m=14，程序终止循环，此时 n=6。10.在窗体上添加一命令按钮，其名为 Command1，然后编写代码如下：private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integern=3For i=1 T
15、o 5arr(i)=iarr1(n)=2*n+iNextPrint arr1(n)；art(n)End Sub程序的运行结果为（分数：2.00）A.3 11B.11 3 C.13 3D.3 13解析：解析 在给数组赋值时，如果每次都是赋给数组中同一个成员，那么后面的赋值将覆盖以前的值。11.假设线性表的长度为 z，则在最坏情况下，冒泡排序需要的比较次数为（分数：2.00）A.log2nB.n2C.D(n1.5)D.n(n-1)/2 解析：解析 假设线性表的长度为 n，则在最坏情况下，冒泡排序要经过 n/2 遍的从前往后扫描和 n/2遍的从后往前扫描，需要的比较次数为 n(n-1)/2。12.编
16、写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住“Shift”键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是（分数：2.00）A.AAB.aAC.Aa D.aa解析：解析 KeyCode 是按键的实际的字符(不区分大小写)，Keyr-Ascii 是以字符为准，是所按键的AS
17、CII 码。13.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应使用的语句是（分数：2.00）A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=False 解析：解析 Visible 属性用来设置控件是否可见，设置其值为 False，则该控件隐藏。14.为了提高测试的效率，应该（分数：2.00）A.随机选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制定软件的测试计划D.集中对付那些错误群集的程序 解析：解析 测试的目的是发现软件中的错误。
18、经验表明，程序中存在错误的概率与该程序中已发现的错误成正比。这一现象说明，为了提高测试效率，测试人员应该集中对待那些错误群集的程序。15.下列程序运行后的输出结果是Function Fun(n)x=n*nFun=x 一 11End FunctionPrivate Sub Command1_Click()For k=1 To 2Y=Fun(k)：Print YNextEnd Sub（分数：2.00）A.-10 -7 B.10 8C.1 3D.0 4解析：解析 本题的难点是子函数过程的调用。子函数过程的名称变量 Fun 将计算结果返回。16.以下用户自定义函数Function Func(a As
19、Integer，b As Integer)As IntegerStatic m As Integeri As Integerm=0：i=2i=i+m+im=i+a-i-bFunc=mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim k As Integer，m As Integer，p As Integerk=4：m=1P=Func(k,m)Print PEnd Sub程序运行后，单击命令按钮，输出结果为（分数：2.00）A.8 B.9C.10D.11解析：解析 变量 i 的计算过程为 i=2+0+1=3，变量
20、 m 的计算过程为 m=3+4+1=8，m 的值通过子函数名Func 返回。17.软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指（分数：2.00）A.模块间的关系B.系统结构部件转换成软件的过程描述 C.软件层次结构D.软件开发过程解析：解析 软件设计包括软件结构设计、数据设计、接口设计和过程设计。其中，结构设计是定义软件系统各主要部件之间的关系；数据设计是将分析时创建的模型转化为数据结构的定义；接口设计是描述软件内部、软件和操作系统之间及软件与人之间如何通信；过程设计则是把系统结构部件转换成软件的过程性描述。18.在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为
21、 M1。设窗体 Form1 标题为“myform1”，双击控件数组中的第 3 个按钮，打开代码编辑器，写下如下代码：Privae Sub M1_Click(Index As Integer)Form1.Caption=“myform 2“End Sub运行时，单击按钮数组中的第 1 个按钮，窗体标题为（分数：2.00）A.Form1B.M1C.myform1D.myform2 解析：解析 数组控件在不区别控件下标时，点任一按钮都会改变窗体标题。19.在深度为 5 的满二叉树中，叶子结点的个数为（分数：2.00）A.32B.31C.16 D.15解析：解析 满二叉树是指除最后一层外，每一层上的所
22、有结点都有两个叶子结点。在满二叉树中，层上的结点数都达到最大值，即在满二叉树的第 k 层上有 2k-1个结点，且深度为 m 的满二叉树有 2m-1个结点。20.数据库系统的核心是（分数：2.00）A.数据库B.数据库管理系统 C.模拟模型D.软件工程解析：解析 数据库管理系统(Database Management System，简称 DBMS)是数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等。数据库管理系统是数据库系统的核心。21.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程：Pr
23、ivate Sub Form_Load()List1.AddItem “Item 1“List1.AddItem “Item 2“List1.AddItem “Item 3“End SubPrivate Sub Command1_Click()List1.List(List1.Listcount)=“AAAA“End Sub程序运行后，单击命令按钮，其结果为（分数：2.00）A.把字符串“AAAA“添加到列表框中，但位置不能确定B.把字符串“AAAA“添加到列表框的最后(即“Item 3“的后面) C.把列表框中原有的最后一项改为“AAAA“D.把字符串“AAAA“插入到列表框的最前面(即“I
24、tem 1“的前面)解析：解析 列表框的 list 属性用来列出表项的内容，也可以改变数组中的已有值。列表框中表项的排列是从 0 开始，最后一项的序号为 ListCount-1，该题语句的作用是把字符串“AAAA”添加到列表框的最后，但不改变 Item3 的值，所以本题的正确答案是选项 B)。22.表达式 Right(“Beijing“，4)的值是（分数：2.00）A.BeijB.jing C.eijiD.ijin解析：解析 Right$(字符串，n)是返回“字符串”的最后 n 个字符。23.在运行程序时，在文本框中输入新的内容，或在程序代码中改变 Text 的属性值，相应会触发到（分数：2.
25、00）A.GotFocus 事件B.Click 事件C.Change 事件 D.DblClick 事件解析：解析 文本框 Change 事件在用户改变正文或通过代码改变 Text 属性的设置时发生。24.以下语句用于打开一个顺序文件 Open“C:/MyFile.txt”For OutPut，但是该语句的一个重要错误是没有（分数：2.00）A.指定打开方式B.指定文件号 C.指定打开文件名D.指定文件类型解析：解析 打开顺序文件时，一定要指定一个文件号才能打开，否则出错。25.软件生命周期中所花费用最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护 解析：解析 软件
26、生命周期分为软件定义、软件开发及软件运行维护 3 个阶段。本题中，详细设计、软件编码和软件测试都属于软件开发阶段。维护是软件生命周期的最后一个阶段，也是持续时间最长，花费代价最大的一个阶段，软件工程学的一个目的就是提高软件的可维护性，降低维护的代价。26.下列说法正确的是（分数：2.00）A.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框是由用户根据自己需要定义的 C.预定义对话框是用户在设置程序代码后定义的D.MsgBox 函数是用户的自定义对话框的函数解析：解析 在 Visual Basic 中，对话框分为 3 种类型：即预定义对话框、自定
27、义对话框和通用对话框，所以选项 A)不正确；预定义对话框也称预制对话框，是由系统提供的，Visual Basic 系统提供了两种预定义对话框：即输入框和信息框(或消息框)，前者用 InputBox 函数建立，后者用 MsgBox 函数建立，所以选项 C)和选项 D)不正确；自定义对话框也称定制对话框，这种对话框由用户根据自己的需要进行定义，输入框和信息框尽管很容易建立，但在应用上有一定的限制，所以选项 B)是正确的；通用对话框是一种控件，用这种控件可以设训较为复杂的对话框。27.在窗体上画一个命令按钮 Command1 和两个文本框，名称分别为 Text1 和 Text2。编写如下两个事件过程
28、：Dim Str1 As String，str2 As StringPrivate Sub form_load()Text1.Text=“Text2.Text=“Text1.Enabled=FalseText2.Enabled=FalseEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)str1=str1&Chr(KeyAscii)End SubPrirate Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)str2=str2&Chr(KeyCode)End SubPrivate
29、Sub Command1_Click()Text1.Text=str1Text2.Text=str2str1=“str2=“End Sub当在设计阶段的窗体的 KeyPreview 属性设置为 True 时，程序运行过程中，在键盘上输入小写字母 abc，然后单击命令按钮，则文本框 Text1 中显示的内容为（分数：2.00）A.abc B.不显示任何信息C.ABCD.出错解析：解析 在 Command1 的 Click 事件中将字符串变量 str 赋给 Text1，str 变量是在 KeyPress 事件中被赋值的，语句 str=str&Chr(KeyAscii)将输入的字符存储并连接起来，此
30、处是通过参数 KeyAscii 来得到输入字符的(因此要区分字母的大小写)，又因为在 Form 的 Load 事件中将 Text1 和 Text2 的 Enabled 属性设置成 False，所以当前拥有输入焦点的对象是窗体，为了使窗体能接收键盘事件，已经将窗体的KeyPreview 属性设置为 True，所以在输入小写字母 abc 后，单击 Command1，触发其 Clidk 事件，使得Text1 文体控件的值等于 str 字符串的值，即 abc。28.在程序运行期间可以将图形装入窗体、图片框或图像框的函数是（分数：2.00）A.DrawStyleB.AutoSizeC.PasswordC
31、harD.LoadPicture 解析：解析 LoadPicture 函数用于在程序运行期间对窗体、图片框或图像框的 Picture 属性赋值、加载图形文件，它的格式为：对象.Picture=LoadPicture(“文件名“)。当默认文件名为空时，清空所指定对象中的图形；PasswordChar 是用于决定文本的显示方式的，不正确；Drawstyle 决定外观。29.能够将 Picture 对象 Picl 加载当前目录中的 face.bmp 的语句是（分数：2.00）A.Pic1.Picutre=LoadPicture(App.path &“face.bmp“) B.Pic1.LoadPic
32、ture(App.path &“face.bmp“)C.Picutre1.Picutre=LoadPicture(App.path &“face.bmp“)D.Picture1.LoadPicture(App.path &“face.bmp“)解析：解析 LoadPicture 是 Visual Basic 的函数，不是图片对象的方法，因此选项 B 和 D 是错误的。图片的 Picture 属性必须用 LoadPicture 函数才能加载图片。本题中图片对象的名称为 Pic1，而不是默认的 Picture1，因此正确答案是选项 A)。30.确定复选框是否选中，可访问的属性是（分数：2.00）A
33、.Value B.CheckedC.SelectedD.Caption解析：解析 复选框 CheckBox 控件的 Value 属性用来返回或设置控件状态(0 未选中；1 选中；2 灰色)。31.下面的属性中，用于自动调整图像框中图形内容的大小的是（分数：2.00）A.PictureB.CurentYC.CurrentXD.Stretch 解析：解析 Picture 属性用于窗体、图片框和图像框中，它可以通过属性窗口设置用来把图形放到这些对象中，因此选项 A)是不正确的；CurrentX 和 CurrentY 用来没置下一个输出的水平坐标和垂直坐标，因此选项 B)和 C)都不正确；Stretc
34、h 属性用于自动调整图像框中图形内容的大小，既可通过属性窗口设置，也可以通过程序代码设置，该属性的取值为 True 或 False，当其值为 False 时，将自动放大或缩小图像框中的图形以与图像框的大小相适应，因此选项 D)是正确的。32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIf X20 ThenY=XElseY=20+XEnd Iffunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integ
35、er,_Shift As Integer，X As Single，Y As Single)SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer,_Shift As Integer，X As Single，Y As Single)SW=TrueEnd SubPrivate Sub Command1_Click()Dim intNum As IntegerintNum=InputBox(“)If SW ThenPrint func(intNum)End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入
36、 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 25C.输出 45 D.无任何输出解析：解析 本题考查的是鼠标事件，当压下鼠标左键(发生 MouseDown 时)，SW 的值为 False，当松开鼠标左键(触发 MouseUp 时)，SW 的值为 True。33.数据处理的最小单位是（分数：2.00）A.数据B.数据元素C.数据项 D.数据结构解析：解析 数据处理的最小单位是数据项，由若干数据项组成数据元素。数据是指能够被计算机识别、存储和加工处理的信息载体；数据结构是指数据之间的相互关系和数据运算。34.下列叙述中，不符合良好程序设计风格要求的是（分数：2.00）A.程序的
37、效率第一，清晰第二 B.程序的可读性好C.程序中要有必要的注释D.输入数据前要有提示信息解析：解析 当今主导的程序设计风格是“清晰第一，效率第二”的观点。结构化程序设计思想提出之前，在程序设计中曾强调程序的效率，而在实际应用中，人们更注重程序的可理解性。35.单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click()Print Fun(23,18)End SubPublic Function Fun(m As Integer，n As Integer)As IntegerDo While mnDo While mn:m=m-n:LoopDo While mn:
38、n=n-m:LoopLoopFun=mEnd Function（分数：2.00）A.0B.1 C.3D.5解析：解析 此题程序代码中，被调过程采用了 Do WhileLoop 的嵌套语句结构，主调过程只调用了一次被调过程，Print Fun(23,18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程 Fun 时，把数值 23，18 分别传给形参 m 和 n，从被调过程中的循环语句来看，因为此时 m 的值大于n 的值，所以执行语句 m=m-n，m 值变为 5，然后循环调用，直到 m=n，而由语句 Fun=m 可看出，此过程的返回值就是 m 的值，即为 1。二、填空题(总题数
39、：14，分数：30.00)36.软件定义时期主要包括 1 和需求分析两个阶段。（分数：2.00）填空项 1:_ （正确答案：可行性研究）解析：解析 软件生命周期一般包括可行性研究与需求分析、设计、实现、测试、交付使用以及维护等。另外还可以将软件生命周期分为三个阶段：软件定义阶段：可行性研究和需求分析；软件开发阶段：设计、实现和测试；软件运行维护阶段：交付使用和维护。37.软件维护活动包括：改正性维护、适应性维护、 1 维护和预防性维护。（分数：2.00）填空项 1:_ （正确答案：完善性）解析：解析 软件维护活动包括：改正性维护、适应性维护、完善性维护和预防性维护。改正性维护是指在软件交付使用
40、后，为了识别和纠正软件错误，改正软件性能上的缺陷，排除实施中的误使用，应当进行的诊断和改正错误的过程；适应性维护是指为了使软件适应变化，而去修改软件的过程；完善性维护是指为了满足用户对软件提出的新功能与性能要求，需要修改或再次开发软件，以扩充软件功能、增强软件性能、改进加工效率、提高软件的可维护性；预防性维护是为了提高软件的可维护性、可靠性等，为以后的进一步改进软件打下良好基础。38.数据的逻辑结构有线性结构和 1 两大类。（分数：2.00）填空项 1:_ （正确答案：非线性结构）解析：解析 数据的逻辑结构有线性结构和非线性结构两大类。39.某二叉树中度为 2 的结点有 n 个，则该二叉树中有
41、 1 个叶子结点。（分数：2.00）填空项 1:_ （正确答案：n+1）解析：解析 在任意一棵二叉树中，度为 O 的结点(即叶子结点)总是比度为 0 的结点多一个。40.在 E-R 图中，矩形表示 1。（分数：2.00）填空项 1:_ （正确答案：实体）解析：解析 在 E-R 图中用矩形表示实体；椭圆形表示属性；菱形表示联系。41.在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：Private Sub Command1_Click()Text1.Text=“VB Programming“Text2.Text=Text1.TextText1.Text=“ABCD“End S
42、ub程序运行后，单击命令按钮，Text1 文本框中显示的内容为_。（分数：2.00）填空项 1:_ （正确答案：ABCD）解析：解析 Text1 中的值被赋到 Text2 中，Text1 中的值被重新赋值为 ABCD。42.在窗体上有一个名称为 Labell 的标签和一个名称 List1 的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签 Label 中显示所选中的项目，如右图所示。请在空白处填入适当的内容，将程序补充完整。Private Sub Form_Load()List1.Addltem“北京”List1.Addltem“上海”List1.Addltem
43、“河北”End SubPrivate Sub List1_Dblclick()Label.Caption=_End Sub（分数：2.00）填空项 1:_ （正确答案：List1.Text）解析：解析 双击事件为 DblClick；ListBox 的 Text 属性返回当前列表项的文本。43.当对象得到焦点时，会触发 GotFocus 事件，当对象失去焦点时将触发 1 事件。（分数：2.00）填空项 1:_ （正确答案：LostFocus）解析：解析 在 Visual Basic 中，当对象得到焦点时，它可以接收用户的输入；当得到焦点时会触发GotFocus 事件，当失去焦点时会触发 Lost
44、Focus 事件。44.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填人适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click()Dim Y As SingleOpen“c:/Datal.txt”For Random As #2 Len=10Y=3.14159/180For i=1 To 90Ksc.K=iKsc.Sinx=S
45、in(i * Y)Ksc.Cosx=Cos(i * Y)_NextClose #2End Sub（分数：2.00）填空项 1:_ （正确答案：“C:/Dataltxt”For Random As #2 Len=10）解析：解析 打开一个随机文件的一般格式为：“Open”文件名称”For Random As#文件号Len=记录长度”45.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCo
46、sx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click()Dim Y As SingleOpen _Y=3.14159/180For i=1 To 90Ksc.K=iKsc.Sinx=Sin(i * Y)Ksc.Cosx=Cos(i * Y)Put #2，i，KSCNext iClose #2End Sub（分数：2.00）填空项 1:_ （正确答案：text(*.txt)|*.txt）解析：解析 使用通用对话框指定打开文件类型的格式为：文件类型名(*.扩展名)|*.扩展名。46.执行如下程序段后，intsum 的值为_。Private
47、 Sub Command1_Click()sum=0For i=1 To 18 Step 2For j=2 To 6If(i Modj)0 Then sum=sum+jNextNextPrint sumEnd Sub（分数：2.00）填空项 1:_ （正确答案：161）解析：解析 单循环次数 r=int(终值-初值+步长)/步长)，嵌套循环次数是各层循环次数的乘积。该段程序的循环次数为 95=45(次)，当 i 不能被 j 整除时，j 的值相加。该段程序中只有以下条件不成立，即 3/3、5/5、9/3、15/3、15/5，所以计算结果为 9(2+3+4+5+6)-(3+5+3+3+5)=161
48、。下面程序是用来打印九九乘法表的，请填空。Dim i As Integer，j As Integer，Str1 $Str1=“For i=1 To 9For j=1 To 9If (12) ThenStr1=Str1+Str$(j)+“+Str$(i)+“=“+Str$(Val(i*j)ElseStr1=Str1&Chr(13)(13) End IfNextNextPrint Str1（分数：4.00）填空项 1:_ （正确答案：j=i）解析：填空项 1:_ （正确答案：Exit for）解析：解析 本题考查了双重 For 循环和转换函数。Str $(x)：把 x 的值转换为一个字符串；Chr(x)：把 x 的值转换为相应的 ASCII 字符。47.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是_。（分数：2.00）填空项 1:_ （正确答案：下拉式列表框）解析：解析 下拉式列表框仅允许从下拉式列表中选择。(缺省值)下拉式组合框包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入。简单组合框包括一个文本框和一
