《2015单考单招VB模拟试题及答案(共36页).docx》由会员分享，可在线阅读，更多相关《2015单考单招VB模拟试题及答案(共36页).docx（36页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
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
14、分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。Private Sub Command1_Click()Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Randomize For i = 0
15、 To 7 Text1(i).Text = Int(10 * Rnd) 答案也可以是Text1(i).Text = Int(Rnd * 10) Next iEnd Sub试题二（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分）保存窗体文件和工程文
16、件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。Private Sub Form_Load()Dim s As Single, N%, F%, t!s = 0: F = 1N = Val(InputBox(请输入项数) 2分For i = 1 To N 2分 t = (-1) (i + 1) / i 2 或 1/(i*I)2分 s = s + t Next iMsgBox s= & s, , 结果 2分End Sub2. （13分）数列1，1，3, 5, 9,15 , 25, 41的规律是从第3个数开始，每个数是它前面两个数的和加1。在考生文件夹中有一个工程文件te
17、st2-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保存到试题目录下的“试题二”文件夹。Private
18、 Sub Command1_Click()Dim n%, t&, a&, b&n = Val(txt1.Text)a = 1: b = 1 表示第一项和第二项For i = (1) To n t = a + b + 1 t表示每一项的值 a = b b = tNext ilab1.Caption = 第 & n & 项的值txt2.Text = tEnd Sub试题三（20分）编写模拟比赛评分的程序，功能为：单击窗体，由键盘输入10位评委的打分，图4输入时用动态提示如图4所示。并在窗体中显示，当输入完第10位评委的打分后，在窗体显示“去掉一个最高分：“和“去掉一个最低分：”及”最后得分：”的文
19、字及数字。其中最后得分的计算公式为：去掉一个最分，去掉一个最低分后的8位评委的平均分（保留小数点一位）。效果为图5所示。图51. （2分）打开工程文件test2.vbp，将3.txt文件复制到适当的事件；2. （16分）根据题意完善（1）（3）（6）（7）（8）的填空；根据注释1、注释2、注释3的分别添加表达式、修改和一条代码；让程序正确执行，删除所有注释。（考试素材处已修改）3. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。Private Sub Form_Click()Dim k As Single, i%, s As SingleD
20、im max As Single, min As Singlek = Val(InputBox(请输入第1位评委打分)Print 评委打分：; k;max = k: min = k: s = kFor i = 2 To 10 k = Val(InputBox(请输入第 & i & 评委打分) Print k; If max = k Then min = k s = s + kNext iPrintPrint 去掉一个最高分：; maxPrint 去掉一个最低分：; minPrint 最后得分; Int(s - max - min) / 8 * 10 + 0.5) / 10End Sub2015
21、年VB操作题第三套试题一（30分）1. （14分）在名为Forml的窗体上绘制一个名为Txt1的文本框控件和一个名为Tmr1的计时器控件，程序运行后，文本框中居中18号显示的是当前的时间.而且文本框中所显示的时间会随时间的变化而改变，程序运行效果图1所示:图1（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-1.frm、test1-1.vbp为文件名保存到试题一的文件夹下。 (2)（6）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分） 表1对象名属性属性值对象名属性属性值Form1namemeText1Alignment2Text1nam
22、etxt1Text1fontsize18Timer1nametmr1Timer1interval1000(3) （4分）编写适当事件（2分），使文本框中所显示的时间会随时间的变化而改变（2分）注意：程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 test1-1.frm，工程文件名为 test1-1.vbp。Private Sub tmr1_Timer()txt1.Text = TimeEnd Sub2. (16分)在窗体上绘制两个名称分别为Lab1和Lab2的标签，它们的标题分别为“请输入一个正整数N”和“1+2+3+-+N=”；绘制两个名称分别为Txt1和Txt2的文本框，
23、它们的内容都设为空白：绘制一个名为Cmdl的命令按钮，其标题为“计算”。编写适当的程序，使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+ +N的和显示在Txt2中。程序运行结果如图2所示。 图2（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-2.frm、test1-2.vbp为文件名保存到试题一的文件夹下。 (2)（8）参照图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分） 表1对象名属性属性值对象名属性属性值Text1nametxt1Text2nametxt2Label1namelab1Label2namel
24、ab2Label1caption请输入一个正整数NLabel2caption1+2+3+N=Command1namecmd1Command1caption计算(3) （4分）编写适当事件（2分），使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+ +N的和显示在Txt2中。(要求用FOR语句结构)注意：程序中不得使用任何变量：文件必须存放在考生文件夹试题一中，窗体文件名为 test1-2.frm，工程文件名为 test1-2.vbp。Private Sub cmd1_Click()For i = 1 To Val(txt1.Text) txt2.Text = Va
25、l(txt2.Text) + iNext iEnd Sub试题二（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）填空（每格
26、2分，共4分）（4）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。Private Sub command1_Click()Timer1.Enabled = Truecommand2.Visible = TrueEnd SubPrivate Sub command2_Click()Timer1.Enabled = Falsecommand2.Visible = FalseEnd SubPrivate Sub HScroll1_Change()Timer1.Interval = HScroll1.ValueEnd SubPrivate Su
27、b Timer1_Timer()If Label1.Left = 60 Then k = k + 1Next iText1.Text = kText2.Text = n - kText3.Text = Int(s / n * 10 + 0.5) / 10End SubPrivate Sub Command2_Click()For i = 1 To n - 1 For j = 1 To n - i If a(j) = A And x = a And x = 0 And x = 9 Then p = p + 1 End IfNext iLabel4.Caption = kLabel5.Captio
28、n = pEnd SubPrivate Sub Command2_Click()EndEnd Sub试题三（20分）用VB语言编写一个程序其功能：产生30个300，500的随机整数，找其中的素数并将素数进行排序。程序运行界面图3、图4、图5、图6所示，窗体上有三个文本框（从上到下依次为text1、text2和text3，三个文本框均允许自动换行），三个命令按钮（从上到下依次为command1、command2和command3）并command2和command3无效。图5 图6图7 图81（6分）打开工程文件test3.vbp，将文本文件2.txt中选择符合条件的代码（2分）复制到适当的事件
29、（2分）中，实施随机产生30个300-500之间的整数，显示在text1中，数与数之间用空格隔开。并要求在显示前三个文本框清空，实现图6界面的效果（2分）。2. （6分）单击“素数“按钮，找出这30个数中的素数并显示在text2中，数与数之间用空格隔开。根据题意完成（1）（2）（3）的填空。效果图7所示。3. （6分）单击“排序”按钮，用选择法将找出的素数按从大到小的顺序排序，显示在text3中，数与数之间用空格隔开。（完成注释（4）（5）（6）处填空、修改与添加一条代码）效果图8所示。4. （2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。D
30、im a%(1 To 30), b%(1 To 30), n%Private Sub Command1_Click()Dim i%RandomizeText1.Text = Text2.Text = Text3.Text = Command2.Enabled = TrueFor i = 1 To 30 a(i) = Int(201 * Rnd) + 300 Text1.Text = Text1.Text & a(i) & Next iCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Command3.Enabled = Tru
31、eDim f%For i = 1 To 30 f = 0 For j = 2 To a(i) - 1 If a(i) Mod j = 0 Then f = 1: Exit For End If Next j If f = 0 Then n = n + 1 b(n) = a(i) End IfNext iFor i = 1 To n Text2.Text = Text2.Text & b(i) & Next iCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Dim t%, p%For i = 1 To n - 1 p = i
32、For j = i + 1 To n If b(p) b(j) Then p = j End If Next j If p i Then t = b(p): b(p) = b(i): b(i) = t End IfNext iFor i = 1 To n Text3.Text = Text3.Text & b(i) & Next iCommand1.Enabled = TrueCommand3.Enabled = FalseEnd Sub2015年VB操作题第五套试题一：（30分）1. （18分）编写一个程序，输入货物的数量及单价，求总价并输出。 窗体标题设置为“模拟售货机”，窗体form1上的两个标签(分别命名为 Lab1 和 Lab2，标题为“货物的数量(个)：”和“货物的单价(元)：”)两个名称分别为 Txt1 和 Txt2 的文本框;一个名称为 Cmd1 的命令按钮，其标题为“总价”。结果用消息框显示如图2所示。当用户输入货物的数量与单价