《2015单考单招VB模拟试题及答案》由会员分享，可在线阅读，更多相关《2015单考单招VB模拟试题及答案（36页珍藏版）》请在金锄头文库上搜索。
1、精选优质文档-倾情为你奉上2015年VB操作题第一套试题一：（30分）用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。图1图2 操作要求：1（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：表1 （每个属性1分，共12分）对象名属性属性值对象名属性属性值Form1cap
2、tion字体效果Label1namelab1Label1caption请您留下宝贵意见Text1nametxt1Text1multilinetrueText1scrollbars2Text1forecolor&HFF&Check1caption加粗Command1namecmd1Check2caption斜体Command1caption结束Command1enabledfalse3.（1）（4分）编写适当的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。（不用能VB函数）（代码2分）（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消；（要求不能用IF语句来实现）
3、（事件2分，一条代码2分）（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。（要求不能用IF语句来实现）（事件2分，一条代码2分）4. （2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。Private Sub Check1_Click() txt1.FontBold = Not txt1.FontBoldEnd SubPrivate Sub Check2_Click() txt1.FontItalic = Not txt1.FontItalicEnd SubPrivate Sub Command1_Click()EndEn
4、d Sub答案两种： 方法一：Private Sub Txt1_Change()If Txt1.Text = Thencmd1.Enabled = FalseElse cmd1.Enabled = TrueEnd IfEnd Sub方法二Private Sub Txt1_Change()If txt1.Text Then cmd1.Enabled = TrueElse cmd1.Enabled = FalseEnd IfEnd SubPrivate Sub cmd1_Click()EndEnd Sub试题二（25分）1（13分）有一个VB程序，其功能是：根据身高和体重判断胖瘦，程序运行界面如图
5、3和图4所示。胖瘦条件：如果身高与体重之差大于等于110，则表示“你太瘦了！”；如果身高与体重之差小于等于100，则表示“你太胖了！”；如果身高与体重之差在100110之间，则表示“你的身材真好！”图1图2打开某路径下的工程文件test2-1.vbp，完成下列操作：（1）（3分）当用户在文本框1输入身高时，命令按钮command1有效，添加适当的事件和代码实现此功能。(事件1分，一句代码2分)（2）（8分）完成相应注释1和注释2处的修改，实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释3处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码（2分）。（每格2分，共4分）（3）
6、（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题一”文件夹。Private Sub Command1_Click()Dim h As Single, w As Single, x As Singleh = Val(Text1.Text)w = Val(Text2.Text)x = h - wIf x = 110 Then Label4.Caption = 你太瘦了！ElseIf x 100 Then Label4.Caption = 你的身材真好！Else Label4.Caption = 你太胖了！End IfCommand2.Visible =
7、TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text1_Change()Command1.Enabled = TrueEnd Sub2（12分）填空完成VB程序，其功能是求某一天是这一年的第几天，界面设计和程序运行效果如图5所示。图5打开某路径下的工程文件test2-2.vbp，完成下列操作：（1）10分）输入某一天（年、月、日），单击“开始”按钮，计算这一天在本年中的天数（第几天）完成注释（1）（2）（3）（4）（5）填空实施此功能。（每空2分，共10分）（2）（2分
8、）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。Option Base 1Private Sub Command1_Click() Dim a, T%, y% a = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) y = Val(Text1.Text) If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 0) Then a(2) = 29 End If n = Val(Combo1.Text) For i = 1 To n - 1 T = T
9、 + a(i) Next i Text2.Text = T + Val(List1.Text)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() For i = 1 To 31 List1.AddItem i Next i For i = 1 To 12 Combo1.AddItem i Next iEnd Sub试题三、（20分）修改考生文件夹下的VB程序使其具有下列功能：在明文文本框中输入一串字串，在密文文本框中输出密文，加密规则：若字符为字母，将每个字母向后移1、3、5，结果仍是字母，其它字符保持不变。
10、界面设计和运行效果如图4和图5所示。 打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：1. （3分）单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当的事件和代码实现此功能（注：变量N设置通用变量）2. （15分）将3.txt文件复制到“加密”按钮的事件中，完成相应的（1）、（2）（3）填空及在注释1所在行添加一条代码，并修改“注释2”所在行的代码，让程序正确执行，删除所有注释。3. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹Dim n%Private Sub Command1_Click()Dim m%
11、Dim s$, x$m = Len(Text1.Text)For i = 1 To m x = Mid$(Text1.Text, i, 1) If x = A And x = a And x z Or x Z And x a Then x = Chr(Asc(x) - 26) End If End If s = s + xNext iText2.Text = sEnd SubPrivate Sub Option1_Click(Index As Integer)n = Option1(Index).CaptionEnd Sub2015年VB操作题第二套试题一（30分）设计一个模拟中奖号码的VB程
12、序。界面设计和运行效果如图1和图2所示图1图21（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。2.（14分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值Form1caption随机抽数Label1caption福利彩票抽奖程序Label1fontname幼圆Label1fontsize29Label1forecolor&HFF&Frame1caption中奖号码Text1(0)-text1(7)fontsize24（修改）Frame1na
13、meFr1Command1caption开始&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保存到试题目录下的“试题一”文件夹。Private Sub Command1_Click()Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseCommand1.Enabled
