大一的vb期末考试题和答案.docx
《大一的vb期末考试题和答案.docx》由会员分享，可在线阅读，更多相关《大一的vb期末考试题和答案.docx（22页珍藏版）》请在冰点文库上搜索。
大一的vb期末考试题和答案
1、VB程序设计的主要特点是
（1）
2、在VB中，最主要的两种对象是
（3）和（4）
3、工程是构成应用程序文件的
4、方法是VB提供的一种（6）
5、浮点类型数据包括单精度型和
（5）。
，用来完成一定的操作。
（7）_数据。
6、事件是窗体或控件对象识别的—（8）。
7、可用窗体的—（9）_方法在窗体中显示文字。
8、复选框控件Value属性指示复选框处于（10）_或禁止状态（暗淡的）中的某一种。
9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。
12、设x=34.58，语句PrintFormat（x,“000的输出结果是（15）。
13、在VB中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值
为（18）。
14、设置窗体的（19）属性，可在窗体上显示图片。
15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。
二、选择题
1、菜单控件只包括一个事件，即
（1），当用鼠标单击或键盘选中后按回车”键时触发该事件，除分
隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、ClickD、KeyDown
2、滚动条控件（如图所示）的Max属性所设置的是
（2）。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、
SQL语句
Select*Formstudent
中的*表示
（3）
A、
所有记录
B、所有字段
C、所有表D、
都不对
4、
以下选项中，
不属于标签的属性是
（4）。
A、
Enabled
B、Caption
C、Default
D、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。
A、CaptionB、NameC、TextD、Label
（6）
6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是
A、CaptionB、NameC、TextD、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？
（7）。
A、在标题项中输入&，然后打勾
B、在索引项中打勾
C、在有效项中打勾
D、在复选项中打勾
8、当执行以下过程时，在窗体上将显示
（8）。
PrivateSubCommand1_Click（）
Print"VB";
Print"Hello!
";
Print"VB"
EndSub
A、VBHello!
VB
B、VB
Hello!
VB
VB
语句Print"Theansweris:
";20/4-2的结果为（9）
图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。
在菜单编辑器中使用索引”时，可有一组菜单项具有相同的名字”。
通过改变属性窗口中的Name属性，来改变窗体的标题。
创建VB应用程序的三个主要步骤是：
（1）创建应用程序界面
（2）设置控件（3）编写代码。
变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
已知P=MsgBox（“Howareyou?
"，VbYesNo+VbQuestion，“Hello!
，”变量P是Integer数据类型。
工程文件的扩展名是.vbg。
VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
13、ImageList是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。
16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。
17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：
DimD$（10），则数组D中各元素的值为空。
19、如果在一行中输入多条语句，各语句之间用使用；分隔。
20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
四、读程序题，写岀程序运行结果
1、PrivateSubForm_Click（）
StaticSUMAsInteger
I=1
DoWhileI<=10
SUM=SUM+I
I=I+1
Loop
PrintSUM
EndSub
运行程序，第一次单击窗体：
第二次单击窗体：
2、PrivateSubForm_Click（）
Print"*";Tab（6）;2,Tab（15）;5
Print
ForI=15To16
PrintI;
Forj=2To6Step3
PrintTab（3*j）;j*I;
Nextj
Print
NextI
EndSub
程序运行结果：
五、编程题
（一）窗体中有图片框（Picture1）和计时器（Timer1）两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。
请
填空：
PrivateSubForm_load（）
（1）=loadPicture（“c:
ball.ico”）
（2）.Interval=200
EndSub
PrivateSubTimer1_Timer（）Staticx,yAsInteger
x=x+100
y=y+100
Picturel.Move
EndSub
（二）有一个单击按钮过程，其作
（3）
乍用是产生
50个60-
-100的随机数，统计其中被
6整除余2的个数，
并将这些数输岀。
请填空：
PrivateSubCommand1_Click（）
Dim
xAsInteger,
N%
Dim
CounterAsInteger
（1）Timer
For
N=1To50
X=Rnd（）*
（2）
If
（3）=2
Then
Printx
Counter=（4）
（5）
Next
N
Print
Counter
EndSub
《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
答案X
X
X
V
X
V
V
V
V
X
11
12
13
14
15
16
17
18
19
20
答案V
X
V
V
X
X
V
X
X
V
四、程序阅读题:
一）
（10分）
55
2、
110
2
五、编程题
一）
（10分）
515
（20分）
30
75
16
32
80
1、Picture1.Picture
Timer1
x,y
（二）1、
Randomize
2、
Rnd（）*41+60
3、
xMod6
4、
Counter+1
一、单项选择题
5
（共10分）
EndIf
1•在代码中引用一个控件时，应使用控件的（
B）属性。
B.Name
A.Caption
2.设变量x=4,y=-1,
C•Text
a=7,b=-8,下面表达式
D.Index
（A）的值为假”
A.x+a<=b-y
B.x>0ANDy<0
C.a=bORx>y
x+y>a+bANDNOT（y3.表达式Int（Rnd*71）+10
A.（10,80）B.
4.函数Sgn（3.1416）的返回值是（C
产生的随机整数范围是（
（10,81）
）。
A.-1
5.67890属于（D）类型数据。
A.整型B.单精度浮点数
下列变量名中正确的是（D）。
3S
B.Print
C.Select
下列赋值语句（A）是有效的。
sum=sum-sum
C）。
C.[10,80]D.[10,81]
D.以上都不对
C.货币型
D.长整型
MyName
x+2=x+2
以下的控件或方法具有输入和输岀双重功能的为（
D.Select1
C.x+y=sum
D.last
B）。
C.Optionbutton
若要获得列表框中被选中的列表项的内容，可以通过访问（
Print
B.Textbox
D.Checkbox
D）属性来实现。
A.Name
B.Listindex
C.ListCount
Text
10.下列代码的运行结果为（B
）。
PrivateSubcommand1_click（）
Dimm（10）
Fork=1To10
m（k）=11-k
Nextk
x=5
Printm（2+m（x））
EndSub
二、填空题（10分）
1.写出整数n能同时被13和17整除的Basic表达nMod13=0AndnMod17=0
式。
2•代码窗口中有两个下拉列表框：
左侧是（对象）列表框，右侧是过程列表框。
3.写出在字符串”VisualBasic6.0中截取”Visual的Basic表达式LEFT（“VisualBasic6.0。
”，6）
4.函数Len（“abcdef的返回值是（6）。
5.设a=2,b=5,c=-2,d=100，贝Ua>b>=cANDa=d的值为False。
三、将下列数学表达式转换为VB表达式。
（6分）
1.a2+2ab+b2:
aA2+2*a*b+bA2
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）属性。
2.设变量x=4，y=-1，a=7，b=-8,下面表达式（a）的值为“假”
A.x+a<=b-y
C.a=bORx>y
B.x>0ANDy<0
D.x+y>a+bANDNOT（y3.表达式lnt（Rnd*71）+10产生的随机整数范围是（c）。
A.（10，80）B.（10，81）C.[10，80]D.[10，81]
4.函数Sgn（3.1416）的返回值是（c）。
5.67890属于（d）类型数据。
A.整型B.单精度浮点数C.货币型D.长整型
6•下列变量名中正确的是（d）。
A.3SB.PrintC.SelectMyNameD.Select_1
7•下列赋值语句（a）是有效的。
A.sum=sum-sumB.x+2=x+2C.x+y=sumD.last=y/0
&以下的控件或方法具有输入和输出双重功能的为（b）o
A.PrintB.TextboxC.OptionbuttonD.Checkbox
9.若要获得列表框中被选中的列表项的内容，可以通过访问（d）属性来实现。
A.NameB.ListindexC.ListCountD.Text
10.下列代码的运行结果为（b）o
PrivateSubcommand1_click（）
Dimm（10）
Fork=1To10
m（k）=11-k
Nextk
x=5
Printm（2+m（x））
EndSub
、填空题（10分）
1．写出整数n能同时被13和17整除的Basic表达17=0。
2．代码窗口中有两个下拉列表框：
左侧是
3．写出在字符串”VisualBasic6.0”中截取”Visual”
4.函数Len（“abcdef'）的返回值是。
5．设a=2，b=5，c=-2，d=100，则a>b>=cAND
6.要使标签的大小自动与所显示的文本相适应，可以通过设置来实现。
7.若要在一行书写多条语句，则各语句间应加分隔符，VisualBasic的语句分隔符为
8.要强制显式声明变量，使用语句完成。
9.在VB中，用户定义常量使用语句，声明变量使用语句
三、将下列数学表达式转换为VB表达式。
（6分）
1.a2+2ab+b2
2.
3.8exln10
4.2sin（450）cos（450）
5.
6.
四、判断题，正确打“V”，错误打“x”（10分）
1.在VB中，控件的事件只能通过用户的操作触发。
（）
2.字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
（）
3.保存工程时，窗体文件和工程文件的文件名不能相同。
（）
4.改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
（）
5.同一过程中，数组和简单变量可以同名。
（）
6.VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
（）
7.代码ConstNumber1=15：
Number1=10合法。
（）
8.允许将块If-Then语句结构中的所有语句都写在一行上（）
9.定义数组语句Dima（b）AsInteger是正确的（）
10.在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
（）
五、根据题意，将下列程序补充完整。
（16分）
1.产生20个[10，100]之间的随机整数，每行输出10个数据
PrivateSubcommand1_click（）Dima（1To20）AsIntegerRandomize
DoWhilei<20
i=i+1
a（i）=（）
If（）Then
Printa（i）;
EndIf
Ifi=10ThenPrinta（i）
Ifi>10ThenPrinta（i）;
Loop
EndSub2．打印九九乘法表PrivateSubcommand1_click（）
Fori=1To9
Forj=1To9
Print（）
Nextj
Print
（）
EndSub3．判断一个数是否素数PrivateSubcommand1_click（）
x=InputBox（"请输入一个整数"）
flag=1
Fori=2To（）
IfxModi=0Then
flag=0
EndIf
Nexti
If（）ThenPrintx;"是素数"ElsePrintx;"不是素数"
EndSub
4．利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1，其余各项均为其前两项之和。
PrivateSubCommand1_Click（）（）
f
（1）=1:
f
（2）=1
List1.AddItemf
（1）:
List1.AddItemf
（2）
Fori=3To15
f（i）=（）List1.AddItemf（i）
Nexti
EndSub
六、写出下面程序的输出结果。
（每题3分，共18分）1．PrivateSubcommand1_click（）
x=InputBox（"enterx"）'x的输入值为-8
SelectCaseSgn（x）+2
Case1
Print"y=";xA2+1
Case2
Print"y=";x-4
Case3
Print"y=";xA3+100
EndSelect
EndSub
2．PrivateSubcommand1_click（）
Dima,b,c,d,eAsString
a="ZhengZhou"
b="ZhongYuanGongXueYuan"
c=a+""+b
d=Left（a,1）+Mid（a,7,1）
e=Left（b,1）+Mid（b,12,1）
Printc
Printd;e
EndSub
3．设有Sub过程：
PrivateSubp1（xAsInteger,ByValyAsInteger）x=4：
y=5：
z=6
EndSub
则如下程序段的运行结果是:
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=1:
y=2:
z=3
Printx,y,z
Callp1（x,y）
Printx,y,z
EndSub
4．PrivateSubcommand1_click（）
k=0
Fori=1To3
k=k+1
a=i*i*kPrinta;
Nexti
EndSub
5．PrivateSubcommand1_click（）
Dima（5,5）AsInteger
Fori=1To5
Forj=1To5
a（i,j）=i*2+j
Printa（i,j）;
Nextj
Print
Nexti
EndSub
6．设有Function过程:
PrivateFunctionf1（b,a）
a=a*a:
b=b*b
f1=a-b
EndFunction则如下程序段的运行结果是什么？
PrivateSubcommand1_click（）
a=4:
b=3
a=f1（a,b）
PrintaEndSub
七．编程题（共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•产生并输出一个6X6的二维数组A:
（8分）
（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。
（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。
5.输出1+2+……+100的和，并求出1〜100之间能被17整除的数据的个数（8分）
6•从键盘输入10个数，求出其中的最大数，最小数和平均值。
（8分）
VB试题答案及评分标准
一、单项选择题（每题1分，共10分）
1.B2.A3.C4.C5.D6.D7.A8.B9.D10。
B
二、填空题（每空1分，共10分）
1．nMod13=0AndnMod17=0
1、对象
3．LEFT（“VisualBasic6.0”,6）
4．6
5．False
6．Autosize
7．:
8．OptionExplict9．ConstDim
三、将下列数学表达式转换成VB表达式（每题1分，共6分）
1、
aA2+2*a*b+bA2
2、
xA（1/3）*yA（1/
升级会员 