单考单招VB模拟试题及答案讲课稿.docx
《单考单招VB模拟试题及答案讲课稿.docx》由会员分享，可在线阅读，更多相关《单考单招VB模拟试题及答案讲课稿.docx（47页珍藏版）》请在冰豆网上搜索。
单考单招VB模拟试题及答案讲课稿
2015年VB操作题第一套
试题一：
（30分）
用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。
程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。
图1
图2
操作要求：
1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。
2.（12分）参照图1和图2完成界面设计：
按表添加相关对象并设置相关的属性：
表1（每个属性1分，共12分）
对象名
属性
属性值
对象名
属性
属性值
Form1
caption
字体效果
Label1
name
lab1
Label1
caption
请您留下宝贵意见
Text1
name
txt1
Text1
multiline
true
Text1
scrollbars
2
Text1
forecolor
&H000000FF&
Check1
caption
加粗
Command1
name
cmd1
Check2
caption
斜体
Command1
caption
结束
Command1
enabled
false
3.
（1）（4分）编写适当的事件（2分）：
只有当文本框内容非空时“结束”按钮才有效。
（不用能VB函数）（代码2分）
（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消；
（要求不能用IF语句来实现）（事件2分，一条代码2分）
（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。
（要求不能用IF语句来实现）（事件2分，一条代码2分）
4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。
PrivateSubCheck1_Click（）
txt1.FontBold=Nottxt1.FontBold
EndSub
PrivateSubCheck2_Click（）
txt1.FontItalic=Nottxt1.FontItalic
EndSub
PrivateSubCommand1_Click（）
End
EndSub
'答案两种：
'方法一：
'PrivateSubTxt1_Change（）
'IfTxt1.Text=""Then
'cmd1.Enabled=False
'Else
'cmd1.Enabled=True
'EndIf
'EndSub
'方法二
PrivateSubTxt1_Change（）
Iftxt1.Text<>""Then
cmd1.Enabled=True
Else
cmd1.Enabled=False
EndIf
EndSub
PrivateSubcmd1_Click（）
End
EndSub
试题二（25分）
1．（13分）有一个VB程序，其功能是：
根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。
胖瘦条件：
如果身高与体重之差大于等于110，则表示“你太瘦了！
”；如果身高与体重之差小于等于100，则表示“你太胖了！
”；如果身高与体重之差在100――110之间，则表示“你的身材真好！
”
图1
图2
打开某路径下的工程文件test2-1.vbp，完成下列操作：
（1）（3分）当用户在文本框1输入身高时，命令按钮command1有效，添加适当的事件和代码实现此功能。
（事件1分，一句代码2分）
（2）（8分）完成相应注释1和注释2处的修改，实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释3处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码（2分）。
（每格2分，共4分）
（3）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题一”文件夹。
PrivateSubCommand1_Click（）
DimhAsSingle,wAsSingle,xAsSingle
h=Val（Text1.Text）
w=Val（Text2.Text）
x=h-w
Ifx>=110Then
Label4.Caption="你太瘦了！
"
ElseIfx>100Then
Label4.Caption="你的身材真好！
"
Else
Label4.Caption="你太胖了！
"
EndIf
Command2.Visible=True
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubText1_Change（）
Command1.Enabled=True
EndSub
2．（12分）填空完成VB程序，其功能是求某一天是这一年的第几天，界面设计和程序运行效果如图5所示。
图5
打开某路径下的工程文件test2-2.vbp，完成下列操作：
（1）10分）输入某一天（年、月、日），单击“开始”按钮，计算这一天在本年中的天数（第几天）完成注释
（1）
（2）（3）（4）（5）填空实施此功能。
（每空2分，共10分）
（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。
OptionBase1
PrivateSubCommand1_Click（）
Dima,T%,y%
a=Array（31,28,31,30,31,30,31,31,30,31,30,31）
y=Val（Text1.Text）
IfyMod400=0Or（yMod4=0AndyMod100<>0）Then
a
（2）=29
EndIf
n=Val（Combo1.Text）
Fori=1Ton-1
T=T+a（i）
Nexti
Text2.Text=T+Val（List1.Text）
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Fori=1To31
List1.AddItemi
Nexti
Fori=1To12
Combo1.AddItemi
Nexti
EndSub
试题三、（20分）
修改考生文件夹下的VB程序使其具有下列功能：
在明文文本框中输入一串字串，在密文文本框中输出密文，加密规则：
若字符为字母，将每个字母向后移1、3、5，结果仍是字母，其它字符保持不变。
界面设计和运行效果如图4和图5所示。
打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：
1.（3分）单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当的事件和代码实现此功能（注：
变量N设置通用变量）
2.（15分）将3.txt文件复制到“加密”按钮的事件中，完成相应的
（1）、
（2）（3）填空及在注释1所在行添加一条代码，并修改“注释2”所在行的代码，让程序正确执行，删除所有注释。
3.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹
Dimn%
PrivateSubCommand1_Click（）
Dimm%
Dims$,x$
m=Len（Text1.Text）
Fori=1Tom
x=Mid$（Text1.Text,i,1）
Ifx>="A"Andx<="Z"Orx>="a"Andx<="z"Then
x=Chr（Asc（x）+n）
Ifx>"z"Orx>"Z"Andx<"a"Then
x=Chr（Asc（x）-26）
EndIf
EndIf
s=s+x
Nexti
Text2.Text=s
EndSub
PrivateSubOption1_Click（IndexAsInteger）
n=Option1（Index）.Caption
EndSub
2015年VB操作题第二套
试题一（30分）
设计一个模拟中奖号码的VB程序。
界面设计和运行效果如图1和图2所示
图1
图2
1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。
2.（14分）参照图1和图2完成界面设计：
按表添加相关对象并设置相关的属性：
（每个属性设置1分）表1
对象名
属性
属性值
对象名
属性
属性值
Form1
caption
随机抽数
Label1
caption
福利彩票抽奖程序
Label1
fontname
幼圆
Label1
fontsize
29
Label1
forecolor
&H000000FF&
Frame1
caption
中奖号码
Text1（0）-text1（7）
fontsize
24（修改）
Frame1
name
Fr1
Command1
caption
开始&S
Text1（0）-text1（7）
backcolor
&H00C0C0FF&
Timer1
Enabled
false
Command2
caption
停止&X
Timer1
interval
100
Command2
Enabled
false
3.操作要求：
（1）（2分）将1.txt文件复制到适当的事件（2分）中。
（2）（4分）完成“开始”按钮的代码，功能具有定时器开始工作，命令按钮command1无效，命令按钮command2有效。
（3）（4分）完成“停止”按钮的代码，功能具有定时器停止工作，命令按钮command1有效，命令按钮command2无效。
4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。
PrivateSubCommand1_Click（）
Timer1.Enabled=True
Command1.Enabled=False
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click（）
Timer1.Enabled=False
Command1.Enabled=True
Command2.Enabled=False
EndSub
PrivateSubTimer1_Timer（）
Randomize
Fori=0To7
Text1（i）.Text=Int（10*Rnd）'答案也可以是Text1（i）.Text=Int（Rnd*10）
Nexti
EndSub
试题二（25分）
1.（12分）下列VB程序段实现如下功能：
加载窗体后（从键盘上输入项数N）如图3所示，输出S的计算结果。
请根据要求，将程序补充完整。
S的值用消息框显示
操作要求：
（1）（10分）打开工程文件test2-1.vbp，将2.txt文件复制到窗体加载事件中（2分），完成
（1）、
（2）、（4）的填空及注释1的（3）代码；让程序正确运行。
用消息框显示结果如图3所示：
（每空2分，共8分）
图3
（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。
PrivateSubForm_Load（）
DimsAsSingle,N%,F%,t!
s=0:
F=1
N=Val（InputBox（"请输入项数"））'2分
Fori=1ToN'2分
t=（-1）^（i+1）/i^2'或1/（i*I）'2分
s=s+t
Nexti
MsgBox"s="&s,,"结果"'2分
EndSub
2.（13分）数列1，1，3,5,9,,15,25,41…的规律是从第3个数开始，每个数是它前面两个数的和加1。
在考生文件夹中有一个工程文件test2-2.vbp（相应的窗体文件为test2-2.frm）。
窗体Form1中己经给出了所有控件。
编写适当的亊件过程实现以下功能：
在Txt1中输入整数（例如30）,单击“计算”按钮，则在Txt2中显示该数列第30项的值，如图4所示
图4
操作要求：
（1）（11分）打开工程文件test2-2.vbp，将2-2.txt文件复制适事件中（1分），把程序中的问号
（1）
（2）（3）（4）（5）改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。
（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。
PrivateSubCommand1_Click（）
Dimn%,t&,a&,b&
n=Val（txt1.Text）
a=1:
b=1'表示第一项和第二项
Fori=
（1）Ton
t=a+b+1't表示每一项的值
a=b
b=t
Nexti
lab1.Caption="第"&n&"项的值"
txt2.Text=t
EndSub
试题三（20分）
编写模拟比赛评分的程序，功能为：
单击窗体，由键盘输入10位评委的打分，
图4
输入时用动态提示如图4所示。
并在窗体中显示，当输入完第10位评委的打分后，在窗体显示“去掉一个最高分：
“和“去掉一个最低分：
”及”最后得分：
”的文字及数字。
其中最后得分的计算公式为：
去掉一个最分，去掉一个最低分后的8位评委的平均分（保留小数点一位）。
效果为图5所示。
图5
1.（2分）打开工程文件test2.vbp，将3.txt文件复制到适当的事件；
2.（16分）根据题意完善
（1）（3）（6）（7）（8）的填空；根据注释1、注释2、注释3的分别添加表达式、修改和一条代码；让程序正确执行，删除所有注释。
（考试素材处已修改）
3.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。
PrivateSubForm_Click（）
DimkAsSingle,i%,sAsSingle
DimmaxAsSingle,minAsSingle
k=Val（InputBox（"请输入第1位评委打分"））
Print"评委打分：
";k;
max=k:
min=k:
s=k
Fori=2To10
k=Val（InputBox（"请输入第"&i&"评委打分"））
Printk;
Ifmax<=kThenmax=k
Ifmin>=kThenmin=k
s=s+k
Nexti
Print
Print"去掉一个最高分：
";max
Print"去掉一个最低分：
";min
Print"最后得分";Int（（s-max-min）/8*10+0.5）/10
EndSub
2015年VB操作题第三套
试题一（30分）
1.（14分）在名为Forml的窗体上绘制一个名为Txt1的文本框控件和一个名为Tmr1的计时器控件，程序运行后，文本框中居中18号显示的是当前的时间.而且文本框中所显示的时间会随时间的变化而改变，程序运行效果图1所示:
图1
（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-1.frm、test1-1.vbp为文件名保存到试题一的文件夹下。
（2）（6））参照图1完成界面设计：
按表添加相关对象并设置相关的属性：
（每个属性设置1分）表1
对象名
属性
属性值
对象名
属性
属性值
Form1
name
me
Text1
Alignment
2
Text1
name
txt1
Text1
fontsize
18
Timer1
name
tmr1
Timer1
interval
1000
（3）（4分）编写适当事件（2分），使文本框中所显示的时间会随时间的变化而改变（2分））
注意：
程序中不得使用任何变量：
文件必须存放在考生文件夹中，窗体文件名为test1-1.frm，工程文件名为test1-1.vbp。
PrivateSubtmr1_Timer（）
txt1.Text=Time
EndSub
2.（16分）在窗体上绘制两个名称分别为Lab1和Lab2的标签，它们的标题分别为“请输入一个正整数N”和“1+2+3+-+N=”；绘制两个名称分别为Txt1和Txt2的文本框，它们的内容都设为空白：
绘制一个名为Cmdl的命令按钮，其标题为“计算”。
编写适当的程序，使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+…+N的和显示在Txt2中。
程序运行结果如图2所示。
图2
（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-2.frm、test1-2.vbp为文件名保存到试题一的文件夹下。
（2）（8））参照图2完成界面设计：
按表添加相关对象并设置相关的属性：
（每个属性设置1分）表1
对象名
属性
属性值
对象名
属性
属性值
Text1
name
txt1
Text2
name
txt2
Label1
name
lab1
Label2
name
lab2
Label1
caption
请输入一个正整数N
Label2
caption
1+2+3++N=
Command1
name
cmd1
Command1
caption
计算
（3）（4分）编写适当事件（2分），使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+…+N的和显示在Txt2中。
（要求用FOR语句结构）
注意：
程序中不得使用任何变量：
文件必须存放在考生文件夹试题一中，窗体文件名为test1-2.frm，工程文件名为test1-2.vbp。
PrivateSubcmd1_Click（）
Fori=1ToVal（txt1.Text）
txt2.Text=Val（txt2.Text）+i
Nexti
EndSub
试题二（25分）
1.（13分）有一个VB程序其功能：
实施字幕滚动。
界面设计和运行效果如图3和图4所示
图3
图4
操作要求：
（1）（4分）添加适当事件，定时器间隔时间（interval）由滚动条事件决定，当拖动滚动块时来改变字符滚动速度；（事件2分，一条代码2分）
（2）（4）单击“开始”按钮，定时器工作且“停止”按钮显示，单击“停止”按钮，定时器不工作，且“停止”按钮隐藏。
（每一句代码1分，共4分）
（3）（5分）定时器事件是将标签1每隔一定时间始终从左向右以每200缇移动；将2-1.txt文件复制到相应的事件（1分）完成
（1）
（2）填空（每格2分，共4分）
（4）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。
PrivateSubcommand1_Click（）
Timer1.Enabled=True
command2.Visible=True
EndSub
PrivateSubcommand2_Click（）
Timer1.Enabled=False
command2.Visible=False
EndSub
PrivateSubHScroll1_Change（）
Timer1.Interval=HScroll1.Value
EndSub
PrivateSubTimer1_Timer（）
IfLabel1.Left<=Form1.WidthThen
Label1.Left=Label1.Left+200
Else
Label1.Left=-Label1.Width
EndIf
EndSub
2．（12分）有一个VB程序功能是：
找出此号码，有一张单据上有一个五位数的号码67**8，其中百位和十位上的数字看不清了，但知道该数能被78整除，也能被67整除，求出该号码。
运行结果图5所示。
图5
打开某路径下试题二文件夹下工程文件test2-2.vbp，完成下列操作：
（1）（10分）完善“填数字”事件
（1）
（2）（3）（4）（5）的代码，（考试素材已修改）
3.（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。
PrivateSubCommand1_Click（）
Dimx%,y%,a&
Forx=0To9
Fory=0To9
a=67008+x*100+y*10'或答案也可以100*x+10*y
IfaMod78=0AndaMod67=0Then
Label3.Caption=x
Label4.Caption=y
EndIf
Nexty
Nextx
EndSub
试题三（20分）
用VB设计一个成绩统计程序。
程序运行后，先后出现如下图4和图5的对话框，最后运行效果如图5所示。
（参考答案已修改好）
图4
图5
1.（4分）当窗体启动时（2分），要求先输入需要统计的学生人数，输入时要有文字提示，如图4所示，再输入各学生分数，如图5所示；将3.txt文件复制到相应的事件中；完成
（1）填空的代码（每格2空，共4分），调试程序，让程序正确执行。
2.（8分）单击“统计”按钮，统计出合格人数、不合格人数及平均分（保留1位小数）；完成相应的注释1、2、3、4填空，其中在注释3处添加一条代码。
3.（6分）单击“排序”按钮，在窗体上显示分数由高到低的排序，要求每行显示4个，如图5所示；完成（5）（6）填空，在注释5处添加一条代码（2分）。
4.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。
Dima（）AsSingle,n%
PrivateSubCommand
升级会员 