二级vb笔试题库

1 二级vb 题库全国计算机等级考试52000. 下列叙述中正确的是(C)(单) A.只有窗体才是Visual Basic 中的对象 B.只有控件才是Visual Basic 中的对象 C.窗体和控件都是Visual Basic 中的对象D.窗体和控件都不是Visual Basic 中的对象52001.下列可以激活属性窗口的操作是(D)(单) A.用鼠标双击窗体的任何部位 B.执行"文件"菜单中的"属性窗口"命令C.执行"编辑"菜单中的"属性窗口"命令D.按F4 键5200

2 下列能打开工具箱窗口的操作是(A)(单) A.执行"视图"菜单中的"工具箱"命令B.按Alt 键C.单击属性窗口上的"工具箱"按钮 D.按Ctrl 键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.确定一个窗体或控件的大小的属性是(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)(单) A.面向对象的程序设计 B.结构化程序设计 C.事件驱动的编程机制 D.程序设计52010.VB 集成开发环境开发的应用程序不适宜的运行环境是(A)(单) A.WINDOS 32 B.WINDOWS 9X 2

C.WINDOWS NT

D.WINDOWS 2000 52011.VB6 共有三个版本，按功能从弱到强的顺序排列应是(C)(单) A.学习版、专业版和工程版 B.学习版、工程版和专业版 C.学习版、专业版和企业版 D.学习版、企业版和专业版52012.VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单) A.设计状态B.编写代码状态C.运行状态D.中断状态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.编辑、调试、运行程序，也能生成可执行程序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 秒发生一次计时器事件，则以下正确的属性设置语句是(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 3 End Sub 程序运行后，连续三次单击Command1 按钮后，窗体上显示的是(A)(单) A.4 2 B.12 18 C.12 30 D.4 6 52023.以下关于多重窗体程序的叙述中，错误的是(A)(单) A.用Hide 方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中，可以根据需要指定

启动窗体 D.对于多重窗体程序中，单独保存每个窗体52024.以下关于文件的叙述中，错误的是(B)(单) A.顺序文件中的记录一个接一个顺序存放 B.随机文件中记录的长度是不相同的 C.执行打开文件的命令后，自动生成一个文件指针D.EOF 函数作用是判断文件的指针是否指向文件末尾52025.以下叙述中错误的是(D)(单) A.事件过程是响应特定事件的一段程序 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+5\3 的值是(B)(单) A.0 B.3 C.4 D.6 52029.设x=4,y=8,z=7, 表达式：(x＜y) Or z＜x 的值是(C)(单) A.1 B.-1 C.TRUE D.FALSE 52030.在窗体上画一个名称为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.在KeyPress

事件过程中不能识别回车键 C.在KeyDown 和KeyUp 事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode 视作相同的字 4 母 D.在KeyDown 和KeyUp 事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符52033.执行如下两条语句，窗体上显示的是(C)(单) A=9.8596 Print Format(a,"000.00") A.0,009.86 B.9.86 C.009.86 D.0,009.86 52034.在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1 的命令按钮。然后编写如下事件过程：Private Sub Command1_Click( ) CommonDialog1.FileName ="" 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.在该对话框中指定的默认文件类型为文本文件(*.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(x＞10,100,-100) f.Show f.Caption=y End Sub 运行以上程序，正确的结果是(B)(单) A.Form1 的Caption 属性值为100 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 5 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单) A.10 5 B.12 5 C.10 7 D.12 7 52037.Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=3 If n＜10 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(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=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) 6 Next t Print Sum End Sub 程序运行后，单击窗体，输入结果为(B)(单) A.5 B.9 C.25 D.15 52040.在窗体上画一个名称为File1 的文件列表框，并编写如下程序：Private Sub File1_DblClick( ) x=Shell(File1.FileName,1) End Sub 以下关于该程序的叙述中，错误的是(A)(单) A.x 没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1) B.双击文件列表框中的文件，将触发该事件过程 C.要执行的文件的名字通过

File1.FileName 指定D.File1 中显示的是当前驱动器、当前目录下的文件52041.在窗体上画一个名称为Label1、标题为"VisualBasic 考试"的标签，两个名称分别为Command1 和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1 的计时器控件，并把其Interval 属性设置为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.标签的移动方向为自右向左 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.Visual Basic 程序中分隔各语句的字符是(B)(单) A.′ B.: C.\ D._ 7 52046.假定窗体的名称(Name 属性)为Form1，则把窗体的标题设置为"VB Test"的语句为(B)(单) A.Form1 = "VB Test" B.Caption ="VB Test" C.Form1.Text = "VB Test" https://www.360docs.net/doc/c615428407.html, ="VB Test" 52047.下列不能打开代码窗口的操作是(D)(单) A.双击窗体上的某个控件双击 B.双击窗体 C.按F7 键 D.单击窗体或控件52048.Visual Basic 程序中语句行的续行符是(D)(单) A.′ B.: C.\ D. _ 52049.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)(单) A.只装入窗体模块文件(.frm) B.先装入工程文件(.vbp)即可 C.分别装入工程文件和标准模

