【计算机类职业资格】计算机二级(VB)52及答案解析.doc

1、计算机二级(VB)52 及答案解析(总分：4230.00，做题时间：90 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：60，分数：4200.00)1.某人创建了 1 个工程,其中的窗体名称为 Form1；之后又添加了 1 个名为 Fonn2 的窗体,并希望程序执行时先显示 Fom2.窗体,那么他需要做的工作是【 】（分数：70.00）A.在工程属性对话框中把“启动对象“设置为 Form2B.在 Form1 的 Load 事件过程中加入语句 Load Form2C.在 Form2 的 Load 事件过程中加入语句 Form2.ShowD.把 Form2 的 Tab Inde

2、x 属性设置为 l,把 Form1 的 Tab Index 属性设置为 22.当复选框被选中时，复选框的 Value 属性的值为（ ）。（分数：70.00）A.1B.2C.3D.43.单击窗体时，下列程序的执行结果是( )。 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop yStr=tempStr End Sub

3、Private Sub Form_Click( ) Dim s1 As String，s2 As String S1=“abcdef“ Invert S1，S2 Print S2 End Sub （分数：70.00）A.abcdefB.afbecdC.fedcbaD.defabc4.下列程序的运行结果为( )。 Dim a(-1 To 6) For i=LBound(a，1)To UBound(a，1) a(i) = i Next i Print a (LBound(a，1)；a(UBound(a，1) （分数：70.00）A.选择查询B.删除查询C.更新查询D.追加查询5.下列四组控件属性中

4、，属性值的类型不相同的一组是（ ）。（分数：70.00）A.Label 控件的 Enabled 属性与 TextBox 控件的 Enabled 属性B.OptionButton 控件的 Value 属性与 CheckBox 控件的 Value 属性C.Command 控件的 Default 属性与 Command 控件的 Cancel 属性D.Command 控件的 Visible 属性与 Form 控件的 Visible 属性6.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c = 1234 c1 = T

5、rim(Str(c) For i = 1 To 4 Print_ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为（ ）。 （分数：70.00）A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)7.编写如下事件过程： Private Sub Form_MouseDown(Button AS Integer，Shift AS Integer，_ X As Single，Y As Single) If Shift=6 And Button=2 Then Print

6、，“PC“ End If End Sub 程序运行后，为了在窗体上输出“PC”，应执行的操作为( )。 （分数：70.00）A.主索引B.候选索引C.惟一索引D.普通索引8.下列程序段的执行结果为( )。 a=95 If a 60 Then degree=1 If a 70 Then degree=2 If a 80 Then degree=3 If a 90 Then degree=4 Print“degree=“；degree （分数：70.00）A.degree=1B.degree=2C.degree=3D.degree=49.变量 L 的值为-8，则-L2 的值为（ ）。（分数：70.

7、00）A.64B.-64C.16D.-1610.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x 2) Else y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。 （分数：70.00）A.-5B.25C.1D.-111.对下列程序段，说法正确的是（ ）。 Text1Top=2000 Text1Left=800 （分数：70.00）A.File 类以一种系统无关的方式表示一个文件对象

8、的属性B.在 Java 语言中，目录不是文件，所以目录作为一种特有的类处理C.File 类是一个重要的非流类D.流类关心的是文件的内容，而 File 类关心的是文件在磁盘上的存储12.设有如下程序： Private Sub Command1_Click() Dim c As Integer, d As Integer c = 4 d = InputBox(“请输入一个整数“) Do While d 0 If d c Then c = c + 1 End If d = InputBox(“请输入一个整数“) Loop Print c + d End Sub 程序运行后，单击命令按钮，如果在输入对

9、话框中依次输入1、2、3、4、5、6、7、8、 9、0，则输出结果是_。 （分数：70.00）A.12B.11C.10D.913.以下能在窗体 Form1 的标题栏中显示“VisualBasic 窗体”的语句是（ ）。 （分数：70.00）A.Form1Name=“VisualBasic 窗体”B.Form1Title“VisualBasic 窗体”C.Form1Caption“VisualBasic 窗体”D.Form1Text“VisualBasic 窗体”14.单击命令按钮，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dim x As Inte

10、ger，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub （分数：70.00）A.32 42B.2 32C.2 3D.12 315.把窗体的 KeyPreview 属性设置为 True，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyA

11、scii) KeyAscii = Asc(UCase(ch) Print Chr(KeyAscii + 2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是_。 （分数：70.00）A.AB.BC.CD.D16.如果一个变量未经定义就直接使用，则该变量的默认类型为（ ）。（分数：70.00）A.VariantB.ByteC.BooleanD.Integer17.新建一个列表框，要实现对列表项可以复选，应设置的属性是（ ）。（分数：70.00）A.内联函数在运行时是将该函数的目标代码插入每个调用该函数的地方B.内联函数在编译时是将该函数的目标代码插入每个调用该函数的地方C

12、.类的内联函数必须在类体内定义D.类的内联函数必须在类体外通过加关键字 inline 定义18.1 个三维数组可以存放 1 个矩阵。在程序开始有语句 Option Base o,则下面定义的数中正好可以存放1 个 4x3 矩阵(即只有 12 个元素)的是【 】（分数：70.00）A.Dim a(-2 To 0,2)As IntegerB.Dim a(3,2)As IntegerC.Dim a(4,3)As IntegerD.Dim a(-1 To-4,-1 To-3)As Integer19.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 C

13、ommand1 的命令按钮。窗体 Form1 的程序代码如下： Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2，a) End Sub Private Sub g(f As Form，x As Integer) y=IIf(x10，000，-100) fShow fCaption=y End Sub 运行以上程序，正确的结果是（ ）。 （分数：70.00）A.Form1 的 Capdon 属性值为 100B.Form2 的 Caption 属性值为-100C.Form1 的 Caption 属性值为-100D.Fo

14、rm2 的 Capdon 属性值为 10020.设有如下过程： Sub ff(x，y，z，) x=y+z End Sub 以下所有参数的虚实结合都是传址方式的调用语句是（ ）。 （分数：70.00）A.Call ff(5，7，z)B.Call ff(x，y，z)C.Call ff(3+x，5+y，z)D.Call ff(x+y，x-y，z)21.下列程序段，在运行时最早输出的内容是（ ）。 a=2 C=1 AAA： C=C + a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕。“ End If （分数：70.00）A.3B.7C.9D

15、.622.根据变量的作用域，可以将变量分为 3 类，分别为（ ）。（分数：70.00）A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量23.有如下程序： Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter 0 Then Return 0 Else Return 1 End If End Function40.在窗体上画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，

16、并编写如 下事件过程：Private Sub Commandl_Click() CommonDialogl，Flags=vbOFNHideReadOnly CommontDialoglFilter=“All Files(*)|*|Text Files (*.*)|*txt|“_ s End Sub （分数：1.50）填空项 1:_填空项 1:_填空项 1:_75.以下过程的作用是将 26 个小写字母逆序打印出来，请补充完整。 Sub Inverse1 For i=122 To 2 Print 3 ； Next i End Sub （分数：1.50）填空项 1:_76.在窗体上画一个文本框和一个

17、图片框，然后编写如下两个事件过程： Private Sub Form_Click1 Text1.Text = “VB 程序设计“ End Sub Private Sub Text1_Change2 Picture1.Print “VB Programming“ End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 3，而在图片框中显示 的内容是 4。 （分数：1.50）填空项 1:_77.关系式 x-5 或 x5 所对应的布尔表达式是 1。（分数：1.50）填空项 1:_78.下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程

18、序不完整，请补充完整。 Sub PR1 Randomize Dim a For j=1 To 10 a(i)=Int( 2 ) If 3Then k=k+1 Print a(j) Next j Print Print k/10 End Sub （分数：1.50）填空项 1:_79.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运 行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未 在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1 中输入的是 abDfdb，则单击 Command1 按钮

19、后 Text1 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click1 Dim str As String, s As String, c As String str = UCase(Text1) s = “ c = “Z“ While c = “A“ If InStr(str, C）= 0 Then s = 2 End If c = Chr$(Asc( C） 3 ) Wend If s 0 If d c Then c = c + 1 End If d = InputBox(“请输入一个整数“) Loop Print c

20、 + d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9、0，则输出结果是_。 （分数：70.00）A.12B.11C.10D.9 解析：Do While 语句是条件为 True 时，执行循环体。本题中当 dc 时，执行 c = c + 1，即在输入对话框中 输入 5、6、7、8、9 时执行该语句，也就是该语句被执行了 5 次，故 c=4+1*5=9。而当在输入对话框中输入 0 时，循环结束，此时 d=0。所以最后输出结果为 9。13.以下能在窗体 Form1 的标题栏中显示“VisualBasic 窗体”的语句是（ ）。 （分数：70

21、.00）A.Form1Name=“VisualBasic 窗体”B.Form1Title“VisualBasic 窗体”C.Form1Caption“VisualBasic 窗体” D.Form1Text“VisualBasic 窗体”解析：14.单击命令按钮，下列程序的执行结果为( )。 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer)

22、 n=n Mod 10+1 m=m Mood 10+1 End Sub （分数：70.00）A.32 42 B.2 32C.2 3D.12 3解析： 在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程是，它将实参的地址传给形参，因此在被调用的 过程中，对形的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程是，当调用一个过程时，系统将实参的值复制给形参并断

23、开了联系，被调用过程中的操作时在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题 中被调过程 PCS 中有两个形参，两者均为传值方式。主调过程分别把实参 x 和 y 传递给 PCS，所以当过程调用结束后，实参 x 和 y 的值都没有改变，最后输出的值应为 32 42。 15.把窗体的 KeyPreview 属性设置为 True，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii)

24、KeyAscii = Asc(UCase(ch) Print Chr(KeyAscii + 2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是_。 （分数：70.00）A.AB.BC.C D.D解析：当把窗体的 KeyPreview 属性设置为 True 时，按键盘上的键时，就触发窗体的 KeyPress 事件。如果 键盘上按的是“A”，则 KeyAscii=97，即小写的“a”，把该字母转化为大写以后，再对 Ascii 码加 2，则为 大写的“C”。16.如果一个变量未经定义就直接使用，则该变量的默认类型为（ ）。（分数：70.00）A.Variant B.Byte

25、C.BooleanD.Integer解析：在 Visual Basic 中，系统提供了多种数据类型，有字符串类型、数值型、货币型、布尔型，日期型等，此外还有一种变体类型，Variant 是一种特殊的数据类型， Variant 变量中可以存放任何类型的数据，如数值、文本字符串、日期和时间等，向 Variant 变量赋值时不必进行任何转换，系统将自动进行必要的转换。如果变量未经定义就直接使用，则该变量为 Variant 类型。17.新建一个列表框，要实现对列表项可以复选，应设置的属性是（ ）。（分数：70.00）A.内联函数在运行时是将该函数的目标代码插入每个调用该函数的地方B.内联函数在编译时是

26、将该函数的目标代码插入每个调用该函数的地方 C.类的内联函数必须在类体内定义D.类的内联函数必须在类体外通过加关键字 inline 定义解析：Visible 是用来设置对象的可见性的，有两种值：True 和 False，所以选项 C)表述正确；默认情况下 Visible 的值中是 True，所以选项 A)没有错误；如果将对象的 Visible 值设为 False，窗体和控件在设计阶段仍可见，只有运行时才隐藏，所以选项 B)也是正确的；Enabled 的功能是使控件有效还是无效，默认值为 True，处于有效状态，运行时可用，如果设为 False，则处于禁止状态，运行时不可用，但可见，所以选项 D

