单考单招VB模拟试题及答案讲课稿.docx
- 文档编号:5130099
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:47
- 大小:713.80KB
单考单招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"去掉一个最高分:
";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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 单考单招 VB 模拟 试题 答案 讲课