块文件(.bas) D.分别装入工程文件、窗体文件和标准模块文件52053.要使一个标签能够显示所需要的文本，应设置该标签的(A)属性的值(单) A.Caption https://www.360docs.net/doc/c615428407.html, C.Text

D.AutoSize 52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的style 属性为1(单)

A.Picture

B.Style

C.DownPicture

D.DisabledPicture 52055.为使计时器对象每隔5 秒钟产生一个时钟事件(Timer 事件)，则其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.Load D.Hide 52060.以下选项中，不是VB 标准控件的是(C)(单) 8 A.命令按钮B.定时器C.通用对话框D.单选框52061.双击窗体中的对象后，VB 将显示的窗口是(C)(单) A.工具箱 B.项目（工程）窗口C.代码窗口 D.属性窗口52062.下述选项中，VB 的程序设计方法是(B)(单) A.面向对象、顺序驱动 B.面向对象、事件驱动 C.面向过程、事件驱动 D.面向过程、顺序驱动52063.在VB 中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单) A.Show B.Unload C.Load D.Hide 52064.文本框的默认属性是(B)(单) A.Caption B.Text

https://www.360docs.net/doc/c615428407.html,

D.Top 52065.标签默认属性是(A)(单) A.Caption B.Text https://www.360docs.net/doc/c615428407.html, 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 的命令按钮，然后编写如下程序：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 代码如下：Public x As Integer Public y As Integer Sub S1( ) 9 x =1 S2 End Sub Sub S2( ) y=10 Form1.Show End Sub Model2 的代码如下：Sub Main( ) S1 End Sub 其中Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是(C)(单) A.Form1-＞Model1-＞Model2 B.Model1-＞Model2-＞Form1 C.Model2-＞Model1-＞Form1 D.Model2-＞Form1-＞Model1 52069.设有如下程序段：

a$="beijingshanghai" b$=Mid(a$,InStr(a$,"g")+1) 执行上面的程序段后，变量b$的值为【shanghai】52070.以下程序段的输出结果是【3】Num =0 Do While num＜＝2 num = num+1 Loop Print num 52071.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Move 500，500 End Sub 程序运行后，单击命令按钮，执行的操作为(A)(单) A.命令按钮移动到距窗体左边界、上边界各500 的位置 B.窗体移动到距屏幕左边界、上边界各500 的位置 C.命令按钮向左、上方向各移动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 D.For i=1 To ListCount ...... Next i 52074.以下Case 语句中错误的是(C)(单) A.Case 0 To 10

B.Case Is＞10

C.Case Is＞10 And Is＜50

D.Case 3,5,Is＞10

10 52075.以下关于图片框控件的说法中，错误的是(D)(单) A.可以通过Print 方法在图片框中输出文本 B.清空图片框控

件中图形的方法之一是加载一个空图形 C.图片框控件可以

作为容器使用 D.用图片框控件的Stretch 属性可以自动调

整图片框中图形的大小52076.执行语句

s=Len(Mid("VisualBasic",1,6))后，s 的值是(A)(单) A.Visual B.Basic C.6 D.11 52077.以下叙述中错误的是(D)(单) A.下拉式菜单能用菜单编辑器建立 B.在多窗体程序中，每个窗体都可以建立自己的菜单系统 C.能够对菜单项的Click 事件编

程 D.如果把一个菜单项的Enabled 属性设置为False，则该菜单项不可见52078.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click( ) a = "12345" Print Format$(a, "000.00") End Sub 程序运行后，单击命令按钮，窗体上显示的是(B)(单) 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 类型变量的作用域范围是它所在的窗体或模块文件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.出错52083.以下关系表达式中，其值为False 的是(A)(单) A."ABC"＞"AbC" B."the"＜＞"they" C."VISUAL"=UCase("Visual") D."Integer"＞"Int" 11 52084.语句Print int(5/4*6\5) 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 Sub Text1_Change( ) Label1.Caption =

Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入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)(单) 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 的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设

置两个控件同步的命令放在一个事件过程中，这个事件过

程是(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)(单) 12 A.4321 B.1234 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 之间的数值的输入52091.在窗体上画一个名称为Text1 的文本框，一个名称为Command1 的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click( ) n = Val(Text1.Text) If n\2 = 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.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) 13 52093.在窗体上画一个名称为Command1 的命令按钮和一个名称为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 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：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 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】(注意不要写点)。14 52097.在菜单编辑器中建立一个菜单，其主菜单项的名称为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 相应的菜单。以下是实现上述功能的程序，请填空。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】。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) Select 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" 15 End Select text1.【fontname】=a End Sub 52105.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、