2015单考单招VB模拟试题及答案

2015年VB操作题第一套

试题一：（30分）

用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。

图1图2

操作要求：

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。

2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：

表1（每个属性1分，共12分）

对象属性属性值对象属性属性值

页脚内容1

3.（1）（4分）编写适当的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。（不用能VB函数）（代码2分）

（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消；

（要求不能用IF语句来实现）（事件2分，一条代码2分）

页脚内容2

（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。

（要求不能用IF语句来实现）（事件2分，一条代码2分）

4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

PrivateSubCheck1_Click()

txt1.FontBol d=Nottxt1.FontBold

EndSub

PrivateSubCheck2_Click()

txt1.FontItalic=Nottxt1.FontItalic

EndSub

PrivateSubCommand1_Click()

End

EndSub

'答案两种：

'方法一：

'PrivateSubTxt1_Change()

'IfTxt1.Text=""Then

'cmd1.Enabl ed=False

页脚内容3

'Else

'cmd1.Enabl ed=True

'EndIf

'EndSub

'方法二

PrivateSubTxt1_Change()

Iftxt1.Text<>""Then

cmd1.Enabl ed=True

Else

cmd1.Enabl ed=False

EndIf

EndSub

PrivateSubcmd1_Click()

End

EndSub

试题二（25分）

1．（13分）有一个VB程序，其功能是：根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。胖瘦条件：如果身高与体重之差大于等于110，则表示“你太瘦了！”；如果身高与体重之差小

页脚内容4

于等于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()

DimhAsSingl e,wAsSingle,xAsSingl e

页脚内容5

h=Val(Text1.Text)

w=Val(Text2.Text)

x=h-w

Ifx>=110Then

Label4.Caption="你太瘦了！"

ElseIfx>100Then

Label4.Caption="你的身材真好！"

Else

Label4.Caption="你太胖了！"

EndIf

Command2.Visibl e=True

Command1.Enabl ed=False

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubText1_Change()

Command1.Enabl ed=True

页脚内容6

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

页脚内容7

T=T+a(i)

Nexti

Text2.Text=T+Val(List1.Text)

EndSub

PrivateSubCommand2_Click()

End

EndSub

PrivateSubForm_Load()

Fori=1To31

List1.Ad dItemi

Nexti

Fori=1To12

Combo1.Ad dItemi

Nexti

EndSub

试题三、（20分）

修改考生文件夹下的VB程序使其具有下列功能：

在明文文本框中输入一串字串，在密文文本框中输出密文，加密规则：若字符为字母，将每个字母向后移1、3、5，结果仍是字母，其它字符保持不变。界面设计和运行效果如图4和图5所示。

页脚内容8

打开“试题三”文件夹中的工程文件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)

页脚内容9

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(Ind exAsInteger)

n=Option1(Ind ex).Caption

EndSub

2015年VB操作题第二套试题一（30分）

页脚内容10

设计一个模拟中奖号码的VB程序。界面设计和运行效果如图1和图2所示

图1

图2

1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。

2.（14分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1

页脚内容11

3.操作要求：

（1）（2分）将1.txt文件复制到适当的事件（2分）中。

（2）（4分）完成“开始”按钮的代码，功能具有定时器开始工作，命令按钮command1无效，命令按钮command2有效。

(3)(4分)完成“停止”按钮的代码，功能具有定时器停止工作，命令按钮command1有效，命令按钮command2无效。

4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。

PrivateSubCommand1_Click()

Timer1.Enabl ed=True

Command1.Enabl ed=False

Command2.Enabl ed=True

EndSub

页脚内容12

PrivateSubCommand2_Click()

Timer1.Enabl ed=False

Command1.Enabl ed=True

Command2.Enabl ed=False

EndSub

PrivateSubTimer1_Timer()

Rand omize

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

页脚内容13

（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。

PrivateSubForm_Load()

DimsAsSingl e,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分），把程序中的问号

页脚内容14

（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

页脚内容15

输入时用动态提示如图4所示。并在窗体中显示，当输入完第10位评委的打分后，在窗体显示“去掉一个最高分：“和“去掉一个最低分：”及”最后得分：”的文字及数字。其中最后得分的计算公式为：去掉一个最分，去掉一个最低分后的8位评委的平均分（保留小数点一位）。效果为图5所示。

图5

1.（2分）打开工程文件test

2.vbp，将

3.txt文件复制到适当的事件；

2.（16分）根据题意完善（1）（3）（6）（7）（8）的填空；根据注释1、注释2、注释3的分别添加表达式、修改和一条代码；让程序正确执行，删除所有注释。（考试素材处已修改）

3.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。

PrivateSubForm_Click()

DimkAsSingl e,i%,sAsSingl e

DimmaxAsSingl e,minAsSingl e

k=Val(InputBox("请输入第1位评委打分"))

Print"评委打分：";k;

max=k:min=k:s=k

Fori=2To10

k=Val(InputBox("请输入第"&i&"评委打分"))

Printk;

页脚内容16

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

页脚内容17

(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所示。

页脚内容18

图2

（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-2.frm、test1-2.vbp 为文件名保存到试题一的文件夹下。

(2)（8））参照图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1

(3)（4分）编写适当事件（2分），使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+…+N的和显示在Txt2中。(要求用FOR语句结构)

注意：程序中不得使用任何变量：文件必须存放在考生文件夹试题一中，窗体文件名为

页脚内容19

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分）

页脚内容20