VB程序设计试题与答案.docx

1、VB程序设计试题与答案1.要使一个标签能够显示所需要的文本，应设置该标签的( )属性的值(单)A.Caption B.Name C.Text D.AutoSize2.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为( )(单)A.5 B.300 C.500 D.50003.下列的( )对象支持KeyPress事件(单)A.文本框 B.命令按钮 C.标签框 D.图像框4.确定一个控件在窗体上的位置的属性是( )(单)A.Width或Height B.Top和Height C.Top或Width D.Top和Left5.确定一个窗体或控件的大小的属性是

2、( )(单)A.Width或Height B.Top和Width C.Top或Left D.Top和Left6.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为( )(单)A.面向对象的程序设计 B.结构化程序设计 C.事件驱动的编程机制 D.程序设计7.在VB中，工程文件的扩展名是( )(单)A.frm B.vbp C.bas D.frx8.在VB中，窗体文件的扩展名是( )(单)A.frm B.vbp C.bas D.frx9.VB集成开发环境可以( 单)A.编辑、调试、运行程序，但不能生成可执行程序B.编辑、生成可执行程序、运行程序，但不能调试程序C.

3、编辑、调试、生成可执行程序，但不能运行程序D.编辑、调试、运行程序，也能生成可执行程序10.英文VISUAL的含义是( )(单)A.可视化 B.集成 C.结构化 D.调试11.标准模块文件的扩展名是( )(单)A.frm B.vbp C.bas D.vbg12.VB集成开发环境中，在( )中编写代码(单)A.状态栏 B.属性列表框 C.代码框 D.标题栏13.在面向对象的程序设计过程中，英文缩写OOP的含义是( )(单)A.事件驱动的编程机制 B.结构化程序设计语言 C.面向对象的程序设计 D.可视化程序设计14.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件

4、，则以下正确的属性设置语句是( )(单)A.Timer1.Interval=0.5 B.Timer1.Interval=5 C.Timer1.Interval=50 D.Timer1.Interval=50015在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )a$=VisualBasicPrint String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是( )(单)A.VVV B.Vis C.sic D.1116.以下关于多重窗体程序的叙述中，错误的是( )(单)A.用Hide方法不但可

5、以隐藏窗体,且能清除内存中的窗体B.在多重窗体程序中，各窗体的菜单是彼此独立的C.在多重窗体程序中，可以根据需要指定启动窗体D.对于多重窗体程序中，单独保存每个窗体17以下合法的Visual Basic变量的名称是( )(单)A.a3 B.Const C.9abc D.a#x!18.当一个复选框被选中时，它的Value属性的值是( )(单)A.3 B.2 C.1 D.019.表达式 5 Mod 3+53的值是( )(单)A.0 B.3 C.4 D.620设x=4,y=8,z=7, 表达式：(xy) Or zx 的值是( )(单)A.1 B.-1 C.TRUE D.FALSE21设有如下程序段：

6、x=2For c=1 To 4 Step 2x=x+cNext c运行以上程序后，x的值是( )(单)A.6 B.7 C.8 D.922执行如下两条语句，窗体上显示的是( )(单)A=9.8596Print Format(a,000.00)A.0,009.86 B.9.86 C.009.86 D.0,009.8623下列说法中正确的是：为了保存一个Visual Basic应用程序，应当( )(单)A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件24.要使一个文本框对象能够显示多行文字，应设

