高职单招24套vb试题

1、24套vb试题第一套试题一：（30分）用VB编制一个程序，初始界面如图1，文本框显示程序运行输入的文本（文本框有垂直滚动条，文本为红色）。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效，单击“结束”按钮结束程序运行。图1图2操作要求：1（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到考生文件夹下。2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：表1 （每个属性1分，共12分）对象名属性属性值对象名属性属性值Form1caption字体效果Label1nam

2、elab1Label1caption请您留下宝贵意见Text1nametxt1Text1multilinetrueText1scrollbars2Text1forecolor&H000000FF&Check1caption加粗Command1namecmd1Check2caption斜体Command1caption结束Command1enabledfalse3.（1）（4分）编写适当的事件（2分）：只有当文本框内容非空时“结束”按钮才有效。（不用能VB函数）（代码2分）（2）（4分）单击“加粗”复选框时，文本框中的文字显示加粗效果；否则取消；（要求不能用IF语句来实现）（事件2分，一条代码2

3、分）（3）（4）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。（要求不能用IF语句来实现）（事件2分，一条代码2分）4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。试题二（25分）1（13分）有一个VB程序，其功能是：根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。胖瘦条件：如果身高与体重之差大于等于110，则表示“你太瘦了！”；如果身高与体重之差小于等于100，则表示“你太胖了！”；如果身高与体重之差在100110之间，则表示“你的身材真好！”图1图2打开某路径下的工程文件test2-1.vbp，完成下列操作：（1）

4、（3分）当用户在文本框1输入身高时，命令按钮command1有效，添加适当的事件和代码实现此功能。(事件1分，一句代码2分)（2）（8分）完成相应注释1和注释2处的修改，实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释3处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码（2分）。（每格2分，共4分）（3） （2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题一”文件夹。Private Sub Command1_Click()Dim h As Single, w As Single, x As Singleh = Val(Text1.T

5、ext)w = Val(Text2.Text)x = w - h 注释1：身高与体重之差If x = 110 Then Label4.Caption = 你太瘦了！ElseIf x 100 Then Label4.Caption = 你真好 注释2：显示结果Else Label4.Caption = 你太胖了！End If注释3注释4End SubPrivate Sub Command2_Click()EndEnd Sub2（12分）填空完成VB程序，其功能是求某一天是这一年的第几天，界面设计和程序运行效果如图5所示。图5打开某路径下的工程文件test2-2.vbp，完成下列操作：（1）10分

6、）输入某一天（年、月、日），单击“开始”按钮，计算这一天在本年中的天数（第几天）完成注释（1）（2）（3）（4）（5）填空实施此功能。（每空2分，共10分）（2）（2分）保存窗体文件和工程文件，生成可执行文件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(1) 注释1：取年份 If y Mod 400 = 0 Or (y Mod 4 = 0 A

7、nd y Mod 100 0) Then a(2) = (2) 注释2：判断是否闰年 End If n = Val(3) 注释3：取组合框当前月份 For i = 1 To n - 1 T = T + (4) 注释4：每月的天数 Next i Text2.Text = T + Val(5) 注释5：取列表框当日End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()For i = 1 To 12 Combo1.AddItem iNext iFor i = 1 To 31 List1.AddItem iNext iE

8、nd Sub试题三、（20分）修改考生文件夹下的VB程序使其具有下列功能：在明文文本框中输入一串字串，在密文文本框中输出密文，加密规则：若字符为字母，将每个字母向后移1、3、5，结果仍是字母，其它字符保持不变。界面设计和运行效果如图4和图5所示。图4图5打开“试题三”文件夹中的工程文件test3.vbp，并完成下列操作：1.（3分）单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当的事件和代码实现此功能（注：变量N设置通用变量）2.（15分）将3.txt文件复制到“加密”按钮的事件中，完成相应的（1）、（2）（3）填空及在注释1所在行添加一条代码，并修改“注释2”所在行的代码，让

