1、专业资料word 完美格式 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.单击属性窗口上的“
2、工具箱“按钮 D.按 Ctrl 键 52003.假定已在一个窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置该窗体的 Name 属性，预先应执行的操作是(D)(单)A.单击窗体上有控件的地方 B.单击任一个控件C.不执行任何操作 D.双击窗体的标题栏 52004.为了把窗体上的某个控件变为活动的，应执行的操作是(B)(单)A.单击窗体的空白处 B.单击该控件的内部C.双击该属性列表框 D.双击窗体52005.确定一个控件在窗体上的位置的属性是(D)(单)A.Width 或 Height B.Top 和 HeightC.Top 或 Width D.Top 和 Left 52006.
3、确定一个窗体或控件的大小的属性是(A)(单)A.Width 或 Height B.Top 和 WidthC.Top 或 Left D.Top 和 Left52007.为了同时改变一个活动控件的高度和宽度，正确的操作是(A)(单)A.拖拉位于控件左上角 B.只能拖拉位于控件右下角C.只能拖拉位于控件左下角D.不能同时改变控件的高度和宽度52008.面向对象的程序设计指满足(B)(单)A.虚拟化、结构化、动态化 B.封装性、继承性、多态性C.对象的链接、动态链接、动态数据交换D.ODBC、DDE、OLE52009.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为
4、(A)(单)A.面向对象的程序设计 B.结构化程序设计C.事件驱动的编程机制 D.程序设计52010.VB 集成开发环境开发的应用程序不适宜的运行环境是(A)(单)A.WINDOS 32 B.WINDOWS 9XC.WINDOWS NT D.WINDOWS 200052011.VB6 共有三个版本，按功能从弱到强的顺序排列应是(C)(单)A.学习版、专业版和工程版 B.学习版、工程版和专业版专业资料word 完美格式 C.学习版、专业版和企业版 D.学习版、企业版和专业版52012.VB 集成开发环境有三种工作状态，不属于三种工作状态之一的是(B)(单)A.设计状态 B.编写代码状态C.运行状
5、态 D.中断状态52013.不能打开代码窗口的操作是(B)(单)A.双击窗体设计器的任何地方 B.按下 F 键C.单击工程窗口中的“查看代码“按钮D.选择“视图“下拉菜单中的“代码窗口“52014.在 VB 中，工程文件的扩展名是(B)(单)Afrm Bvbp Cbas Dfrx52015.在 VB 中，窗体文件的扩展名是(A)(单)Afrm Bvbp Cbas Dfrx52016.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 秒发生一次计时器事件，则以下正确的属性设置语句是(D)
7、(单)A.Timer1.Interval=0.5 B.Timer1.Interval=5C.Timer1.Interval=50 D.Timer1.Interval=50052022.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Static x As IntegerClsFor t=1 To 2y=y+xx=x+2Next tPrint x,yEnd Sub程序运行后，连续三次单击 Command1 按钮后，窗体上显示的是(A)(单)A.4 2 B.12 18 C.12 30 D.4 6专业资料word 完
8、美格式 52023.以下关于多重窗体程序的叙述中，错误的是(A)(单)A.用 Hide 方法不但可以隐藏窗体,且能清除内存中的窗体B.在多重窗体程序中，各窗体的菜单是彼此独立的C.在多重窗体程序中，可以根据需要指定启动窗体D.对于多重窗体程序中，单独保存每个窗体52024.以下关于文件的叙述中，错误的是(B)(单)A.顺序文件中的记录一个接一个顺序存放B.随机文件中记录的长度是不相同的C.执行打开文件的命令后，自动生成一个文件指针D.EOF 函数作用是判断文件的指针是否指向文件末尾52025.以下叙述中错误的是(D)(单)A.事件过程是响应特定事件的一段程序B.不同的对象可以具有相同名称的方法
9、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.052028.表达式 5 Mod 3+53 的值是(B)(单)A.0 B.3 C.4 D.652029.设 x=4,y=8,z=7, 表达式：(xy) Or zx 的值是(C)(单)A.1 B.-1 C.TRUE D.FALSE52030.在窗体上画一个名称为 Command1 的命
10、令按钮，然后编写如下事件过程：Private Sub Command1_Click( )a$=“VisualBasic“Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(A)(单)A.VVV B.Vis C.sic D.1152031.设有如下程序段：x=2For c=1 To 4 Step 2x=x+cNext c运行以上程序后，x 的值是(A)(单)A.6 B.7 C.8 D.952032.以下叙述中错误的是(A)(单)A.在 KeyPress 事件过程中不能识别键盘键的按下与释放B.在 KeyPress 事件过程中不能识别回车键C.在 Ke
11、yDown 和 KeyUp 事件过程中，从键盘输入的字母“A“和字母“a“对应的 KeyCode 视作相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输入的“1“和从右侧小键盘上输入的“1“被视作不同的字符52033.执行如下两条语句，窗体上显示的是(C)(单)A=9.8596专业资料word 完美格式 Print Format(a,“000.00“)A.0,009.86 B.9.86 C.009.86 D.0,009.8652034.在窗体上画一个名称为 CommandDialog1 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程：Pri
12、vate Sub Command1_Click( )CommonDialog1.FileName =“CommonDialog1.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle=“VBTest“CommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是(D)(单)A.该对话框被设置为“打开“对话框B.在该对话框中指定的文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*
13、.Txt)52035.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下：Private Sub Command1_Click( )Dim a As Integera=10Call g(Form2,a)End SubPrivate Sub g(f As Form,x As Integer)y=Iif(x10,100,-100)f.Showf.Caption=yEnd Sub运行以上程序，正确的结果是(B)(单)A.Form1 的 Caption 属性值为 100B.Form2 的 C
14、aption 属性值为-100C.Form1 的 Caption 属性值为-100D.Form2 的 Caption 属性值为 10052036.在窗体上画一个名称为 Command1 的命令按钮，并编写如下程序：Private Sub Command1_Click( )Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是
15、(D)(单)A.10 5 B.12 5 C.10 7 D.12 752037.Option Base 1专业资料word 完美格式 Private Sub Command1_Click( )Dim a(10) As IntegerDim n As Integern=3If n10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b( ) As Integer,n As Integer)Dim c(10) As Integerj=0For t=1 To nb(t)=Rnd*100If b(t)/2=b(t)2 Thenj=j+1c(
16、j)=b(t)End IfNext tPrint jEnd 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 1Private Sub Command1_Click( )Dim aa= Array(1,2,3,4,5)For c=1 To Ubound(a)a(c) = a(c)+c-1Ne
17、xt cPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是(B)(单)A.4 B.5 C.6 D.752039.阅读程序：Option Base 1Private Sub Form_Click( )Dim arrDim Sum%Sum = 0arr = Array(1, 3, 5, 7, 9)For t = 1 To 5Sum = Sum + arr(t)Next tPrint SumEnd Sub程序运行后，单击窗体，输入结果为(B)(单)A.5 B.9 C.25 D.15专业资料word 完美格式 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 和 Command2、标题分别
19、为“开始“和“停止“的命令按钮，然后画一个名称为 Timer1 的计时器控件，并把其 Interval 属性设置为 500。编写如下程序：Private Sub Form_Load( )Timer1.Enabled=FalseEnd SubPrivate Sub Command1_Click( )Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer( )If Label1.Left Form1.Width ThenLabel1.Left = Label1.Left + 20ElseLabel1.Left=0End 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.按快捷键 F4B.点击工具栏中
21、的“属性列表框“按钮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.双击窗体上的某个控件双击 B.双击窗体专业资料word 完美格式
22、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.
23、2 C.3 D.452052.下列说法中正确的是：为了载入一个只有一个工程（此工程下有三个窗体）的 Visual Basic 应用程序，应当(B)(单)A.只装入窗体模块文件(.frm)B.先装入工程文件(.vbp)即可C.分别装入工程文件和标准模块文件(.bas)D.分别装入工程文件、窗体文件和标准模块文件52053.要使一个标签能够显示所需要的文本，应设置该标签的(A)属性的值(单)A.Caption B.Name C.Text D.AutoSize52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的 style 属性为 1(单)A.Picture B.Styl
24、eC.DownPicture D.DisabledPicture52055.为使计时器对象每隔 5 秒钟产生一个时钟事件(Timer 事件)，则其 Interval 属性值应设置为(D)(单)A.5 B.300 C.500 D.500052056 一个标准的 VB 应用程序至少要包含一个(C)对象(单)A.文本框 B.标签框 C.窗体 D.命令按钮52057.要使一个文本框对象能够显示多行文字，应设置该对象的(B)属性值为 True(单)A.Text B.MultiLine C.Style D.Visible52058.下列的(A)对象支持 KeyPress 事件(单)A.文本框 B.命令按钮
25、 C.标签框 D.图像框52059.若要将窗体从内存中卸载，其实现的方法或语句是(B)(单)A.Show B.Unload C.Load D.Hide52060.以下选项中，不是 VB 标准控件的是(C)(单)A.命令按钮 B.定时器 C.通用对话框 D.单选框52061.双击窗体中的对象后，VB 将显示的窗口是(C)(单)A.工具箱 B.项目（工程）窗口 C.代码窗口 D.属性窗口52062.下述选项中，VB 的程序设计方法是(B)(单)A.面向对象、顺序驱动 B.面向对象、事件驱动专业资料word 完美格式 C.面向过程、事件驱动 D.面向过程、顺序驱动52063.在 VB 中，要将一个窗
26、体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.Show B.Unload C.Load D.Hide52064.文本框的默认属性是(B)(单)A.Caption B.Text C.Name D.Top52065.标签默认属性是(A)(单)A.Caption B.Text C.Name D.Top52066.执行以下程序段：a$=“abbacddcba“For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(XNext IEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是(
27、D)(单)A.1 2 B.1 2 3 C.3 4 5 D.4 552068.假定一个工程由一个窗体文件 Form1 和两个标准模块文件 Model1 及 Model2 组成。Model1 代码如下：Public x As IntegerPublic y As IntegerSub S1( )x =1S2End SubSub S2( )y=10Form1.ShowEnd SubModel2 的代码如下：Sub Main( )专业资料word 完美格式 S1End Sub其中 Sub Main 被设置为启动过程。程序运行后，各模块的执行顺序是(C)(单)A.Form1-Model1-Model2
28、B.Model1-Model2-Form1C.Model2-Model1-Form1D.Model2-Form1-Model152069.设有如下程序段：a$=“beijingshanghai“b$=Mid(a$,InStr(a$,“g“)+1)执行上面的程序段后，变量 b$的值为【shanghai】52070.以下程序段的输出结果是【3】Num =0Do While num2num = num+1LoopPrint num52071.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Move 500，500En
29、d Sub程序运行后，单击命令按钮，执行的操作为(A)(单)A.命令按钮移动到距窗体左边界、上边界各 500 的位置B.窗体移动到距屏幕左边界、上边界各 500 的位置C.命令按钮向左、上方向各移动 500D.窗体向左、上方向各移动 50052072.在窗体上有若干控件，其中有一个名称为 Text1 的文本框。影响 Text1 的 Tab 顺序的属性是(D)(单)A.TabStop B.Enabled C.Visible D.TabIndex52073.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为(A)(单)A.For i=0 To Li
30、st1.ListCount-1 Next iB.For i=0 To ListCount-1 Next iC.For i=1 To List1.listCount Next iD.For i=1 To ListCount Next i52074.以下 Case 语句中错误的是(C)(单)A.Case 0 To 10 B.Case Is10C.Case Is10 And Is50 D.Case 3,5,Is1052075.以下关于图片框控件的说法中，错误的是(D)(单)A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用
31、D.用图片框控件的 Stretch 属性可以自动调整图片框中图形的大小52076.执行语句 s=Len(Mid(“VisualBasic“,1,6)后，s 的值是(A)(单)A.Visual B.Basic C.6 D.1152077.以下叙述中错误的是(D)(单)专业资料word 完美格式 A.下拉式菜单能用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.能够对菜单项的 Click 事件编程D.如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见52078.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private
32、Sub Command1_Click( )a = “12345“Print Format$(a, “000.00“)End Sub程序运行后，单击命令按钮，窗体上显示的是(B)(单)A.123.45 B.12345.00 C.12345 D.00123.4552079.以下关于函数过程的叙述中，正确的是(A)(单)A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中，过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D.如果不指明函数过程参数的类型，则该参数不能有数据类型的参数52080.以下关于变量作用域的叙述中，正确的是(C)(单)A.
33、用 dim 定义变量是静态变量B.静态变量必须在标准模块中声明C.用 public 定义变量是全局变量D.Static 类型变量的作用域范围是它所在的窗体或模块文件52081.确定一个控件在窗体上的位置的属性是(C)(单)A.Width 和 Height B.Width 或 HeightC.Top 和 Left D.Top 或 Left52082.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Text1.Text = “Visual“Me.Text1 = “Basic“Tex
34、t1 = “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“52084.语句 Print int(5/4*65) Mod 2 的输出结果是(B)(单)A.0 B.1 C.2 D.352085.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Comman
35、d1，然后编写如下两个事件过程：Private Sub Command1_Click( )strText = InputBox(“请输入“)Text1.Text = strTextEnd SubPrivate Sub Text1_Change( )Label1.Caption = Right(Trim(Text1.Text), 3)专业资料word 完美格式 End Sub程序运行后，单击命令按钮，如果在输入对话框中输入 abcdef，则在标签中显示的内容是(D)(单)A.空 B.abcdef C.abc D.def52086.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事
36、件过程：Private Sub Command1_Click( )x = -5If x 0 Theny = x 2Elsey = xEnd IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是(A)(单)A.-5 B.25 C.1 D.-152087.一个工程中含有窗体 Form1、Form2 和标准模块 Model1，如果在 Form1 中有语句 Pubilc X AsInteger，在 Model1 中有语句 Pubilc Y As Integer，则以下叙述中正确的是(A)(单)A.变量 X、Y 的作用域相同 B.Y 的作用域是 Model1C.在 Form1 的任何
37、地方中可以直接使用 YD.在 Form2 中可以直接使用 X 和 Y52088.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)A.Drive1_Change B.Drive1_ClickC.Dir1_Click D.Dir1_KeyPress52089.在窗体上画一个命令按钮（其 NAME 属性为 Command1） ，然后编写如下代码：Option Base 1Private Sub Command1_Click( )Dim as =
38、0a = Array(1, 2, 3, 4)For I = 4 To 1 Step -1s = s + a(I)Next IPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是(D)(单)A.4321 B.1234 C.34 D.1052090.在窗体上画一个名称为 Text1 的文本框，编写以下代码：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 65 Or KeyAscii 90 ThenmsgBox “请输入大写字母“KeyAscii = 0End IfEnd Sub以下能说明该事件过程正确是(A)(
39、单)A.要求文本框只能接收大写字母的输入B.要求文本框只能接收小写字母的输入C.要求文本框只能接收数字的输入D.要求文本框只能接收 65 到 90 之间的数值的输入专业资料word 完美格式 52091.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x
40、*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入 3，然后单击命令按钮，窗体上显示的是(D)(单)A.72 36 B.108 36 C.72 6 D.27 352092.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )c = “1234“For i = 1 To 4c1 = Trim(Str( )Print c1Next iEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容11
41、21231234则在下划线处应填入的内容为(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 nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j Sqr(i) Then Print iNext iEnd Sub该事件过程的功能
42、是(C)(单)A.输出 n 以内的奇数 B.输出 n 以内的偶数C.输出 n 以内的素数 D.输出 n 以内能被 j 整除的数专业资料word 完美格式 52094.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint s
43、End Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11 B.10 C.9 D.852095.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)E
44、nd Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15 B.14 C.13 D.1252096.Visual Basic 应用程序中标准模块文件的扩展名是【BAS 或.BAS】(注意不要写点)。52097.在菜单编辑器中建立一个菜单，其主菜单项的名称为 mnuEdit，Visible 属性为 False，程序运行后，如果用鼠标右键单击窗体，则弹出与 mnuEdit 相应的菜单。Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)If Bu
45、tton=2 Thenpopupmenu mnuEditEnd IfEnd Sub52098.在菜单编辑器中建立一个菜单，其主菜单项的名称为 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】 mnuEditEnd If52099.为了使计时器控件 Tim
46、er1 每隔 0.5 秒触发一次 Timer 事件，应将 Timer1 控件的【Interval】属性设置为 500。专业资料word 完美格式 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.在窗体上
47、画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。Private Sub Option1_Click(Index As Integer)Select Case 【Index】Case 0a = “宋体“Case 1a = “黑体“Case 2a = “楷体GB2312“End Selecttext1.fontname=aEnd Sub52104.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Op
48、tion1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。Private Sub Option1_Click(Index As Integer)Select Case indexCase 0a = “宋体“Case 1a = “黑体“Case 2a = “楷体GB2312“End Selecttext1.【fontname】=aEnd Sub52105.在窗体上画两个组合框，其名称分别为 Combo1、Combo2，然后画两个标签，名称分别为 Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。Private Sub Combo1_Click( )Call ShowItem(Combo1, Label1)End SubPrivate Sub Combo2_Click( )Call ShowItem(Combo2, Label2)
