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

1、二级 VISUAL+BASIC 笔试-329 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Crick()x=0n=InputBox(“)For i=1 To nFor j=1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是( )。（分数：2.00）A.3B.4C.5D.62.单击窗体时，下列程序段的执行结果为( )。Private Sub

2、 Form_Crick()Line(200,200)-(400,400)Print“+“Print“*“End Sub（分数：2.00）A.在窗体上画一斜线，从斜线终点处开始打印两行符号B.在窗体上画一斜线，从斜线起点处开始打印两行符号C.在窗体上画一斜线，从窗体左上角开始打印两行符号D.从窗体左上角开始打印两行符号，从符号结束处开始画一斜线3.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是( )。（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1C.命令按钮的

3、大小都相同D.命令按钮共享相同的事件过程4.设 s=“中华人民共和国“，表达式 Left(S,1)+Right(S,1)+Mid(S,3,2)的值为( )。（分数：2.00）A.“中华民国“B.“中国人民“C.“中共人民“D.“人民共和“5.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是( )。（分数：2.00）A.Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii65 Or KeyAscii90 ThenMsgBox“请输入大写字母“KeyAscii=0End IfE

4、nd SubB.Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode65 Or KeyCode90 ThenMsgBox“请输入大写字母“KeyCode=0End IfEnd SubC.Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Asc(Text1.Text)65 Or Asc(Text1.Text)90 ThenMsgBox“请输入大写字母“End IfEnd Sub

5、D.Private Sub Text1_Change()If Asc(Text1.Text)64 And Asc(Text1.Text)91 ThenMsgBox“请输入大写字母“End IfEnd Sub6.复选框的 Value 属性为 0 时，表示( )。（分数：2.00）A.复选框未被选中B.复选框被选中C.复选框内有灰色的勾D.复选框操作有误7.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是( )。（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1C.命

6、令按钮的大小都相同D.命令按钮共享相同的事件过程8.下列程序的执行结果为( )。Private Sub Command1_Click()Dim s1 As String,s2 As Strings1=“abcdef“Call Invert(s1,s2)Print s2End SubPrivate Sub Invert(ByVal xstr As String,ystr As String)Dim tempstr As Stringi=Len(xstr)Do While i=1tempstr=tempstr+Mid(xstr,i,1)i=i-1Loopystr=tempstrEnd Sub（分数

7、：2.00）A.fedcbaB.abcdefC.afbecdD.defabc9.运行以下程序，输出结果是( )。For I=1 To 3clsPrint“I=“,I；Next（分数：2.00）A.123B.3C.I=1I=2I=3D.1=310.在窗体上绘制一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=“ABCD“For n=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在横线处应填入的内容为( )。（分数：2.00）A.Left(c,n)B.

8、Right(c,n)C.Mid(c,n,1)D.Mid(c,n,n)11.如果将文本框的 Locked 属性设置为 True，则以下说法( )是正确的。（分数：2.00）A.此时在属性窗口不可以修改文本框的 Text 属性值B.运行时用户不可以在界面上修改文本框中的内容C.在程序代码中不可以修改文本框的内容，如不可以使用语句 Text1.Text=“aaa”D.以上均不正确12.为了在列表框中使用 Ctrl 和 Shift 键进行多个列表项的选择，应将列表框的 Multi-select 属性设置为( )。（分数：2.00）A.0B.1C.2D.313.在窗体上画一个命令按钮，名称为 Comma

