搜索
12015年VB操作题第一套试题一：（30分）用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。图1图2操作要求：1．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：表1（每个属性1分，共12分）对象名属性属性值对象名属性属性值Form1caption字体效果Label1namelab1Label1caption请您留下宝贵意见Text1nametxt1Text1multilinetrueText1scrollbars2Text1forecolor&H000000FF&Check1caption加粗Command1namecmd1Check2caption斜体Command1caption结束Command1enabledfalse3.（1）（4分）编写适当的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。（不用能VB函数）（代码2分）（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消；（要求不能用IF语句来实现）（事件2分，一条代码2分）（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。（要求不能用IF语句来实现）（事件2分，一条代码2分）4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。PrivateSubCheck1_Click()txt1.FontBold=Nottxt1.FontBoldEndSubPrivateSubCheck2_Click()txt1.FontItalic=Nottxt1.FontItalicEndSub2PrivateSubCommand1_Click()EndEndSub'答案两种：'方法一：'PrivateSubTxt1_Change()'IfTxt1.Text=Then'cmd1.Enabled=False'Else'cmd1.Enabled=True'EndIf'EndSub'方法二PrivateSubTxt1_Change()Iftxt1.TextThencmd1.Enabled=TrueElsecmd1.Enabled=FalseEndIfEndSubPrivateSubcmd1_Click()EndEndSub试题二（25分）1．（13分）有一个VB程序，其功能是：根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。胖瘦条件：如果身高与体重之差大于等于110，则表示“你太瘦了！”；如果身高与体重之差小于等于100，则表示“你太胖了！”；如果身高与体重之差在100――110之间，则表示“你的身材真好！”图1图2打开某路径下的工程文件test2-1.vbp，完成下列操作：（1）（3分）当用户在文本框1输入身高时，命令按钮command1有效，添加适当的事件和代码实现此功能。(事件1分，一句代码2分)3（2）（8分）完成相应注释1和注释2处的修改，实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释3处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码（2分）。（每格2分，共4分）（3）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题一”文件夹。PrivateSubCommand1_Click()DimhAsSingle,wAsSingle,xAsSingleh=Val(Text1.Text)w=Val(Text2.Text)x=h-wIfx=110ThenLabel4.Caption=你太瘦了！ElseIfx100ThenLabel4.Caption=你的身材真好！ElseLabel4.Caption=你太胖了！EndIfCommand2.Visible=TrueCommand1.Enabled=FalseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText1_Change()Command1.Enabled=TrueEndSub2．（12分）填空完成VB程序，其功能是求某一天是这一年的第几天，界面设计和程序运行效果如图5所示。图5打开某路径下的工程文件test2-2.vbp，完成下列操作：（1）10分）输入某一天（年、月、日），单击“开始”按钮，计算这一天在本年中的天数（第几天）完成注释（1）（2）（3）（4）（5）填空实施此功能。（每空2分，共10分）（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。OptionBase1PrivateSubCommand1_Click()Dima,T%,y%a=Array(31,28,31,30,31,30,31,31,30,31,30,31)4y=Val(Text1.Text)IfyMod400=0Or(yMod4=0AndyMod1000)Thena(2)=29EndIfn=Val(Combo1.Text)Fori=1Ton-1T=T+a(i)NextiText2.Text=T+Val(List1.Text)EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Fori=1To31List1.AddItemiNextiFori=1To12Combo1.AddItemiNextiEndSub试题三、（20分）修改考生文件夹下的VB程序使其具有下列功能：在明文文本框中输入一串字串，在密文文本框中输出密文，加密规则：若字符为字母，将每个字母向后移1、3、5，结果仍是字母，其它字符保持不变。界面设计和运行效果如图4和图5所示。打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：1.（3分）单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当的事件和代码实现此功能（注：变量N设置通用变量）2.（15分）将3.txt文件复制到“加密”按钮的事件中，完成相应的（1）、（2）（3）填空及在注释1所在行添加一条代码，并修改“注释2”所在行的代码，让程序正确执行，删除所5有注释。3.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹Dimn%PrivateSubCommand1_Click()Dimm%Dims$,x$m=Len(Text1.Text)Fori=1Tomx=Mid$(Text1.Text,i,1)Ifx=AAndx=ZOrx=aAndx=zThenx=Chr(Asc(x)+n)IfxzOrxZAndxaThenx=Chr(Asc(x)-26)EndIfEndIfs=s+xNextiText2.Text=sEndSubPrivateSubOption1_Click(IndexAsInteger)n=Option1(Index).CaptionEndSub2015年VB操作题第二套试题一（30分）设计一个模拟中奖号码的VB程序。界面设计和运行效果如图1和图2所示图16图21．（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。2.（14分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值Form1caption随机抽数Label1caption福利彩票抽奖程序Label1fontname幼圆Label1fontsize29Label1forecolor&H000000FF&Frame1caption中奖号码Text1(0)-text1(7)fontsize24（修改）Frame1nameFr1Command1caption开始&SText1(0)-text1(7)backcolor&H00C0C0FF&Timer1EnabledfalseCommand2caption停止&XTimer1interval100Command2Enabledfalse3.操作要求：（1）（2分）将1.txt文件复制到适当的事件（2分）中。（2）（4分）完成“开始”按钮的代码，功能具有定时器开始工作，命令按钮command1无效，命令按钮command2有效。(3)(4分)完成“停止”按钮的代码，功能具有定时器停止工作，命令按钮command1有效，命令按钮command2无效。4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。PrivateSubCommand1_Click()Timer1.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseCommand1.Enabled=True7Command2.Enabled=FalseEndSubPrivateSubTimer1_Timer()RandomizeFori=0To7Text1(i).Text=Int(10*Rnd)'答案也可以是Text1(i).Text=Int(Rnd*10)NextiEndSub试题二（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=1N=Val(InputBox(请输入项数))'2分Fori=1ToN'2分t=(-1)^(i+1)/i^2'或1/(i*I)'2分s=s+tNextiMsgBoxs=&s,,结果'2分EndSub2.（13分）数列1，1，3,5,9,,15,25,41…的规律是从第3个数开始，每个数是它前面两个数的和加1。在考生文件夹中有一个工程文件test2-2.vbp(相应的窗体文件为test2-2.frm)。窗体Form1中己经给出了所有控件。编写适当的亊件过程实现以下功能：在Txt1中输入整数（例如30）,单击“计算”按钮，则在Txt2中显示该数列第30项的值，如图4所示图48操作要求：（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)Tont=a+b+1't表示每一项的值a=bb=tNextilab1.Caption=第&n&项的值txt2.Text=tEndSub试题三（20分）编写模拟比赛评分的程序，功能为：单击窗体，由键盘输入10位评委的打分，