vb试卷答案

<一>界面设计

1、以下有关对象属性的说法中正确的是 D 。 A、对象所有的属性都罗列在属性窗口列表中 B、不同对象不可能有同名属性 C、不同对象的同名属性取值一定相同

D、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变

2、有程序代码：Text1.Text=”Visual Basic”其中的Text1、Text和”Visual Basic”分别代表 C 。

A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值

3、一个对象可以执行的动作与可被对象识别的动作分别称为 B 。 A、 事件，方法 B、 方法，事件 C、 属性，方法 D、 过程，事件 4、Visual Basic是一种面向 D 的程序设计语言。

A、过程 B、 用户 C、 方法 D、 对象 5、一只白色的足球踢进球门，则白色、足球、踢、进球门是 B 。 A、属性、对象、方法、事件 B、 属性、对象、事件、方法 C、对象、属性、方法、事件 D、 对象、属性、事件、方法 6、Visual Basic是用于开发 B 环境下的应用程序的工具。 A、DOS B、Windows C、DOS和Windows D、UNIX 7、一个可执行的Visual Basic中应用程序至少要包括一个 C 。 A、标准模块 B、类模块 C、窗体模块 D、辅助模块 8、在Visual Basic

最基本的对象是 B ，它是应用程序的基石。 A、标签 B、窗体 C、文本框 D、命令按钮

9、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入 A 。 A、- B、+ C、& D、#

10、在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入 B 符号，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。 A、下划线 B、& C、$ D、@

11、在窗体Form1的Click事件过程中有以下语句：Label1.Caption=”visual basic”

若本语句执行前，标签控件的名称属性和Caption属性取缺省值，则标签控件的名称属性和Caption 属性在执行本语句前的取值分别为 C 。 A、 Label, Label B 、 Label, Caption C、 Label1, Label1 D、 Caption, Label 12、同上题，该语句执行后，标签控件的名称属性和caption属性取值分别为 B 。

A、Label, visual basic B、Label1, visual basic C、Label1, caption D、 Label1, label1

13、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按钮控件的名称属性和Caption属性分别为 C 。

A、OK、Cmd B、 Cmd、OK C、 CmdOK、OK D、 OK、CmdOK 14、窗体Form1的名称属性是frm，它的Load事件过程名是 A 。 A、Form_Load B、 Form1_Load C、 frm_Load D、 Me_Load 15、用窗体的 C__属性来设置窗体的标题。

第1页

A、Style B、Text C、Caption D、Name

16、多窗体程序有多个窗体组成。在缺省情况下，VB在执行程序时，总是把 B 指定为启动窗体。

A、不包含任何控件的窗体 B、设计时的第一个窗体 C、命名为Frm1的窗体 D、包含控件最多的窗体 17、Visual Basic程序设计时常用的Print、Cls属于 C 。 A、属性 B、打印字库 C、方法 D、事件 18、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的 D 中安排适当的单选按钮，即可实现。 A、框架控件（Frame）或图象控件(Image) B、组合框（ComboBox）或图象控件(Image)

C、组合框（ComboBox）或图片框（PictureBox） D、框架控件（Frame）或图片框（PictureBox）

19、在程序中可以通过复选框和单选按钮的 B 属性值来判断它们的当前状态它。 A、Caption B、Value C、Checked D、Selected 20、使用 B 方法可将新的列表项添加到一个列表框中。

A、Print B、AddItem C、Clear D、RemoveItem 21、在以下有关对象属性的叙述中，不正确的是 C 。 A、一个对象的属性可分为外观、行为等若干类。 B、不同属性可能具有不同的数据类型。

C、一个对象的所有属性都可在属性窗口的列表中进行设置。 D、属性窗口中的属性列表既可按字母序也可按类别排列。 22、下列语句中，不能正确执行的是 D 。 A、If Option1.Value Then

B、If Option1.Value = True Then C、Check1.Value = 0 D、Check1.Value = True

23、在以下有关对象属性的叙述中错误的是 D 。 A、所有对象都具有Name 属性。

B、只能在执行时设置或改变的属性为执行时属性。

C、对象的某些属性只能在设计时设定，不能使用代码改变。 D、Enabled属性值设为False的控件对象在窗体上将不可见。 24、以下使用方法的语句中，正确的是 A 。

A、List1.Clear B、Form1.Clear C、Combo1.Cls D、Picture1.Clear 25、以下所列的7个控件中，具有Caption属性的有 A 个。

PictureBox Frame OptionButton ListBox TextBox Form DriveListBox A、 3 B、 4 C、 2 D、 5 26、以下使用方法的代码中，正确的是 C 。 A、 Label1.SetFocus B、Form1.Clear C、 Text1.SetFocus D、Combo1.Cls 27、放置控件到窗体中的最迅速的方法是___A_____ A、双击工具箱中的控件 B、单击工具箱中的控件

