【计算机类职业资格】二级VISUAL+BASIC笔试385及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试385及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试385及答案解析.doc（14页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试 385 及答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while In I=I- n Loop Print IEnd Sub 在窗体上打印的结果是_。（分数：2.00）A.3B.5C.6D.82.算法解析的目的是_。（分数：2.00）A.找出数据结构的合理性B.找出算法中输入和输出之间的关系C.解析算法的易懂性和可靠性D.解析算法的效率以求改进3.在窗

2、体上画一个命令按钮，名称为 Command1。然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, y As Integera =10: y = 0do a=a+2:y=y+ a Print “a=“; a; “y=“, y if y20 then exit doLoop until a14End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.00）A.a=12 y=12 a=14 y=16 a=16 y=20B.a=12 y=12 a=16 y=28 a=14 y=24C.a=12 y=12 a=14 y

3、=26D.a=12 y=12 a=14 y=444.下列 SQL 语句中，用于修改表结构的是_。（分数：2.00）A.ALTERB.CREATEC.UPDATED.INSERT5.下列数据模型中，具有坚实理论基础的是_。（分数：2.00）A.层次模型B.网状模型C.关系模型D.以上 3 个都是6.在软件测试设计中，软件测试的主要目的是_。（分数：2.00）A.实验性运行软件B.证明软件正确C.找出软件中的全部错误D.发现软件错误而执行程序7.在窗体上画一个命令按钮，名称为 Command1。然后编写如下程序：Private Sub Command1_ Click() for i = 1 To

4、4 for j= 0 To i Print Chr(65 +i) Next j Print Next iEnd Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.00）A.BB CCC DDDD EEEEEB.B CC DDD EEEEC.AA AA CCCC DDDDDD.A BB CCC DDDD8.从窗体 form1 生成到该窗体显示出来，最后发生的事件是_。（分数：2.00）A.ResizeB.LoadC.ActiveD.Paint9.开发软件所需要的高成本和产品的低质量之间有着尖锐的矛盾，这种现象称作_。（分数：2.00）A.软件投机B.软件危机C.软件工程

5、D.软件产生10.在下图中，要在窗体的标签 Label1 上显示“二级 VB 等级考试”字样，标签属性应设置为_。 （分数：2.00）A.Label1. Caption=“二级 VB 等级考试”B.Label1. Visible=“二级 VB 等级考试”C.Label1. Name=“二级 VB 等级考试”D.Label1. Show=“二级 VB 等级考试”11.已知通用对话框名为 Cdlg，则执行下列的_语句，将弹出“打开文件”对话框。（分数：2.00）A.Cdl Action=1B.Cdl Action= 2C.Cdl Action=4D.Cdl Action=312.关系表中的每一横行

6、称为一个_。（分数：2.00）A.元组B.字段C.属性D.码13.一些重要的程序语言(如 C 语言和 Pascal 语言)允许过程的递归调用。而实现递归调用中的存储分配通常用 _。（分数：2.00）A.栈B.堆C.数组D.链表14.以下关于菜单的叙述中，错误的是_。（分数：2.00）A.除了 Click 事件之外，菜单项不可以响应其他事件B.每个菜单项都是一个控件，与其他控件一样，有属性和事件C.菜单项的索引项必须从 1 开始D.菜单的索引号可以不连续15.以下不属于对象的基本特点的是 _。（分数：2.00）A.分类性B.多态性C.继承性D.封装性16.可以用作其他控件容器的控件有_。（分数：

7、2.00）A.窗体、列表框、图像B.窗体、文本框、框架C.窗体、框架、图片框D.窗体、标签、图片框17.在一个窗体上添加命令按钮控件，名为 Command1，事件过程如下，则该过程的执行结果为_。Option Base 1Private Sub Command1_ Click() Dim a(5)As Integer Dim k As Integer Dim Total As Integer a (1)= 2 a (2)= 5 a (3)= 4 a (4)= 10 a (5)= 6 for k =1 To 5 Total = Total +a(k) Next k Print TotalEnd

