二级vb笔试题库

1、1 二级vb题库全国计算机等级考试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.按 Ctr

2、l 键 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和Left52006.确定一个窗体或控件的大小的属性是(A

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

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

5、码窗口的操作是(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.vbg52019.VB集成开发环境中，在(C) 中编写代码 ( 单 ) A. 状态栏B.属性列表框C.代码框D.标题栏52020. 在面向对象的程序设计过程中，英文缩写OOP 的含义是 (C)( 单 ) A. 事件驱动的编程机制 B.结构化程序设计语言 C.面向对象的程序设计D.可视化程序设计 52021. 在窗体上画一个名称为 Timer1的计时器控件，要求每隔0.5 秒发

7、生一次计时器事件，则以下 正确的属性设置语句是(D)( 单在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：PrivateSub Command1_Click( ) Static x As Integer Cls For t=1 To 2y=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.46 52023.以下关于多重窗体程序的叙述中，错误的是 (A)(单 ) A. 用 Hide 方法不但可以隐藏窗体, 且能清除内存中的窗

8、体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中， 可以根据需要指定启动窗体D. 对于多重窗体程序中，单独保存每个窗体52024. 以下关于文件的叙述中，错误的是 (B)( 单 ) A. 顺序文件中的记录一个接一个顺序存放B.随机文件中记录的长度是不相同的C.执行打开文件的命令后，自动生成一个文件指针D.EOF 函数作用是判断文件的指针是否指向文件末尾52025. 以下叙述中错误的是(D)( 单 ) A. 事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法C.对象的方法是执行指定操作的过程D. 编程者可以自由更改代码框右上边的过程列表的事件名称5202

9、6.以下合法的Visual Basic变量的名称是(A)(单) A.a3 B.Const C.9abcD.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,表达式：(x y) Or z x 的值是 (C)( 单 ) A.1 B.-1 C.TRUE D.FALSE52030. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Cli

10、ck( )a$=VisualBasic Print String(3,a$) End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单 ) A.VVV B.VisC.sic D.11 52031.2 x=x+c Next c设有如下程序段：运行以上程序后，x=2 For c=1 To 4 Stepx 的值是 (A)( 单 ) A.6 B.7C.8 D.9 52032.以下叙述中错误的是(A)(单)A.在KeyPress事件过程中不能识别键盘键的按下与释放B.在KeyPress事件过程中不能识别回车键 C.在 KeyDown 和 KeyUp 事件过程中，从键盘输入的字母 A 和字母

11、 a 对应的 KeyCode 视作相同的字 4 母 D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输入的 1 和从右侧小键盘上输入的 1 被视作不同 的字符 52033. 执行如下两条语句，窗体上显示的是(C)( 单 ) A=9.8596 Print Format(a,000.00) A.0,009.86在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为 Command1 的命令按钮。 然后编写如下事件过程： Private SubCommand1_Click( ) CommonDialog1.FileName =CommonDialog1.Filter

12、=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1 End Sub 对于这个程序，以下叙述中错误的是 (D)( 单 ) A. 该对话框被设置为 打开 对话框 B.在该对话框中指定的文件名为空C.该对话框的标题为VBTest D. 在该对话框中指定的默认文件类型为文本文件(*.Txt) 52035.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令

13、按钮。窗体Form1的程序代码如下：Private SubCommand1_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属性值为100B.Form2的Caption属性值为-100 C.Form1的Caption属性值为-100 D.Form2的Caption属性值为100 52036.在窗体上

14、画一个名称为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

15、 Sub Command1_Click( ) Dima(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( ) AsInteger,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) EndIf Next t Print j End Sub以下叙述中错误的是(C)( 单 ) A. 数组

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

17、示的内容是(B)(单) A.4B.5 C.6 D.7 52039.阅读程序：Option Base 1 Private SubForm_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 PrintSum End Sub程序运行后，单击窗体，输入结果为(B)( 单 )A.5 B.9 C.25 D.15 52040.在窗体上画一个名称为File1 的文件列表框，并编写如下程序：Private Sub File1_DblClick( )x=Sh

18、ell(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 的计时器

19、控件， 并把其 Interval属性设置为500 。编写如下程序：Private Sub Form_Load( )Timer1.Enabled=False End Sub Private SubCommand1_Click( ) Timer1.Enabled=True End Sub PrivateSub Timer1_Timer( ) If Label1.Left Form1.Width ThenLabel1.Left = Label1.Left + 20 Else Label1.Left=0 End IfEnd Sub 程序运行后，单击 开始 按钮，标签在窗体中移动。对于这个程序， 以下叙

20、述中错误的是(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

21、.选择 视图 下拉菜单的 属性窗口 项 D.双击窗体中的某一对象52045.Visual Basic程序中分隔各语句的字符是(B)(单) A.B.: C. D._ 7 52046.假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为VB Test 的语句为 (B)( 单 ) A.Form1下列不能打开代码窗口的操作是(D)(单 ) A. 双击窗体上的某个控件双击B.双击窗体C.按F7键D.单击窗体或控件52048.Visual Basic程序中语句行的续行符是(D)( 单 ) A. B.: C.D. _ 52049.VisualBasic 程序中的注释所使用的字符是(A)( 单 )

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

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

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

25、d 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

26、 C.Load D.Hide52064. 文本框的默认属性是 (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.AABAAB52067. 在窗体上画一

27、个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private SubCommand1_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 2B.1 2 3 C.3 4 5 D.4 5 52068.假定一个工程由一个窗体文件Form1和两个标准模

28、块文件Model1及 Model2组成。Model1代 码如下：Public x As Integer Public y As IntegerSub S1( ) 9 x =1 S2 End Sub Sub S2( ) y=10 Form1.ShowEnd 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-

29、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 的命令按钮，然后编写如下事件过程：PrivateSub Command1_Click( ) Move 500， 500 End Sub程序运行后，单击命令按钮， 执行的操作为(A)( 单 ) A. 命令按钮移动到距窗体

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

31、Count-1 . Next i C.For i=1 ToList1.listCount . Next i D.For i=1 To ListCount . Nexti 52074. 以下 Case 语句中错误的是 (C)( 单 ) A.Case 0 To 10 B.Case Is 10 C.Case Is 10 And Is 50 D.Case 3,5,Is 1010 52075.以下关于图片框控件的说法中，错误的是(D)(单) A.可以通过Print方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用图片框控件的Stretch属性可以

32、自动调整图片框中图形的大小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 SubCommand1_Click( ) a =

33、12345 Print Format$(a, 000.00)End Sub 程序运行后，单击命令按钮， 窗体上显示的是(B)( 单)以下关于函数过程的叙述中， 正确的是 (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 SubCommand1_Click( ) Text1.Text = Visual Me.Text1 =Basic Text1 = Program End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单) A.Visual B.

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

36、 ) Text1.Text = strText EndSub 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 x0 Theny = x 2 Else y = x End I

37、f Print y End Sub程序运行后，单击命令按钮，窗体上显示的是(A)( 单 ) A.-5 B.25 C.1 D.-152087. 一个工程中含有窗体 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 的驱动器列表框， 一个

38、名称为 Dir1 的目录列表框。当改变当 前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是 (A)( 单 ) A.Drive1_Change B.Drive1_Click C.Dir1_ClickD.Dir1_KeyPress 52089. 在窗体上画一个命令按钮 （其 NAME 属性为 Command1 ），然后编写如下代码： Option Base 13，然后单击命令按Private Sub Command1_Click( ) Dim a s = 0 a = Array(1, 2, 3, 4) For I = 4 To 1 Step -1 s

39、 = s + a(I) Next I Print s EndSub 运行上面的程序， 单击命令按钮， 其输出结果是 (D)( 单 )12 A.4321 B.1234 C.34 D.10 52090.在窗体上画一个名称为Text1的文本框，编写以下代码：Private SubText1_KeyPress(KeyAscii As Integer) If KeyAscii 65 OrKeyAscii 90 Then msgBox 请输入大写字母 KeyAscii =0 End If End Sub以下能说明该事件过程正确是(A)( 单 ) A.要求文本框只能接收大写字母的输入B.要求文本框只能接收小

40、写字母的输入C.要求文本框只能接收数字的输入D. 要求文本框只能接收65 到90之间的数值的输入52091.在窗体上画一个名称为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

41、(ByVal x) x=x*x f2=x+x+x End Function 程序运行后，在文本框中输入钮，窗体上显示的是(D)( 单 ) A.72 36 B.108 36 C.72 6 D.27 352092. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) c =1234 For i = 1 To 4 c1 = Trim(Str( ) Print c1 Next i EndSub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234则在下划线处应填入的内容为(B)( 单)A.Right

42、(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i) 1352093. 在窗体上画一个名称为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 jIf j Sqr(i) Then Print i Next i End Sub该事件过程的功能是(C)( 单 ) A. 输出 n 以内的奇数 B

43、.输出 n 以内的偶数 C.输出 n 以内的素数 D.输出 n 以内能被 j 整除的数 52094. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(mAs 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.10C.9 D.8 52095.在窗体上画一个名称为Text1的文本框和一个名称为 Command1的命令按钮， 然后编写如下事件过程：Private Sub Command1_Click( ) Dim array1(10, 10) AsInteger 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