27、)错误。18.1 个三维数组可以存放 1 个矩阵。在程序开始有语句 Option Base o,则下面定义的数中正好可以存放1 个 4x3 矩阵(即只有 12 个元素)的是【 】（分数：70.00）A.Dim a(-2 To 0,2)As IntegerB.Dim a(3,2)As Integer C.Dim a(4,3)As IntegerD.Dim a(-1 To-4,-1 To-3)As Integer解析：在 Visual Basic 中,一维数组格式为,数组名(下标上界),其中下标上界的类型为整型；二维数组格式为,数组名(第一维下标上界,第二维下标上界)；本题用语句“Option B

28、ase 0“定义了下标下界为 0,即二维数组应该有(第一维下标上界+1)行、(第二维下标上界+1)列,根据题意只有选项 B)定义的数组变量满足本题的要求。19.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下： Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2，a) End Sub Private Sub g(f As Form，x As Integer) y=IIf(x10，000，-100) fSh

29、ow fCaption=y End Sub 运行以上程序，正确的结果是（ ）。 （分数：70.00）A.Form1 的 Capdon 属性值为 100B.Form2 的 Caption 属性值为-100 C.Form1 的 Caption 属性值为-100D.Form2 的 Capdon 属性值为 100解析：20.设有如下过程： Sub ff(x，y，z，) x=y+z End Sub 以下所有参数的虚实结合都是传址方式的调用语句是（ ）。 （分数：70.00）A.Call ff(5，7，z)B.Call ff(x，y，z) C.Call ff(3+x，5+y，z)D.Call ff(x+y

30、，x-y，z)解析：题目中 Sub 过程的形式参数都没有特别指明是传址方式还是传值方式，隐含的是传址。实际调用时，还要根据实参的形式，才能确定是传值还是传址的数据传送方式。若实参为常量或表达式，则为传值的传递方式；若实参是变量名或数组名，则为传值的传递方式。21.下列程序段，在运行时最早输出的内容是（ ）。 a=2 C=1 AAA： C=C + a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕。“ End If （分数：70.00）A.3 B.7C.9D.6解析：在本题中使用了 If 语句与 GoTo 语句。当 c10 时，输出 c，

