全国计算机等级考试二级vb题库.pdf

《全国计算机等级考试二级vb题库.pdf》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级vb题库.pdf（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 1/361 52000.下列叙述中正确的是(C)(单)A.只有窗体才是 Visual Basic 中的对象 B.只有控件才是 Visual Basic 中的对象 C.窗体和控件都是 Visual Basic 中的对象 D.窗体和控件都不是 Visual Basic 中的对象 52001.下列可以激活属性窗口的操作是(D)(单)A.用鼠标双击窗体的任何部位 B.执行文件菜单中的属性窗口命令 C.执行编辑菜单中的属性窗口命令 D.按 F4 键 52002 下列能打开工具箱窗口的操作是(A)(单)A.执行视图菜单中的工具箱命令 B.按 Alt 键 C.单击属性窗口上的工具箱按钮 D.按 Ctrl

2、键 52003.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的 Name 属性，预先应执行的操作是(D)(单)A.单击窗体上有控件的地方 B.单击任一个控件 C.不执行任何操作 D.双击窗体的标题栏 52004.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)A.单击窗体的空白处 B.单击该控件的内部 C.双击该属性列表框 D.双击窗体 52005.确定一个控件在窗体上的位置的属性是(D)(单)A.Width 或 Height B.Top 和 Height C.Top 或 Width D.Top 和 Left 52006.确定一个窗体或控件的大小

3、的属性是(A)(单)A.Width 或 Height B.Top 和 Width C.Top 或 Left D.Top 和 Left 52007.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单)A.拖拉位于控件左上角 B.只能拖拉位于控件右下角 C.只能拖拉位于控件左下角 D.不能同时改变控件的高度和宽度 52008.面向对象的程序设计指满足(B)(单)A.虚拟化、结构化、动态化 B.封装性、继承性、多态性 C.对象的链接、动态链接、动态数据交换 D.ODBC、DDE、OLE 52009.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为(A)(

4、单)A.面向对象的程序设计 B.结构化程序设计 C.事件驱动的编程机制 D.程序设计 52010.VB 集成开发环境开发的应用程序不适宜的运行环境是(A)(单)A.WINDOS 32 B.WINDOWS 9X C.WINDOWS NT D.WINDOWS 2000 52011.VB6 共有三个版本，按功能从弱到强的顺序排列应是(C)(单)A.学习版、专业版和工程版 B.学习版、工程版和专业版 2/362 C.学习版、专业版和企业版 D.学习版、企业版和专业版 52012.VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单)A.设计状态 B.编写代码状态 C.运行状态 D.中

5、断状态 52013.不能打开代码窗口的操作是(B)(单)A.双击窗体设计器的任何地方 B.按下 F 键 C.单击工程窗口中的查看代码按钮 D.选择视图下拉菜单中的代码窗口 52014.在 VB 中，工程文件的扩展名是(B)(单)A.frm B.vbp C.bas D.frx 52015.在 VB 中，窗体文件的扩展名是(A)(单)A.frm B.vbp C.bas D.frx 52016.VB 集成开发环境可以(D)(单)A.编辑、调试、运行程序，但不能生成可执行程序 B.编辑、生成可执行程序、运行程序，但不能调试程序 C.编辑、调试、生成可执行程序，但不能运行程序 D.编辑、调试、运行程序，

6、也能生成可执行程序 52017.英文VISUAL的含义是(A)(单)A.可视化 B.集成 C.结构化 D.调试 52018.标准模块文件的扩展名是(C)(单)A.frm B.vbp C.bas D.vbg 52019.VB 集成开发环境中，在(C)中编写代码(单)A.状态栏 B.属性列表框 C.代码框 D.标题栏 52020.在面向对象的程序设计过程中，英文缩写OOP的含义是(C)(单)A.事件驱动的编程机制 B.结构化程序设计语言 C.面向对象的程序设计 D.可视化程序设计 52021.在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性

7、设置语句是(D)(单)A.Timer1.Interval=0.5 B.Timer1.Interval=5 C.Timer1.Interval=50 D.Timer1.Interval=500 52022.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As Integer Cls For t=1 To 2 y=y+x x=x+2 Next t Print x,y End Sub 程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是(A)(单)A.4 2 B.12 18 C.12 3

8、0 D.4 6 3/363 52023.以下关于多重窗体程序的叙述中，错误的是(A)(单)A.用 Hide 方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中，可以根据需要指定启动窗体 D.对于多重窗体程序中，单独保存每个窗体 52024.以下关于文件的叙述中，错误的是(B)(单)A.顺序文件中的记录一个接一个顺序存放 B.随机文件中记录的长度是不相同的 C.执行打开文件的命令后，自动生成一个文件指针 D.EOF 函数作用是判断文件的指针是否指向文件末尾 52025.以下叙述中错误的是(D)(单)A.事件过程是响应特定事件的一段程序