9、程序正确执行，删除所有注释。3.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。Dim n%3.txt:Dim m%,s$, x$m = Len(1)For i = 1 To m x = Mid$(Text1.Text, i, 1) If x = A And x z Or x Z And x a Then x = Chr(Asc(x) -（3）)注释1：选择结构的格式 End If s = s +val(x) 注释2：处理后的字符连接Next iText2.Text = s第二套试题一（30分）设计一个模拟中奖号码的VB程序。界面设计和运行效

10、果如图1和图2所示图1图21（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。2.（14分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值Form1caption随机抽数Label1caption福利彩票抽奖程序Label1fontname幼圆Label1fontsize29Label1forecolor&H000000FF&Frame1caption中奖号码Text1(0)-text1(7)fontsize24（修改）Frame1nameFr

11、1Command1caption开始&SText1(0)-text1(7)backcolor&H00C0C0FF&Timer1EnabledfalseCommand2caption停止&XTimer1interval100Command2Enabledfalse3.操作要求：（1） （2分）将1.txt文件复制到适当的事件（2分）中。（2）（4分）完成“开始”按钮的代码，功能具有定时器开始工作，命令按钮command1无效，命令按钮command2有效。(3) (4分)完成“停止”按钮的代码，功能具有定时器停止工作，命令按钮command1有效，命令按钮command2无效。4.（2分）保存窗

12、体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。1.txt:RandomizeFor i = 0 To 7 Text1(i).Text = int(10*rnd)Next i试题二（25分）1.（12分）下列VB程序段实现如下功能：加载窗体后（从键盘上输入项数N）如图3所示，输出S的计算结果。请根据要求，将程序补充完整。S的值用消息框显示操作要求：（1）（10分）打开工程文件test2-1.vbp，将2.txt文件复制到窗体加载事件中（2分），完成（1）、（2）、（4）的填空及注释1的（3）代码；让程序正确运行。用消息框显示结果如图3所示：（每空2分，共8

13、分）图3（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。2-1txtDim s As Single，N%,t!S=0:t=0N=（1）For i=1 to（2） t=(-1)(i+1)/i2（3） 将某项添加到S的累加器next i(4)2.（13分）数列1，1，3, 5, 9,15 , 25, 41的规律是从第3个数开始，每个数是它前面两个数的和加1。在考生文件夹中有一个工程文件test2-2.vbp (相应的窗体文件为test2-2.frm)。窗体Form1中己经给出了所有控件。编写适当的亊件过程实现以下功能：在Txt1中输入整

14、数（例如30）,单击“计算”按钮，则在Txt2中显示该数列第30项的值，如图4所示图4操作要求：（1）（11分）打开工程文件test2-2.vbp，将2-2.txt文件复制适事件中（1分），把程序中的问号（1）（2）（3）（4）(5)改为正确的内容， 使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的其他属性。（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。2-2txtDim n%, t&, a&, b&n = Val(Text1.Text)a = 1: b=1表示第一项和第二项For i = (1) To nt = (2

15、)t表示每一项的值a = bb = (3)Next i(4).Caption = 第 & n & 项的值Text2.Text =(5)试题三（20分）编写模拟比赛评分的程序，功能为：单击窗体，由键盘输入10位评委的打分，图4输入时用动态提示如图4所示。并在窗体中显示，当输入完第10位评委的打分后，在窗体显示“去掉一个最高分：“和“去掉一个最低分：”及”最后得分：”的文字及数字。其中最后得分的计算公式为：去掉一个最分，去掉一个最低分后的8位评委的平均分（保留小数点一位）。效果为图5所示。图51.（2分）打开工程文件test2.vbp，将3.txt文件复制到适当的事件；2.（16分）根据题意完善（

