大一的vb期末考试题和答案.docx
《大一的vb期末考试题和答案.docx》由会员分享，可在线阅读，更多相关《大一的vb期末考试题和答案.docx（20页珍藏版）》请在冰豆网上搜索。
大一的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，语句PrintFormat（x,“000.0”）的输出结果是（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、EnabledB、CaptionC、DefaultD、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。
A、CaptionB、NameC、TextD、Label
6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（6）。
A、CaptionB、NameC、TextD、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？
（7）。
A、在标题项中输入&，然后打勾B、在索引项中打勾
C、在有效项中打勾D、在复选项中打勾
8、当执行以下过程时，在窗体上将显示（8）。
PrivateSubCommand1_Click（）
Print"VB";
Print"Hello!
";
Print"VB"
EndSub
A、VBHello!
VBB、VB
Hello!
VB
C、VBD、VB
Hello!
VBHello!
VB
9、语句Print"Theansweris:
";20/4-2的结果为（9）。
A、Theansweris20/4-2B、Theansweris3
C、Theansweris"20/4-2"D、非法语句
10、下列哪个控件是容器控件（10）。
A、ImageB、PictureC、ComboBoxD、FileListBox
11、若要将窗体从内存中卸载出去，其实现的方法是（11）。
A.Show B.Hide C.Load D.UnLoad
12、以下选项中，不是VisualBasic控件的是（12）。
A.窗体 B.定时器 C.单选框 D.命令按钮
13、双击窗体中的对象后，VisualBasic将显示的窗口是（13）。
A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是（14）。
A.ControlBoxB.MinButton
C.MaxButton D.BorderStyle
15、设有如下语句：
Strl＝InputBox（"输人"，""，"练习"）
从键盘上输人字符“示例”后，Strl的值是（15）。
A．“输入”B．“”C．“练习”D．“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是（16）。
A.Form1_ClickB.Form_ClickC.Frm1_ClickD.Me_Click
17、窗体的hide属性的含义是（17）。
A.隐藏B.展现C.装入D.卸载
18、若要设置定时器控件的定时时间，需设置的属性是（18）。
A．Enabled B．Value C．Interval D．Text
19、能够改变复选框中背景颜色的属性是（19）。
A．ValueB．FontColorC．BackColorD．Font
20、窗体能响应的事件是（20）。
A．ActiveFormB．LoadC．DriveD．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、使用数组定义语句：
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:
\pic\ball.ico”）
（2）.Interval=200
EndSub
PrivateSubTimer1_Timer（）
Staticx,yAsInteger
x=x+100
y=y+100
Picture1.Move（3）
EndSub
（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。
请填空：
PrivateSubCommand1_Click（）
DimxAsInteger,N%
DimCounterAsInteger
（1）Timer
ForN=1To50
X=Rnd（）*
（2）
If（3）=2Then
Printx
Counter=（4）
（5）
NextN
PrintCounter
EndSub
《VB程序设计与应用》参考答案
一、填空题12345
答案可视化设计事件驱动编程窗体（form）控件集合
题号678910
答案特殊子程序双精度动作Print选中
题号1112131415
答案高度（Height）宽度（Width）中央工程134.6
题号1617181920
答案0空FalsePictureCls
二、选择题12345
答案CABCA
题号678910
答案DDABB
题号1112131415
答案DAAAD
题号1617181920
答案CACCB
三、判断题12345678910
答案ХХХ√Х√√√√Х
11121314151617181920
答案√Х√√ХХ√ХХ√
四、程序阅读题：
（一）（10分）
1、55
2、110
（二）、（10分）
*25
153075
163280
五、编程题（20分）
（一）1、Picture1.Picture
2、Timer1
3、x,y
（二）1、Randomize
2、Rnd（）*41+60
3、xMod6
4、Counter＋1
5EndIf
一、单项选择题（共10分）
1．在代码中引用一个控件时，应使用控件的（B）属性。
A．CaptionB．NameC．TextD．Index
2．设变量x=4，y=-1，a=7，b=-8,下面表达式（A）的值为“假”。
A．x+a<=b-yB．x>0ANDy<0
C．a=bORx>yD．x+y>a+bANDNOT（y3．表达式Int（Rnd*71）+10产生的随机整数范围是（C）。
A．（10，80）B．（10，81）C．[10，80]D．[10，81]
4．函数Sgn（3.1416）的返回值是（C）。
A．-1B．0C．1D．以上都不对
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
8．以下的控件或方法具有输入和输出双重功能的为（B）。
A．PrintB．TextboxC．OptionbuttonD．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。
A．NameB．ListIndexC．ListCountD．Text
10．下列代码的运行结果为（B）。
PrivateSubcommand1_click（）
Dimm（10）
Fork=1To10
m（k）=11-k
Nextk
x=5
Printm（2+m（x））
EndSub
A．2B．3C．4D．5
二、填空题（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，则a>b>=cANDa=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．CaptionB．NameC．TextD．Index
2．设变量x=4，y=-1，a=7，b=-8,下面表达式（a）的值为“假”。
A．x+a<=b-yB．x>0ANDy<0
C．a=bORx>yD．x+y>a+bANDNOT（y3．表达式Int（Rnd*71）+10产生的随机整数范围是（c）。
A．（10，80）B．（10，81）C．[10，80]D．[10，81]
4．函数Sgn（3.1416）的返回值是（c）。
A．-1B．0C．1D．以上都不对
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
8．以下的控件或方法具有输入和输出双重功能的为（b）。
A．PrintB．TextboxC．OptionbuttonD．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（d）属性来实现。
A．NameB．ListIndexC．ListCountD．Text
10．下列代码的运行结果为（b）。
PrivateSubcommand1_click（）
Dimm（10）
Fork=1To10
m（k）=11-k
Nextk
x=5
Printm（2+m（x））
EndSub
A．2B．3C．4D．5
二、填空题（10分）
1．写出整数n能同时被13和17整除的Basic表达nMod13=0AndnMod17=0。
2．代码窗口中有两个下拉列表框：
左侧是列表框，右侧是过程列表框。
3．写出在字符串”VisualBasic6.0”中截取”Visual”的Basic表达式。
4．函数Len（“abcdef”）的返回值是。
5．设a=2，b=5，c=-2，d=100，则a>b>=cANDa=d的值为。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，VisualBasic的语句分隔符为。
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．代码ConstNumber1=15：
Number1=10合法。
（）
8．允许将块If-Then语句结构中的所有语句都写在一行上（）
9．定义数组语句Dima（b）AsInteger是正确的（）
10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
（）
五、根据题意，将下列程序补充完整。
（16分）
1．产生20个[10，100]之间的随机整数，每行输出10个数据。
PrivateSubcommand1_click（）
Dima（1To20）AsInteger
Randomize
i=0
DoWhilei<20
i=i+1
a（i）=（）
If（）Then
Printa（i）;
EndIf
Ifi=10ThenPrinta（i）
Ifi>10ThenPrinta（i）;
Loop
EndSub
2．打印九九乘法表
PrivateSubcommand1_click（）
Fori=1To9
Forj=1To9
Print（）
Nextj
Print
（）
EndSub
3．判断一个数是否素数
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=";x^2+1
Case2
Print"y=";x-4
Case3
Print"y=";x^3+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*k
Printa;
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（
升级会员 