31、并继续运行；当大于 10 时，显示“10 以内的奇数显示完毕。”并结束程序。开始时，a=2，c=1，执行语句 c=c+a 后 c 为 3，小于 10，故输出 c 的值 3，所以本题的正确答案为选项 A)。22.根据变量的作用域，可以将变量分为 3 类，分别为（ ）。（分数：70.00）A.局部变量、模块变量和全局变量 B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量解析：变量的作用域指变量的作用范围，根据变量的定义位置和使用的变量定义语句的不同，变量可以分为 3 类，即局部变量、模 块变量和全局变量。局部变量是在过程(事件过程或通用过程)内定义的

32、变量，其作用域是它所在的过程，通常用来存放中间结果或用作临时变 量；模块变量包括窗体变量和标准模块变量，窗体变量可用于该窗体内的所有过程，使用前必须先声明，也就是说，窗体层变量不能默认声明 ；全局变量也称全程变量，其作用域最大，可在工程的每个模块、每个过程中使用，和模块级变量类似，全局变量也在标准模块的声明部分声 明，所不同的是全局变量必须用 Public 或 Global 语句声明，不能用 Dim 语句声明，更不能用 Private 声明；全局变量只能在标准模块中声明，不 能在过程或窗体模块中声明。23.有如下程序： Private Sub Form_Click() Dim Check, C