9、 B.不同的对象可以具有相同名称的方法 C.对象的方法是执行指定操作的过程 D.编程者可以自由更改代码框右上边的过程列表的事件名称 52026.以下合法的 Visual Basic 变量的名称是(A)(单)A.a3 B.Const C.9abc D.a#x!52027.当一个复选框被选中时，它的 Value 属性的值是(C)(单)A.3 B.2 C.1 D.0 52028.表达式 5 Mod 3+53 的值是(B)(单)A.0 B.3 C.4 D.6 52029.设 x=4,y=8,z=7,表达式：(xy)Or zx 的值是(C)(单)A.1 B.-1 C.TRUE D.FALSE 52030

10、.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a$=VisualBasic Print String(3,a$)End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单)A.VVV B.Vis C.sic D.11 52031.设有如下程序段：x=2 For c=1 To 4 Step 2 x=x+c Next c 运行以上程序后，x 的值是(A)(单)A.6 B.7 C.8 D.9 52032.以下叙述中错误的是(A)(单)A.在 KeyPress 事件过程中不能识别键盘键的按下与释放 B.

11、在 KeyPress 事件过程中不能识别回车键 C.在 KeyDown 和 KeyUp 事件过程中，从键盘输入的字母A和字母a对应的 KeyCode 视作相同的字母 D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的字符 52033.执行如下两条语句，窗体上显示的是(C)(单)A=9.8596 4/364 Print Format(a,000.00)A.0,009.86 B.9.86 C.009.86 D.0,009.86 52034.在窗体上画一个名称为 CommandDialog1 的通用对话框，一个名称为 Command1 的命令按

12、钮。然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.=CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle=VBTest CommonDialog1.Action=1 End Sub 对于这个程序，以下叙述中错误的是(D)(单)A.该对话框被设置为打开对话框 B.在该对话框中指定的文件名为空 C.该对话框的标题为 VBTest D.在该对话框中指定的默认文件类型

13、为文本文件(*.Txt)52035.设一个工程由两个窗体组成，其名称分别为 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,100,-100)f.Show f.Caption=y End Sub 运行以上程序，正确的结果是(B)(单)A.Form1 的 Caption 属性值为 10

14、0 B.Form2 的 Caption 属性值为-100 C.Form1 的 Caption 属性值为-100 D.Form2 的 Caption 属性值为 100 52036.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y)Print x,y End Sub Private Sub f1(ByRef x1 As Integer,y1 As Integer)x1=x1+2 y1=y1+2 End Sub

15、程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.10 5 B.12 5 C.10 7 D.12 7 52037.Option Base 1 5/365 Private Sub Command1_Click()Dim a(10)As Integer Dim n As Integer n=3 If n10 Then Call GetArray(a,n)End If End Sub Private Sub GetArray(b()As Integer,n As Integer)Dim c(10)As Integer j=0 For t=1 To n b(t)=Rnd*100 If b(

16、t)/2=b(t)2 Then j=j+1 c(j)=b(t)End If Next t Print j End Sub 以下叙述中错误的是(C)(单)A.数组 b 中的数范围为 0-100 B.c 数组下标的下界从 1 开始 C.GetArray 过程的参数 n 是按值传送的 D.语句 If b(t)/2=b(t)2 Then 是判断数组 b 中元素的值是否为整数 52038.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Option Base 1 Private Sub Command1_Click()Dim a a=Array(1,2,3,4,5)For c=

17、1 To Ubound(a)a(c)=a(c)+c-1 Next c Print a(3)End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)A.4 B.5 C.6 D.7 52039.阅读程序：Option Base 1 Private Sub Form_Click()Dim arr Dim Sum%Sum=0 arr=Array(1,3,5,7,9)For t=1 To 5 Sum=Sum+arr(t)Next t Print Sum End Sub 程序运行后，单击窗体，输入结果为(B)(单)A.5 B.9 C.25 D.15 6/366 52040.在窗体上画一

18、个名称为 File1 的文件列表框，并编写如下程序：Private Sub()x=Shell()End Sub 以下关于该程序的叙述中，错误的是(A)(单)A.x 没有实际作用，因此可以将该语句写为：Call Shell()B.双击文件列表框中的文件，将触发该事件过程 C.要执行的文件的名字通过指定 D.File1 中显示的是当前驱动器、当前目录下的文件 52041.在窗体上画一个名称为 Label1、标题为VisualBasic 考试的标签，两个名称分别为 Command1 和 Command2、标题分别为开始和停止的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Inter

