大一的vb期末考试题和答案

VB期末考试试题一、填空题
1、VB程序设计的主要特点是（1) 和(2） .
2、在VB中，最主要的两种对象是（3）和(4） .“““”””
3、工程是构成应用程序文件的(5) 。

4、方法是VB提供的一种（6），用来完成一定的操作。

5、浮点类型数据包括单精度型和___（7）__数据。

6、事件是窗体或控件对象识别的___(8）____。

7、可用窗体的___（9）_ 方法在窗体中显示文字。

8、复选框控件Value属性指示复选框处于____(10）___或禁止状态（暗淡的）中的某一种。

9、在VB中,修改窗体的（11）和（12）属性值，可改变窗体的大小.
10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。

11、在MsgBox函数中，如果缺省title参数，则使用（14) 作为消息框的标题。

12、设x＝34。

58，语句Print Format(x,“000。

0”）的输出结果是(15) .
13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17）,布尔型变量的初值为（18）。

14、设置窗体的（19）属性,可在窗体上显示图片。

15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。

二、选择题
1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。

A、GotFocus
B、Load
C、Click
D、KeyDown
2、滚动条控件(如图所示）的Max属性所设置的是(2） .
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句Select ＊Form student 中的*表示（3）。

A、所有记录
B、所有字段
C、所有表
D、都不对
4、以下选项中，不属于标签的属性是(4）。

A、Enabled
B、Caption
C、Default
D、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是(5） .
A、Caption
B、Name
C、Text
D、Label
6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（6） .
A、Caption
B、Name
C、Text
D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（7） .
A、在标题项中输入＆，然后打勾
B、在索引项中打勾
C、在有效项中打勾
D、在复选项中打勾
8、当执行以下过程时,在窗体上将显示(8）。

Private Sub Command1_Click（）
Print "VB"；
Print ”Hello！”；
Print ”VB”
End Sub
A、VBHello！VB
B、VB Hello！VB
C、VB
D、VB
Hello！VB Hello！
VB
9、语句Print ”The answer is：”；20/4—2的结果为（9）。

A、The answer is 20/4—2
B、The answer is 3
C、The answer is ”20/4-2”
D、非法语句
10、下列哪个控件是容器控件(10) 。

A、Image
B、Picture
C、ComboBox
D、FileListBox
11、若要将窗体从内存中卸载出去，其实现的方法是(11）。

A。

Show B。

Hide C.Load D。

UnLoad
12、以下选项中,不是Visual Basic控件的是（12）。

A。

窗体 B.定时器 C.单选框D。

命令按钮
13、双击窗体中的对象后,Visual Basic将显示的窗口是（13）。

A。

代码窗口B．工具箱C．项目(工程)窗口D．属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是(14) .
A。

ControlBox B.MinButton
C.MaxButton
D.BorderStyle
15、设有如下语句：
Strl＝InputBox（”输人”,""，”练习”）
从键盘上输人字符“示例"后,Strl的值是（15）。

A．“输入" B．“ ” C．“练习” D．“示例"
16、窗体Form1的Name属性是Frm1，它的单击事件过程名是(16）。

A。

Form1_Click B.Form_Click C。

Frm1_Click D。

Me_Click
17、窗体的hide属性的含义是（17）。

A。

隐藏B。

展现C。

装入 D.卸载
18、若要设置定时器控件的定时时间，需设置的属性是（18) 。

A．Enabled B．Value C．Interval D．Text
19、能够改变复选框中背景颜色的属性是（19） .
A．Value B．FontColor C．BackColor D．Font
20、窗体能响应的事件是（20）。

A．ActiveForm B．Load C．Drive D．Change
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。

）
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。

2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。

3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。

4、通过改变属性窗口中的Name属性，来改变窗体的标题。

5、创建VB应用程序的三个主要步骤是:(1)创建应用程序界面（2）设置控件（3)编写代码.
6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。

7、已知P＝MsgBox（“Howareyou?”,VbYesNo+VbQuestion，“Hello!”），变量P是Integer数据类型。

8、工程文件的扩展名是 .vbg 。

9、VB允许设计和使用用户自己设计的控件。

10、OptionButton控件没有DblCliek事件。

11、同一条记录中的各数据具有相同的类型.
12、使用Data控件可以直接显示数据库中的数据。

13、ImageList 是一个图像容器控件，可用作工具栏的图像库.
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件.
15、在VB的工程资源管理器中,如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。

16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10.
17、要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False。

18、使用数组定义语句：Dim D$（10)，则数组D中各元素的值为空。

19、如果在一行中输入多条语句，各语句之间用使用；分隔。

20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误。

四、读程序题，写出程序运行结果
1、Private Sub Form_Click（)
Static SUM As Integer
I = 1
Do While I〈=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub
运行程序，第一次单击窗体：
第二次单击窗体：
2、Private Sub Form_Click（）
Print "＊”；Tab(6）；2，Tab(15）；5
Print
For I = 15 To 16
Print I；
For j = 2 To 6 Step 3
Print Tab（3 * j）; j ＊I;
Next j
Print
Next I
End Sub
程序运行结果：
五、编程题
（一）窗体中有图片框（Picture1)和计时器（Timer1)两个控件，运行程序时，将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip(20分之一像素）。

请填空：
Private Sub Form_load( ）
(1) =loadPicture（“c：\pic\ball.ico”）
（2）。

Interval=200
End Sub
Private Sub Timer1_Timer（）
Static x ，y As Integer
x=x+100
y=y+100
Picture1。

Move （3）
End Sub
(二)有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。

请填空:
Private Sub Command1_Click()
Dim x As Integer，N％
Dim Counter As Integer
（1）Timer
For N=1 To 50
X=Rnd（)＊(2）
If (3) =2 Then
Print x
Counter= (4）
（5）
Next N
Print Counter
End Sub
《VB程序设计与应用》参考答案
一、填空题1 2 3 4 5
答案可视化设计事件驱动编程窗体(form）控件集合
题号 6 7 8 9 10
答案特殊子程序双精度动作Print 选中
题号11 12 13 14 15
答案高度(Height) 宽度（Width）中央工程1 34。

6
题号16 17 18 19 20
答案0 空False Picture Cls
二、选择题1 2 3 4 5
答案 C A B C A
题号 6 7 8 9 10
答案 D D A B B
题号11 12 13 14 15
答案 D A A A D
题号16 17 18 19 20
答案 C A C C B
三、判断题1 2 3 4 5 6 7 8
9 10
答案ХХХ√Х√√√√Х
11 12 13 14 15 16 17 18
19 20
答案√Х√√ХХ√ХХ√
四、程序阅读题：
（一）（10分)
1 、55 2、110
（二）、(10分)
＊ 2 5 15 30 75 16 32 80
五、编程题（20分)
（一）1、Picture1.Picture
2、Timer1
3、x ,y
(二) 1、Randomize
2、Rnd（)*41+60
3、x Mod 6
4、Counter＋1
5 End If
一、单项选择题（共10分)
1．在代码中引用一个控件时,应使用控件的（B)属性。

A．Caption B．Name C．Text D．Index
2．设变量x = 4，y = —1,a = 7，b = —8,下面表达式(A)的值为“假”.
A．x+a <= b—y B．x > 0 AND y 〈0
C．a = b OR x〉y D．x+y 〉a+b AND NOT （y 〈b)
3．表达式Int（Rnd＊71)+10产生的随机整数范围是（C ）.
A．（10，80）B．（10,81）C．[10，80］D．［10，81]
4．函数Sgn(3。

1416）的返回值是(C ）。

A．—1 B．0 C．1 D．以上都不对
5．67890属于（D ）类型数据.
A．整型B．单精度浮点数C．货币型D．长整型
6．下列变量名中正确的是(D)。

A．3S B．Print C．Select My Name D．Select_1
7．下列赋值语句（A ）是有效的.
A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（B）。

A．Print B．Textbox C．Optionbutton D．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。

A．Name B．ListIndex C．ListCount D．Text
10．下列代码的运行结果为（B ）。

Private Sub command1_click（）
Dim m（10）
For k = 1 To 10
m（k）= 11 - k
Next k
x = 5
Print m(2 + m（x））
End Sub
A．2 B．3 C．4 D．5
二、填空题（10分)
1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0
式.
2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框.
3．写出在字符串”Visual Basic 6。

0” 中截取"Visual” 的Basic表达式LEFT（“Visual Basic 6。

0”,6)。

4．函数Len（“abcdef”)的返回值是(6）。

5．设a = 2，b = 5，c = -2，d = 100，则a 〉b >= c AND a 〈b >= d的值为False 。

三、将下列数学表达式转换为VB表达式。

（6分)
1．a2+2ab+b2 : a^2+2＊a*b+b^2
2．8exln10 :8*exp(x）＊log（10）
3．2sin(450)cos(450）:2＊sin(3.1416/4）＊cos（3。

1416/4）
6．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。

大一的vb期末考试题和答案
1．在代码中引用一个控件时，应使用控件的（ b )属性。

A．Caption B．Name C．Text D．Index
2．设变量x = 4，y = -1，a = 7,b = -8,下面表达式（ a ）的值为“假”.
A．x+a <= b—y B．x > 0 AND y 〈0
C．a = b OR x〉y D．x+y 〉a+b AND NOT （y < b）
3．表达式Int（Rnd*71）+10产生的随机整数范围是（ c ）。

A．（10，80）B．（10，81) C．［10，80］D．［10,81]
4．函数Sgn(3。

1416）的返回值是( c ）.
A．—1 B．0 C．1 D．以上都不对
5．67890属于（ d ）类型数据。

A．整型B．单精度浮点数C．货币型D．长整型
6．下列变量名中正确的是( d ）。

A．3S B．Print C．Select My Name D．Select_1
7．下列赋值语句（ a ）是有效的。

A．sum = sum —sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0
8．以下的控件或方法具有输入和输出双重功能的为（ b ）。

A．Print B．Textbox C．Optionbutton D．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问( d ）属性来实现。

A．Name B．ListIndex C．ListCount D．Text
10．下列代码的运行结果为（ b ）。

Private Sub command1_click（)
Dim m(10）
For k = 1 To 10
m（k) = 11 — k
Next k
x = 5
Print m（2 + m（x）)
End Sub
A．2 B．3 C．4 D．5
二、填空题(10分）
1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0 。

2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框.
3．写出在字符串”Visual Basic 6。

0" 中截取"Visual”的Basic表达式。

4．函数Len（“abcdef”）的返回值是.
5．设a = 2,b = 5，c = -2，d = 100，则a 〉b >= c AND a < b >= d的值为.
6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True 来实现。

7．若要在一行书写多条语句,则各语句间应加分隔符，Visual Basic的语句分隔符为。

8．要强制显式声明变量,使用__________语句完成。

9．在VB中,用户定义常量使用语句,声明变量使用语句。

三、将下列数学表达式转换为VB表达式.（6分）
1．a2+2ab+b2 __________________________
2．__________________________
3．8exln10 __________________________
4．2sin（450）cos(450）_______________________________
5．___________________________________________
6．___________________________________________
四、判断题,正确打“√”，错误打“×"(10分）
1．在VB中,控件的事件只能通过用户的操作触发。

( ）
2．字符型数据以双引号作为定界符,输出时双引号本身不会显示在屏幕上。

( ）
3．保存工程时,窗体文件和工程文件的文件名不能相同。

（)
4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。

( ）
5．同一过程中,数组和简单变量可以同名。

( )
6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。

（）
7．代码Const Number1=15:Number1=10合法。

（）
8．允许将块If—Then语句结构中的所有语句都写在一行上（）
9．定义数组语句Dim a(b) As Integer 是正确的( ）
10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符.（）
五、根据题意，将下列程序补充完整.（16分）
1．产生20个［10，100] 之间的随机整数，每行输出10个数据。

Private Sub command1_click(）
Dim a（1 To 20) As Integer
Randomize
i = 0
Do While i 〈20
i = i + 1
a（i) = （)
If （)Then
Print a(i)；
End If
If i = 10 Then Print a(i)
If i > 10 Then Print a（i）;
End Sub
2．打印九九乘法表
Private Sub command1_click（)
For i = 1 To 9
For j = 1 To 9
Print ( ）
Next j
Print
（)
End Sub
3．判断一个数是否素数
Private Sub command1_click()
x = InputBox（"请输入一个整数”)
flag = 1
For i = 2 To ( )
If x Mod i = 0 Then
flag = 0
End If
Next i
If （)Then Print x; ”是素数”Else Print x；"不是素数”End Sub
4．利用数组输出Fibonacci数列的前15项.
该数列的第1项和第2项为1,其余各项均为其前两项之和. Private Sub Command1_Click（）
（）
f（1）= 1 ：f（2）= 1
List1。

AddItem f(1）：List1。

AddItem f(2）
For i = 3 To 15
f(i）= ( )
List1。

AddItem f(i)
Next i
End Sub
六、写出下面程序的输出结果。

（每题3分，共18分)
1．Private Sub command1_click（）
x = InputBox（"enter x”) ' x 的输入值为-8
Select Case Sgn（x) + 2
Case 1
Print "y="；x ^ 2 + 1
Case 2
Print ”y=”；x — 4
Case 3
Print ”y="; x ^ 3 + 100
End Select
2．Private Sub command1_click()
Dim a, b，c，d, e As String
a = "Zheng Zhou”
b = "Zhon g Yuan Gong Xue Y uan”
c = a + ” ” + b
d = Left(a，1) + Mid(a，7，1)
e = Left(b, 1）+ Mid（b，12，1）
Print c
Print d；e
End Sub
3．设有Sub过程：
Private Sub p1（x As Integer，ByVal y As Integer) x = 4 ：y = 5 ：z = 6
End Sub
则如下程序段的运行结果是：
Private Sub Command1_Click（）
Dim x As Integer, y As Integer
x = 1：y = 2：z = 3
Print x，y，z
Call p1（x，y）
Print x，y，z
End Sub
4．Private Sub command1_click（）
k = 0
For i = 1 To 3
k = k + 1
a = i ＊i ＊k
Print a；
Next i
End Sub
5．Private Sub command1_click（）
Dim a(5, 5）As Integer
For i = 1 To 5
For j = 1 To 5
a(i，j）= i * 2 + j
Print a（i，j）;
Next j
Print
Next i
End Sub
6．设有Function过程:
Private Function f1（b, a）
a = a ＊a：
b = b * b
f1 = a — b
End Function
则如下程序段的运行结果是什么？
Private Sub command1_click（）
a = 4：
b = 3
a = f1（a，b）
Print a
End Sub
七．编程题（共30分）
注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题;
其他学生做第1、2、3、4 小题。

1．给出一个百分制的成绩,要求输出成绩的相应等级。

（7分）
90分以上为“A”，80～89分为“B”,70～79分为“C”，60～69分为“D”，60分以下为“E”。

2．求n!,n由键盘输入.（7分）
3．产生20个［0，99］之间的随机整数,并按从小到大的顺序输出.(8分）
4．产生并输出一个6×6的二维数组A：（8分）
（1）两条对角线上元素的值为1,其余元素为小于30的随机整数.
(2）计算各行元素的平均值,输出平均值最大和平均值最小的行号。

5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）
6．从键盘输入10个数，求出其中的最大数，最小数和平均值。

（8分）
VB试题答案及评分标准
一、单项选择题（每题1分,共10分)
1．B 2．A 3．C 4．C 5．D 6．D 7．A 8．B 9．D 10.B
二、填空题（每空1分，共10分)
1．n Mod 13=0 And n Mod 17=0
1、对象
3．LEFT（“Visual Basic 6。

0”,6）
4．6
5．False
6．Autosize
7．: 8．Option Explict 9．Const Dim
三、将下列数学表达式转换成VB表达式（每题1分,共6分)
1、a^2+2＊a*b+b^2
2、x^（1/3）＊y^（1/4）
3、8＊exp(x）＊log(10)
4、2*sin（3。

1416/4)＊cos（3。

1416/4）
5、（x+y+z）/sqr（x^2+y^2+z^2）
6、log（1+abs(（a+b）/（a—b)))
四、判断题（每题1分，共10分)
1．×2．√3．×4．√5．×6．√7．×8．×9．×10．√
五、根据题意,将下列程序补充完整（每空1分，共10分）
1．（1) int（rnd＊91)+10 （2）I〈10
2．(1) i*j （2）next i
3．(1)int（sqr（x))或者x—1 （2）flag=1
4．(1）dim f(15）as integer (2）f(I—1）+f(I-2）
六、写出下面程序的输出结果(每题4分，共24分)
1、y=65
2、Zheng Zhou Zhong Yuan Gong Xue Yuan 2分ZZZG 2分3．1 2 3
4 2 3
4．1 8 27
5．3 4 5 6 7
5 6 7 8 9
7 8 9 10 11
9 10 11 12 13
11 12 13 14 15
6．—7
七、编写程序
1。

private sub command1_click（）
dim x as integer，grade as string 1分
x=text1.text 1分
select case x 4分case 90 to 100
grade="A"
case 80 to 89
grade=”B”
case 70 to 79
grade="C”
case 60 to 69
grade=”D"
case is〈60
grade="E"
case else
msgbox “请重新输入”
end select
print “该学生成绩为”+grade 1分
end sub
2．Private Sub command1_click（）
Dim n as integer,f as long 1分
n=text1。

text 1分
f=1
for I=1 to n 3分
f=f*I
next I
text2。

text=f 2分end sub
3．Private Sub Command1_Click（）
Dim a（1 To 20) As Integer ’1分
Randomize
For i = 1 To 20 2分
a（i）= Int(Rnd ＊100)
Print a（i)；
Next
Print
For i = 1 To 19 3分
For j = i + 1 To 20
If a(i）〉a（j) Then
t = a（i）：a(i）= a(j）：a（j）= t
End If
Next j
Next i
For i = 1 To 20 2分
Print a（i）;
Next i
End Sub
4．Private Sub Command1_Click（)
Dim a（1 To 6, 1 To 6）As Integer ' 1分
Dim aver As Single
Randomize
For i = 1 To 6 3分For j = 1 To 6
If i = j Or i + j = 7 Then
a（i，j）= 1
Else
a（i, j) = Int（Rnd ＊30）
End If
Print a（i，j）;
Next j
Print
Next i
Print
Max = 0：Min = 30 4分
For i = 1 To 6
s = 0
For j = 1 To 6
s = s + a（i, j）
Next j
aver = s / 6
If aver 〉Max Then Max = aver: row_max = I
If aver < Min Then Min = aver: row_min = i
Next i
Print row_max, row_min
End Sub
5．Private Sub Command1_Click(）
Dim i As Integer，c As Integer
Dim s As Integer
For i = 1 To 100 4分
s = s + i
If i Mod 17 = 0 Then c = c + 1
Next i
Print "1+2+.。

.+100=”；s 2分Print ”能被17整数的数据有”；c；"个" 2分
End Sub
6．Private Sub Command1_Click()
Dim x As Integer
x = InputBox(”x=”）1分
Print x；
Max = x: Min = x：s = x 2分
For i = 2 To 10 3分
x = InputBox(”x=”）：Print x;
s = s + x
If x 〉Max Then Max = x
If x 〈Min Then Min = x
Next i
Print s / 10 1分
Print Max, Min 1分
End Sub。