33、ounter Check = True Counter = 0 Do Do While Counter =4= =b=4 和 b36.下列叙述中正确的是【 】（分数：70.00）A.软件测试的主要目的是发现程序中的错误 B.软件测试的主要目的是确定程序中错误的位置C.为了提高软件测试的效率,最好由程序编制者自己来完成软件测试的工作D.软件测试是证明软件没有错误解析：软件测试是为了发现错误而执行程序的过程,且为了达到好的测试效果,应该由独立的第三方来构造测试,程序员应尽量避免检查自己的程序。37.下列说法中，不正确的是（ ）。（分数：70.00）A.选择查询 B.删除查询C.更新查询D.追加查询

34、解析：DBS 由硬件系统、数据库集合、数据库管理系统及相关软件、数据库管理员、用户组成。38.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写 如下事件过程 Private Sub Form_Load() List1.AddItem “Item1“ List1.AddItem “Item2“ List1.AddItem “Item3“ End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = “AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。 （分数：70.

35、00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添加到列表框的最后（即“Item3”的后面） C.把列表框中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）解析：List 属性返回或设置控件的列表部分的项目。对于 ListBox 控件，List 属性是可读写的。由于 List1 中项目默认的索引值是 0 到 ListCount-1，现在对 ListCount 这个项目赋值，就是在 List1 的最后加入一条新 记录，所以本题答案是 B。39.函数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否