19、val 属性设置为 500。编写如下程序：Private Sub Form_Load()Timer1.Enabled=False End Sub Private Sub Command1_Click()Timer1.Enabled=True End Sub Private Sub Timer1_Timer()If Label1.Left Form1.Width Then Label1.Left=Label1.Left+20 Else Label1.Left=0 End If End Sub 程序运行后，单击开始按钮，标签在窗体中移动。对于这个程序，以下叙述中错误的是(A)(单)A.标签的移动方

20、向为自右向左 B.单击停止按钮后再单击开始按钮，标签从停止的位置继续移动 C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动 D.标签按指定的时间时隔移动 52042.规范地说，VB 是一种(A)的开发工具(单)A.面向对象 B.面向用户 C.面向屏幕 D.面向窗体 52043.VB6 设计界面包含多个视窗，控制这些视窗显示或关闭的命令包含在(D)下拉菜单中(单)A.文件 B.工程 C.编辑 D.视图 52044 下面(D)操作不是激活或显示属性列表框的操作(单)A.按快捷键 F4 B.点击工具栏中的属性列表框按钮 C.选择视图下拉菜单的属性窗口项 D.双击窗体中的某一对象 52045.

21、Visual Basic 程序中分隔各语句的字符是(B)(单)A.B.:C.D._ 52046.假定窗体的名称(Name 属性)为 Form1，则把窗体的标题设置为VB Test的语句为(B)(单)A.Form1=VB Test B.Caption=VB Test C.Form1.Text=VB Test D.Form1.Name=VB Test 52047.下列不能打开代码窗口的操作是(D)(单)A.双击窗体上的某个控件双击 B.双击窗体 7/367 C.按 F7 键 D.单击窗体或控件 52048.Visual Basic 程序中语句行的续行符是(D)(单)A.B.:C.D._ 52049

22、.Visual Basic 程序中的注释所使用的字符是(A)(单)A.B.:C.D._ 52050.下列说法中正确的是：为了保存一个 Visual Basic 应用程序，应当(D)(单)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件 52051.为了使窗体的大小可以改变，必须把它的 BorderStyle 属性设置为(B)(单)A.1 B.2 C.3 D.4 52052.下列说法中正确的是：为了载入一个只有一个工程（此工程下有三个窗体）的 Visual Basic 应用程序，应当(B)(

23、单)A.只装入窗体模块文件(.frm)B.先装入工程文件(.vbp)即可 C.分别装入工程文件和标准模块文件(.bas)D.分别装入工程文件、窗体文件和标准模块文件 52053.要使一个标签能够显示所需要的文本，应设置该标签的(A)属性的值(单)A.Caption B.Name C.Text D.AutoSize 52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的 style 属性为 1(单)A.Picture B.Style C.DownPicture D.DisabledPicture 52055.为使计时器对象每隔 5 秒钟产生一个时钟事件(Timer 事件

24、)，则其 Interval 属性值应设置为(D)(单)A.5 B.300 C.500 D.5000 52056 一个标准的 VB 应用程序至少要包含一个(C)对象(单)A.文本框 B.标签框 C.窗体 D.命令按钮 52057.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为 True(单)A.Text B.MultiLine C.Style D.Visible 52058.下列的(A)对象支持 KeyPress 事件(单)A.文本框 B.命令按钮 C.标签框 D.图像框 52059.若要将窗体从内存中卸载，其实现的方法或语句是(B)(单)A.Show B.Unload C.L

25、oad D.Hide 52060.以下选项中，不是 VB 标准控件的是(C)(单)A.命令按钮 B.定时器 C.通用对话框 D.单选框 52061.双击窗体中的对象后，VB 将显示的窗口是(C)(单)A.工具箱 B.项目（工程）窗口 C.代码窗口 D.属性窗口 52062.下述选项中，VB 的程序设计方法是(B)(单)A.面向对象、顺序驱动 B.面向对象、事件驱动 C.面向过程、事件驱动 D.面向过程、顺序驱动 8/368 52063.在 VB 中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.Show B.Unload C.Load D.

26、Hide 52064.文本框的默认属性是(B)(单)A.Caption B.Text C.Name D.Top 52065.标签默认属性是(A)(单)A.Caption B.Text C.Name D.Top 52066.执行以下程序段：a$=abbacddcba For I=6 To 2 Step-2 X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next I Print z 输出结果为(B)(单)A.ABA B.BBABBA C.ABBABA D.AABAAB 52067.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程

