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

全国计算机等级考试二级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.按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 C.WINDOWS NT D.WINDOWS 2000 52011.VB6共有三个版本，按功能从弱到强的顺序排列应是(C)(单) A.学习版、专业版和 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 版 B.学习版、工程版和专业版 1 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 .VB集成开发环境中，在(C)中编写代码(单) 52019 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 End Sub 程序运行后，连续三次单击Command1按钮后，窗体上显示的是(A)(单) A.4 2 B.12 18 C.12 30 D.4 6 2 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视作相同的字母 D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符 52033.执行如下两条语句，窗体上显示的是(C)(单) A=9.8596 3 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 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单) A.10 5 B.12 5 C.10 7 D.12 7 52037.Option Base 1 4 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) Next t Print Sum End Sub 程序运行后，单击窗体，输入结果为(B)(单) A.5 B.9 C.25 D.15 5 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. 规范 编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载 地说，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._ 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.双击窗体 6 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 B.Name C.Text D.AutoSize 52054.要使一个命令按钮上有图形，应该设置该按钮的(A)属性值，同时设置它的style属性为1(单) A.Picture B.Style C.DownPicture D.DisabledPicture ，则其Interval属性值应设置为(D)(单) 52055.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)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)(单) A.命令按钮 B.定时器 C.通用对话框 D.单选框 52061.双击窗体中的对象后，VB将显示的窗口是(C)(单) A.工具箱 B.项目(工程)窗口C.代码窗口 D.属性窗口 52062.下述选项中，VB的程序设计方法是(B)(单) A.面向对象、顺序驱动 B.面向对象、事件驱动 C.面向过程、事件驱动 D.面向过程、顺序驱动 7 52063.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是 (C)(单) A.Show B.Unload C.Load D.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的命令按钮，然后编写如下程序: 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( ) x =1 S2 End Sub Sub S2( ) y=10 Form1.Show End Sub Model2的代码如下: Sub Main( ) 8 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 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)(单) 9 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" 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) 10 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)(单) 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之间的数值的输入 11 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) 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整除的数 12 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】(注意不要写点)。 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。 13 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" 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 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 Sub 14 Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label) tmpLabel.Caption =【tmpcombo】.Text End Sub 52107.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click( ) n = 5 f = 1 s = 0 For c = 1 To n f = f*【7】 s = s + f Next c Print s End Sub 该事件过程的功能是计算1!+2!+3!+„+n!的值。 52108.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序: Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer For I = 1 To 10 a(I) = I Next I Call【swap】a( ) For I = 1 To 10 Print a(I); Next End Sub Sub swap(b( ) As Integer) n = ubound(b) For I = 1 To n / 2 t = b(I) b(I) = b(n) b(n) = t n=n-1 Next I End Sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互 换，„„，a(5)与a(6)的值互换。 52109.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序: Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer For I = 1 To 10 a(I) = I Next I Call swap(a( )) For I = 1 To 10 Print a(I); Next End Sub 15 Sub swap(b( ) As Integer) n =【ubound(b)】 For I = 1 To n / 2 t = b(I) b(I) = b(n) b(n) = t n=n-1 Next I End Sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互 换，„„，a(5)与a(6)的值互换。 52110.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序: Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer For I = 1 To 10 a(I) = I Next I Call swap(a( )) For I = 1 To 10 Print a(I); Next I End Sub Sub swap(b( ) As Integer) n = ubound(b) For I = 1 To n / 2 t = b(I) b(I) = b(n) b(n) = t n=【n-1】 Next I End Sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互 换，„„，a(5)与a(6)的值互换。 52111.以下程序段运行的结果为(B)(单) Private Sub Form_Click( ) MyDate = #7/21/1997# Print Format(MyDate, "m/d/yy") Print Format(MyDate,"yyyy年m月dd日") End Sub A.7/21/97 1997年7月21日 B.7-21-97 1997年7月21日 C.97/7/21 1997年7月21日 D.7/21/97 97年7月21日 52112.以下程序段运行的结果为(B)(单) Private Sub Form_Click( ) MyTime = #9:21:30 PM# MyDate = #7/21/1997# Print Tab(2); Format(MyDate, "mmmm-yy") Print Tab(2); Format(MyTime, "hh:mm:ss A/P") End Sub 16 A.July-97 9:21:30 P B.July-97 09:21:30 P C.07-97 9:21:30 P D.July-97 9:21:30 52113.以下程序段运行的结果为(C)(单) Private Sub Form_Click( ) MyDate = #7/21/1997# Print Format(MyDate, "dddd,mmmm,dd,yyyy") End Sub A.21,07,1997 B.21,07,21,1997 C.Monday,July,21,1997 D.Monday,07,21,1997 52114.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序: Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox "帐号有非数字字符错误" Text1.Text = "" Text1.SetFocus else MsgBox "帐号正确" End If End Sub 当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单) A.显示对话框，提示信息为"帐号正确" B.显示对话框，提示信息为"帐号有非数字字符错误" C.程序出错 D.没有任何提示 52115.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序: Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox "帐号有非数字字符错误" Text1.Text = "" Text1.SetFocus else MsgBox "帐号正确" End If End Sub 当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单) A.显示对话框，提示信息为"帐号正确" B.显示对话框，提示信息为"帐号有非数字字符错误" C.程序出错 D.没有任何提示 52116.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序: Private Sub Command1_Click( ) Dim I As Integer If Text1.Text ,, "Gong" Then I = MsgBox("密码错误", 5 + vbExclamation, "输入密码") If I ,, 4 Then End Else Text1.Text = "" Text1.SetFocus End If Else 17 MsgBox "密码帐号正确～" End If End Sub 若在text1中输入字符串"Gong"，则程序运行结果为(A)(单) A.显示对话框，提示"密码帐号正确～" B.显示对话框，提示"密码错误" C.程序出错 D.没有任何提示 52117.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序: Private Sub Command1_Click( ) Dim I As Integer If Text1.Text ,, "Gong" Then I = MsgBox("密码错误", 5 + vbExclamation, "输入密码") If I ,,4 Then End Else Text1.Text = "" Text1.SetFocus End If Else MsgBox "密码帐号正确～" End If End Sub 若在text1中输入字符串"gong"，则程序运行结果为(B)(单) A.显示对话框，提示"密码帐号正确～" B.显示对话框，提示"密码错误" C.程序出错 D.没有任何提示 52118.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序: Private Sub Command1_Click( ) Dim I As Integer If Text1.Text ,, "Gong" Then I = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码") If I ,, 4 Then End Else Text1.Text = "" Text1.SetFocus End If Else MsgBox "密码帐号正确～" End If End Sub 若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单) A.显示对话框中有“重试”按钮 B.显示对话框中有“确定”按钮 C.显示对话框中有“是”按钮 D.以上说法都不正确 52119.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为comma nd1的命令按钮，编写如下代码: Private Sub Command1_Click( ) Dim x!, y!, z!, t! x = Text1 18 y = Text2 z = Text3 If x , y Then t = x x = y y = t End If z Then If y , t = y y = z z = t If x, y Then t = x x = y y = t End If End If Label1.Caption = x & "," & y & "," & z End Sub 当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单) A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.5 52120.以下程序段: Private Sub Form_Load( ) Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2 Nop = val(Inputbox("请输入1-4之间的整数")) Select Case Nop Case 1 Op = "，" Result = Num1 + Num2 Case 2 Op = "," Result = Num1 - Num2 Case 3 Op = "×" Result = Num1 * Num2 Case 4 Op = "?" Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & "=" & Result End Sub 窗体运行后，输入1，则label1的标题显示结果为(A)(单) A.3+2=5 B.3-2=1 C.3×2=6 D.3?2=1.5 52121.以下程序段: Private Sub Form_Load( ) Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2 Nop = val(Inputbox("请输入1-4之间的整数")) 19 Select Case Nop Case 1 Op = "，" Result = Num1 + Num2 Case 2 Op = "," Result = Num1 - Num2 Case 3 Op = "×" Result = Num1 * Num2 Case 4 Op = "?" Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & "=" & Result End Sub 窗体运行后，输入2，则label1的标题显示结果为(B)(单) A.3+2=5 B.3-2=1 C.3×2=6 D.3?2=1.5 52122.以下程序段: Private Sub Form_Load( ) Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2 Nop = val(Inputbox("请输入1-4之间的整数")) Select Case Nop Case 1 Op = "，" Result = Num1 + Num2 Case 2 Op = "," Result = Num1 - Num2 Case 3 Op = "×" Result = Num1 * Num2 Case 4 Op = "?" Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & "=" & Result End Sub 窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5 B.3-2=1 C.3×2=6 D.3?2=1.5 52123.以下程序段: Private Sub Form_Load( ) Dim Nop As Integer, Op As String * 1 Num1 = 3 Num2 = 2 Nop = val(Inputbox("请输入1-4之间的整数")) Select Case Nop Case 1 Op = "，" 20 Result = Num1 + Num2 Case 2 Op = "," Result = Num1 - Num2 Case 3 Op = "×" Result = Num1 * Num2 Case 4 Op = "?" Result = Num1 / Num2 End Select Label1= Num1 & Op & Num2 & "=" & Result End Sub 窗体运行后，输入4，则label1的标题显示结果为(D)(单) A.3+2=5 B.3-2=1 C.3×2=6 D.3?2=1.5 52124.以下程序段的作用是(A)(单) Private Sub Picture1_Click( ) Dim asci As Integer, i As Integer i = 0 For asci = 32 To 126 Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci; i = i + 1 If i = 7 Then i = 0: Picture1.Print Next asci A.打印ASCII码表，一行7个表达式 B.打印九九乘法表，一行7个表达式 C.打印ASCII码表，一行8个表达式 D.以上说法都不正确 52125.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。 Private Sub Command1_Click( ) Dim x, n x = Val(Text1) n = 0 Do While 【x】,26 x = x * (1 + 0.008) n = n + 1 Loop Text2 = Str(n) End Sub 52126.以下程序的作用是(B)(单) For i = 1 To 9 For j = 1 To 9 se = i & "×" & j & "=" & i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i A.打印ASCII码表 B.打印九九乘法表 C.打印加法表 D.以上说法都不正确 21 52127.求自然数e的近似值，误差小于0.00001，近似公式为:e=1+1/1!+1/2!+1/3!+„„+1/I!+„„以下程序用来求自然 数e。 Private Sub Form_Click( ) Dim I%, n&, t!, e! E = 0 ' 存放累加和结果 I = 0 ' 计数器 n = 1 ' 存放阶乘的值 t = 1 ' 级数第I项值 Do While 【t>】 0.00001 e = e + t I = I + 1 n = n * I t = 1 / n Loop Print "计算了 "; I; " 项的和是 "; e End Sub 52128.求自然数e的近似值，误差小于0.00001，近似公式为:e=1+1/1!+1/2!+1/3!+„„+1/I!+„„以下程序用来求自然 数e。 Private Sub Form_Click( ) Dim I%, n&, t!, e! E = 0 ' 存放累加和结果 I = 0 ' 计数器 n = 1 ' 存放阶乘的值 t = 1 ' 级数第I项值 Do While t,0.00001 e = e + 【t】 I = I + 1 n = n * I t = 1 / n Loop Print "计算了 "; I; " 项的和是 "; e End Sub 52129.求自然数e的近似值，误差小于0.00001，近似公式为:e=1+1/1!+1/2!+1/3!+„„+1/I!+„„以下程序用来求自然 数e。 Private Sub Form_Click( ) Dim I%, n&, t!, e! E = 0 ' 存放累加和结果 I = 0 ' 计数器 n = 1 ' 存放阶乘的值 t = 1 ' 级数第I项值 Do While t,0.00001 e = e + t I = I + 1 n = n * 【I】 t = 1 / n Loop Print "计算了 "; I; "项的和是"; e End Sub 52130.以下程序是求最大公约数和最小公倍数的程序。 Private Sub Form_Click( ) 22 Dim m1, n1, m, n, r As Integer n1 = InputBox("输入自然数n", "输入数") m1 = InputBox("输入自然数m", "输入数") n = n1 m = m1 If m , n Then t = m: m = n: n = t End If r = m Mod 【n】 Do While (r,,0) m = n n = r r = m Mod n Loop Print "最大公约数=", n Print "最小公倍数= ", m1 * n1 / n End Sub 52131.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。 Private Sub Form_Click( ) Dim m1, n1, m, n, r As Integer n1 = InputBox("输入自然数n", "输入数") m1 = InputBox("输入自然数m", "输入数") n = n1 m = m1 If m ,n Then t = m: m = n: n = t End If r = m Mod n Do While r 【<>】 0 m = n n = r r = m Mod n Loop Print "最大公约数=", n Print "最小公倍数= ", m1 * n1 / n End Sub 52132.下面是求100以内素数的程序。 Private Sub Command1_Click( ) Dim i As Integer, m As Integer, tag As Boolean For m = 2 To 100 tag = True For i = 2 To m - 1 If m Mod 【i】 = 0 Then tag = False Next i If tag Then Print m Next m End Sub 52133.下面是求100以内素数的程序，下面说法正确的是(A)(单) Private Sub Command1_Click( ) Dim i As Integer, m As Integer, tag As Boolean 23 For m = 2 To 100 tag = True For i = 2 To m - 1 If m Mod i = 0 Then tag = False Next i If tag=true Then Print m Next m End Sub A.tag为true时，表示m是素数 B.tag为false时，表示m是素数 C.语句m Mod i = 0，说明m是素数 D.以上说法都不正确 52134.百元买百鸡问题: 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列 出了所有可能的购鸡方案。 Private Sub Command2_Click( ) Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 If 3 * x + 2 * y + 0.5 * (100 - x - y) = 100 Then Picture2.Print x, y, 【100-x-y,10-y-x】 End If Next y Next x End Sub 52135.百元买百鸡问题: 假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列 出了所有可能的购鸡方案。 Private Sub Command1_Click( ) Dim x%, y%, z% For x = 0 To 33 For y = 0 To 50 For z = 0 To 100 If 3 * x + 2 * y + 0.5 * z = 100 And 【x+y+z=100】 Then Picture1.Print x, y, z End If Next z Next y Next x End Sub 52136.随机产生10个100,200之间的数，求它们的最大值程序如下: Private Sub Command1_Click( ) Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x , Max Then 【】 Next i Print Print "最大值="; Max End Sub 在此程序中，其中【】处应该填写的是(C)(单) A.Max = 100 B.Max =200 C.Max = x D.Max = 0 24 52137.随机产生10个100,200之间的数，求它们的最大值程序如下: Private Sub Command1_Click( ) Max = 100 For i = 1 To 10 x = int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】 Print x; If x , Max Then Max=x Next i Print Print "最大值="; Max End Sub 52138.随机产生10个100,200之间的数，求它们的最大值程序如下: Private Sub Command1_Click( ) Max = 100 For I = 1 To 10 x =Int(Rnd * 101 + 100) Print x; If 【】 Then Max=x Next I Print Print "最大值="; Max End Sub 在【】处应该填写的是:(A)(单) Max B.x ,Max C.x = Max D.以上都不正确 A.x , 52139.以下是求1,100之间5或7的倍数的和，如下程序段: Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then 【】 End If Next i Print Sum 其中【】处书写正确的是(B)(单) A.Sum = i B.Sum = Sum + i C.Sum = Sum + 5+7 D.以上都不正确 52140.以下是求1,100的5或7的倍数的和程序段: Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i 【mod】 7=0 Then Sum = Sum + i End If Next i Print Sum 52141.以下叙述中错误的是(B)(单) A.Visual Basic 是事件驱动型可视化编程工具 B.Visual Basic应用程序不具有明显的开始和结束语句 C.Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性 D.Visual Basic中控件的某些属性只能在运行时设置 25 52142.以下叙述中错误的是(A)(单) A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B.以.BAS为扩展名的文件是标准模块文件 C.窗体文件包含该窗体及其控件的属性 D.一个工程中可以含有多个标准模块文件 52143.以下叙述中错误的是(B)(单) A.双击鼠标可以触发DblClick事件 B.在编程过程中，窗体或控件的事件的名称可以由编程人员自由确定 C.移动鼠标时，会触发MouseMove事件 D.控件的名称可以由编程人员设定 52144.以下不属于Visual Basic系统的文件类型是(B)(单) A..frm B..bat C..vbg D..vbp 52145.以下叙述中错误的是(C)(单) A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B.保存Visual Basic程序时，应分别保存窗体文件及工程文件 C.Visual Basic应用程序只能以解释方式执行 D.事件可以由用户引发 52146.以下声明语句中错误的是(B)(单) A.Const var1=123 B.Dim var2 = 'ABC' C.Public a,b as integer D.Static a as single 52147.设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是(D)(单) A.List1.List B.List1.ListIndex C.List1.Index D.List1.Text 52148.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)(单) A.MouseDown B.MouseUp C.Load D.Click 52149.设a=10，b=5，c=1，执行语句Print a ,b , c后，窗体上显示的是(B)(单) A.True B.False C.1 D.出错信息 52150.如果要改变窗体的标题，则需要设置窗体的(A)属性(单) A.Caption B.Name C.BackColor D.BorderStyle 52151.以下能判断指针是否指向文件尾的函数是(D)(单) A.BOF B.LOC C.LOF D.EOF 52152.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单) A.如果工程中含有Sub Main过程，则程序一定首先执行该过程 B.不能把标准模块设置为启动模块 C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体 D.任何时刻最多只有一个窗体是活动窗体 52153.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4个参数 ，关于这些参数，正确的描述是(D)(单) A.通过Button参数判定当前按下的是键盘上哪一个键 B.Shift参数只能用来确定是否按下Shift键 C.Shift参数只能用来确定是否按下Alt和Ctrl键 26 D.参数x,y用来设置鼠标当前位置的坐标 52154.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单) A.Combo1.RemoveItem Text B.Combo1.RemoveItem 2 C.Combo1.RemoveItem 3 D.Combo1.RemoveItem Combo1.Listcount A)(单) 52155.以下关于焦点的叙述中，错误的是( A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据 B.当文本框失去焦点时，触发LostFocus事件 C.当文本框的Enabled属性为False时，其Tab顺序不起作用 D.可以用TabIndex属性改变Tab顺序 52156.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单) A.= B.* C.& D.- 52157.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程: Private Sub Command1_Click( ) n = val(Text1.Text ) Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is , 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单) A.10 B.20 C.30 D.40 52158.设有以下循环结构 Do 循环体 Loop While ,条件, 则以下叙述中错误的是(A)(单) A.若"条件"是一个为0的常数，则一次也不执行循环体 B."条件"可以是关系表达式、逻辑表达式或常数 C.循环体中可以使用Exit Do语句 D.如果"条件"总是为True，则不停地执行循环体 52159.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click( ) Dim num As Integer num = 1 Do Until num , 6 Print num; num = num + 2.4 Loop End Sub 27 程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单) A.1 3.4 5.8 B.1 3 5 C.1 4 7 D.无数据输出 52160.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click( ) Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a,1 Loop While a ,, 0 Print s; a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单) A.7 9 B.34 0 C.9 7 D.死循环 52161.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: 有如下通用过程: Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function Private Sub Command1_Click( ) Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单) A.10 5 B.20 5 C.20 40 D.10 40 52162.设有如下通用过程: Public Sub Fun(a( ), ByVal x As Integer) For i = 1 To 5 x = x + a(i) Next I End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程: Private Sub Command1_Click( ) Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next I n = 10 Call Fun(arr( ), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单) A.10 B.15 C.25 D.24 28 52163.在窗体上画一个名称为Command1的命令按钮，然后编写如下代码: Option Base 1 Private Sub Command1_Click( ) d = 0 c = 10 x = Array(10, 12, 21, 32, 24) For i = 1 To 5 If x(i) , c Then d = d + x(i) c = x(i) Else d = d,c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单) A.89 B.99 C.23 D.77 52164.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label 4、Label5、Label6，其中标签Label 4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示 Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当 单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功 能的事件过程是(C)(单) A.Private Sub Command1_Click( ) Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption)) End Sub B.Private Sub Command1_Click( ) Label3.Caption = HScroll1.Value *HScroll2.Value End Sub C.Private Sub Command1_Click( ) Label3.Caption = HScroll1 * HScroll2 End Sub D.Private Sub Command1_Click( ) Label3.Caption = HScroll1. Text *HScroll2.Text End Sub 52165.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click( ) For n = 1 To 20 If n Mod 3 ,, 0 Then m = m + n \ 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单) A.15 B.18 C.21 D.24 52166.在窗体上画一个名称为Text1的文本框，并编写如下程序: Private Sub Form_Load( ) Show Text1.Text = "" Text1.SetFocus 29 End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single) Print "程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单) A.Visual Basic B.程序设计 C.A程序设计 D.Visual Basic程序设计 52167.设有如下程序: Private Sub Command1_Click( ) Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是(C)(单) A.1+1/2+ 2/3+3/4+4/5 B.1+1/2+2/3+3/4 C.1/2+2/3+3/4+4/5 D.1+1/2+1/3+1/4+1/5 52168.以下有关数组定义的语句序列中，错误的是(D)(单) A.Static arr1(3) :arr1(1) = "100" : arr1(2) = "Hello" :arr1(3) = "123.45" B.Dim arr2( ),size As Integer Private Sub Command2_Click( ) size =InputBox("输入:") ReDim arr2(size) ...... End Sub C.Option Base 1 Private Sub Command3_Click( ) Dim arr3(3) As Integer ...... End Sub D.Dim n As Integer Private Sub Command4_Click( ) Dim arr4(n) As Integer...... End Sub 52169.执行下面的程序段后，I的值为【5.6】 s = 2 For I = 3.2 To 4.9 Step 0.8 s = s + 1 Next I Print i 52170.执行下面的程序段后，S的值为【5】 Private Sub Command1_Click( ) s = 2 For c = 3.2 To 4.9 Step 0.8 s = s + 1 Next c 30 Print s End Sub 52171.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后，如果直接按键盘上的"A"键(即不按住Shift键)，则在窗体上输出的字符分别是A和【a】 52172.把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 程序运行后，如果直接按键盘上的"A"键(即不按住Shift键)，则在窗体上输出的字符分别是【A】和a。 52173.在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程: Private Sub Form_Load( ) Timer1.Enabled = False Timer1.Interval = 【1000】 End Sub Private Sub Form_Click( ) Timer1.Enabled = True End Sub Private Sub Timer1_Timer( ) Label1.Caption = time End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。 ——————— 14:54:41 ——————— 52174.在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程: Private Sub Form_Load( ) Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Form_Click( ) Timer1.Enabled = 【true】 End Sub Private Sub Timer1_Timer( ) Label1.Caption = time End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。 ——————— 14:54:41 ——————— 31 52175.在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程: Private Sub Form_Load( ) Timer1.Enabled = False Timer1.Interval = 1000 End Sub Private Sub Form_Click( ) Timer1.Enabled = true End Sub Private Sub Timer1_Timer( ) Label1.Caption = 【time】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。 ——————— 14:54:41 ——————— 52176.ASIC在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程: Private Sub Command1_Click( ) S$ = InputBox("请输入一个字符串") Text1.Text = S$ End Sub Private Sub Text1_Change( ) Label1.Caption = Ucase(Mid(Text1.Text, 7)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是【basic】 其名称分别为List1、Command1和Label1，通过属性窗口把列52177.在窗体上画一个列表框、一个命令按钮和一个标签， 表框中的项目设置为:"第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第四个项目"的情况)。 Private Sub Command1_Click( ) If List1.ListIndex ,, 【0】 Then List1.RemoveItem List1.ListIndex Label1.Caption = List1.ListCount Else MsgBox "请选择要删除的项目" End If End Sub 运行情况(选择"第四个项目"的情况): label1标签显示: 3 list1列表框显示: ———————— 第一个项目 第二个项目 第三个项目 ———————— 52178.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为:"第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。 32 Private Sub Command1_Click( ) If List1.ListIndex >= 0 Then List1.RemoveItem List1.【listindex】 Label1.Caption = List1.ListCount Else MsgBox "请选择要删除的项目" End If End Sub 运行情况(选择"第三个项目"的情况): ————————————————————— 第一个项目 第二个项目 COMMAND1 第三个项目 3 ————————————————————— 52179.在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列 表框中的项目设置为:"第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个 项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择" 第三个项目"的情况)。 Private Sub Command1_Click( ) If List1.ListIndex ,, 0 Then List1.RemoveItem List1.Listindex Label1.Caption = List1.【listcount】 Else MsgBox "请选择要删除的项目" End If End Sub 运行情况(选择"第三个项目"的情况): ————————————————————— 第一个项目 第二个项目 COMMAND1 第三个项目 3 ————————————————————— 52180.设有程序: Option Base 1 Private Sub Command1_Click( ) Dim arr1, Max as Integer arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) 【max】= arr1(1) For I = 1 To 8 If arr1(I) ,Max Then Max=arr1(I) Next I Print "最大值是: "; Max End Sub 以上程序的功能是:用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。 52181.VB预先设置好的，能够被对象识别并且能够响应的动作是(B)(单) A.动作 B.事件 C.对象 D.属性 52182.下面是窗体的四个属性，在界面设计时，改变(D)属性值看不到窗体变化(单) A.Top B.Width C.Left D.Enabled 33 52183.下面四个选项，不是窗体属性的是(D)(单) A.MinButton B.MaxButton C.Caption D.Load 52184.下面四个选项，不是事件或语句的是(B)(单) A.Load B.Enabled C.Unload D.DblClick 52185.用来设置窗体背景图片的属性是(B)(单) A.Moveable B.Picture C.ForeColor D.WindowState 52186.Load事件是在窗体被装入工作区时(D)触发的事件(单) A.用户 B.程序员 C.手工 D.自动 52187.修改控件属性，一般可以使用属性窗口，也可以通过(D)为属性赋值(单) A.命令 B.对象 C.方法 D.代码 52188.在VB6中的每一个对象都具有自己的属性、(C)和方法(单) A.控件 B.函数 C.事件 D.公用过程 52189.在设计VB6应用程序界面时，改变窗体下面的(C)属性看不到效果.(单) A.Left B.Top C.Visible D.BackColor 52190.下列可作为Visual Basic的变量名的是(A)(单) A.Delta B.Print C.Abs D.LN 52191.下列可作为Visual Basic的变量名的是(B)(单) A.Filename B.ABC C.A,D D.Print 52192.Visual Basic中，在文本框中所允许输入的形式数是(C)(单) A.?25.74 B.3.457E C.368 D.1.87E+50 52193.在Visual Basic中的文本框中所允许输入形式的数是(D)(单) A.10^(1.256) B.D32 C.2.5E D.12 52194.下面(B)数写成普通的十进制数是8.6787E+8(单) A.86787000 B.867870000 C.8678700 D.8678700000 52195.下面(B)数写成普通的十进制数是2.567E-2.(单) A.0.0002567 B.0.02567 C.0.002567 D.0.00002567 52196.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单) a ,b And c,,d Or 2 * a,c A.True B.False C.-1 D.1 #52197.设a=2，b=3，c=4，d=5，下列表达式的值是(B)(单) 3 ,2*b Or a=c And b,,c Or c,d A.-1 B.TRUE C.FALSE D.1 52198.设a=2，b=3，c=4，d=5，下列表达式的值是(D)(单) NOT a,,c OR 4*c=b，2 AND b,,a+c A.-1 B.1 C.TRUE D.FALSE 52199.实现字符转换为数值的函数是(B)(单) A.Str B.Val C.Trim D.Mid 34 52200.假设X=3，Y=6，Z=5，则表达式:(X^2+Y)\Z的值是(C)(单) A.1 B.5 C.3 D.2.4 52201.假设A=3，B=7，C=2，则表达式:(A,B) OR (B,C)的值是(A)(单) A.TRUE B.FALSE C.表达式错误 D.不确定 52202.在表达式y=InputBox("a","b","c")中，b为输入函数对话框的(A)(单) A.标题 B.提示 C.默认值 D.帮助文件名 52203.假设A=3，B=7，C=2，则表达式: NOT(BA) 的值是(B)(单) A.TRUE B.FALSE C.表达式错误 D.不确定 52204.在表达式y=InputBox("a","b","c")中，c为输入函数对话框的(C)(单) A.标题 B.提示 C.默认值 D.帮助文件名 52205.假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是(C)(单) A.Print 25 B.Picture1.Print 25 C.Text1.Print 25 D.Text1.text= 25 52206.以下语句的输出结果是(在立即窗口中)(B)(单) (,CR,为回车，Δ表示空格) a=27,CR, (,CR,为回车，下同) b=65,CR, Print a;b ,CR, A.,CR,27,CR,65 B.27 65,CR, C.Δ27,CR,65,CR, D.以上都不对 52207.以下语句的输出结果是(C)(单) (,CR,为回车，Δ表示空格) a="Beijing" ,CR, b="ShangHai" ,CR, Print a;b ,CR, A.Beijing,CR,ShangHai B.,CR,beijing,CR,ShangHai C.BeijingShangHai,CR, D.ΔBeijingΔ 52208.语句Print 5*5,5,5的输出结果是(B)(单) A.5 B.25 C.0 D.1 52209.设a、b、c为整型变量，其值分别为1、2、3，以下程序段的输出结果是(D)(单) A=b:b=c:c=a Print a;b;c A.1 2 3 B.2 3 1 C.3 2 1 D.2 3 2 52210.语句Print Abs(6 ^ 2) + Int(-3.6 ^ 2) 的输出结果是(D)(单) A.-36 B.1 C.-1 D.23 52211.以下语句的输出结果是(B)(单) A=Sqr(3) Print Format(a,"$$####.###") A.$1.732 B.$$1.732 C.$1732 D.$$0001.732 35 52212.以下程序段的输出结果是(D)(单) A=Sqr(3) b=Sqr(2) c=a,b Print c A.-1 B.0 C.FALSE D.TRUE 52213.以下语句的输出结果是(C)(单) Print Format$(32548.5,"000,000.00") A.32548.5 B.32,548.5 C.032,548.50 D.32,548.50 52214.执行以下程序段后，变量c$的值为(D)(单) a$="Visual Basic Programing" b$="Quick" c$=b$ & Ucase(Mid$(a$,7,6)) & Right$(a$,11) A.Visual BASIC Programing B.Quick Basic Programing C.QUICK Basic Programing D.Quick BASIC Programing 52215.表达式 4 + 5 \ 6 * 7 / 8 Mod 9 的值是(B)(单) A.4 B.5 C.6 D.7 52216.InputBox函数返回值的类型为(B)(单) A.数值 B.字符串 C.变体 D.数值或字符串(视输入的数据而定) 然后编写如下事件过程: 52217.在窗体上画一个命令按钮， Private Sub Command1_Click( ) a=InputBox$("Enter the First integer") b=InputBox$("Enter the Second integer") Print a+b End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是(D)(单) A.579 B.123 C.456 D.123456 36