16、1）（3）（6）（7）（8）的填空；根据注释1、注释2、注释3的分别添加表达式、修改和一条代码；让程序正确执行，删除所有注释。（考试素材处已修改）3.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。Dim k As Single, i%, s As SingleDim max As Single, min As Singlek = Val(InputBox(请输入第1位评委打分)Print 评委打分：; k;max = k: min = k: s =kFor i = 2 To (1) k = 注释1：键盘上输入相应的评委打分 Print k;

17、 If max= k Then min=k s = s +i 注释2：添加评委的分数到S累加器Next i 注释3：换行Print 去掉一个最高分：; (6)Print 去掉一个最低分：; (7)Print 最后得分; (8)第三套试题一（30分）1.（14分）在名为Forml的窗体上绘制一个名为Txt1的文本框控件和一个名为Tmr1的计时器控件，程序运行后，文本框中居中18号显示的是当前的时间.而且文本框中所显示的时间会随时间的变化而改变，程序运行效果图1所示:图1（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-1.frm、test1-1.vbp为文件名保存到试

18、题一的文件夹下。(2)（6）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分） 表1对象名属性属性值对象名属性属性值Form1namemeText1Alignment2Text1nametxt1Text1fontsize18Timer1nametmr1Timer1interval1000(3)（4分）编写适当事件（2分），使文本框中所显示的时间会随时间的变化而改变（2分）注意：程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 test1-1.frm，工程文件名为 test1-1.vbp。2.(16分)在窗体上绘制两个名称分别为Lab1和Lab2的标签，

19、它们的标题分别为“请输入一个正整数N”和“1+2+3+-+N=”；绘制两个名称分别为Txt1和Txt2的文本框，它们的内容都设为空白：绘制一个名为Cmdl的命令按钮，其标题为“计算”。编写适当的程序，使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+ +N的和显示在Txt2中。程序运行结果如图2所示。图2（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-2.frm、test1-2.vbp为文件名保存到试题一的文件夹下。(2)（8）参照图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分） 表1对象名属性属性值对象名属性

20、属性值Text1nametxt1Text2nametxt2Label1namelab1Label2namelab2Label1caption请输入一个正整数NLabel2caption1+2+3+N=Command1namecmd1Command1caption计算(3)（4分）编写适当事件（2分），使程序运行时.在Txtl中输入一个正整数N,单击“计算”按钮，计箅出1+2+3+ +N的和显示在Txt2中。(要求用FOR语句结构)注意：程序中不得使用任何变量：文件必须存放在考生文件夹试题一中，窗体文件名为 test1-2.frm，工程文件名为 test1-2.vbp。试题二（25分）1.（13

21、分）有一个VB程序其功能：实施字幕滚动。界面设计和运行效果如图3和图4所示图3图4操作要求：（1）（4分）添加适当事件，定时器间隔时间（interval）由滚动条事件决定，当拖动滚动块时来改变字符滚动速度；（事件2分，一条代码2分）（2）（4）单击“开始”按钮，定时器工作且“停止”按钮显示，单击“停止”按钮，定时器不工作，且“停止”按钮隐藏。（每一句代码1分，共4分）（3）（5分）定时器事件是将标签1每隔一定时间始终从左向右以每200缇移动；将2-1.txt文件复制到相应的事件（1分）完成（1）（2）填空（每格2分，共4分）（4）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.e

22、xe保存到试题目录下的“试题二”文件夹。2-1txtIf Label1.Left =A and x=0 or x b(j) Then 注释5：按大到小进行比较 p = j End IfNext jIf i p Then t = b(p): b(p) = b(i): b(i) = tEnd IfNext iFor i = 1 To n 注释6：将素数按图6的格式进行打印Next iEnd Sub3txt实现产生30个300，500随机整数的一段代码是（A）For i = 1 To 30 a(i) = Int(200 * Rnd) + 300 Text1.Text = Text1.Text & a

23、(i) & Next i（B）For i = 1 To 30 a(i) = Int(201 * Rnd) + 300 Text1.Text = Text1.Text +str(a(i) Next i(C) For i = 1 To 30 a(i) = Int(201 * Rnd) + 300 Text1.Text = Text1.Text & a(i) & Next i第五套试题一：（30分）1.（18分）编写一个程序，输入货物的数量及单价，求总价并输出。窗体标题设置为“模拟售货机”，窗体form1上的两个标签(分别命名为Lab1和Lab2，标题为“货物的数量(个)：”和“货物的单价(元)：”

24、)两个名称分别为Txt1和Txt2的文本框;一个名称为Cmd1的命令按钮，其标题为“总价”。结果用消息框显示如图2所示。当用户输入货物的数量与单价后，用户单击“总价”按钮或按回车键，输出正确的结果，程序运行效果如图1所示。（要求：程序中不得使用变量，事件过程中只能写一条语句。）图1图2操作要求：（1）（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-1.frm、test1-1.vbp为文件名保存到试题一的文件夹下。（2）（10分）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值Form1caption模拟售货

25、机标签1namelab1标签2namelab2标签1caption货物的数量(个)标签2casption货物的单价(元)文本框1nametxt1文本框2nametxt2命令按钮namecmd1命令按钮caption总价命令按钮defaulttrue（3）（4分）编写适当的事件，当用户输入货物的数量及单价，用消息框输出结果。（说明：程序中不得使用变量，事件过程中只能写一条语句。）2（12分）在名称为Forml的窗体上画个列表框,其名称为L1;一个水平滚动条，其名称为HS1，Smallchange属性为2。Largechange属性为10。Min属性为10, Max属性为100,编写适应的事件过程

26、。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中添加一个项其内容是“XX”，其中XX是滚动框所在的位置，如图2所示。图2操作要求：（1）（2分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1-2.frm、test1-2.vbp为文件名保存到试题一的文件夹下。（2）（6分）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值列表框namel1水平滚动条namehs1水平滚动条Smallchange2水平滚动条Largechange10水平滚动条max100水平滚动条min10（3）（4分）根据题意编写适

27、当的事件和代码，实现如图2效果。（说明：程序中不得使用变量，事件过程中只能写一条语句。）试题二（25分）1.（15分）设计如图3、图4所示的程序，单击按钮，通过输入框输入数字，如果是正数，则显示在List1中，如果是负数显示在List2中。同时统计正数、负数的和，显示在相应的标签中，图5所示。要求输入框在输入时，能动态提示当前输入的是第几个数，如图5所示。完成命令按钮相关的代码。图3图4图5打开某路径下的工程文件test2-1.vbp，完成下列操作：（1）（12分）将2.txt文件复制到命令按钮的单击事件中（3分），根据题意完成（1）（2）（3）（4）（5），让程序正确执行。（每填空2分，共1

28、0分。（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。Private Sub Command1_Click()Dim n%, a!, s1!, s2!变量N表示数据的个数，变量a表示从键盘输入一个数s1，s2分别表示正数和负数的和变量名不得更改End Sub210分）在考生文件夹下有一个工程文件test2-2.vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=C2。例如，3、4,5就是一个满足条件的整数组合(注意：a，b，C分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程

29、序，统计均在60以内的三个数满足上述关系的整数组合的个数，并显示在标签Labell中。如图6所示：图6注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。打开某路径下的工程文件test2-2.vbp，完成下列操作：(1)（8分）根据题意将代码窗口中的（1）（2）（3）（4）填空完成。（每格2分，共8分）（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-2.exe保存到试题目录下的“试题二”文件夹。Private Sub Command1_Click()Dim i%, j%, k%,

30、 m%For i = 1 To (1) For j = 1 To 60 For k = 1 To (2) If i 2 + j 2 = k 2 Then m = m + (3) End If Next k Next jNext iLabel1.Caption = m / (4)End Sub2.Txtn = 1a = Val(InputBox(请输入第 & n & 个数，输入0结束,输入)Do While (1) If a 0 Then List1.AddItem a s1 = (2) Else List2.AddItem a s2 = s2 + a End If n = (3) a = Va

31、l(InputBox(请输入第 &(4) & 个数，输入0结束，输入)(5)Label3.Caption = Label3.Caption & s1Label4.Caption = Label4.Caption & s2试题三（20分）设计如图9、图10所示程序，初始排序按钮不可用。单击开始按钮，每隔0.2秒在6个文本框中随机产生6个0-9的数字，同时按钮标题变成“结束”，如图10所示。单击结束按钮，文本框中数字停止变化，按钮标题变成“开始”，同时排序按钮可用。单击“排序”按钮，把文本框中的数字从小到大排序，显示在相应的标签中，如图10所示。图9图10打开某路径下的工程文件test3.vbp，

32、完成下列操作：1.（6分）单击开始按钮，每隔0.2秒在6个文本框中随机产生6个0-9的数字，同时按钮标题变成“结束”，如图10所示。单击结束按钮，文本框中数字停止变化，按钮标题变成“开始”。完成（1）（2）（3）的填空。2.（4分）完成定时器事件中（4）、（5）的填空；（每格2分，共4分）3.（8分）完成排序事件中的（6）（7）、（8）、（9）的填空；（每格2分，共8分）4.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。Dim a%(0 To 5)Private Sub Command1_Click()If Command1.Caption

33、 = 开始 Then Timer1.Enabled = (1) Command1.Caption = 结束Else Timer1.Enabled = False Command1.Caption = (2) Command2.Enabled = (3)End IfEnd SubPrivate Sub Command2_Click()For i = 0 To 5a(i) = Val(6)Next iFor i = 1 To 5 For j = 0 To 5 - i If (7) Then t = a(j) a(j) = a(j + 1) a(j + 1) = t End If Next jNex

34、t iFor i = 0 To 5s = (8)Next iLabel1.Caption = 中奖号码为： & (9)End SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()For i = 0 To (4)Text1(i).Text = Int(5) * Rnd)Next iEnd Sub第六套试题一（30分）设计一个VB程序，实施硬件各参数的选择显示在列表框中如下图2所示。图1图2操作要求：1（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹中。2

35、.（12分）参照图1完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值Form1caption硬件配置Combo1text空白Label1caption所选配置Form1fontsize小四Combo1style1Frame1caption内存Frame2caption其它设备Option1caption4GOption2caption8GCheck1caption声卡Check2caption显卡Check3caption网卡3.（1）（2分）将1.txt文件内容（六种电脑品牌）添加到适当的事件中，实现窗体加载后显示结果如图2所示。（窗体

36、加载时，组合框中已添加六个项目）（2）（12分）分别单击各控件的适当事件和代码，结果如图2所示。原（3）己删除4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。1.txt苹果惠普方正戴尔华硕联想试题二：（25分）1.（12分）用VB编制一个程序，初始界面如图3所示。当用户从键盘输入任意字符到文本框1（文本框多行显示）后，单击“统计”按钮，则对其中的字母、数字、空格、其他字符进行分类统计，并将统计结果分别显示在相应的文本框中如图4所示；单击“退出”按钮，则关闭窗口退出程序。（此题不用大小写涵数）图3图4打开某路径下的试题二文件夹中工程文件te

37、st2-1.vbp，完成下列操作：（1）（10分）将2.txt文件复制到命令按钮的适当事件中（2分），根据题意完成（1）（2）（3）（4）的填空，让程序正确执行。（每填空2分，共8分）（2）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。2.txtDim n1%, n2%, n3%, n4%, m%, x$m = Len(text1.text)For i = 1 To (1) x = Mid(Text1.Text, i, 1) If x = A And x = 0 And x Command2captionCommand1Enabledf

38、alseCommand2Enabledfalse3.（1）（4分）窗体加载时，在列表框1已加载图1的项目:语文、英语、数学、程序设计、网络操作系统、网络设备配置、PR、PS、体育、心理、职业道德、音乐。（加载事件2分，添加列表框内容2分）（2）（5分）编适当事件当用户选中列表框1的内容，command1按钮有效，单击“”按钮，则把选中的课程移动到右边列表框中；且command1按钮又变成无效。（每知识点1分，共5分）（3）（5分）编适当事件当用户选中列表框2的内容，command2按钮有效，单击“”按钮，则把选中的课程移动到左边列表框中；且command2按钮又变成无效。（每知识点1分，共5分

39、）4.（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。试题二（25分）1.（15分）VB程序功能：激活窗体通过输入框随机给小学生出10道二位正整数的加法题，每答对一道题得10分，最后用消息框输出小学生的得分。程序运行界面如图3和图4所示。图3图4打开某路径下的工程文件test2.vbp，完成下列操作：（1）（3分）将文件2-1.txt复制到适当的事件中去。（2）（10分）事件中的代码进行相应的填空（1）（2）（3）（4）（5），并能正确执行程序的结果。（每空2分，共10分）（3）（2分）保存窗体文件和工程文件，生成可执行文件test2.exe

40、保存到试题目录下的“试题二”文件夹。2-1.txtDim a%, b%, x%, s%RandomizeFor i = 1 To 10a = (1)b = Int(90 * Rnd) + 10 x = (2)If a + b = (3) Then s = s + (4)Else MsgBox 继续努力，加油！End IfNext i(5)2.（10分）在考生文件夹下有一个工程文件test2-1.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项(如图5所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1

41、文本框中显示这些选中的城市(如图6所示)。已经给出了所有控件和程序，但程序不完整。图5图6（1）（8分）要求：请去掉程序中的注释符，把代码窗口中的程序的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。（程序中有4个？各2分，共8分）（2分）保存窗体文件和工程文件，生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹Private Sub Command1_Click()Dim k%For k = List1.ListCount - 1 To 0？K从最大到0，则步长应为-1 If List1.Selected(

42、k) = True Then List2.AddItem？添加项到list2中 List1.RemoveItem？通过下标删除list1中的项目 End IfNext kEnd SubPrivate Sub Command2_Click()Dim k%Text1.Text = 已选中的城市有：For k = 0 To List2.ListCount - 1 Text1.Text = ? + + List2.List(k) 将list2中的项目连接在text1中的内容后Next kEnd SubPrivate Sub Form_Load()List1.AddItem 宁波 List1.AddIt

43、em 杭州 List1.AddItem 绍兴 List1.AddItem 湖州 List1.AddItem 温州 List1.AddItem 台州 List1.AddItem 嘉兴 List1.AddItem 海盐End Sub试题三（20分）VB程序功能：产生150,100的偶数进行排序。单击“排序”按钮，则将数组a中的15个数按从小到大的顺序（用冒泡法）显示在文本框Text2中。图7图8打开某路径下的工程文件test3.vbp，初始界面如上图7所示，完成下列操作：1.（2分）将文本框1设置成多行显示；2.（8分）单击“产生数组”按钮，用函数生成15个0100之间（不含0和100）并将它们保

44、存在一维数组a中，同时也将这15个数值显示在Text1中，结果如图8所示；完成（1）（2）（3）（4）的填空。3.（8分）单击“排序”按钮，则将数组a中的15数按从小到大的顺序（用冒泡法）显示在文本框Text2中，结果如图8所示。完成（5）（6）（7）（8）的填空。4.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。Dim a%(15)Private Sub Command1_Click()For i = 1 To 15 a(i) = Int(1) * Rnd) + 1 产生(0，100)的随机整数 If a(i)(2) 0 Then i =

45、 i - 1Next iFor i = 1 To (3)Text1.Text = Text1.Text + (4)Next iEnd SubPrivate Sub Command2_Click()For i = 1 To 14For j = 1 To (5) If a(j) = (6) Then t = a(j): a(j)= a(j+1):(7) End IfNext jNext iFor i = 1 To 15 Text2.Text = Text2.Text & (8) & Next iEnd Sub第八套试题一：（30分）设计一个VB程序：其功能实现简单四则运算。运行界面如图1和图2所示

46、图1图2操作要求：1（4分）创建一个标准EXE工程，将其窗体文件和工程文件分别以test1.frm、test1.vbp为文件名保存到试题一的文件夹下。2.（12分）参照图1和图2完成界面设计：按表添加相关对象并设置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值Form1caption四则运算Form1maxbuttonfalseForm1minbuttonfalseForm1fontsize四号字Frame2caption运算符号Frame1caption两个操作数Option1caption+Frame3caption运算结果Option2caption-Option3

47、caption*Option4caption/Label1borderstyle13.（12分）分别单击“+”、“-”、“*”“/”单选按钮，实现加法、减法、乘法与除法运算，结果如图2所示；（注意：程序中不得使用任何变量，每个事件各1分，共4分，每个事件只写一句正确代码各2分，共8分，其中单击“/”单选按钮时，不考虑除数为零，计算结果在标签1显示。）4（2分）保存窗体文件和工程文件，生成可执行文件test1.exe保存到试题目录下的“试题一”文件夹。试题二（25分）（重新出题）1.（15分）打开工程文件test2.vbp,程序运行时界面如图3、4所示，图3图4操作要求：（1）（6分）添加适当事

48、件（各1分，共2分）若选中“累加”单选按钮，则“10”、“l2”单选按钮不可用，（2分）若选中“阶乘”单选按钮，则“1000”、“2000”单选按钮不可用（2分）(如图3所示)。（2）（8分）选中一组中的一个单选按钮后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算1+2+3+2000，选中“阶乘”和“10”，则计算10!。实现此功能完成（1）(2)(3)(4)的填空（3）（1分）保存窗体文件和工程文件，生成可执行文件test2.exe保存到试题目录下的“试题二”文件夹。注意：操作（1）中程序中不得使用任何变量；操作（2）要求选中按钮的数值用变量N表

49、示，N为整型变量，累加或累乘的结果用变量S表示，S为单精度，文件必须存放在考生文件中，工程文件名为test2.vbp，窗体文件名为test2.frm。Dim n%Private Sub Command1_Click()Dim s!If Option5.Value = True Then If Option1.Value = True Then n = Option1.(1) Else n = Option2.Caption End If For i = 1 To n s = s + (2) Next iElse If Option3.Value = True Then n = Option3.

50、Caption Else n = Option4.Caption End If s = (3) For i = 1 To n s = s * i Next iEnd IfText1.Text = Str(4)End SubPrivate Sub Option5_Click()Option1.Enabled = TrueOption2.Enabled = TrueOption3.Enabled = FalseOption4.Enabled = FalseEnd SubPrivate Sub Option6_Click()Option1.Enabled = FalseOption2.Enabled

51、 = FalseOption3.Enabled = TrueOption4.Enabled = TrueEnd Sub2（10分）在考生文件夹中有一个工程文件test2-1.vbp及窗体文件test2-1.frm。在名为Forml的窗体上有一个名为Txtl的文本框：还有两个名称分别Cmd丨和Cmd2的命令按钮，它们的标题分别为“找第一个素数度”和“退出”，如图5所示。图5图6编写一个程序其功能：在文本框输入一个整数（例如：678），则找出大于此文本框输入整数的第1个素数，并显示在消息框中如图6所示：（1）（8）完成代码窗口中程序（1）（2）（3）（4）填空（2）（2分）保存窗体文件和工程文件，

52、生成可执行文件test2-1.exe保存到试题目录下的“试题二”文件夹。Private Sub Command1_Click()Dim x%, t As Boolean, f%x = Val(Text1.Text)x = x + (1)t = FalseDo Until (2) f = 0 For i = 2 To x - 1 If x Mod i = 0 Then f = 1: Exit For End If Next i If (3) Then MsgBox 大于 & Text1.Text & 第一个素数为 & x t = (4) Else x = x + 1 End IfLoopEnd

53、Sub试题三（20分）修改VB程序实施此功能为：编写一个十佳歌手评分系统，已知共有不多于100位选手参加比赛，共有7位评委打分，选手最后得分为去掉一个最高分和一个最低分，最后求平均分（保留两位小数）将选手得分显示在list1列表框中，再根据选手得分成绩决定名次如图4所示。图4打开某路径下的工程文件test3.vbp，完成下列操作：1.（6分）评委分数输入在控件数组Text1文本框中，单击“得分”按钮command1，计算选手得分完成相应的填空（1）（2）及注释1处修改相应的代码。2.（6分）单击“名次”按钮，结果显示在list2列表框中如图4所示。完成注释1处添加一条代码；注释2处完成填空（1

54、）；注释3处修改相应的代码。（代码中的顺序不得更改）3.（1）（4分）添加“清空”事件，将控件数组文本框1中数据清空，（要求用循环结构）；（2）（2分）单击“退出”按钮command3，退出评分系统。1.（2分）保存窗体文件和工程文件，生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。Dim n%, a!(100)Private Sub Command1_Click()Dim max!, min!, s!, x!max = Val(Text1(0).Text)min = maxs = maxFor i = 1 To 6 x = (1) If max = x Then min

55、= x s = s + xNext in = (2)a(n) = Int(s - max - min) / 5 * 10 + 0.5) / 10 注释1:保留两位小数List1.AddItem n & 号选手得分为： & a(n)End SubPrivate Sub Command2_Click()Dim m%, k%List2.ClearFor i = 1 To n 注释1：每位选手都当自己是第1名 For j = 1 To n If a(i)(1)a(j) Then k = k + 1 注释2：若小于其它选手，则名次加1 Next j List2.AddItem a(k) 注释3：添加名次

56、Next iEnd Sub2016年8套题第一套试题一(30分)设计一个VB程序，使其具有下列QQ登录功能：当组合框中输入QQ号或在组合框中选中QQ号（22887651），在文本框中输入密码（123456），若输入正确，显示所图2的显示结果；若不正确，则弹出消息框如图3所示。运行效果如图1、图2与图3所示。图1图2图31（2分）创建一个“标准EXE”工程，将其窗体文件和工程文件分别以“test1-1.frm”、“test1-2.frm“、“test1.vbp”为文件名保存到“试题一”文件夹下。2（12分）参照图1和图2完成界面设计：按表1添加相关对象并设置相关属性。表1对象设置内容“QQ登录”

57、的窗体名称为form1,标题为“QQ登录”QQ图片名称为picture1；图片为考试结果程序设计试题一文件夹下的Q1.jpg。QQ头像图片名称为image1，图片为考试结果程序设计试题一文件夹下的Q2.jpg。组合框名称为combo1“密码”文本框名称为text1，文本框的内容为“密码”。“登录”单选按钮名称为command1，标题内容为“登录”。“登录”单选按钮名称为command1，背景颜色为&H00FF8080&“登录”单选按钮名称为command1，命令按钮外观为图形“登录”单选按钮名称为command1，不允许用户进行操作窗体2名称为form2，背景图片为考试结果程序设计试题一文件夹

58、下的Q3.jpg。窗体2上标签名称为lab1,颜色为红色，并居中3.（6分）当程序运行后，组合框已有一个QQ号（22887651），用适当的事件实现此功能；在文本框输入时，命令按钮允许用户进行操作，文本框内容用“*”显示，也用适当的事件实现功能。4.（8分）当组合框中输入QQ号或在组合框中选中QQ号（22887651），在文本框中输入密码（123456），单击“登录”，若输入正确，则显示所图2的结果；若不正确，则显示所图3显示的结果。5（2分）保存窗体文件和工程文件，生成可执行程序“test1.exe”并保存到“试题一“文件夹下。试题二（25分）修改VB程序，考生文件夹下有一个工程文件test

59、2.vbp。其窗体上有一个标题为“得分”的框架，在框架中有一个名称为Textl的文本框数组，含6个文本框控件;文本框Text2用来输入难度系数。程序运行时，单击“开始”按钮时，左边的6个文本框中每0.5秒随机产生0，10的带一位小数的数；且“开始”按钮的标题变为“停止”，单击“停止”，“计算”按钮显示，输入难度系数后，单击“计算分数”按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。计算方法：去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。图3图4打开试题二“文件夹中的工程文件“test2.vbp”，完成下列操作

60、：1（4分）在窗体上添加计时器，并按表2设置相关属性。表2对象设置内容计时器名称为Timer1；间隔时间0.5秒；默认不启用。2（6分）选择“开始”按钮合适的事件过程，实现如下功能：单击“开始”按钮，计时器启用，且“开始”按钮的标题变为“停止”，单击“停止”按钮，计时器不启用，并“计算”按钮显示，“停止”按钮又变为“开始”按钮。将“D:test1111考试结果程序设计试题二“文件夹下“code1.txt”文件中的所有代码复制到相应过程中并完成“-”、“-”填空实现此功能。3（4分）选择计时器合适的事件过程，将“D:test1111考试结果程序设计试题二“文件夹下“code2.txt”文件中的选