8、Sub（分数：2.00）A.10B.15C.27D.3518.已知“a=10,r=6,x=7,b=True”，表达式“a=2*3.14159*r And x5 Or Not b”的值为_。（分数：2.00）A.FalseB.TrueC.1D.019.若某二叉树的前序遍历访问顺序是 abdgcefh，中序遍历访问顺序是 dgbaechf，则其后序遍历的结点访问顺序是_。（分数：2.00）A.bdgcefhaB.gdbecfhaC.bdgaechfD.8dbehfca20.设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum A

9、s String*20 End Type 在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_ Click时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是_。（分数：2.00）A.Private Sub Command1_ Click() Dim x As Books Open “C：/Perso txt“ for Output As #1 Name=InputBox(“输入姓名”) TelNum=InPutBox(“输入电话号码”) Write #1，Name，TelNum Close #1 End SubB.Priva

10、te Sub Command1_ Click() Dim x As Books Open “c：/Perso txt“ for Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1， Name， TelNum Close #1End SubC.Private Sub Command1_ Click() Dim x As Books Open “c：/Perso txt“ for Output As #1 Name=InputBox(“输入姓名”) TelNum= InputBox(“输入电话号码”) Write

11、 #1，x Close #1End SubD.Private Sub Command1_ Click() Dim x As Books Open “c：/Perso txt“ for Input As #1 Name= InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print #1，Name，TeINum Close #1End Sub21.下列程序的运行结果是 _。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Su

12、b（分数：2.00）A.6 6B.5 8C.13 21D.34 5522.如下图所示，只执行下列程序后，有 Text1.Text=Text1，文本框不能出现“*”的程序是_。 （分数：2.00）A.Private Sub form_ Load() Text1. Text=“*“End SubB.Private Sub form_ Load() Text1. PasswordChar=“*”End SubC.Private Sub form_ Load() Text1. Visible=“*“ End SubD.Private Sub form Load() Text1. Text= Strin