C、拖动鼠标 D、单击工具箱中的控件并拖动鼠标 28、Image 控件加载图片后的尺寸____D_______A、 比图片大 B、比图片小 C、与图片大小不同 D、与图片大小相同 29、设有一个命令按钮，若要实现按回车键等同按此键，应设置其___C______

A、Cancel属性设为True B、Cancel属性设为False C、Default属性设为True D、Default属性设为False 30、下列 ___C_____ 不是列表框的方法

A、AddItem B、Clear C、Print D、RemoveItem

31、要想在一个文本框中显示多行内容,应在界面设计时对下列哪一个属性进行设置 C 。 A、 Text B、Font C、Multiline D、Alignment 32、不论何种控件都具有的属性是 A

A、 Name B、Caption C、Text D、Forecolor 33、程序运行时，系统自动执行启动的是窗体的 A 事件。

A、 Load B、Unload C、Click D、Gotfocus 34、在VB集成环境中创建VB应用程序时，除了工具箱窗口、属性窗口、窗体中的窗口外，还有是必不可少的。

A、 窗体布局窗口 B、立即窗口 C、代码窗口 D、监视窗口 35、当移动控件，重新设定其尺寸时， C 属性会自动改变。

A、Click Change B、Name Caption C、Top Left D、Cancel Default 36、当用户单击命令按钮时， B 属性可以使得命令按钮对激发事件无效。

A、 Name B、Enable C、Default D、Cancel

37、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于 D 状态。

A、 不选中 B、不显示 C、禁止 D、选中 38、计时器控件每次经历一个固定的时间间隔就会 B 。

A、 修改属性 B、触发事件 C、建立窗体 D、显示图片 39、菜单编辑器通过 A 来确定某个菜单栏选项的子菜单。

A、 缩进 B、编号 C、复选框 D、下箭头 40、在菜单过程中使用的事件是利用鼠标 C 菜单条来实现的。

（1）C>=”0”And C<”9” Or C>=”A”And C<=”Z” TRUE （2）C<=”0”And C>=”9”Or C>=”A”And C<=”Z” TRUE （3）C>=”0”And C=”9”And C>=”A”AndC<=”Z” FALSE （4）C>=”0”Or C<=”9”And C>=”A” Or C<=”Z” TRUE 18、设A=2,B=3,C=4,D=5,写出下列布尔表达式的值。 （1）A>B And C<=D Or 2*A>C FALSE

（2）3>2*B Or A=C And B<>C Or C>D FALSE （3）Not A<=C Or 4*C=B^2 And B<>A+C FALSE

19、若A=20,B=80,C=70,D=30,则表达式A+B>160 Or(B*C>200 And Not D>60)的值是 TRUE 20、设A=2,B=-2,则表达式A/2+1>B+5 Or B*(-2)+6的值是 10 21、写出下面Format函数的值：