7、置该对象的( )属性值为True(单)A.Text B.MultiLine C.Style D.Visible25.若要将窗体从内存中卸载，其实现的方法或语句是( )(单)A.Show B.Unload C.Load D.Hide26.以下选项中，不是VB标准控件的是( )(单)A.命令按钮 B.定时器 C.通用对话框 D.单选框27在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Dim a As Varianta = Array(1, 2, 3, 4, 5)Sum = 0For i = 1 To 5Sum = Sum + a(i - 1)Print a(i - 1), a(

8、i - 1), SumNext ix = Sum / 5For i = 1 To 5If a(i - 1) x Then Print a(i - 1); xNext iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是( )(单)A.1 2B.1 2 3C.3 4 5D.4 528以下Case语句中错误的是( )(单)A.Case 0 To 10 B.Case Is10 C.Case Is10 And Is50 D.Case 3,5,Is1029执行语句s=Len(Mid(VisualBasic,1,6)后，s的值是( )(单)A.Visual B.Basic C.6 D.1130以

9、下关于变量作用域的叙述中，正确的是( )(单)A.用dim定义变量是静态变量B.静态变量必须在标准模块中声明C.用public定义变量是全局变量D.Static类型变量的作用域范围是它所在的窗体或模块文件31以下关系表达式中，其值为False的是( )(单)A.ABCAbC B.thethey C.VISUAL=UCase(Visual) D.IntegerInt32.语句Print int(5/4*65) Mod 2的输出结果是( )(单)A.0 B.1 C.2 D.333在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事

10、件过程：Private Sub Command1_Click( )strText = InputBox(请输入)Text1.Text = strTextEnd SubPrivate Sub Text1_Change( )Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是( )(单)A.空 B.abcdef C.abc D.def34在窗体上画一个名称为Text1的文本框，编写以下代码：Private Sub Text1_KeyPress(KeyAscii As

11、Integer)If KeyAscii 65 Or KeyAscii 90 ThenmsgBox 请输入大写字母KeyAscii = 0End IfEnd Sub以下能说明该事件过程正确是( )(单)A.要求文本框只能接收大写字母的输入 B.要求文本框只能接收小写字母的输入C.要求文本框只能接收数字的输入 D.要求文本框只能接收65到90之间的数值的输入35在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )c = 1234For i = 1 To 4c1 = Trim(Str( )Printc1Next iEnd S

12、ub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为( )(单)A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)36在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。Private Sub Option1_Click(Index As Integer)Select Case indexCase 0a = 宋体Case 1a = 黑体Case 2

13、a = 楷体GB2312End Selecttext1.【 】=aEnd Sub37在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox 帐号有非数字字符错误Text1.Text = Text1.SetFocuselseMsgBox 帐号正确End IfEnd Sub当在text1文本框中输入字符abc之后，单击命令按钮，结果为( )(单)A.显示对话框，提示信息为帐号正确B.显示对话框，提示信息为帐号有非数字字符错误C.程序出错D.没有任何

14、提示38.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocus( )If Not IsNumeric(Text1) ThenMsgBox 帐号有非数字字符错误Text1.Text = Text1.SetFocuselseMsgBox 帐号正确End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为( )(单)A.显示对话框，提示信息为帐号正确B.显示对话框，提示信息为帐号有非数字字符错误C.程序出错D.没有任何提示39.在窗体中建立一个文本框text1和一个命令按钮comman

15、d1，编写下面程序：Private Sub Command1_Click( )Dim I As IntegerIf Text1.Text Gong ThenI = MsgBox(密码错误, 5 + vbExclamation, 输入密码)If I 4 ThenEndElseText1.Text = Text1.SetFocusEnd IfElseMsgBox 密码帐号正确！End IfEnd Sub若在text1中输入字符串Gong，则程序运行结果为( )(单)A.显示对话框，提示密码帐号正确！ B.显示对话框，提示密码错误C.程序出错 D.没有任何提示40.在窗体中建立三个文本框，名称分别为

16、text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_Click( )Dim x!, y!, z!, t!x = Text1y = Text2z = Text3If x y Thent = xx = yy = tEnd IfIf y z Thent = yy = zz = tIf x y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & , & y & , & zEnd Sub当在文本框text1、text2 和 text3 中分别

17、输入5、3和8，则标签显示的结果为( )(单)A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.541.Private Sub Form_Load( )Dim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox(请输入1-4之间的整数)Select Case NopCase 1Op = Result = Num1 + Num2Case 2Op = Result = Num1 - Num2Case 3Op = Result = Num1 * Num2Case 4Op = Result = Num1 / N

18、um2End SelectLabel1= Num1 & Op & Num2 & = & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为( )(单)A.3+2=5 B.3-2=1 C.32=6 D.32=1.542在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是( ) (单)A.Private Sub HScroll_Change( )Text1.Text=HScroll1.Value End SubB.Pr

19、ivate Sub HScroll_Click( )Text1.Text=HScroll1.Value End SubC.Private Sub HScroll_Change( )Text1.Text=HScroll.Caption End SubD.Private Sub HScroll_Click( )Text1.Text=HScroll.Caption End Sub43.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )x=InputBox(Input)Select Case xCase 1,3Print 分

