发布时间 : 星期一 文章2013计算机二级(VB)考试机试题库更新完毕开始阅读5845ee61af1ffc4ffe47ac8d
Next End Sub
（2）考生文件夹下的工程文件sjt4.vbp中有两个名称分别为List1、List2的列表框控件，两个名称分别为Command1、Command2，标题分别为\、\的命令按钮。请在List1中添加\文本框\、\标签\、\列表框\、\单选钮\等选项，如图所示。
程序的功能是：
单击\，将List1中的表项添加到List2中，同时将List1中选中的表项清空；单击\，将List2中的表项添加到List1处中，同时将List2中选中的表项清空。程序已给出，但是不完整。请将程序中的注释符去掉，把?改为正确的内容，实现上述的功能。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。 Private Sub remove(La As ListBox, Lb As ListBox)
' For i = 0 To ? – 1 ***** La.ListCount ***** ' Lb.AddItem ？.List(i) ***** La ***** Next
' ？.Clear ***** La ***** End Sub
Private Sub Command1_Click() Call remove(List1, List2) End Sub
Private Sub Command2_Click() Call remove(List2, List1) End Sub
*****第21套 综合应用题
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序，单击\读数据\按钮，读入到文件中的数据到字符串变量中并显示在Label2标签中。单击\排序\命令按钮时，对读入的数据从小到大进行排序，并将排序结果在窗体的Label4控件中显示。
要求：工程文件中已给出部分程序，\读数据\命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写\排序\命令按钮的事件过程中的部分程序代码。
注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名进行存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。
Dim a(10) As Integer Public Sub Save()
Open App.Path & \Print #1, Label4.Caption Close #1 End Sub
Private Sub Command1_Click()
Open App.Path & \
' Do While Not ？ ***** EOF(1) ***** For i = 1 To 10 Input #1, a(i)
' s = s & ? ***** a(i) ***** Next i Loop Close #1
Label2.Caption = s End Sub
Private Sub Command2_Click()
' ＝＝＝＝＝以下考生编写程序开始＝＝＝＝＝＝＝＝ For i = 1 To 10 f = True For j = 1 To 9
If a(j) > a(j + 1) Then
t = a(j) a(j) = a(j + 1) a(j + 1) = t f = False End If Next j If f Then Exit For End If Next i
' ＝＝＝＝＝考生编写程序结束＝＝＝＝＝＝＝＝＝＝ For i = 1 To 10 s = s & Str(a(i)) Next i
Label4.Caption = s Save End Sub
*****第22套 基本操作题
（1）在名称为Form1的窗体上画一个名称为Pic的图片框，通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示“VB等级考试”，如图所示。 注意：
要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1
的窗体上画一个名称为command1的命令按钮，标题为“命令按钮”。然后建立一个菜单，
标题为“控件”，名称为menu，包含两个子菜单项，一个是“显示命令按钮”，名称为subMenu1；另一个是“隐藏命令按钮”，名称为subMenu2，如图所示。编写适当的事件过程，使得程序运行时，如果选择“显示命令按钮”菜单命令，则显示命令按钮控件；而如果选择“隐藏命令按钮”菜单命令，则隐藏命令按钮控件。 注意：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 *****第22套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，运行情况如图所示。程序的功能是计算如下表达式的值：
Z=(x-2)!+(x-3)!+(x-4)!+…..+(x-N)!
其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为command1、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Label1的标签中。
在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
要求：程序调试通过后，必须按照如图所示输入N＝5，x＝12，然后计算z的值，并将计算结果显示在标签Label1中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Function xn(m As Integer) As Long Dim i As Integer Dim tmp As Long
'tmp = ? ***** 1 ***** For i = 1 To m
'tmp =? ***** tmp*i ***** Next
'? = tmp ***** xn ***** End Function
Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Integer
Dim z As Long, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0 For i = 2 To n t = x - i
'z = z + ? ***** xn(t) ***** Next
Label1.Caption = z Call SaveResult End Sub
Private Sub SaveResult()
Open App.Path & \ Print #1, Label1.Caption Close #1 End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上有名称为Label1的标签和名称为Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”（如图所示），且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：
不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Dim arr
Private Sub Form_Load()
' ?= Array(\第一项\第二项\第三项\第四项\ ***** arr ***** Label1.Caption = arr(0) Timer1.Interval = 1000 Timer1.Enabled = True End Sub
Private Sub Timer1_Timer()
'? i As Integer ***** static ***** 'Label1.Caption =? ***** arr(i) ***** If i = 3 Then
'i =? ***** 0 ***** Else i = i + 1 End If End Sub
*****第22套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp。其窗体中有一个名称为Text1的文本框数组，下标从0开始。程序运行时，单击“产生随机数”按钮，就会产生10个3位数的随机数，并放入Text1数组中（如图1所示）；单击“重排数据”按钮，将把Text1中的奇数移到前面，偶数移到后面（如图2所示）。已经给出了所有控件和部分程序。 要求：
请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 提示：
在“重排数据”按钮的事件过程中有对其算法的文字描述，请仔细阅读。 Private Sub Command1_Click()
Randomize For k = 0 To 9
Text1(k) = CInt(Rnd() * 899 + 100) Next End Sub
Private Sub Command2_Click()
'================================================ '算法：
'1）令i指向第1个数，j指向最后1个数，并先暂存最后一个数； '2）检查第i个数是否为偶数，若不是，再检查下一个，直到第i个是 ' 偶数，则把此偶数放到第j个位置，j向前移1个位置；
'3）检查第j个数是否为奇数，若不是，再检查前一个，直到第j个是 ' 奇数，则把此奇数放到第i个位置，i向后移1个位置； '4）重复2）、3），直到i=j '5）把开始暂存的数放到i的位置
'================================================= Dim i%, j%, temp%, flag As Boolean i = 0
' j = ? ***** 9 ***** ' ? = Text1(j) ***** temp ***** flag = True
' While (i < ?) ***** j ***** If flag Then
If Text1(i) Mod 2 = 0 Then Text1(j) = Text1(i) j = j - 1 flag = Not flag Else i = i + 1 End If Else
' If Text1(j) Mod 2 = ? Then ***** 1 ***** Text1(i) = Text1(j) i = i + 1 flag = Not flag Else j = j - 1 End If End If Wend Text1(i) = temp End Sub
*****第23套 基本操作题
（1）在名称为Form1、标题为“菜单”的窗体上，设计满足如下要求的菜单。
分类 主菜单项1 子菜单项1 子菜单项2 主菜单项2 标题 文件 新建 保存 退出 名称 file new save exit 内缩符号 无 1 1 无