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

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

1、1 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键52003.假定已在

2、一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的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 或

3、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.事件

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

5、方 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.集成

6、 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.Interva

7、l=5 C.Timer1.Interval=50 D.Timer1.Interval=500 52022.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Static x As Integer 名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 20 页 -2 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 30 D.4 6 5202

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

9、行指定操作的过程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,表达式：(x y)Or z x 的值是(C)(单)A.1 B.-1 C.TRUE D.FALSE 52030.在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件

10、过程：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.在 K

11、eyDown和 KeyUp事件过程中，从键盘输入的字母A和字母 a 对应的 KeyCode视作相同的字母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()

12、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.设一个工程由两个窗体组成，其名称分

13、别为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 属性值为100 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 20 页 -3

14、 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 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(t)/

16、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(

17、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 52040.在窗体上画一个名称为File1的文件列表框，并编

18、写如下程序：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

19、和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 名师资料总结-精品资料欢迎下载-名师精心整理-

20、第 3 页，共 20 页 -4 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.视图

21、52044 下面(D)操作不是激活或显示属性列表框的操作(单)A.按快捷键F4 B.点击工具栏中的属性列表框 按钮C.选择 视图 下拉菜单的 属性窗口 项D.双击窗体中的某一对象52045.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.双

22、击窗体上的某个控件双击 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.为 了 使 窗 体 的 大 小 可 以 改 变，必 须 把

23、 它 的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 B.Name C.Text D.AutoSize 52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置

24、它的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

25、)对象支持KeyPress 事件(单)A.文本框 B.命令按钮 C.标签框 D.图像框52059.若要将窗体从内存中卸载，其实现的方法或语句是(B)(单)A.Show B.Unload C.Load D.Hide 52060.以下选项中，不是VB标准控件的是(C)(单)A.命令按钮 B.定时器 C.通用对话框 D.单选框52061.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱 B.项目（工程）窗口C.代码窗口 D.属性窗口52062.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动 B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动52063.

26、在 VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.Show B.Unload C.Load D.Hide 52064.文本框的默认属性是(B)(单)名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 20 页 -5 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=Righ

27、t(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 程序运 行

28、后，单 击命 令按 钮，在窗 体上 显示 的内容 是(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()x=1 S2 End Sub Sub S2()y=10 Form1.Show End Sub Model2 的代码如下：Sub Main()S1 End Sub 其中 Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是(C)(单)A.F

29、orm1-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_Cl

30、ick()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)(单

31、)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 52075.以下关于图片框控件的说法中，错误的是(D)(单)A.可以通过Print方法在图片框中输出文本B.清空图片框控件中图形的方法

32、之一是加载一个空图形C.图片框控件可以作为容器使用D.用图片框控件的Stretch属性可以自动调整图片框中图形的大小52076.执行语句s=Len(Mid(VisualBasic,1,6)后，s 的名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 20 页 -6 值是(A)(单)A.Visual B.Basic C.6 D.11 52077.以下叙述中错误的是(D)(单)A.下拉式菜单能用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.能够对菜单项的Click事件编程D.如果把一个菜单项的Enabled 属性设置为False，则该菜单项不可见52078.在窗体

33、上画一个命令按钮，其名称为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.如果不指明函数过程参数的类型，则该参数不能有数据类

34、型的参数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.Te

35、xt=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.IntegerInt 52084.语 句Print int(5/4*65)Mod 2 的 输出 结果 是(B)(单)A.0 B.1 C.2 D.3 52085.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1

36、、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 的命令按钮，然后编写如下事件过程：Pri

37、vate 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

38、.在 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 名师资料

39、总结-精品资料欢迎下载-名师精心整理-第 6 页，共 20 页 -7 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.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 I

40、f End Sub 以下能说明该事件过程正确是(A)(单)A.要求文本框只能接收大写字母的输入B.要求文本框只能接收小写字母的输入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

41、 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 程序运行后，单击命令按钮，要求在窗体上显示

42、如下内容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 的命令按钮和一个名称为 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 该事件过程

43、的功能是(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 程序运行后，单击命令按

44、钮，在窗体上显示的是(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 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 20 页 -8 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+arra

45、y1(3,4)End Sub 程序运 行后，单 击命 令按 钮，在文 本框 中显 示的值 是(D)(单)A.15 B.14 C.13 D.12 52096.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。52097.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit 相应的菜单。Private Sub Form_【mousedown】(Button As Integer,Shift As Integer,X As Single,Y As Sin

46、gle)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.为了使计

47、时器控件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 的文本框，然后画三个单选

48、按钮，并用这三个单选按钮建立一个控件数组，名称为 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，程序运行后，如果单击某个单选按钮，则文本框中

49、的字体将根据所选择的单选按钮切换。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 52105.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。Private Sub Combo1_Click()Call Sho

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