36、则返回值为 0。以下能正 确实现上述功能的代码的是 _。 （分数：70.00）A.Function F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End FunctionB.Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function C.Function F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Functi

37、onD.Function F1(b As Integer) If b Mod 2 10 Then Exit For Next Textl.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是【 】 （分数：70.00）A.5B.4C.3 D.2解析：由于循环体中语句：“i=i+3“的存在,使得循环变量 i 的值不再仅仅由 FOR 循环语句来确定,而是由两者共同决定。前 3 次进入循环时循环变量 i 的值依次为 0、4、8,其中第 3 次执行完语句：“i=i+3“后,i的值为 11,执行到 IF 语句处将跳出循环。故 n 的值为 3。42.有如下事件过程，当同时

38、按下转换键 Shift 和功能键 F5 时其最后输出的信息是（ ）。 Const ShiftKey=1 Const CtrlKey=2 Const Key_F5=&H74 Const Key_F6=&H75 Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode=Key_F5 And Shift=ShiftKey Then Print“Press Shift+F5“ ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then Print“Press Ctrl+F6“ End

39、 If End Sub （分数：70.00）A.J2EE B.J2MEC.J2SED.J2DE解析：我们需要知道 J2EE 是面向大型企业级用容器管理专用构件的应用平台，以 J2SE 为基础，支持EJB，并且它有强大的服务功能。 43.单击一次命令按钮后，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim m As Integer，I As Integer，x(10) As Integer For I=0 To 4：x(I)=I+1：Next I For I=1 TO 2：Call Prioc(x)：Next I For I=0 TO 3：Print

40、 x(I)；：Next I End Sub Private Sub Prioc(a()As Integer) Static I As Integer Do a(I)=a(I)+a(I+1) I=I+1 Loop While I2 End Sub （分数：70.00）A.privateB.无修饰符 C.publicD.protected解析：传递查询的定义。传递查询和联合查询、数据定义查询和子查询，都包含于 SQL 查询中。44.下列过程定义语句中，形参个数为不确定数量的过程是（ ）。（分数：70.00）A.Private Sub Pro3(x As Double，y As Single)B.P

41、rivate Sub Pro3(Arr(3)，Option x，Option y)C.Private Sub Pro3(ByRef x，ByVal y，Arr()D.Private Sub Pro3(ParamArray Arr() 解析：本题考核可选参数、可变参数的定义方法。 在虚参中，As 关键字用于说明变量或数组的类型；Option 关键字用于说明虚参是可选的 ByRef 关键字用于说明传址的数据传送方式；ByVal 关键字用于说明传值的数据传送方式；ParamArray 关键字用于说明参数的个数是不确定的，即过程可以接受任意个数的参数。45.下列说法正确的是（ ）。（分数：70.00）

42、A.在 Visual Basic 中的对话框分为两种类型：预定义对话框和自定义对话框B.自定义对话框由用户根据自己需要定义的 C.预定义对话框是用户在设置程序代码后定义的D.MssgBox 函数是用户的自定义对话框的函数解析：在 Visual Basic 中，对话框分为 3 种类型：即预定义对话框、自定义对话 框和通用对话框，所以选项 A)不正确；预定义对话框也称预制对话框，是由系统提供的， Vusual Basic 系境提供了两种预定义对话框：即输入框和信息框(或消息框)，前者用 In- putBox 函数建立，后者用 MagBox 函数建立，所以选项 C)和选项 D)不正确；自定义对话框