（1）Format(5459.4,”# #,# # 0.00”)值为：”5,459.40” （2）Format（334.9，“####“）值为： “335” （3）Format（0.6725，“0.00”）值为： “0.67” （4）Format（0.6725，“#.00”）值为： “.67” <三>分支结构习题 一、 选择题 1、 有如下程序：

Private Sub Command1_Click() x = -5 s = InputBox(\Case Is > 0 y = x + 1

Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub 假设运行时从键盘上输入-5，输出结果是 A

A、-5 -2 B、-5 -4 C、-5 -3 D、-5 -5 2、 下列程序段的执行结果是 B X = 2 Y = 1

If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 A、True B、False C、-1 D、1

3、 关于语句If x=1 Then y=1，下列说法正确的是 C

A、x=1和y=1均为赋值语句 B、x=1和y=1均为关系表达式 C、x=1为关系表达式，y=1为赋值语句 D、x=1为赋值语句，y=1为关系表达式

4、 Select case x 语句结构中，测试项可以有三种形式，以下使用正确的是： A A、Case 20>is B、Case x<=8 ，10 to 25 C、Case is>9 and is<25 D、Case is>x 二、 填空题

1、 读程序，单击窗体后，在窗体上显示的内容为 Private Sub Form_Click() x = 1 t = 1

Select Case t Case Is > 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub 2、 下面的程序输入X的值，按以下公式求Y的值。

-100≤X<0

0≤X≤100 400 100

x = Val(text1.Text) Select Case x

Case Is<-100,Is>200 Print \Case Is<=100 y = 100 + x Case Else y = 400 End Select text2.Text = y End Sub

3、 有如下程序段，写出运行后的输出结果为 16 Private Sub command1_click() a = 1: b = 2: c = 3

a= a + b: b = b + a: c = b + a If a <> 3 Or b <> 3 Then a = b - a: b = c - a: c = b + a End If Print a + b + c End Sub

4、 判断某一年是否是闰年，闰年的条件是年份可以被4整除，却不可被100整除或可以被400

整除。要求用户从键盘上任意输入一个年份，判断后用消息框显示结果，如输入1996，应在消息框中显示“1996是闰年”的提示。程序如下： Private Sub Form_Click() Dim n As Integer n = Val(InputBox(“请输入一个年份”)

If n Mod 4=0 And n Mod 100<>0 Or n Mod 400=0 Then MsgBox n & \是闰年\

MsgBox n & \不是闰年\

5、 任意输入三个数，将其按从小到大的顺序输出。

提示：这一题的思路是对输入的三个数两两比较，比如将三个数分别保存在变量a,b,c中，将a和b、c分别进行比较，如果a比b或c大，则交换a和b或c的值，这样在a中就保存三个数中的最小数，再将b和c进行比较，如果b>c，则交换b与c的值，让c中保存最大数， b中保存较大数，a中保存最小数，最后，a、b和c的顺序就是从小到大的顺序。所以这一题实际上是变量交换算法的应用。程序如下： Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer Dim temp As Integer ?定义中间变量 a = InputBox(\输入第一个数\

b = InputBox(\输入第二个数\输入第三个数\Print “初始值：”;a; b; c If a > b Then End If

If Then temp = a: a = c: c = temp End If If Then temp = b: b = c: c = temp End If Print “排序后：”;a; b; c End Sub

6、 要产生如图1所示输入函数对话框的界面

图1 图2 请填空： x= InputBox(“输入检测的数据”,”数据检测”) 若希望在录入时自动显示初始值为1，则该语句应写成：

x= InputBox(“输入检测的数据”,”数据检测”,”1”) 7、 填空，使程序运行时显示如图2所示的信息提示框：

Msgbox “恭喜你，登录成功！”,vbOkOnly+ vbExclamation,”登录信息” 8、 运行下列程序后，单击窗体后在窗体上显示的结果是 -3 3 。 Private Sub Form_Click()

Dim x As Integer ,y As Integer x=5 y=-20

If Not x>0 Then x=y-3 Else y=x+3 End If

Print x-y , y-x End sub <四>循环结构

1、 以下 B 是正确的For…Next结构。

A、For x=1 To Step l0 B、For x=3 To -3 Step -3 … … Next x Next x C、For 1 To 10 D、For x=3 To 10 Step 3 … … Next Next y 2、 下列循环能正常结束循环的是 C 。 A、i=5 B、i=1 Do Do 第5页 i=i+1 i=i+2

Loop Until i<0 Loop Until i=10 C、i=10 D、 i=6 Do Do i=i+1 i=i-2 Loop Until i>0 Loop Until i=1 3、 下面程序段的运行结果为 C 。 For i=3 To 1 Step -1 Print Spc(5-i)； For j=1 To 2*i-1 Print \； Next j Print Next i A、 * B、 ***** C、 ***** D、 ***** *** *** *** *** ***** * * * 4、 下面__B___程序段不能分别正确显示1!、2!、3!、4!的值 A、For i=1 To 4 B、For i=1 To 4 n=1 For j=1 To i For j=1 To i n=1 n=n*j n=n*j Next j

Next j Print n Print n Next i Next i C、n=1 D、n=l For j=1 To 4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 5、 执行以下语句后，a的值为__C___ Dim a As Integer a = 1 Do Until a = 100 a = a + 2 Loop

A、 99 B、100 C、溢出 D、101 6、 代码 For v=20 To 10 Step -2 print v Next v

的循环体将执行__B____次、 A、5次 B、 6次 C、10次 D、0次

7、 有程序段如下：

For i=1 to 3

For j=5 to 1 step –1 Print i*j Next j Next i

其中 “Print i*j”语句执行的次数为：__A______ A、15 B、16 C、 17 D、18

8、 下面程序运行后，单击command1后屏幕显示是___A______。 i = 1

Do While i <= 100

If i Mod 10 <> 0 Then s = s + i i = i + 1 Else

i = i + 1 End If Loop Private sub command1_click() For I=1 to 4 If I>3 then exit for Next I

For j= 1 to 6 Next j Print I,j End sub

A、4 7 B、5 6 C、 4 6 9、 下列程序段的执行结果为：______B_____ a = \= Right(a, i) z = x & y & z Next i Print z

A、ABA B、BBABBA C、AABAAB 10、 下列程序段的执行结果为__D____ x = 6

For k = 1 To 10 Step -2 x = x + k Next k

本文来源：https://www.bwwdw.com/article/ssf2.html