文档介绍：该【2017.01VB程序设计电大期末考试试题 】是由【mama】上传分享，文档一共【5】页，该文档可以免费在线阅读，需要了解更多关于【2017.01VB程序设计电大期末考试试题 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。一、单项选择题(每小题2分,共30分}
1。如果要在文本框中键入字符时,只显示某个字符,如星号(*)应设置文本框的(B)属性.
。PasswordCharC。
(D).
3。要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列(B)
属性设置就有效.
A。。WidthD。MinButton
4。(D)。
A。编译错误B。。逻辑错误
5。要设置命令按钮的背景图形,必须设置的两个属性是(A)。
。Style和IconC。Caption和PictureD。Value和Icon
(B)。
A。局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B。局部变量在声明它的过程执行完毕后就被释放了
C。静态局部变量是在过程中用Static语句声明的
7。如下数组声明语句,正确的是(B)。
[3,(3,4)AsInteger
C。Dima(n,n)(34)AsInteger
8。若使图像框Image控件自动适应其中的图形大小,应(D).
A。
。将控件的Stretche属性设为False
。Scale(-14,14)一(14,一14)语句后,Form1窗体坐标系x轴和y轴的正
方向是(B)。
。
,可在Timer事件内编程,要停止触发Timer事件,需要设
置的属性是(A)。
A。Interval=0或Enabled=FalseB。Interval=O或Visible=False
C。Interval=0且Enabled==False且Visible=False
11。使用ADO数据模型时,建立Recordset和Connection对象连接的属性是(D).
A。ExecuteB。CommandTypeC。
12。要发送数据,通称使用Winsock控件的(C)。
。SendData方法D。GetDate方法
(A)。
A。
14。不属于VB数据库引擎的是(B)。
。
15。如果创建了命令按钮数组控件,那么Click事件的参数是(C)。
A‘。没有参数
二、填空题{每小题2分,共20分)
,需要按的键是F1,要设置断点需要按F9键。
17。Winsock控件主要用来编制基于TCP/IP或UDP协议的网络应用程序。
18。定时器(Timer)控件可识别的事件是Timer,发生该事件的时间间隔由定时器的Interval
属性设置。
19。在控件数组中,所有元素的Name属性均相同,数组中的每个元素由Index属性指定.
,那么在VB程序中声明并创建ADOcn的语句是
DimADOcnAsNewConnection
。
22。列表框控件中最后一项的序号等于ListCount属性减1
23。全局变量是指那些在整个应用程序中有效的变量,一般在模块代码编辑器的顶部使用
Public声明.
,则运行时变量i的初始值是0
,一种是引用参数传递参数,另一种是按值传递参数.
三、阅读程序题{共25分}
阅读下列程序并写出程序运行结果。
26。(6分)
PrivateSubForm_ClickO
DimcAsInteger
c=1
ForI=1To3
Forj=1To2
c=c+3
Nextj
NextI
Printc
EndSub
文件框Text!的输出结果是:
19
27.(6分)
PrivateSubCommandLClickO
DimsAsDouble
DimIAsInteger
s=5
i=1
DoWhileI<9
I=i+2
s=s+i
Loop
=s
EndSub
写出程序运行时,单击命令按钮文本框Textl中的输出结果。
29
28。(6分)
FunctionF(aAsInteger)
b=2
Staticc
b=b十1
c=c十l
F=a十b+c
EndFunction
PrivateSubCommandl_ClickO
DimaAsInteger
a=2
Forj=1To3
PrintF(a)
Nexti
EndSub
写出程序运行时,单击命令按钮在窗体上的输出结果.
6
7
8
29。(7分)
PrivateSubCommandl_ClickO
DimaAsInteger:DimbAsInteger
a=10:b=20
Change1a,b
Print"A1=”;a,”Bl=";b
a=10:b=20
Change2a,b
Print"A2=”;a,”B2=";b
EndSub
SubChangel(ByValxAsInteger,ByValyAsInteger)
t=x:x=y:y=t
EndSub
SubChangeZ(xAsInteger,yAsInteger)
t=x:x=y:y=t
EndSub
写出程序运行时,单击窗体Form1上的输出结果。
A1=10B1=20
A2=20B2=10
四、完善程序题{共10分}
”学生。MDB"的数据库,并在其中创建了一张名为”
学生基本情况"的数据表,表中存放了学生的基本信息,如图1所示.
现在要求利用VB编写一个数据库查询程序,程序的运行界面如图2所示,基本逻辑是:
首先文本框(Textl)中输入希望查询的学生学号,然后点击”查询”按钮(Command1),如
果数据库中存在该学号,则分别在TextZ、Text3、Text4中显示学号、姓名、籍贯信息,否则
提示用户”记录不存在”并使Text1获得焦点,要求用户重新输人。当点击退出按钮
(Command2)时关闭本窗体。
图1用Access创建的学生基本情况数据表
图2查询程序运行界面
程序如下,请补充完整.
PrivateADOcnAsConnection
PrivateSubForm_LoadO
[lJSetADOcn=NewConnection
ADOcn。Open”Provider=J\1icrosoft。;DataSource=c:\\1DB"
EndSub
PrivateSubCommand1_ClickO
DimstrSQLAsString
DimADOrsAs[2JNewRecordset
=ADOcn
strSQL="Select*From学生基本情况Where学号="十",”+Text1+”’”
[
If[4JNotADOrs。EOFThen
Text2=ADOrs。Fields("学号”)
Text3=〈"姓名")
Text4=<"籍贯”)
Else
MsgBox”要查询的学号不存在,请重新输入!",vbOKOnly,”信息提示”
Text1=”"
[5JText1。SetFocu
EndIf
EndSub
PrivateSubCommand2_ClickO
UnLoadMe
End
五、编写程序题{共15分)
。若基本工资大于等于3000元,增加工资10%,若小于3000
元大于2000元,则增加工资15%;若小于2000元则增加工资18%。要求在文本框Text1中输
入某职工的基本工资,单击”计算"按钮,在标签框Labell中输出增加后的工资。程序运行
界面如图3所示。
图3
PrivateSubCommandl_ClickO
DimxAsInteger,yAsSingle
x=Val(Textl。Text)
SelectCasex
CaseIs〉=3000
y=x*
CaseIs〉=2000
y=x*
CaseElse
y=x*
EndSelect
Label3。Caption=y
EndSub
PrivateSubCommand2_ClickO
UnloadMe
EndSub