43、也称定制对话框，这种对话框由用户根据自已的需要进行定义，输入框和信息框尽管很 容易建立，但在应用上有一定的限制，所以选项 B)是正确的；通用对话框是一种控件用 追种控件可以设计较为复杂的对话框 46.有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t/y y=t Mod y End Sub 程序运行后，单击命令按钮，a 和 b 的值分别为( )。 （分数：70.00）A.Di

44、m pict3,4As IntegerB.Dim pict(3，4)As Integer C.Dim pict34As IntegerD.Dim pict(3：4)As Integer解析：在默认情况下无论是一维还是二维或更多维的数组其缺省下标都从 0 开始，但有时为了方便，用户可以自定义数组的上下界 ，那就得用关键字 To 来设置。例如：d(1 To 6)，其含义就是一个名为 d，上界为 6，下界为 1 的数组。47.某二叉树中有 n 个度为 2 的结点,则该二叉树中的叶子结点数为【 】（分数：70.00）A.n+l B.n-1C.2nD.n2解析：对于任何一棵二叉树 T,如果其终端结点(叶

45、子)数为 n1,度为 2 的结点数为 n2,则 n1=n2+1。所以该二叉树的叶子结点数等于 n+1。48.在窗体上有个命令按钮，然后编写如下事件过程： m=InputBox(“enter the first integer“) n=InputBox(“enter the second integer“) Print n+m 程序运行后，单击命令按钮，先后在两个输入框中分别输入“1”和“5”，则输出结果为( )。 （分数：70.00）A.30B.31 C.32D.33解析：该题是一个 for 循环嵌套语句，第一层 for 循环循环 2 次，第二层循环 3 次，但当 j 等于 O 和 1 时，将

46、执行 continue 语句，不执行 x+运算，所以每次执行完内循环后，x 的增量为 1。最后一个 x+运算将每次累加起来就是 x 的值。49.数据库设计的根本目标是要解决_。 （分数：70.00）A.数据共享问题 B.数据安全问题C.大量数据存储问题D.简化数据维护解析：由于数据的集成性使得数据可为多个应用所共享，特别是在网络发达的今天，数据库与网络的结合 扩大了数据关系的应用范围。数据的共享本身又可极大地减少数据冗余性，不仅减少了不必要的存储空间，更为重要的是可以避免数据的不一致性。因此，数据库设计的根本目标是要解决数据共享问题。50.当直线或形状的 BorderStyle 属性设置为 1

47、 时，控件是（ ）。（分数：70.00）A.虚线B.点线C.不可见D.实线 解析：在 Visual Basic 中，BorderStyle 属性用来确定直线或形状的边界线线型， 可以取 7 种值： 0 - Transparent：表示透明； 1 - Solid：表示实线； 2 - Dash：表示虚线； 3 - Dot：表示点线； 4 - Dash - Dot：表示点划线； 5 - Dash - Dot-Dot：表示双点划线； 6 - Inside Solid：内实线； 51.在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1

48、_Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 2=0 and X= “A“ If InStr(str, C）= 0 Then s = 2 End If c = Chr$(Asc( C） 3 ) Wend If s “ Then Text1 = s End If End Sub （分数：1.50）填空项 1:_ （正确答案：s+c 或 s & c , -1）解析：题目要求把输入的字符串中没有的字符显示出来，InStr(str, c) = 0 就是指字符串中没有该字符，就要 把该字符加入到变量 s 中，即 s=s+c（或 s=s & c）；题目是从“Z”“A”循环查找的，找完一个，就找 下一个，而从“Z”“A”字符的 ASCII 码是逐渐减小的，所以 c = Chr$(Asc(c)-1)。80.要使