2015单考单招VB模拟试题及答案
- 格式：doc
- 大小：2.59 MB
- 文档页数：74
1
页脚内容1 2015年VB操作题第一套
试题一：（30分）
用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。
图1 图2
操作要求：
1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。
2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：
表1（每个属性1分，共12分）
对象属性 属性值 对象属性 属性值 1
页脚内容2 名 名
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分） 1
页脚内容3 （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 1
页脚内容4 '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，则表示“你太瘦了！”；如果身高与体重之差小1
页脚内容5 于等于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 1
页脚内容6 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 1
页脚内容7 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 1
页脚内容8 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所示。 1
页脚内容9 打开“试题三”文件夹中的工程文件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) 1
页脚内容10 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分） 1
页脚内容11 设计一个模拟中奖号码的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 capt开始&S Text1(0)-texbackc&H00C0C
