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:_ (正确答案:下拉式列表框)解析:解析 下拉式列表框仅允许从下拉式列表中选择。(缺省值)下拉式组合框包括一个下拉式列表和一个文本框,可以从列表选择或在文本框中输入。简单组合框包括一个文本框和一