9、nd1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1。在 F1 中判断所输入的整数是否是奇数，如果是奇数，过程 F1 返回 1，否则返回 0。能够正确实现上述功能的代码是( )。（分数：2.00）A.Private Sub Command1_Click()x=InputBox(“请输入整数“)a=F1(Val(x)Print aEnd SubFunction F1(byRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd FuncfionB.Priv

10、ae Sub Command1_Click()x=InputBox(“请输入整数“)a=F1(Val(x)print aEnd SubFunction F1(byRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd FunctionC.Private Sub Command1_Click()x=InputBox(“请输入整数“)F1(Va(x)Print aEnd SubFunction F1(byRef b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd FuncfionD.Priv

11、ate Sub Command1_Click()x=InputBox(“请输入整数“)F1(Val(x)Print aEnd SubFunction F1(ByrRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function14.在窗体上画两个名称分别为 Text1，Text2 的文本框和一个名称为 Command1 命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer,n As Integerx=1n=0Do While x20x=x*3n=n

12、+1LoopText1.Text=str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。（分数：2.00）A.15 和 1B.27 和 3C.195 和 3D.600 和 415.以下关于函数过程的叙述中，正确的是( )。（分数：2.00）A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D.如果不指明函数过程参数的类型，则该参数没有数据类型16.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( )。（分数：2.

13、00）A.编码设计B.测试阶段C.运行阶段D.物理设计17.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是( )。（分数：2.00）A.Drive1_ChangeB.Drive1_ClickC.Dir1_ClickD.Dir1_Change18.在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1、Text1 和 Text2，然后编写如下程序：Dim S1 As StringS2 As StringPrivate Sub Form_Lo

14、ad0Text1.Text=“Text2.Text=“End SubPrivate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)S2=S2&Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)S1=S1 & Chr(KeyAscii)End SubPrivate Sub Command1_Click()Text1.Text=S2Text2.Text=S1S1=“S2=“End Sub程序运行后，在 Text1 中输入“abc”，然后单击命令按钮，在文本

15、框 Text1 和 Text2 中显示的内容分别为( )。（分数：2.00）A.abc 和 ABCB.abc 和 abcC.ABC 和 abcD.ABC 和 ABC19.下面的程序运行时，为了在窗体上输出“VB6.0”，应在窗体上执行的操作是( )。Private Sub Form_MouseDown(BuRon As Integer,shift As Integer,x As Single,Y As Single)If Button And 3=3 thenPrint“VB 6.0“End IfEnd Sub（分数：2.00）A.只能按下右键B.只能按下左键C.应同时按下左、右键D.按下左、

16、右键之一20.下列可以启动 Visual Basic 的方法是( )。（分数：2.00）A.打开“我的电脑”，找到存放 Visual Basic 所在系统文件的硬盘及文件夹，双击“VB6.exe”图标B.在 DOS 窗口中，键入 Visual Basic 的路径，执行 Visual Basic 可执行文件C.利用“开始”菜单中的“程序”命令可启动 Visual BasicD.A 和 C21.下面程序运行时，单击窗体后，窗体上显示的结果是( )。Private Sub Form_Click()Dim I As IntegerDim sum As Longsum=0For I=10 To 16If

17、 I Mod 3=0 OrI Mod 5=0 Thensum=sum+IEnd IfNext IPrint sumEnd Sub（分数：2.00）A.10B.12C.37D.2222.VB6.0 是( )应用程序的开发工具。（分数：2.00）A.8 位B.16 位C.32 位D.64 位23.设有数组声明语句：Option Base 1Dim A(2,-1 To 1)以上语句所定义的数组 A 为_维数组，共有_个元素，第一维下标从_到_，第二维下标从_到_。下列选项正确的是( )。（分数：2.00）A.1，2，6，2，-1，1B.6，2，1，2，-1，1C.2，6，1，2，-1，1D.2，1，

18、6，-1，1，224.以下能够正确计算 n!的程序是( )。（分数：2.00）A.Private Sub Command1_Click()n=5:x=1Dox=x*ii=i+1Loop While inPrint xEnd SubB.Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While inPrint xEnd SubC.Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i=nprint xEnd SubD.Private Sub Command1_C

19、lick()n=5:x=1:i=1Dox=x*ii=i+1Loop While inprint xEnd Sub25.下列各组变量声明正确的是( )。（分数：2.00）A.Dim abc as integer,num as singleB.Dim I%,N$as integerC.Dim a%,b%,c%,a$D.public dim n%26.以下叙述中错误的是( )。（分数：2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行D.窗体文件包含该窗体

20、及其控件的属性27.下列描述错误的是( )。（分数：2.00）A.ReDim 命令可以独立使用来声明数组变量B.ReDim 命令声明数组变量时，不可以使用变量来定义数组元素的个数C.ReDim 命令声明的数组变量是动态数组变量D.ReDim 命令声明的数组变量可以用 Erase 命令来删除28.使用语句 Dim A(1 To 10)As Integer 声明数组 A 之后，以下说法正确的是( )。（分数：2.00）A.A 数组中的所有元素值为 0B.A 数组中的所有元素值不确定C.A 数组中的所有元素值为 EmptyD.执行 EraseA 后，A 数组中的所有元素值为 Null29.要在命令按

21、钮控件上显示图像应( )。（分数：2.00）A.设置 Picture 属性B.实现不了C.先将 Type 设置为 1，然后再设置 Picture 属性D.以上都不对30.Visual Basic 程序中分隔各语句的字符是( )。（分数：2.00）A.B.:C./D._31.有如下程序：Option Base 1Pfivate Sub Form_Click()Dim arr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3=arr(i)/3 ThenSum=Sum+arr(i)End IfNextiprint

22、SumEnd Sub程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.25B.26C.27D.2832.以下能够正确退出循环的是( )。（分数：2.00）A.i=10Doi=i+1Loop Until i10B.i=1Doi=i+1Loop Until i=10C.i=10Doi=i+1Loop Until i0D.i=1Doi=i-3Loop Until i=033.在窗体上绘制一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function fun(ByVal m As Integer)If m Mod 2=0 Thenfun

23、=2Elsefun=1End IfEnd FunctionPrivate Sub Command1_Click()Dim i As Integer,s As Integers=0For i=1 To 5s=s+fun(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是( )。（分数：2.00）A.6B.7C.8D.934.设 a=3，b=5，则以下表达式值为真的是( )。（分数：2.00）A.a=b And b10B.(ab) Or (b0)C.(a0) Eqv (b0)D.(3+5a) And (b0)35.下列代码运行后输出结果是( )。Defstr C-F

24、Private Sub Command1_Click()C$=“123“D=“456“Print C+D$End Sub（分数：2.00）A.123456B.“123456“C.123+“456“D.显示出错信二、填空题(总题数：12，分数：30.00)36.Visual Basic 的对象是 1 和控件的总称。（分数：2.00）填空项 1:_37.如果要在单击命令按钮时执行一段代码，则应将这段代码写在 1 事件过程中。（分数：2.00）填空项 1:_38.逻辑运算时，参与运算的两个量都为 False，结果才会是 False 的逻辑运算是 1 运算。（分数：2.00）填空项 1:_39.默认情

25、况下，工具箱中只显示 1 控件。（分数：2.00）填空项 1:_40.表达式(7/3+1)*(18/-1)的值是 1。（分数：2.00）填空项 1:_41.Visual Basic 采用 1 驱动的编程机制，程序员只需要编写响应用户动作的程序，而不必考虑按精确次序执行的每个步骤。（分数：2.00）填空项 1:_42.要使一个文本框具有水平和垂直滚动条，应先将其 MultiLine 属性设置为 True，然后再将 ScrollBar属性设置为 1。（分数：2.00）填空项 1:_43.要使工具栏控件的某按钮呈按钮菜单的样式，可以在其属性页中设置其 1 选项为 5-tbrDropDown。（分数：

26、2.00）填空项 1:_以下程序的功能是：将一维数组 A 中的 100 个元素分别赋给二维数组 B 的每个元素并打印出来，要求把A(1)到 A(10)依次赋给 B(1,1)到 B(1,10)，把 A(11)到 A(20)依次赋给 B(2,1)到 B(2,10)，把 A(91)到 A(100)依次赋给 B(10,1)到 B(10,10)。请填空。Option Base 1Private Sub Form_Click()Dim i As Integer,j As IntegerDim A(1 To 100)As IntegerDim B(1 To 10,1 To 10)As IntegerFor

27、i=1 To 100A(i)=Int(Rnd*100)Next iFor i=1 To (9) For j=1 To 10B(i,j)= (10) Print B(i,j)；Next jPrintNext iEnd Sub（分数：4.00）填空项 1:_填空项 1:_44.为了使一个标签透明且没有边框，必须把它的 BorderStyle 属性设置为 1，并把 Backstyle 属性设置为 0。（分数：2.00）填空项 1:_以下程序用来产生 20 个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。Private Sub Command1_Clcik()RandomizeFor I

28、=1 To 20X=Int(Rnd* (12) )If X/2= (13) Then Print xNext IEnd Sub（分数：4.00）填空项 1:_填空项 1:_在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为 List1、Command1 和 Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如下图所示(选择“第三个项目”的情况)。下面是实现上述功能的程序，请填空。（分数：4.00）填空项

29、1:_填空项 1:_二级 VISUAL+BASIC 笔试-329 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Crick()x=0n=InputBox(“)For i=1 To nFor j=1 To ix=x+1Next jNext iPrint xEnd Sub程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是( )。（分数：2.00）A.3B.4C.5D.6 解析：2.单击窗体时，下列程序段的执行结果为(

30、)。Private Sub Form_Crick()Line(200,200)-(400,400)Print“+“Print“*“End Sub（分数：2.00）A.在窗体上画一斜线，从斜线终点处开始打印两行符号 B.在窗体上画一斜线，从斜线起点处开始打印两行符号C.在窗体上画一斜线，从窗体左上角开始打印两行符号D.从窗体左上角开始打印两行符号，从符号结束处开始画一斜线解析：3.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是( )。（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名

31、称 Command1 C.命令按钮的大小都相同D.命令按钮共享相同的事件过程解析：4.设 s=“中华人民共和国“，表达式 Left(S,1)+Right(S,1)+Mid(S,3,2)的值为( )。（分数：2.00）A.“中华民国“B.“中国人民“ C.“中共人民“D.“人民共和“解析：5.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是( )。（分数：2.00）A.Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii65 Or KeyAscii90 ThenMsgBox“

32、请输入大写字母“KeyAscii=0End IfEnd Sub B.Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)If KeyCode65 Or KeyCode90 ThenMsgBox“请输入大写字母“KeyCode=0End IfEnd SubC.Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Asc(Text1.Text)65 Or Asc(Text1.Text)90 ThenMs

33、gBox“请输入大写字母“End IfEnd SubD.Private Sub Text1_Change()If Asc(Text1.Text)64 And Asc(Text1.Text)91 ThenMsgBox“请输入大写字母“End IfEnd Sub解析：6.复选框的 Value 属性为 0 时，表示( )。（分数：2.00）A.复选框未被选中 B.复选框被选中C.复选框内有灰色的勾D.复选框操作有误解析：7.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是( )。（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B

34、.在代码中访问任意一个命令按钮只需使用名称 Command1 C.命令按钮的大小都相同D.命令按钮共享相同的事件过程解析：8.下列程序的执行结果为( )。Private Sub Command1_Click()Dim s1 As String,s2 As Strings1=“abcdef“Call Invert(s1,s2)Print s2End SubPrivate Sub Invert(ByVal xstr As String,ystr As String)Dim tempstr As Stringi=Len(xstr)Do While i=1tempstr=tempstr+Mid(xst

35、r,i,1)i=i-1Loopystr=tempstrEnd Sub（分数：2.00）A.fedcba B.abcdefC.afbecdD.defabc解析：9.运行以下程序，输出结果是( )。For I=1 To 3clsPrint“I=“,I；Next（分数：2.00）A.123B.3C.I=1I=2I=3D.1=3 解析：10.在窗体上绘制一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=“ABCD“For n=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCD

36、BCDABCD则在横线处应填入的内容为( )。（分数：2.00）A.Left(c,n)B.Right(c,n) C.Mid(c,n,1)D.Mid(c,n,n)解析：11.如果将文本框的 Locked 属性设置为 True，则以下说法( )是正确的。（分数：2.00）A.此时在属性窗口不可以修改文本框的 Text 属性值B.运行时用户不可以在界面上修改文本框中的内容 C.在程序代码中不可以修改文本框的内容，如不可以使用语句 Text1.Text=“aaa”D.以上均不正确解析：12.为了在列表框中使用 Ctrl 和 Shift 键进行多个列表项的选择，应将列表框的 Multi-select 属

37、性设置为( )。（分数：2.00）A.0B.1C.2 D.3解析：13.在窗体上画一个命令按钮，名称为 Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1。在 F1 中判断所输入的整数是否是奇数，如果是奇数，过程 F1 返回 1，否则返回 0。能够正确实现上述功能的代码是( )。（分数：2.00）A.Private Sub Command1_Click()x=InputBox(“请输入整数“)a=F1(Val(x)Print aEnd SubFunction F1(byRef b As Integer)If b

38、 Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd FuncfionB.Privae Sub Command1_Click()x=InputBox(“请输入整数“)a=F1(Val(x)print aEnd SubFunction F1(byRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd Function C.Private Sub Command1_Click()x=InputBox(“请输入整数“)F1(Va(x)Print aEnd SubFunction F1(byRef b As Int

39、eger)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd FuncfionD.Private Sub Command1_Click()x=InputBox(“请输入整数“)F1(Val(x)Print aEnd SubFunction F1(ByrRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function解析：14.在窗体上画两个名称分别为 Text1，Text2 的文本框和一个名称为 Command1 命令按钮，然后编写如下事件过程：Private Sub Command1_C

40、lick()Dim x As Integer,n As Integerx=1n=0Do While x20x=x*3n=n+1LoopText1.Text=str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。（分数：2.00）A.15 和 1B.27 和 3 C.195 和 3D.600 和 4解析：15.以下关于函数过程的叙述中，正确的是( )。（分数：2.00）A.函数过程形参的类型与函数返回值的类型没有关系 B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D

41、.如果不指明函数过程参数的类型，则该参数没有数据类型解析：16.数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( )。（分数：2.00）A.编码设计B.测试阶段C.运行阶段D.物理设计 解析：17.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是( )。（分数：2.00）A.Drive1_Change B.Drive1_ClickC.Dir1_ClickD.Dir1_Change解析：18.在窗体上画一个命令按钮和两个文本框，其名称分别为 Co

42、mmand1、Text1 和 Text2，然后编写如下程序：Dim S1 As StringS2 As StringPrivate Sub Form_Load0Text1.Text=“Text2.Text=“End SubPrivate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)S2=S2&Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)S1=S1 & Chr(KeyAscii)End SubPrivate Sub Command1_Click(

43、)Text1.Text=S2Text2.Text=S1S1=“S2=“End Sub程序运行后，在 Text1 中输入“abc”，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为( )。（分数：2.00）A.abc 和 ABCB.abc 和 abcC.ABC 和 abc D.ABC 和 ABC解析：19.下面的程序运行时，为了在窗体上输出“VB6.0”，应在窗体上执行的操作是( )。Private Sub Form_MouseDown(BuRon As Integer,shift As Integer,x As Single,Y As Single)If Button

44、 And 3=3 thenPrint“VB 6.0“End IfEnd Sub（分数：2.00）A.只能按下右键B.只能按下左键C.应同时按下左、右键D.按下左、右键之一 解析：20.下列可以启动 Visual Basic 的方法是( )。（分数：2.00）A.打开“我的电脑”，找到存放 Visual Basic 所在系统文件的硬盘及文件夹，双击“VB6.exe”图标B.在 DOS 窗口中，键入 Visual Basic 的路径，执行 Visual Basic 可执行文件C.利用“开始”菜单中的“程序”命令可启动 Visual BasicD.A 和 C 解析：21.下面程序运行时，单击窗体后，

45、窗体上显示的结果是( )。Private Sub Form_Click()Dim I As IntegerDim sum As Longsum=0For I=10 To 16If I Mod 3=0 OrI Mod 5=0 Thensum=sum+IEnd IfNext IPrint sumEnd Sub（分数：2.00）A.10B.12C.37 D.22解析：22.VB6.0 是( )应用程序的开发工具。（分数：2.00）A.8 位B.16 位C.32 位 D.64 位解析：23.设有数组声明语句：Option Base 1Dim A(2,-1 To 1)以上语句所定义的数组 A 为_维数组

46、，共有_个元素，第一维下标从_到_，第二维下标从_到_。下列选项正确的是( )。（分数：2.00）A.1，2，6，2，-1，1B.6，2，1，2，-1，1C.2，6，1，2，-1，1 D.2，1，6，-1，1，2解析：24.以下能够正确计算 n!的程序是( )。（分数：2.00）A.Private Sub Command1_Click()n=5:x=1Dox=x*ii=i+1Loop While inPrint xEnd SubB.Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While inPrint xEnd SubC.Pr

47、ivate Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While i=nprint xEnd Sub D.Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop While inprint xEnd Sub解析：25.下列各组变量声明正确的是( )。（分数：2.00）A.Dim abc as integer,num as single B.Dim I%,N$as integerC.Dim a%,b%,c%,a$D.public dim n%解析：26.以下叙述中错误的是( )。（分数：

48、2.00）A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行 D.窗体文件包含该窗体及其控件的属性解析：27.下列描述错误的是( )。（分数：2.00）A.ReDim 命令可以独立使用来声明数组变量B.ReDim 命令声明数组变量时，不可以使用变量来定义数组元素的个数 C.ReDim 命令声明的数组变量是动态数组变量D.ReDim 命令声明的数组变量可以用 Erase 命令来删除解析：28.使用语句 Dim A(1 To 10)As Integer 声明数组 A 之后，以下说法正确的是( )。（分数：2.00）A.A 数组中的所有元素值为 0 B.A 数组中的所有元素值不确定C.A 数组中的所有元素值为 EmptyD.执行 EraseA 后，A 数组中的所有元素值为 Null解析