13、g(5，“*“)End Sub23.在窗体上有一个名称为 List1 列表框和一个名称为 Command1 的按钮，List1 的 MultiSelect 属性设置为 2。当单击 Command1 按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是_。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if _ = True then List1. RemoveItem i End if Next iEnd Sub（分数：2.00）A.List1.Select(B.List1.Sort(C.Li

14、st1.List(D.Ltst1.Select(List1.Listinde24.窗体上有三个文本框 Text1、Text2 和 Text3 以及一个命令按钮 Command1，设文本框 Text1 中内容为 12，文本框 Text2 中内容为 34。下面程序的执行结果为_。Private Sub Command1_ Cilick() Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text) Print val(Text3,Text)End Sub（分数：2.00）A.12B.34C.46D.123425.下列程序的运行结果为_。Private Su

15、b Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd Sub（分数：2.00）A.100B.500C.2500D.500026.ScrollBars 属性用来设置文本框是否含有滚动条，要设置该属性，_属性的值必须设置为True。（分数：2.00）A.LockedB.HideselectionC.MultilineD.Enabled27.数据库系统的核心是_。（分数：2.00）A.数据库B.数据库管理系统C.模拟模型D.软件工程28.下列

16、选项中，合法的变量名是_。（分数：2.00）A.PrintB.Print#1C.Print1D.9Print129.窗体上有一个组合框，编写下列程序：Private Sub Command1_ Click () Combo1. RemoveItem 2End subPrivate Sub form Load() Combo1. AddItem “上海” Combo1. AddItem “北京” Combo1. AddItem “天津” Combo1. AddItem “重庆”End Sub 程序执行时，单击 Command1，则在组合框中将不再出现_。（分数：2.00）A.上海B.北京C.天津

17、D.重庆30.窗体上有三个按钮 Command1、Command2 和 Command3，如以下代码所示，该程序的功能是_。Private Sub Command1_ Click() Command2. Enabled=False Command3. Visible =FalseEnd Sub（分数：2.00）A.当单击按钮 Command1 时，按钮 2 和按钮 3 都不可用B.当单击按钮 Command1 时，按钮 2 和按钮 3 都不可见C.当单击按钮 Command1 时，按钮 2 不可用和按钮 3 不可见D.当单击按钮 Command1 时，按钮 2 不可见和按钮 3 不可用31.如

18、下有一段程序，窗体上打印出来的结果是_。Private Sub Command1_ Click() x=1 do x=x+3 Print x； Loop until x=8End Sub（分数：2.00）A.4 7 10B.1 3C.8D.1 8 932.已知通用对话框名为 Cdlg，则执行下列的_语句，将弹出“字体”对话框。（分数：2.00）A.Cdl Action=6B.Cdl Action=5C.Cdl Action=4D.CdlAction=333.若要获得滚动条的当前值，可访问的属性是_。（分数：2.00）A.TextB.ValueC.MaxD.Min34.下列事件过程：Privat

19、e Sub Command1_ Click() MsgBox Str (123+123)End Sub 运行时，信息框中出现的结果是_。（分数：2.00）A.123+123B.123C.246D.显示出错信息35.在窗件上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() Move 500, 500End Sub 程序运行后，单击命令按钮，执行的操作为_。（分数：2.00）A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.窗体移动到距屏幕左边界、上边界各 500 的位置C.命令按钮向左、上方向各移动 500D.

20、窗体向左、上方向各移动 500二、B填空题/B(总题数：9，分数：18.00)36.常用的黑盒测试有等价分类法、U 【1】 /U、因果图法和错误推测法 4 种。（分数：2.00）填空项 1:_37.测试的目的是暴露错误，评价程序的可靠性；而U 【2】 /U的目的是发现错误的位置并改正错误。（分数：2.00）填空项 1:_38.软件维护活动包括以下几类：改正性维护、适应性维护、U 【3】 /U维护和预防性维护。（分数：2.00）填空项 1:_39.一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体“项目”的联系属于U 【4】 /U的联系。（分数：2.00）填空项 1:

21、_40.数据库设计分为以下 6 个设计阶段：需求解析阶段、U 【5】 /U、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。（分数：2.00）填空项 1:_41.以下程序完成的功能是输入一个数 n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n) i = 2 Flag = 0 do while i= k And Flag = 0 ifU 【6】 /U = 0 then Flag = 1 Else i= i+ 1

22、 End if Loop ifU 【7】 /Uthen MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End if End Sub（分数：2.00）填空项 1:_42.下列程序实现的功能是：当在窗体上单击时，把 C 盘根目录下的文件 a1.txt 复制到 D 盘，并取名为 a2.txt，请填宁。 Private Sub form_ Click() Dim Ch As String Open “c:/a1. txt, for U【8】 /UAs #10 Open “d:/a2.txt“ for Output

23、 As #20 do while U【9】 /U Line Input #10, Ch U 【10】 /U Loop Close 10 Close 20 End Sub（分数：2.00）填空项 1:_43.下图是应用程序的窗体，要求用户选中复选框 Check1 后，文本框 Text1 中的文字以粗体显示，选中复选框 Check2 后，文本框 Text1 中的文字以斜体显示，单击“关闭”按钮 Command1 后结束应用程序运行。 （分数：2.00）填空项 1:_44.以下程序找出 50 以内所有能构成直角三角形的整数组。请在程序U 【15】 /U处填上正确内容。 Private Sub Com

24、mand1_ Click() for a = 1 To 50 for b = a To 50 c = Sqr(a 2 + b 2) if U【15】 /Uthen Print a; b; c Next b Next a End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 385 答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while In I=I- n Lo

25、op Print IEnd Sub 在窗体上打印的结果是_。（分数：2.00）A.3 B.5C.6D.8解析：解析 while 型循环的条件为假时离开循环，即 i=3 时就离开，最后打印的 i 值为 3。2.算法解析的目的是_。（分数：2.00）A.找出数据结构的合理性B.找出算法中输入和输出之间的关系C.解析算法的易懂性和可靠性D.解析算法的效率以求改进 解析：解析 算法解析是指对一个算法的运行时间和占用空间做定量的解析，一般计算出相应的数量级，常用时间复杂度和空间复杂度表示。解析算法的日的就是要降低算法的时间复杂度和空间复杂度，提高算法的执行效率。3.在窗体上画一个命令按钮，名称为 Com

26、mand1。然后编写如下程序：Private Sub Command1_ Click()Dim a As Integer, y As Integera =10: y = 0do a=a+2:y=y+ a Print “a=“; a; “y=“, y if y20 then exit doLoop until a14End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.00）A.a=12 y=12 a=14 y=16 a=16 y=20B.a=12 y=12 a=16 y=28 a=14 y=24C.a=12 y=12 a=14 y=26 D.a=12 y=12 a

27、=14 y=44解析：解析 本题首先给变量 a 赋值 10，y 赋值 0，然后执行 do. Loop 循环，在循环中执行语句“a=a+2=y: y+ a”，a 的值为2，y 的值为 12，输出为：“a=12 y=12”。判断口语句的条件“y20”为 False，不执行后面的 exit do，判断循环结束条件“a14”为 False，接着执行循环。执行语句“a=a+2：y =y+ a”后，a 的值为 14，y 的值为 26，输出为：“a=14 y=26”。判断 if 语句的条件“y20”为 True，执行后面的 exit do 语句，退出循环。4.下列 SQL 语句中，用于修改表结构的是_。（分

28、数：2.00）A.ALTER B.CREATEC.UPDATED.INSERT解析：解析 SQL 语句中凡创建都用 CREATE，删除都用 DROP，改变用 ALTER，再跟类型和名字，附加子句。5.下列数据模型中，具有坚实理论基础的是_。（分数：2.00）A.层次模型B.网状模型C.关系模型 D.以上 3 个都是解析：解析 关系模型较之格式化模型(网状模型和层次模型)有以下方面的优点，即数据结构比较简单、具有很高的数据独立性、可以直接处理多对多的联系以及有坚实的理论基础。6.在软件测试设计中，软件测试的主要目的是_。（分数：2.00）A.实验性运行软件B.证明软件正确C.找出软件中的全部错误

29、D.发现软件错误而执行程序 解析：解析 使用人工或自动手段来运行或测定某个系统的过程，其目的在于检验它是否满足规定的需求或是弄清预期结果与实际结果之间的差别。软件测试是为了发现错误而执行程序的过程。测试要以查找错误为中心，而不是为了演示软件的正确功能。7.在窗体上画一个命令按钮，名称为 Command1。然后编写如下程序：Private Sub Command1_ Click() for i = 1 To 4 for j= 0 To i Print Chr(65 +i) Next j Print Next iEnd Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.0

30、0）A.BB CCC DDDD EEEEE B.B CC DDD EEEEC.AA AA CCCC DDDDDD.A BB CCC DDDD解析：解析 要记住“Chr(65)“A”，“Chr(97)“a”。变量 i 表示输出行数，变量 j 表示输出个数。空打印 Print 操作是换行。8.从窗体 form1 生成到该窗体显示出来，最后发生的事件是_。（分数：2.00）A.ResizeB.LoadC.ActiveD.Paint 解析：解析 窗体从加载到显示时，将会发生一系列的事件，依次是：Intialize、Load、Activate、 Resize、Paint。9.开发软件所需要的高成本和产品

31、的低质量之间有着尖锐的矛盾，这种现象称作_。（分数：2.00）A.软件投机B.软件危机 C.软件工程D.软件产生解析：解析 软件工程概念的出现源自软件危机。所谓软件危机是泛指在计算机软件的开发和维护过程中所遇到的一系列严重问题。总之，可以将软件危机归结为成本、质量、生产率等问题。10.在下图中，要在窗体的标签 Label1 上显示“二级 VB 等级考试”字样，标签属性应设置为_。 （分数：2.00）A.Label1. Caption=“二级 VB 等级考试” B.Label1. Visible=“二级 VB 等级考试”C.Label1. Name=“二级 VB 等级考试”D.Label1. S

32、how=“二级 VB 等级考试”解析：解析 设置标签 Label1 的属性值用“Label1.Caption=“二级 VB 等级考试”。11.已知通用对话框名为 Cdlg，则执行下列的_语句，将弹出“打开文件”对话框。（分数：2.00）A.Cdl Action=1 B.Cdl Action= 2C.Cdl Action=4D.Cdl Action=3解析：解析 为了弹出某个对话框，除使用通用对话框的方法外，还可以通过给通用对话框的 Action属性赋值来实现，给 Action 属性赋不同的值将弹出不同的对话框。若给 Action 属性赋值为 1，运行时将弹出“打开文件”对话框。12.关系表中的

33、每一横行称为一个_。（分数：2.00）A.元组 B.字段C.属性D.码解析：解析 关系表中，每一行称为一个元组，对应表中的一条记录；每一列称为表中的一个属性，对应表中的个字段；在二维表中凡能惟一标识元组的最小属性集称为该表的键或码。13.一些重要的程序语言(如 C 语言和 Pascal 语言)允许过程的递归调用。而实现递归调用中的存储分配通常用 _。（分数：2.00）A.栈 B.堆C.数组D.链表解析：解析 一些较流行的程序语言允许过程的递归调用。递归调用就是过程调用本身。递归实现的是：当过程每一次执行后，都能返回到最近一次调用它的过程中。这样各调用点之间形成一种后进先出关系，而栈结构正适合来

34、存储这些调用点。14.以下关于菜单的叙述中，错误的是_。（分数：2.00）A.除了 Click 事件之外，菜单项不可以响应其他事件B.每个菜单项都是一个控件，与其他控件一样，有属性和事件C.菜单项的索引项必须从 1 开始 D.菜单的索引号可以不连续解析：解析 菜单中的菜单项可以是命令、选项、分割条或子菜单标题，每个菜单项都是一个控件，与其他控件一样都有自己的属性和事件，属性如 Name、Caption 等，每个菜单项只能响应一个事件，即Click 事件：菜单项的索引可以不连续，并没有限制必须从 1 开始。15.以下不属于对象的基本特点的是 _。（分数：2.00）A.分类性B.多态性C.继承性

35、D.封装性解析：解析 对象有一些基本特点，即标识惟一性、分类性、多态性、封装性和模块独立性。16.可以用作其他控件容器的控件有_。（分数：2.00）A.窗体、列表框、图像B.窗体、文本框、框架C.窗体、框架、图片框 D.窗体、标签、图片框解析：解析 列表框、文本框和标答上不能放置其他控件。17.在一个窗体上添加命令按钮控件，名为 Command1，事件过程如下，则该过程的执行结果为_。Option Base 1Private Sub Command1_ Click() Dim a(5)As Integer Dim k As Integer Dim Total As Integer a (1)=

36、 2 a (2)= 5 a (3)= 4 a (4)= 10 a (5)= 6 for k =1 To 5 Total = Total +a(k) Next k Print TotalEnd Sub（分数：2.00）A.10B.15C.27 D.35解析：解析 本题的难点是循环计算数组之和。计算结果为“2+5+4+10+6=27”。18.已知“a=10,r=6,x=7,b=True”，表达式“a=2*3.14159*r And x5 Or Not b”的值为_。（分数：2.00）A.False B.TrueC.1D.0解析：解析 运算符的运算顺序是先算算术运算符，再算关系运算符最后算逻辑运算符

37、，逻辑运算符的优先顺序是 Not、And、Or，所以此题先算“2*3.14159*r”，它的值接近 38，再算“a=2*3.14159 *r”和“x 5”，分别是 False 和 True，再算“Not b”，值为 False，再算 And 运算符，即 False And True 结果为 False，最后算 Or 运算符，False Or False 结果为 False。19.若某二叉树的前序遍历访问顺序是 abdgcefh，中序遍历访问顺序是 dgbaechf，则其后序遍历的结点访问顺序是_。（分数：2.00）A.bdgcefhaB.gdbecfhaC.bdgaechfD.8dbehfca

38、 解析：解析 前序遍历的第一个结点 a 为树的根结点；中序遍历中 a 的左边的结点为 a 的左子树， a 右边的结点为 a 的右子树；再分别对 a 的左右子树进行上述两步处理，直到每个结点都找到正确的位置。20.设在工程中有一个标准模块，其中定义了如下记录类型：Type Books Name As String *10 TelNum As String*20 End Type 在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_ Click时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是_。（分数：2.00）A.Priva

39、te Sub Command1_ Click() Dim x As Books Open “C：/Perso txt“ for Output As #1 Name=InputBox(“输入姓名”) TelNum=InPutBox(“输入电话号码”) Write #1，Name，TelNum Close #1 End Sub B.Private Sub Command1_ Click() Dim x As Books Open “c：/Perso txt“ for Input As #1 Name=InputBox(“输入姓名”) TelNum=InputBox(“输入电话号码”) Print

40、#1， Name， TelNum Close #1End SubC.Private Sub Command1_ Click() Dim x As Books Open “c：/Perso txt“ for Output As #1 Name=InputBox(“输入姓名”) TelNum= InputBox(“输入电话号码”) Write #1，x Close #1End SubD.Private Sub Command1_ Click() Dim x As Books Open “c：/Perso txt“ for Input As #1 Name= InputBox(“输入姓名”) Tel

41、Num=InputBox(“输入电话号码”) Print #1，Name，TeINum Close #1End Sub解析：解析 本题的难点是顺序文件写数据的方式和自定义类型的使用。顺序文件写数据的格式为：“Open 文件名 for Output AS #文件号”，在执行写操作时，文件 c:/ Person. txt 中原来内容可能被覆盖。获取自定义类型的成员要用“.”符号进行操作，例如 x.Name 和 x.TelNum。21.下列程序的运行结果是 _。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+

42、a Next i Print a, bEnd Sub（分数：2.00）A.6 6B.5 8C.13 21 D.34 55解析：解析 本题的难点是循环中的数值迭代计算。变量 a 和 b 的计算过程分别为：a=1、2、 5、13，b=1、3、8、21。22.如下图所示，只执行下列程序后，有 Text1.Text=Text1，文本框不能出现“*”的程序是_。 （分数：2.00）A.Private Sub form_ Load() Text1. Text=“*“End SubB.Private Sub form_ Load() Text1. PasswordChar=“*”End SubC.Priva

43、te Sub form_ Load() Text1. Visible=“*“ End Sub D.Private Sub form Load() Text1. Text= String(5，“*“)End Sub解析：解析 本题中，“Text1. PasswordChar=“*”是设置文本框的命令属性，将“Text1”转换成“*”。 “Text1. Visible“*”是错的。23.在窗体上有一个名称为 List1 列表框和一个名称为 Command1 的按钮，List1 的 MultiSelect 属性设置为 2。当单击 Command1 按钮时，将会把所有选中的选项全部删除。下列程序缺少的

44、一句是_。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if _ = True then List1. RemoveItem i End if Next iEnd Sub（分数：2.00）A.List1.Select( B.List1.Sort(C.List1.List(D.Ltst1.Select(List1.Listinde解析：解析 列表框有一个数组属性 Select，它的每一个元素用来记下相应下标的选项是否被选中，如果相应下标的选项被选中，该元素的值为 True，否则为 False。要删除

45、列表框中被选中的选项，可一一判断列表框的 Select 数组属性中的每一个元素值，如果是 True，则把与它下标一致的选项删除。24.窗体上有三个文本框 Text1、Text2 和 Text3 以及一个命令按钮 Command1，设文本框 Text1 中内容为 12，文本框 Text2 中内容为 34。下面程序的执行结果为_。Private Sub Command1_ Cilick() Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text) Print val(Text3,Text)End Sub（分数：2.00）A.12B.34C.46 D.12

46、34解析：解析 Val()返回包含于字符申的数字；Str0 是将数字转成字符串。数字字符串加数字的结果是：字符串自动转成数字后，再加上数字。计算过程为“12+34=46”。25.下列程序的运行结果为_。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd Sub（分数：2.00）A.100B.500C.2500 D.5000解析：解析 单循环次数“r=int(终值-初值+步长)/步长)”。计算结果是将 1100 内的

47、奇数相加。26.ScrollBars 属性用来设置文本框是否含有滚动条，要设置该属性，_属性的值必须设置为True。（分数：2.00）A.LockedB.HideselectionC.Multiline D.Enabled解析：解析 只有 Multiline 属性为真时，ScrollBars 属性才有意义。27.数据库系统的核心是_。（分数：2.00）A.数据库B.数据库管理系统 C.模拟模型D.软件工程解析：解析 数据库管理系统(Database Management System，简称 DBMS)是数据库的机构，它是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、数据控制及保护和数据服务等，数据库管理系统是数据库系统的核心。28.下列选项中，合法的变量名是_。（分数：2.00）A.PrintB.Print#1C.Print1 D.9Print1解析：解析 变量的命名规则为，变量名必须以字母开头；不能在变量名中出现句点“.”、空格或者嵌入下列字符“!，#，