27、序：Option Base 1 Private Sub Command1_Click()Dim a As Variant a=Array(1,2,3,4,5)Sum=0 For I=1 To 5 Sum=sum+a(I)Next I x=Sum/5 For I=1 To 5 If a(I)x Then Print a(I);Next I End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2 B.1 2 3 C.3 4 5 D.4 5 52068.假定一个工程由一个窗体文件 Form1 和两个标准模块文件 Model1 及 Model2 组成。Model1 代码如

28、下：Public x As Integer Public y As Integer Sub S1()x=1 S2 End Sub Sub S2()y=10 Form1.Show End Sub Model2 的代码如下：Sub Main()S1 9/369 End Sub 其中 Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是(C)(单)A.Form1-Model1-Model2 B.Model1-Model2-Form1 C.Model2-Model1-Form1 D.Model2-Form1-Model1 52069.设有如下程序段：a$=beijingshanghai

29、b$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后，变量 b$的值为【shanghai】52070.以下程序段的输出结果是【3】Num=0 Do While num2 num=num+1 Loop Print num 52071.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为(A)(单)A.命令按钮移动到距窗体左边界、上边界各 500 的位置 B.窗体移动到距屏幕左边界、上边界各 500 的位置 C.命令按钮向左、上

30、方向各移动 500 D.窗体向左、上方向各移动 500 52072.在窗体上有若干控件，其中有一个名称为 Text1 的文本框。影响 Text1 的 Tab 顺序的属性是(D)(单)A.TabStop B.Enabled C.Visible D.TabIndex 52073.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)A.For i=0 To List1.ListCount-1.Next i B.For i=0 To ListCount-1.Next i C.For i=1 To List1.listCount .Next i

31、 D.For i=1 To ListCount.Next i 52074.以下 Case 语句中错误的是(C)(单)A.Case 0 To 10 B.Case Is10 C.Case Is10 And Is50 D.Case 3,5,Is10 52075.以下关于图片框控件的说法中，错误的是(D)(单)A.可以通过 Print 方法在图片框中输出文本 B.清空图片框控件中图形的方法之一是加载一个空图形 C.图片框控件可以作为容器使用 D.用图片框控件的 Stretch 属性可以自动调整图片框中图形的大小 52076.执行语句 s=Len(Mid(VisualBasic,1,6)后，s 的值是(

32、A)(单)A.Visual B.Basic C.6 D.11 52077.以下叙述中错误的是(D)(单)A.下拉式菜单能用菜单编辑器建立 10/3610 B.在多窗体程序中，每个窗体都可以建立自己的菜单系统 C.能够对菜单项的 Click 事件编程 D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见 52078.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()a=12345 Print Format$(a,000.00)End Sub 程序运行后，单击命令按钮，窗体上显示的是(B)(

33、单)A.123.45 B.12345.00 C.12345 D.00123.45 52079.以下关于函数过程的叙述中，正确的是(A)(单)A.函数过程形参的类型与函数返回值的类型没有关系 B.在函数过程中，过程的返回值可以有多个 C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递 D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数 52080.以下关于变量作用域的叙述中，正确的是(C)(单)A.用 dim 定义变量是静态变量 B.静态变量必须在标准模块中声明 C.用 public 定义变量是全局变量 D.Static 类型变量的作用域范围是它所在的窗体或模块文

34、件 52081.确定一个控件在窗体上的位置的属性是(C)(单)A.Width 和 Height B.Width 或 Height C.Top 和 Left D.Top 或 Left 52082.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Text1.Text=Visual Me.Text1=Basic Text1=Program End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)A.Visual B.Basic C.Program D.出错 520

35、83.以下关系表达式中，其值为 False 的是(A)(单)A.ABCAbC B.thethey C.VISUAL=UCase(Visual)D.IntegerInt 52084.语句 Print int(5/4*65)Mod 2 的输出结果是(B)(单)A.0 B.1 C.2 D.3 52085.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText=InputBox(请输入)Text1.Text=strText End Sub Private

36、 Sub Text1_Change()Label1.Caption=Right(Trim(Text1.Text),3)End Sub 11/3611 程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是(D)(单)A.空 B.abcdef C.abc D.def 52086.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=-5 If x 0 Then y=x 2 Else y=x End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是(A)(单

37、)A.-5 B.25 C.1 D.-1 52087.一个工程中含有窗体 Form1、Form2 和标准模块 Model1，如果在 Form1 中有语句 Pubilc X As Integer，在 Model1 中有语句 Pubilc Y As Integer，则以下叙述中正确的是(A)(单)A.变量 X、Y 的作用域相同 B.Y 的作用域是 Model1 C.在 Form1 的任何地方中可以直接使用 Y D.在 Form2 中可以直接使用 X 和 Y 52088.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改