20、支 1Case Is4Print 分支 2Case ElsePrint Else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是( )A.分支1 B.分支2 C.Else分支 D.程序出错44.随机产生10个100200之间的数，求它们的最大值程序如下：Private Sub Command1_Click( )Max = 100For i = 1 To 10x = int【 】Print x;If x Max Then Max=xNext iPrintPrint 最大值=; MaxEnd Sub45设a=10，b=5，c=1，执行语句Print

21、a b c后，窗体上显示的是( )(单)A.True B.False C.1 D.出错信息(46) 在窗体上建立通用对话框需要添加的控件是A) Data控件 B) From控件 C) CommonDialog控件 D) VBComboBox控件 (47) 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是A) Load B) Show C) Hide D) Unload 48) Sub过程与Function过程最根本的区别是A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B) Function过程可以有形参，Sub过程不可以

22、C) Sub过程不能返回值，而Function过程能返回值D) 两种过程参数的传递方式不同 49保存一个工程至少应保存两个文件，这两个文件分别是 ）A)文本文件和工程文件B)窗体文件和工程文件C)窗体文件和标准模块文件D)类模块文件和工程文件50.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是 A)MousePicture B)Style C)DownPicture D)DisabledPicture51假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是 ）A)bool_x=False B)b

23、ool_x=.False. C)bool_x=#False# D)bool_x=False52.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（ ）A) “中华民国” B) “中国人民” C) “中共人民” D) “人民共和”53下列表达式的值为2123的是（ ）A) Val(123asd) & 2000 B) Val(123asd) + 2000C) Str(123) & 2000 D)Str(123)+200054假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程

24、：Private Sub Command1_Click()CommonDialog1.Flags=4CommonDialog1.Filter=all files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.batCommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”对话框中显示的是（ ）A)All Files(* . *) B)Text

25、Files(*. Txt) C)Batch Files(.bat) D)不确定55当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是（ ）A)Load B)Click C)Unload D)GotFocus56.无论何控件，都具有一个共同属性。这个属性是（ ）A)Text B)Font C)Name D)Caption57.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（ ）A)， B)； C)、 D)：58.表达式12000 + 129 & 200的值是 A)12329 B)12129200 C)12000129200 D)1232959.Visual Basic是

26、一种面向对象的程序设计语言，构成对象的三要素是（ ）A)属性、控件和方法 B)属性、事件和方法 C)窗体、控件和过程 D)控件、过程和模块60表达式String(1,I am student) + Replace(am harass,rass,ppy) & !的值是（ ）A)I am happy!B)I am student I am s am harass studentam happy!C)I am student am harass!D)I am student am happy!61.引用列表框（List1）最后一个数据项应使用的表达式是（ ）A)List1.List(List1.Li

27、stCount) B)List1.List(List1.ListCount-1) C)List1.List(ListCount) D)List1.List(ListCount-1)62.以下属性和方法中，可重定义坐标系的是 ）A)DrawStyle属性 B)DrawWidth属性 C)Scale方法 D)ScaleMode属性63.下面说法不正确的是( )A)滚动条的重要事件是Change和ScrollB)框架的主要作用是将控件进行分组，以完成各自相对独立的功能C)组合框是组合了文本框和列表框的特性而形成的一种控件D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上64

28、.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（ ）A)True B)2 C)0 D)165.下列关于过程叙述不正确的是（ ）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的66.为了使标签能自动调整大小以显示全部文本内容，应把标签的【 】属性设置为true。67.要想在文本框中显示垂直滚动条，必须把scrollbars属性设置为2，同时还应把【 】属性设置为true

29、。68.假定有一个文本框，其名称为text1，为了使该文本框具有焦点，应执行的语句是【 】.setfocus。69.假定有一个名为pic2.bmp的图形文件，要在运行期间把该文件装入一个图片框，应执行的语句为图片控件名.picture=【 】。70.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须把该图像框的【 】属性设置为true。71.窗体、图片框或图像框中图形通过对象的【 】属性设置。72.计时器事件之间的间隔通过【 】属性设置。73.有时候要暂关闭计时器，这可以通过【 】属性设置为false来实现。74.设a=sqr(2),则语句Print format$(a,000.0)的输出结果是【 】。75.设a=sqr(3),则语句Print format$(a,#.0)的输出结果是【 】。76.VB应用程序通常由3类模块组成，即窗体模块、【 】模块和类模块。77在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Privatesubcommand1_click( )text1.text=vbtext2.text=text1.texttext1.text=abcdEnd Sub程序运行后，单击命令按钮，文本框text2中显示的内容为 _