38、变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)A.Drive1_Change B.Drive1_Click C.Dir1_Click D.Dir1_KeyPress 52089.在窗体上画一个命令按钮（其 NAME 属性为 Command1），然后编写如下代码：Option Base 1 Private Sub Command1_Click()Dim a s=0 a=Array(1,2,3,4)For I=4 To 1 Step-1 s=s+a(I)Next I Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是(D)(单)A.4321 B.1

39、234 C.34 D.10 52090.在窗体上画一个名称为 Text1 的文本框，编写以下代码：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 65 Or KeyAscii 90 Then msgBox 请输入大写字母 KeyAscii=0 End If End Sub 以下能说明该事件过程正确是(A)(单)A.要求文本框只能接收大写字母的输入 B.要求文本框只能接收小写字母的输入 C.要求文本框只能接收数字的输入 D.要求文本框只能接收 65 到 90 之间的数值的输入 12/3612 52091.在窗体上画一个名称为

40、Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click()n=Val(Text1.Text)If n2=n/2 Then f=f1(n)Else f=f2(n)End If Print f;n End Sub Public Function f1(ByRef x)x=x*x f1=x+x End Function Public Function f2(ByVal x)x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入 3，然后单击命令按钮，窗体上显示的是(D)(单)A.

41、72 36 B.108 36 C.72 6 D.27 3 52092.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234 For i=1 To 4 c1=Trim(Str()Print c1 Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)52093.在窗体上画一个名称为 Command1 的命令按钮和一

42、个名称为 Text1 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To n For j=2 To sqr(i)If i Mod j=0 Then Exit For Next j If j Sqr(i)Then Print i Next i End Sub 该事件过程的功能是(C)(单)A.输出 n 以内的奇数 B.输出 n 以内的偶数 C.输出 n 以内的素数 D.输出 n 以内能被 j 整除的数 52094.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程

43、：13/3613 Private Function f(m As Integer)If m Mod 2=0 Then f=m Else f=1 End If End Function Private Sub Command1_Click()Dim i As Integer s=0 For i=1 To 5 s=s+f(i)Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11 B.10 C.9 D.8 52095.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub

44、Command1_Click()Dim array1(10,10)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4)End Sub 程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15 B.14 C.13 D.12 52096.Visual Basic 应用程序中标准模块文件的扩展名是【BAS 或.BAS】(注意不要写点)。52097.在菜单编辑器中建立一个菜单，其主菜单

45、项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 相应的菜单。Private Sub Form_【mousedown】(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then popupmenu mnuEdit End If End Sub 52098.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 相应的菜单。

46、以下是实现上述功能的程序，请填空。Private Sub Form mousedown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then【popupmenu】mnuEdit End If 52099.为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的【Interval】属性设置为 500。52100.为了使计时器控件 Timer1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的 Interval 属性设置为【500】。

47、14/3614 52101.与数学表达式 ln(a+b)/(3x)+5 对应的 Visual Basic 表达式是【log(a+b)/(3*x)+5 或(log(a+b)/(3*x)+5】*52102.将 C 盘根目录下的图形文件 moon.jpg 装入图片框 Picture1 的语句是【】52103.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。Private Sub Option1_Click(Index As Integer)Selec

48、t Case【Index】Case 0 a=宋体 Case 1 a=黑体 Case 2 a=楷体GB2312 End Select text1.fontname=a End Sub 52104.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。Private Sub Option1_Click(Index As Integer)Select Case index Case 0 a=宋体 Case 1 a=黑体 Case 2 a=楷体GB2312

49、End Select text1.【fontname】=a End Sub 52105.在窗体上画两个组合框，其名称分别为 Combo1、Combo2，然后画两个标签，名称分别为 Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。Private Sub Combo1_Click()Call ShowItem(Combo1,Label1)End Sub Private Sub Combo2_Click()Call ShowItem(Combo2,Label2)End Sub Public Sub ShowItem(tmpCombo

50、As ComboBox,tmpLabel As Label)【tmplabel】.Caption=tmpCombo.Text End Sub 52106.在窗体上画两个组合框，其名称分别为 Combo1、Combo2，然后画两个标签，名称分别为 Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。Private Sub Combo1_Click()Call ShowItem(Combo1,Label1)End Sub Private Sub Combo2_Click()Call ShowItem(Combo2,Label2)End