VB大题代码更新版
（1）在考生文件夹下有一个工程文件sj43.vbp，请在窗体上画两个单选按钮（名称分别为Option1和Option2，标题分别为“添加项目”和“删除项目”
），一个列表框（名称为List1）和一个文本框（名称为Text1），如图1
所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”
单选按钮，然后单击窗体，则从键盘上输入要添加的项目（内容任意，不少于三个），并添加到列表框中；如果选择“删除项目”单选按钮，然后
单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。
在考生文件夹下的工程文件sj43.vbp（相应的窗体文件名为sj43.frm），可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：
去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行，
但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图1 图2
**********************************************************************
（2）在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm ），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令
按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。
这个程序不完整，请把它补充完整，并能正确运行。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功
能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存
盘。
第1小题：
列表框的ListIndex属性
用来设置或返回列表框中当前选中的列表项。
列表框的RemoveItem方法
用来删除列表框中的指定项目，其语法为：
列表框名.RemoveItem索引值
解题方法：
打开工程文件sjt3.vbp和相应的窗体文件名为sjt3.frm，点击工具箱中的ListBox和TextBox控件图标，然后在窗体上拖拉出一个列表框、一个文本框和两个单选按钮并根据题意设置相关属性。打开代码窗口，补充如下的代码：
Private Sub Form_Click()
If Option1.Value = True Then
Text1.Text = InputBox("请输入要添加的项目")
List1.AddItem Text1.Text
End If
If Option2.Value = True Then
Text1.Text = InputBox("请输入要删除的项目")
For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
List1.RemoveItem i
End If
Next i
End If
End Sub
按要求保存文件即完成本题。
第2小题：
本题的考查的是数组的应用，通过调用过程Sort将数组按降序排序，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件sjt4.vbp和相应的窗体文件名为sjt3.frm，在代码窗口中补充如下代码：
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
Start = LBound(a)
Finish = UBound(a)
For i = Finish To 2 Step -1
For j = 1 To Finish - 1
If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
按要求保存文件即完成本题。
图1
在考生文件夹下有一个工程文件sj54.vbp。窗体中已经给出了所有控件，如图1所示。其功能是：单击“显示”命令按钮，则把考生文件夹下的incd5.txt文件中的所有英文字符放入Text1（可多行显示），如图2所示；如果单击“统计”命令按钮，则统计文本框中字母A、B、C、D各自出现的次数，并把结果在文本框中显示出来，如图3所示；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的outcd5.txt文件中。文件中已给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。
要求：1）统计每个字母出现的次数时，不区分大小写。
2）统计后的每个字母的次数必须存入考生文件夹下的outcd5.txt文件中，否则没有成绩。在文件中的格式为：
字母 A 出现的次数为 xx
字母 B 出现的次数为 xx
字母 C 出现的次数为 xx
字母 D 出现的次数为 xx
注意：不能修改已经给出的程序部分；在结束程序运行之前，必须单击“保存”按钮，把结果存入outcd5.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。
图1
图2
主要考查了多行文本框的使用，同时也考查了文件的操作，以及显示格式的控制。
程序主要代码如下：
Private Sub Command1_Click()
Open "in5.txt" For Input As #1
Do While Not EOF(1)
Input #1, a$
s = s & a$
Loop
Close 1
Text1.Text = s
End Sub
Private Sub Command2_Click()
For i = 1 To Len(Text1.Text)
Select Case Mid$(Text1.Text, i, 1)
Case "a", "A": a = a + 1
Case "b", "B": b = b + 1
Case "c", "C": c = c + 1
Case "d", "D": d = d + 1
End Select
Next i
Text1.Text = "字母A出现的次数为" & Format(a, "00")
Text1.Text = Text1.Text & vbCrLf & "字母B出现的次数为" & Format(b, "00")
Text1.Text = Text1.Text & vbCrLf & "字母C出现的次数为" & Format(c, "00")
Text1.Text = Text1.Text & vbCrLf & "字母D出现的次数为" & Format(d, "00")
End Sub
Private Sub Command3_Click()
Open "out5.txt" For Output As #1
Print #1, Text1.Text
Close 1
End Sub
1）在考生文件夹中有工程文件wy16.vbp及其窗体文件wy16.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为"校验"的命令按钮。其中文本框用来输入口令（如图所示），要求在文本框中输入的内容都必须以"*"显示（请考生自己通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是"ABC"这3个大写字母，则用MsgBox信息框输出"正确"，否则输出"错误"（如图所示）。
考查考生对文本框属性PasswordChar的使用，本例中设置PasswordChar属性为"*"，然后在C1的Click事件中填入如下代码：
If Text1.Text = "ABC" Or Text1.Text = "abc" Then MsgBox "正确" Else MsgBox "错误"
在考生文件夹下有一个工程文件sj112.vbp。其窗体中有一个名称为Text1的文本框数组，下标从0开始。程序运行时，单击"产生随机数"按钮，就会
产生10个3位数的随机数，并放入Text1数组中（如图1所示）；单击"重排
数据"按钮，将把Text1中的奇数移到前面，偶数移到后面（如图2所示）。
已经给出了所有控件和部分程序。
要求：
请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运
行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件
名存盘。
提示：
在"重排数据"按钮的事件过程中有对其算法的文字描述，请仔细阅读。
本题主要考查Rnd函数的使用、奇数和偶数的判定。
为了生成某个范围内的随机数，可以使用一下公式：
Int((upperbound - lowerbound+1) * Rnd + lowerbound)
这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。
修改后的主要代码如下：
Private Sub Command2_Click()
Dim i%, j%, temp%, flag As Boolean
i = 0
j = 9
temp = Text1(j)
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 = 1 Then
Text1(i) = Text1(j)
i = i + 1
flag = Not flag
Else
j = j - 1
End If
End If
Wend
Text1(i) = temp
End Sub
按要求保存文件即完成本题。
在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：
在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件worker.dat，存放工人的编号、姓名、性别和体重。
1）按"开始"按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中；
2）执行完毕，"开始"按钮变成"完成"，且无效。
Private Sub COMEXIT_Click()
End
End Sub
Private Sub COMSTART_Click()
Dim g As Single, N As Integer, S As Single
myfile1 = App.Path & "\" & "grade.DA T"
myfile2 = App.Path & "\" & "average.dat"
Open myfile1 For Input As #1
Open myfile2 For Output As #2
Do While Not EOF(1)
Input #1, g
N = N + 1
S = S + g
Loop
Close #1
S = S / N
Write #2, S
Close
COMSTART.Caption = "完成"
COMSTART.Enabled = False
End Sub
（1）在名称为Form1，标题为"标签"的窗体上，画一个名称为Label1，内容为"计算机等级考试"，显示为四号字的标签。请设置适当的属性满足以
下要求：
1）窗体不带有最大化、最小化及关闭按钮；
2）标签带有边框；
3）标签可依据Caption属性指定的内容自动调整其大小。
运行后的窗体如图所示。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sj104.vbp，窗体文件名
为sj104.frm。
**********************************************************************
（2）在名称为Form1的窗体上画二个名称分别为Label1、Label2，标题分别为
"开始位置"、"选中的字符数" 的标签；画三个文本框，名称分别为
Text1、Text2、Text3，再画一个名称为Command1，标题为"显示选中信息"的命令按钮。程序运行时，在Text1中输入若干字符，并用鼠标选中
一些字符后，单击"显示选中信息"按钮，则把选中的第一个字符的顺
序号显示在Text2中，选中的字符个数显示在Text3中，如图所示。
要求：
画出所有控件，编写命令按钮的Click事件过程。
注意：
要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显
示第一个字符的顺序号和显示选中的字符个数。存盘时必须存放在考
生文件夹下，工程文件名为sj105.vbp，窗体文件名为sj105.frm。
第1小题:
新建一个名为Form1的窗体，点击工具箱中的Label控件图标，然后在窗体上拖拉出一个命令按钮Label1，通过属性窗口分别设置Form1和Label1的Caption 属性，将Form1的ControlBox属性设置为False，在运行时才单栏不可见，即窗体不带有最大化、最小化及关闭按钮；并将Label的Font属性值设置为四号字；AutoSize属性设置为True，可以自动调整大小；BorderStyle属性设置为1--Fixed Single，控件带有边框。
第2小题：
本题主要考查了TextBox控件的SelLength属性和SelStart属性。SelLength属性返回显示的字符数，只能在代码中使用，值为0时，表示为选中任何字符。SelStart属性返回选择文本的起始位置，只能在代码中使用，第一个字符的位置为0，第二个字符的位置为1。Command控件Click事件过程为：
Private Sub Command1_Click()
Text2.Text = Text1.SelStart
Text3.Text = Text1.SelLength
End Sub
按要求保存文件即完成本题。
（1）在考生文件夹下有一个工程文件sj45.vbp，相应的窗体文件为sj45.frm。
其功能是产生30个0～999的随机整数，放入一个数组中，然后输出其中
的最小值。程序运行后，单击命令按钮（名称为Command1，标题为"输
出最小值"），即可求出其最小值，并在窗体上显示出来（如图所示）。
这个程序不完整，请把它补充完整，并能正确运行。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功
能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存
盘。
**********************************************************************
（2）在考生文件夹下有一个工程文件sj46.vbp，相应的窗体文件为sj46.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即
可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出
来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的
整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：
请勿改动程序中的任何内容，只在Function Fun()和End Function之间
填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
第1小题：
本题的考查的是数组和随机函数的用法，打开工程文件sjt3.vbp，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮Command1，设置其Caption属性为"输出最小值"，双击命令按钮在代码窗口中补充如下代码：
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Min As Integer
Randomize
For i = 1 To 30
arrN(i) = Int(Rnd * 1000)
Next i
Min = arrN(1)
For i = 2 To 30
If Min > arrN(i) Then
Min = arrN(i)
End If
Next i
Print Min
End Sub
按要求保存文件即完成本题。
第2小题：
打开一个工程文件sjt4.vbp，在窗体上有一个命令按钮和一个文本框，要求计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示，在Function Fun()和End Function 之间补充代码如下：
Function Fun()
Dim i As Integer, num As Integer
For i = 0 To 1000
If i Mod 7 <> 0 Then
num = num + 1
End If
Next i
Text1.Text = num
End Function
按要求保存文件即完成本题。
在考生文件夹下有一个工程文件sj113.vbp，其窗体上画有2个名称分别为
Text1、Text2的文本框，其中Text1可多行显示。请画2个名称为Command1、
Command2，标题为"产生数组"、"查找"的命令按钮。如图所示。程序功能如下：
1）单击"产生数组"按钮，则用随机函数生成10个0～100之间（不含0和
100）互不相同的数值，并将它们保存到一维数组a中，同时也将这10个数值显示在Text1文本框内；
2）单击"查找"按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数"
不存在于数组中"；否则给出该数在数组中的位置。
要求：
请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述
功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的
文件按原文件名存盘。
本题主要考查Rnd函数的使用和相同数值的判断。
为了生成某个范围内的随机数，可以使用一下公式：
Int((upperbound - lowerbound+1) * Rnd + lowerbound)
这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。修改后的主要代码如下：
Private Sub Command1_Click()
Text1.Text = "": Text2.Text = ""
For i = 1 To 10
a(i) = Fix(Rnd * 99 + 1)
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
For i = 1 To 10
Text1.Text = Text1.Text + Str(a(i)) + Space(2)
Next i
End Sub
Private Sub Command2_Click()
Dim num As Integer, i As Integer
num = InputBox("请输入待查找的数")
For i = 1 To 10
If a(i) = num Then
Text2.Text = Str(num) + "是数组中的第" + Str(i) + "个值"
Exit For
End If
Next i
If i > 10 Then
Text2.Text = Str(num) + "不存在于数组中"
End If
End Sub
（1）在名称为Form1的窗体上画一个名称为C1、标题为"改变颜色"的命令按钮，窗体标题为"改变窗体背景色"。编写程序，使得单击命令按钮时，
将窗体的背景颜色改为红色（&HFF&）。运行程序后的窗体如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存
放在考生文件夹下，工程文件名为sj106.vbp，窗体文件名为sj106.frm。
*********************************************************************** （2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其
设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的
值分别为1、2、3、4、5。将窗体的标题设为"图形控件"。单击列表框中
的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状
控件中被竖线填充。如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存
放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。
第1小题：
本题主要考查了Form控件的BackColor属性。新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上画一个命令按钮，名称为C1，通过属性窗口设置CommandButton控件的Caption 属性。
BackColor属性，设置对象中文本和图形的背景颜色。在Command控件中，可以通过Click事件来改变控件的背景颜色，Command控件的Click事件过程为：
Private Sub C1_Click()
Form1.BackColor = &HFF&
End Sub
按要求保存文件即完成本题。
第2小题：
本题主要考查了Shape控件和List控件的设计。
在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。
ListBox控件的使用方法，在ListBox中选择一项将触发其Click事件，同时将text的属性设置为选中项的内容。在ListBox控件中Text属性表示字最后选中列表项的内容。可用"控件名.Text"的形式指出当前ListBox中选中的项的内容。
List控件的Click事件过程为：
Private Sub List1_Click()
Shape1.FillStyle = List1.Text
End Sub
按要求保存文件即完成本题。
（1）在考生文件夹下有一个工程文件sj108.vbp，在程序运行时，单击"输入整数"按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同
因子和因子个数。图1是输入53后的结果，图2是输入100的结果。已经给
出了全部控件和程序，但程序不完整。
要求：
请去掉程序中的注释符，把程序中的？改为正确的内容。不能修改程
序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工
程文件和窗体文件。
**********************************************************************
（2）在考生文件夹下有一个工程文件sj109.vbp，其窗体上有2个命令按钮和1个计时器。2个命令按钮的初始标题分别是"演示"和"退出"；计时器
Timer1的初始状态为不可用。请画1个名称为Label1，且能根据显示内容自动调整大小的标签，其标题为"Visual Basic程序设计"，显示格式为黑
体小四号字。如图所示。程序功能如下：
1）单击标题为"演示"的命令按钮时，则该按钮的标题自动变换为"暂停
"，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入；
2）单击标题为"暂停"的命令按钮时，则该按钮的标题自动变换为"演示
"，并暂停标签的滚动。
3）单击"退出"按钮，则结束程序运行。
要求：
请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述
功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的
文件按原文件名存盘。
第1小题：
本题主要考查了已知整数的因子的的判定，修改后的代码如下：
Private Sub Command1_Click()
Dim n As Integer
Cls
n = InputBox("请输入一个整数")
Print "因子数="; fun(n)
End Sub
Function fun(m As Integer)
Dim s As Integer
s = 0
For k = 1 To Abs(m) / 2
If m Mod k = 0 Then
s = s + 1
Print k
End If
Next k
fun = s
End Function
按要求保存文件即完成本题。
第2小题：
本题主要考查了Timer控件、Label空件和CommandButton控件。
1.定时器控件Timer的Enabled属性有两种状态，当Enabled为True时，定时器每间隔Interval便引发Timer事件。
2.并将Label的Font属性值设置字体的名称和大小；AutoSize属性设置为True，可以自动调整大小；
解题方法：
打开sjt4.vbp中的代码窗口，修改后的代码如下：
Private Sub Command1_Click()
If Command1.Caption = "演示" Then
Timer1.Enabled = True
Command1.Caption = "暂停"
Else
Timer1.Enabled = False
Command1.Caption = "演示"
End If
End Sub
Private Sub Timer1_Timer()
If Label1.Left > Form1.Width Then
Label1.Left = -Label1.Width
Else
Label1.Left = Label1.Left + 100
End If
End Sub
按要求保存文件即完成本题。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为"操作"，
名称为Op，该菜单有两个子菜单，其标题分别为"显示"和"退出"，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击"操作"菜单中的"显示"命令，则在文本框中显示"等级考试"；如果单击"退出"命令，则结束程序运行。程序的运行情况如图所示。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt7.vbp，窗体文件名为sjt7.frm。
**********************************************************************
（2）在窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添加四个项目，分别为"AAAA"、"BBBB"、"CCCC"和"DDDD"，编写适当的事件过程。程序运行后，如果单击列表框中的某一项，则该项就从列表框中消失。程序的运行情况如图所示。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt8.vbp，窗体文件名为sjt8.frm。
第1小题
菜单的"标题"与"名称"属性:
菜单的"标题"是程序运行和设计过程中用户所看到的菜单项显示的文字信息；菜单的"名称"是菜单控件名，是该菜单项区别于其他菜单项以及其他控件的重要标识。相当与一般控件的Name属性。
解题方法：
新建一个名为Form1的窗体，执行"工具"菜单中的"菜单编辑器"命令，打开菜单编辑器。在"标题"栏中输入"操作"，在"名称"栏中输入"Op"；点击"下一个"按钮，再点击编辑区的"→"按钮，在"标题"栏中输入"显示"，在"名称"栏中输入"Dis"；点击"下一个"按钮，在"标题"栏中输入"退出"，在"名称"栏中输入"Exit"。
点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
打开代码窗口，输入如下的代码：
Private Sub Dis_Click()
Text1.Text = "等级考试"
End Sub
Private Sub Exit_Click()
End
End Sub
按要求保存文件即完成本题。
第2小题
列表框的ListIndex属性
用来设置或返回列表框中当前选中的列表项。
列表框的RemoveItem方法
用来删除列表框中的指定项目，其语法为：
列表框名.RemoveItem 索引值
解题方法：
新建一个窗体，点击工具箱中的ListBox控件图标，然后在窗体上拖拉出一个列表框，通过
属性窗口设置其Name属性为"L1",通过设置List属性为列表框添加"AAAA"、"BBBB"、"CCCC"和"DDDD"四个列表项。
打开代码窗口，输入如下的代码：
Private Sub L1_Click()
L1.RemoveItem ListIndex
End Sub
按要求保存文件即完成本题。
（1）在窗体（名称为Form1，KeyPreview属性为True）上画一个列表框（名称为
List1）和一个文本框（名称为Text1），如图1所示。编写窗体的KeyDown 事件过程。程序运行后，如果按“A”键，则从键盘上输入要添加到列表框
中的项目（内容任意，不少于三个）；如果按“D”键，则从键盘上输入要
删除的项目，将其从列表框中删除。程序的运行情况如图 2所示。
在考生文件夹下有一个工程文件sj17.vbp（相应的窗体文件名为sj17.frm）
，可以实现上述功能。但这个程序不完整，请把它补充完整。
要求：
去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行，
但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
图1 图2 **********************************************************************
（2）在考生文件夹下有一个工程文件sj18.vbp（相应的窗体文件名为sj18.frm ），其功能是通过调用过程Average求数组的平均值，请装入该文件。程
序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求
出数组的平均值，并在窗体上显示出来（如图所示）。这个程序不完整，
请把它补充完整，并能正确运行。
要求：
去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功
能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存
盘。
第1小题：
列表框的ListIndex属性
用来设置或返回列表框中当前选中的列表项。
列表框的AddItem方法
用来向列表框中添加项目，其语法为：
列表框名.AddItem 项目名称
列表框的RemoveItem方法
用来删除列表框中的指定项目，其语法为：
列表框名.RemoveItem 索引值
解题方法：
打开工程文件sjt3.vbp和相应的窗体文件名为sjt3.frm，点击工具箱中的ListBox和TextBox控件图标，然后在窗体上拖拉出一个列表框、一个文本框。打开代码窗口，补充如下的代码：
Private Sub Form_KeyDown(KeyCode As Integer, _
Shift As Integer)
If Chr(KeyCode) = "A" Then
Text1.Text = InputBox("请输入要添加的项目")
List1.AddItem Text1.Text
End If
If Chr(KeyCode) = "D" Then
Text1.Text = InputBox("请输入要删除的项目")
For i = 0 To List1.ListCount
If List1.List(i) = Text1.Text Then
List1.RemoveItem i
End If
Next i
End If
End Sub
按要求保存文件即完成本题。
第2小题：
本题的考查的是数组的应用，通过调用过程Average求数组的平均值，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件sjt4.vbp和相应的窗体文件名为sjt4.frm，在代码窗口中补充如下代码：
Private Function Average(a() As Integer) As Single
Dim Start As Integer, Finish As Integer
Dim i As Integer
Dim Sum As Integer
Start = LBound(a)
Finish = UBound(a)
Sum = 0
For i = Start To Finish
Sum = Sum + a(i)
Next i
Average = Sum / Finish
End Function
按要求保存文件即完成本题。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
在考生文件夹下有一个工程文件sj114.vbp，窗体如图所示。运行程序时，从数据文件中读取学生的成绩（均为整数）。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击"保存"按钮，保存统计结果。
注意：
不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将
统计结果显示在文本框中，再按"保存"按钮保存数据，否则无成绩。
最后把修改后的文件按原文件名存盘。
本题主要考查了文件的操作和分支循环结构。
"统计"按钮的主要代码如下：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, i As Integer
Dim score As Single
For i = 1 To n
score = arr(i)
Select Case score
Case Is < 60
a = a + 1
Case 60 To 69
b = b + 1
Case 70 To 79
c = c + 1
Case 80 To 89
d = d + 1
Case Else
e = e + 1
End Select
Next i
Text1.Text = n
Text2.Text = a
Text3.Text = b
Text4.Text = c
Text5.Text = d
Text6.Text = e
End Sub
按要求保存文件即完成本题。
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在考生文件夹下有工程文件wy34.vbp及窗体文件wy34.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号）但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体中有三个滚动条（名称分别为HScroll1，HScroll2，HScroll3），四个标签框（名称分别为 Label1、Label2、Label3 和 Label4），Label1~Label3的Text分别为："红"、"绿"、"蓝"；Label4用来显示颜色变化。要求程序运行后，标签框Label4的颜色随着三种颜色滚动条的变化而变化。试在HScroll1、HScroll2、HScroll3中输入相应的代码以实现程序功能。
**********************************************************************
（2）在考生文件夹下有工程文件wy35.vbp及窗体文件wy35.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号）但不能修改其它部分。存盘时不得改变文件名和文件夹。
本题描述如下：
该程序的功能是：根据给定的图形的三边的边长来判断图形的类型。若为三角形则同时计算出为何种三角形，及三角形的周长和面积。
要求完成"判断并计算"按钮的如下功能：
1）判断输入的条件是否为三角形，若是三角形则在Text1中显示"是三角形"；在Text2中显示是何种三角形。
2）单击"清除再来"按钮可以将所有显示框清空，且按钮本身变为不可选取状态。当单击"判断并计算"之后重新恢复为可选状态。
附：
1）三角形存在的条件为任一边不为0且任两边之和大于第三边。
2）若一边具有a^2+b^2=c^2，则为直角三角形；若所有边具有a^2+b^2>c^2,则为锐角三角形；若一边具有a^2+b^2 1、本题主要考查的是对HScrollBar的使用。以及RGB颜色格式的调用。调用语法为：RGB(red, green, blue) 2、该题主要考查逻辑运算符And和Or的使用。And运算符的语法：result = expression1 And expression2；Or运算符的语法：result = expression1 Or expression2。 在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下： 在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件worker.dat，存放工人的编号、姓名、性别和体重。 1）按"开始"按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中； 2）执行完毕，"开始"按钮变成"完成"，且无效。 语法 dim varname(N)用于定义一维数组，N表示数组元素下标的上界。 Write #filenumber, [outputlist]将数据写入顺序文件。 If condition Then [statements][Else elsestatements]据表达式的值有条件地执行一组语句。 Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]用于打开文件 计算机等级考试二级VB模拟试题四及答案解析 一、选择题 (1)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_Click() Move 500,500 End Sub 程序运行后，单击命令按钮，执行的操作为 A)命令按钮移动到距窗体左边界、上边界各500的位置 B)窗体移动到距屏幕左边界、上边界各500的位置 C)命令按钮向左、上方向各移动500 D)窗体向左、上方向各移动500 正确答案: B (2)在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 A)TabStop B)Enabled C)Visible D)TabIndex 正确答案: D (3)以下定义数组或给数组元素赋值的语句中，正确的是 A)Dim a As Variant a=Array(1,2,3,4,5) B)Dima(10)As Integer a=Array(1,2,3,4,5) C)Dim a%(10) a(1)="ABCDE" D)Dim a(3),b(3)As Integer a(0)=0 a(1)=1 a(2)=2 b=a 正确答案: A (4)在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 A)For i=0 ToList1.ListCount-1 …… Next B)For i=0 To List1.Count-1 …… Next C)For i=1 To List.ListCount …… Next D)For i=1 ToList1.Count 全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分） **************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。 请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscroll，Min属性和Max分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。 要求：不得使用任何变量。 （2）在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件装入图像框；再画一个命令按钮，名称为Cmd1，标题为"放大"。 请编写适当事件过程，程序运行后，单击"放大"按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。 注意：程序中不得使用任何变量。 程序运行时的界面如图所示。 **************************************************************** 参考答案与分析 （1）【解析】 滚动条的属性设置：Min--最大值属性。默认值为32767；Max--最小值属性，默认值为0；Value--返回或设置滚动条的当前位置的值，返回直介于Max 和Man 属性之间的值，包括这两个值。 要实现滚动条的返回值与List的设置值同步变化，在两者之间建立等式关系即可。而Text属性对应的变量类型为字符串，所以这里用了一个转化函数Val（）来实现。Val(S)函数将字符串转化为数值。与之对应的将数值转化为字符串的函数Str(N)。 【答案】 第一步：启动VB，新建一个工程文件。 第二步：在窗体上画一个文本框，文本框的Name属性为Text1，Text属性空，再在窗体上画一个水平滚动条Max为100，Min为0，Name为HScroll1，再画一个列表框List1，在List属性中输入"10、20、30、40、50、60、70、80、90"。第三步：编写程序代码： 1 Private Sub List1_Click() 2 = 3 = Val 4 End Sub 第四步：调试并运行程序，运行正确后按要求保存。 （2）【解析】 本题主要考查了图像框的Stretch属性以及控制其大小的Height、Width属性。Height、Width属性与其它控件类似，设置相应的值即可动态的改变图像框的大 2005年9月 全国计算机等级考试二级笔试试卷 公共基础知识和Visual Basic 语言程序设计 (考试时间90 分钟，满分100 分) 一、选择题 (每小题 2 分,共 70 分 ) 下列各题A) 、 B) 、C)、 D) 四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是 A ．程序设计就是编制程序 C．程序经调试改错后还应进行再测试C。 B．程序的测试必须由程序员自己去完成 D．程序经调试改错后不必进行再测试 （2）下列数据结构中，能用二分法进行查找的是A ．顺序存储的有序线性表 B ．线性链表 A C．二叉链表 。 D．有序线性链表 （3）下列关于栈的描述正确的是C。 A．在栈中只能插入元素而不能删除元素 B．在栈中只能删除元素而不能插入元素 C．栈是特殊的线性表，只能在一端插入或删除元素 D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 （4）下列叙述中正确的是D。 A．一个逻辑数据结构只能有一种存储结构 B．数据的逻辑结构属于线性结构，存储结构属于非线性结构 C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 （5）下列描述中正确的是C。 A．软件工程只是解决软件项目的管理问题 B．软件工程主要解决软件产品的生产率问题 C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D．软件工程只是解决软件开发中的技术问题 （6）在软件设计中，不属于过程设计工具的是D。 A ． PDL( 过程设计语言 ) B ．PAD 图C． N-S 图 D． DFD 图 （7）下列叙述中正确的是A。 A ．软件交付使用后还需要进行维护B．软件一旦交付使用就不需要再进行维护C．软件交付使用后其生命周期就结束D．软件维护是指修复程序中被破坏的指令 （8）数据库设计的根本目标是要解决A。 A ．数据共享问题B．数据安全问题C．大量数据存储问题 D ．简化数据维护 全国计算机等级考试辅导材料Visual Basic程序设计基础冲刺阶段要点 （必考知识点梳理与总结） Visual Basic程序设计基础知识要点(概念分析篇) 知识点1： （1）在工程资源管理器窗口中可以包含：工程文件、窗体模块文件、标准模块文件和类模块文件(其中可以包含许多各种文件类型)。 （2）Visual Basic应用程序可以以解释方式执行和编译方式执行。 例题： (1)以下叙述中错误的是 A A．在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件。 B．以.bas为扩展名的文件是标准模块文件。 C．窗体文件包含该窗体及其控件的属性。 D．一个工程中可以有多个标准模块文件。 (2)以下叙述中错误的是 C A．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件。 B．保存Visual Basic程序时，应分别保存窗体文件及工程文件。 C．Visual Basic应用程序只能以解释方式执行。 D．事件可以由用户引发，也可以由系统引发。 知识点2： (1)窗体和各种控件的名称(Name)是唯一的，用来标识一个窗体或控件的。而窗体和控件的标题是用来说明的，是可有可无的。 (2)各种控件之间有部分相同的属性，并不是拥有所有属性。控件有些属性只能在属性窗口中设置，但也有少数属性只能在代码状态设置。 (3)Form1.Hide方法和Unload Form1方法的区别：第一个方法窗体消失但仍存在于内存中；第二个方法窗体消失并不存在于内存中。 例题： (1)以下叙述中正确的是A A．窗体的Name属性指定窗体的名称，用来标识一个窗体。 B．窗体的Name属性的值是显示在窗体标题栏中的文本。 C．可以在运行期间改变对象的Name属性的值。 D．对象的Name属性值可以为空。 (2)以下叙述中错误的是 C A．Visual Basic是事件驱动型可视化编辑工具。 B．Visual Basic应用程序不具有明显的开始和结束语句。 C．Visual Basic工具箱中的所有控件都具有Width和Height属性。 D．Visual Basic中控件的某些属性只能在运行时设置。 知识点3： (1)标签(Label1)：Autosize的True属性可以自动调整标签的大小，而False属性不能。 (2)文本框(Text1)： 1、MaxLength属性表示文本框所能容纳的字符数。 2、Passwordchar属性表示口令输入，可以是“*”或“？”等。设置文本框输入字符为“*”：Text1.Passwordchar="*",还原文本框字符：Text1.Passwordchar="", 站长提醒广大考生：下面的138道题目，在二级考试中命中率极高。 一、选择题 (1) 下面叙述正确的是(C) A. 算法的执行效率与数据的存储结构无关 B. 算法的空间复杂度是指算法程序中指令（或语句）的条数 C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止 D. 以上三种描述都不对 (2) 以下数据结构中不属于线性数据结构的是(C) A. 队列 B. 线性表 C. 二叉树 D. 栈 (3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得 A. 8 B. 16 C. 32 D. 15 (4) 下面描述中，符合结构化程序设计风格的是(A) A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑 B. 模块只有一个入口，可以有多个出口 C. 注重提高程序的执行效率 D. 不使用goto语句 (5) 下面概念中，不属于面向对象方法的是(D) 注：P55-58 A. 对象 B. 继承 C. 类 D. 过程调用 (6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B) A. 可行性分析 B. 需求分析 C. 详细设计 D. 程序编码 (7) 在软件开发中，下面任务不属于设计阶段的是(D) A. 数据结构设计 B. 给出系统模块结构 C. 定义模块算法 D. 定义需求并建立系统模型 (8) 数据库系统的核心是(B) A. 数据模型 B. 数据库管理系统 C. 软件工具 D. 数据库 (9) 下列叙述中正确的是(C) A.数据库是一个独立的系统，不需要操作系统的支持 B.数据库设计是指设计数据库管理系统 C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致 (10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108 2020年计算机等级VB考试强化练习题及答案 (1)为组合框Combol增加一个列表项“电脑”，下列语句正确的是( )。 A)Comb01.Text=”电脑” B)Comb01.ListIndex=”电脑” C)Comb01.AddItem”电脑” D)Comb01.ListCount=”电脑” 答案：C (2)滚动条控件分为( )两种。 A)内滚动条控件和外滚动条控件 B)水平滚动条控件和垂直滚动条控件 C)单滚动条控件和双滚动条控件 D)独立滚动条控件和组合滚动条控件 答案：B (3)设用复制、粘贴的方法建立了一个命令按钮数组Commandl，以下对该数组的说法错误的是( )。 A)命令按钮的所有Caption属性都是Commandl B)在代码中访问任意一个命令按钮只需使用名称Commandl C)命令按钮的大小都相同 D)命令按钮共享相同的事件过程 答案：B (4)要设置标签控件边框的属性，应使用以下哪个属性( )。 A)Alignment B)BackStyle C)AutoSize D)BorderStyle 答案：D (5)已知文本框的ScrollBars属性设置为3，却看不到任何效果，原因是( )。 A)文本框中没有内容 B)文本框的Locked属性值为Ture C)文本框的MultiLine属性值为False D)文本框的MultiLine属性值为tTure 答案：C (6)下列叙述中正确的是( )。 A)一个逻辑数据结构只能有一种存储结构 B)逻辑结构属于线性结构，存储结构属于非线性结构 C)一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 D)一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 答案：D (7)下列关于类、对象、属性和方法的叙述中，错误的是( )。 A)类是对一类相似对象的描述，这些对象具有相同的属性和方法 2006年9月二级VisualBasic程序设计笔试试卷及答案 一、单项选择 (1)下列选项中不符合良好程序设计风格的是_____ 。 A) )源程序要文档化B)数据说明的次序要规范化 C) )避免滥用goto 语句D)模块设计要保证高耦合、高内聚 (2)从工程管理角度，软件设计一般分为两步完成，它们是_____ 。 A) )概要设计与详细设计B)数据设计与接口设计 C) )软件结构设计与数据设计D)过程设计与数据设计 (3)下列选项中不属于软件生命周期开发阶段任务的是_____ 。 A) )软件测试B)概要设计C)软件维护D)详细设计 (4)在数据库系统中，用户所见的数据模式为_____ 。 A) )概念模式B)外模式C)内模式D)物理模式 (5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和_____ 。 A) )编码设计B)测试阶段C)运行阶段D)物理设计 (6)设有如下三个关系表： 下列操作中正确的是_____ 。 (7)下列叙述中正确的是_____ 。 A) )一个算法的空间复杂度大，则其空间复杂度也必定大 B) )一个算法的空间复杂度大，则其时间复杂度必定小 C) )一个算法的时间复杂度大，则其空间复杂度必定小 D) )上述三种说法都不对 (8)在长度为64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为_____ 。 A) ) 63 B) 64 C) 6 D) 7 (9)数据库技术的根本目标是要解决数据的_____ 。 A) )存储问题B)共享问题C)安全问题D)保护问题 (10)对下列二叉树： 进行中序遍历的结果是_____ 。 A) ) ACBDFEG B) ACBDFGE C) ABDCGEF D) FCADBEG (11)以下叙述中正确的是_____ 。 VB上机试题 全国计算机等级考试二级VB上机题库(第一套) 一、基本操作题（2小题，每小题15分，共计30分） 1．在名称为Form1的窗体上画一个文本框，其名称为T1,宽度和高度分别为1400和400；在画两个按钮，其名称分别为C1和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”，如图1所示，如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图2所示。 注意： 要求程序中不得使用变量。 存盘时必须放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 图2 解析：（大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_chenxi@https://www.360docs.net/doc/5c10822711.html,，QQ:313691262，也可从论坛讨论https://www.360docs.net/doc/5c10822711.html,） 这道题没什么难度，主要考你窗体、按钮及文本框的基本属性，所以大家一定要熟练掌握常用控件的基本属性。打开VB(不用我说了吧)，新建一个工程（标准的EXE），单击控件面板的“TextBox”控件（也可双击，直接在窗体建立），在属性面板中将“名称”修改为T1，“Width”修改为1400，“Height”修改为400。然后单击控件面板的“CommanButton”添加两个命令按钮，在属性面板中将“名称”分别修改为C1和C2，“Caption”分别修改为显示和扩大。 接下来双击显示按钮，进入代码编写窗口，键入：（按钮的Click事件）T1.text=”等级考试” 双击扩大按钮，键入：（按钮的Click事件） T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3 最后单击保存按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frm。 总结：这道题只要错一点就没有分，主要考大家仔细认真及属性设置的熟练程度，大家一定了解Caption、Text等属性在不同控件含义是不同，有的控件有这个属性，而那个控件没有，名称属性是不能在运行期间改变的等等。以上限于时间原 第15套 1.基本操作（2小题，每小题15分，共计30分） （1）在名称为Form1的窗体上画一个标签（名称为Label1，标题为“输入信息”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为lq1.vbp，窗体文件名为lq1.frm。 图1 图2 （2）在名称为Form1的窗体上画一个文本框（名称为Text1，Text属性为“国”，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），如图1所示。在属性窗口中对滚动条设置如下属性： Min 10 Max 100 LargeChange 5 SmallChange 2 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框中的“国”字。运行后的窗体如图2所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为lq2.vbp，窗体文件名为lq2.frm。 图1 图2 2.简单应用（2小题，每小题20分，共计40分） （1）在考生文件夹下有一个工程文件lq3.vbp，请在窗体上建立一个菜单，主菜单项为“项目”（名称为Item），它有两个子菜单项，其名称分别为Add和Delete，标题分别为“添加项目”和“删除项目”，然后画一个列表框（名称为List1）和一个文本框（名称为Text1），如图1所示。编写适当的事件过程。程序运行后，如果执行“添加项目”命令，则从键盘上输入要添加到列表框中的项目（内容任意，不少于三个）；如果执行“删除项目”命令，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。在考生文件夹下的工程文件lq3.vbp（相应的窗体文件名为lq3.frm），可以实现上述功能。但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的？改为适当的内容，使其正 全国计算机等级考试二级VB入门教程第一章 第一章：概述 我们需要什么 我们需要什么?当我们在一个精彩的游戏世界中游历了一番之后，或是惊叹于某一工具软件的小巧精致之余，多少总会产生些许编程的冲动。编程吗，在以前如果你对电脑还是一个门外汉，那实在是一件可望而不可及的事情。如果运用基于DOS下的编程语言，譬如C、Qbasic、Pascal等等，真不知何年何月才能有所成就。 编程是需要天赋的，你必须在大脑中对整个程序有一个清晰的轮廓，一个高效的流程，这并不是每个人都能做到的，你必须思之慎之，这也使编程变成一件最枯燥无味的事情。但在第四代计算机语言(可视化编程)出现后，可以确切的说它开发了人们的更多天赋，并不局限于那些头脑异常清晰的人，每一个人都可以发现自己也可以编出一些从前不敢问津的程序，想象力的充分发挥才是第四代语言的精粹。 Visual Basic(以下简称VB)可以说是可视化语言的先驱了，而且它也是可视化程度最高的一个，从几年前VB诞生之日起到现在，它已经经历了五个版本，而且现在微软正在紧张的进行着VB6.0的研制、测试，这么高的更新率，不外乎说明两个问题：用户对VB的热衷，微软对VB的重视。不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证。对于VB现在也有一个很强的竞争对手――Delphi，有人把它称作VB杀手，这显然有偏激之处，VB的确有它的不足之处，但Delphi又何尝不是呢，而且以微软对VB的倾心，VB的功能必然会越来越强大。 VB的诞生 VB的出现可以说是Microsoft Windows的日渐成熟的必然产物。Microsoft Windows为程序员和最终用户提供了一个共同的人机界面。对用户，Windows提供了一个图形鼠标的操作环境，该环境对所有的应用程序都一样;对于程序员，Windows提供了一组预定义工具----称之为Microsoft Windows的软件开发工具箱(SDK)，该工具能使程序员建立一个与Windows界面相同的应用程序，而且，程序员不必关心最终用户的硬件配置情况。在这一开发环境中，程序员唯一困难的是Microsoft SDK提供了六百多个函数和与其一致的事件驱动(event-driven)编程技术。两种新方法的交叉使众多的程序员重新陷入困境，程序员不仅要掌握程序驱动编程技术和六百多个函数的功能，而且还得用C语言描述这些问题。因此一般情况下，程序员首先要掌握C程序设计技术，而后再开始学习SDK。这样的条件下就要求在Microsoft多任务环境下出现一种操作方便，使用简单的新工具----Visual Basic由此诞生。 何为可视 英文Visual的意思是“视觉的”，“可视的Baisc”这个名字可能抽象了点，但实际上它却是最直观的编程方法，之所以叫做“可视”，你只要看到VB的界面就会明白，实际上你无需编程，就可以完成许多步骤。在VB中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮、文本框、无线钮，都是控件的种类，VB把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观，工作方法。这样你就可以象在画板上一样，随意点几下鼠标，一个按钮就完成了，这些在以前的编程语言下是要经过相当复杂的工作的。 全国计算机等级考试二级VB入门教程第二章 第二章：事件及属性 以后两章可能会比较枯燥，但不可否认也很重要，所以为了学好VB，我们一定要打好基础才行。 计算机等级考试二级VB基础教程 1.1Visual Basic 概述 1.Visual Basic是什么 Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。 “Visual” 指的是开发图形用户界面(GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，一种在计算技术发展历史上应用得最为广泛的语言。Visual Basic 在原有BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI 有直接关系。专业人员可以用Visual Basic 实现其它任何Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是Visual Basic 语言的子集，可嵌入HTML语言中，用于网页设计，如ASP(Active Server Page)文件。 VB简单易学，通用性强，用途广泛。 2.VB的功能 VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。 数据访问特性允许对包括Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。 有了ActiveX(TM) 技术就可使用其它应用程序提供的功能，例如Microsoft Word 字处理器，Microsoft Excel 电子数据表及其它Windows 应用程序。 Internet 能力强大，很容易在应用程序内通过Internet 或intranet访问文档和应用程序，或者创建Internet 服务器应用程序。 已完成的应用程序是使用Visual Basic 虚拟机真正.exe 文件，可以自由发布。 3.VB的发展 VB是伴随Windows操作系统而发展的，在中国使用较广的版本有VB4.0、VB5.0、VB6.0。 VB4.0是为配合WIN95的问世于1995年推出的，既可用于编写WIN3.X平台的16位应用程序也可编写WIN95平台的32位应用程序；VB5.0主要用于编写WIN95平台的32位应用程序，较之VB4.0主要扩展了数据库、ActiveX和Internet方面的功能；VB6.0是与WIN98配合于1998年推出的，进一步加强了数据库、Internet 和创建控件方面的功能。 4.VB中的几个常用术语 2010年3月全国计算机等级考试二级VB笔试试卷一、选择题（每题2分，共70分） （1）下列叙述中正确的是( ) A)对长度为n的有序链表进行查找，最坏情况下需要比较次数为n B)对长度为n的有序链表进行对分查找，最坏情况下需要比较次数为（n/2） C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（log2n） D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（nlog2n） （2）算法的时间复杂是指( ) A)算法的执行时间 B)算法所处理的数据量 C)算法程序中的语句或指令条数 D)算法在执行过程中所需要的基本运算次数 （3）软件按功能可以分为：应用软件、系统软件和支持软件（或工具软件），下面属于系统软件的是( ) A)编辑软件 B)操作系统 C)教务管理系统 D）浏览器 （4）软件（程序）调试的任务是( ) A)诊断和改正程序中的错误 B)进肯能多的发现程序中的错误 C)发现并改正程序中的所有错误 D)确定程序中错误的性质 （5）数据流程图（DFD图）是( ) A)软件概要设计的工具 B)软件详细设计的工具 C)机构化方法的需求分析工具 D)面向对象方法的需求分析工具 （6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细设计属于( ) A)定义阶段 B)开发阶段 C)维护阶段 D)上述三个阶段 （7）数据库管理系统中负责数据模式定义的语言是 A）数据定义语言 B）数据管理语言 C）数据操纵语言 D）数据控制语言 （8）在学生管理的关系数据库中，存取一个学生信息的数据单位是 A）文件 B）数据库 C）字段 D）记录 （9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的 A）需求分析阶段 B）逻辑设计阶段 C）概念设计阶段 D）物理设计阶段 （10）有两个关系R和T如下： 2010年上海市高等学校计算机等级考试 二级 VB A 卷单选题：1.设A="12345678"，则表达式Val(Left(A,4)+Mid(A,4,2))+9的值是_________c___。_a.123456 b.123465 c.123454 d.1234459 2. 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是_________b___。__a.x+a<=b+y b.x>0 And y<0c.a=b Or x 一般程序设计习题 '〖第1题〗：(事件)单击窗体。 '(响应)求100以内偶数的和，并将结果输出在窗体上。 '将结果存入变量SUM中 '答案：DimiAsInteger Fori=1To100 IfiMod2=0Then sum=sum+i EndIf Next Printsum '〖第2题〗：(事件)双击窗体。 '(响应)求s=1+1×2+1×2×3+...+1×2×3× (10) '并将结果存到变量S中 答案：Dimi,jAsInteger DimkAsLong k=1 s=0 Fori=1To10 Forj=1Toi k=k*j Next s=s+k k=1 Next Print(CStr(s)) '〖第3题〗：(事件)单击窗体。 '(响应)求1+2+3+……+100的值，并把结果输出在窗体上。'结果存入变量SUM中。 '答案：DimiAsInteger Fori=1To100 sum=sum+i Next Printsum '〖第4题〗：判断一个数是否是素数。 '答案：DimiAsInteger Prime=True Fori=2ToInt(Sqr(m)) IfmModi=0ThenPrime=False:ExitFor Nexti '〖第5题〗：(事件)单击窗体。 '(响应)求1-1/2+1/3-1/4+……+1/99-1/100的值。 '将结果存入变量J中。 DimiAsInteger Fori=1To100 IfiMod2=1Then j=j+1/i ElseIfiMod2=0Then j=j-1/i EndIf Next Printj ''〖第6题〗：(事件)单击窗体。 '(响应)求200~300之间既能被3整除又能被7整除的数。'并求出所有数之和存入变量SUM中 '答案：DimiAsInteger Fori=201To300 If((iMod3)=0)And((iMod7)=0)Then Print(CStr(i)) sum=sum+i 2008年春江苏省计算机等级考试VB试题 第一部分计算机基础知识 1．在下列有关微电子技术与集成电路的叙述中，错误的是( 1 ) 。 A．微电子技术是以集成电路为核心的技术 B．集成度是指单个集成电路所含电子元件的数目 C．Moore定律指出，单个集成电路的集成度平均每18—24个月翻一番 D．IC卡仅有存储器和处理器，卡中不可能存储有软件 2．在下列有关通信技术的叙述中，错误的是( 2 ) 。 A．目前无线电广播主要还是采用模拟通信技术 B．数字传输技术最早是被长途电话系统采用的 C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”) D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号 3． CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施? ( 3 ) ①增加CPU中寄存器的数目 ②提高CPU的主频 ③增加CPU中高速缓存(cache)的容量 ④优化BIOS的设计 A．①、③和④ B．①、②和③ C．①和④ D．②、③和④ 4．下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是( 4 ) A． RS-232 B． IEEE-1394 C． USB D． IDE 5．下列有关PC机外部设备的叙述中，错误的是（ 5 ）。 A．扫描仪的工作过程主要基于光电转换原理，分辨率是其重要性能指标之一 B．制作3—5英寸的照片(图片)，数码相机的CCD像素必须在600万以上 C．集成显卡(指集成在主板上的显卡)的显示控制器主要集成在芯片组中 D．存折和票据的打印，目前主要是采用针式打印机 6．下列有关PC机辅助存储器的叙述中，错误的是( 6 ) 。 A．硬盘的盘片转动速度特别快，目前一般为每秒数千转 B. 近年来使用的串行ATA(SATA)接口硬盘，其传输速率比采用IDE接口的要快 C．目前移动硬盘大多采用USB 2．0接口，其传输速率可达每秒数十兆字节 D. 40倍速的CD-ROM驱动器的速率可达6MB／s左右 7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是（ 7 ）。 A．通常用户需要付费才能得到商品软件的合法使用权 B．共享软件是一种“买前免费试用”的具有版权的软件 C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播 D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利 8．下面有关Windows操作系统多任务处理的叙述中，正确的是 ( 8 ) 。 A．用户如果只启动一个应用程序工作(如使用Word写作)，则该程序自始至终独占CPU B．由于CPU具有多个执行部件，所以操作系统才能同时进行多个任务的处理 C．前台任务和后台任务都能得到CPU的响应 D．处理器调度程序根据各个应用程序运行所需要的时间多少来确定时间片的长短9．从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是（ 9 ）。 A．空间代价和时间代价 · C．可读性和开放性 B．正确性和简明性 D．数据复杂性和程序复杂性 10．接入因特网的每台计算机的IP地址（ 10 ）。 A．由与该计算机直接连接的交换机及其端口决定 B．由该计算机中网卡的生产厂家设定 C．由网络管理员或因特网服务提供商(ISP)分配 D．由用户自定 11．以下关于局域网和广域网的叙述中，正确的是（ 11 ）。 A．广域网只是比局域网覆盖的地域广，它们所采用的技术是完全相同的 B．局域网中的每个节点都有一个惟一的物理地址，称为介质访问地址(MAC地址) C．现阶段家庭用户的PC机只能通过电话线接入网络 D．单位或个人组建的网络都是局域网，国家或国际组织建设的网络才是广域网 12．目前在网络互连中用得最广泛的是TCP／IP协议。事实上，TCP／IP是一个协议系列，它已经包含了100多个协议。在TCP／IP协议中，远程登录使用的协议是( 12 ) 。 A．TELNET B．FTP C．HTTP D．UDP 13．关于电子邮件服务，下列叙述中错误的是 ( 13 ) 。 A．网络中必须有邮件服务器用来运行邮件服务器软件 B．用户发出的邮件会暂时存放在邮件服务器中 C．用户上网时可以向邮件服务器发出接收邮件的请求 D．发邮件者和收邮件者如果同时在线，则可不通过邮件服务器而直接通信 14·国际标准化组织(ISO)将世界各国和地区使用的主要文字符号进行统一编码的方案称为（ 14 ）。 A． UCS／Unicode C． GBK B． GB2312 D．GBl8030 计算机二级VB考试大纲 ◆基本要求 1. 熟悉Visual Basic集成开发环境。 2. 了解Visual Basic中对象的概念和事件驱动程序的基本特性。 3. 了解简单的数据结构和算法 4. 能够编写和调试简单的Visual Basic程序。 ◆考试内容 一、Visual Basic程序开发环境 1. Visual Basic的特点和版本。 2. Visual Basic的启动与退出。 3. 主窗口： （1）标题和菜单。 （2）工具栏。 4. 其它窗口： （1）窗体设计器和工程资源管理器。 （2）属性窗口和工具箱窗口。 二、对象及其*作 1.对象： （1）Visual Basic的对象。 （2）对象属性设置。 2.窗体： （1）窗体的结构与属性。 （2）窗体事件。 3.控件： （1）标准控件。 （2）控件的命名和控件值。 4.控件的画法和基本*作。 5.事件驱动。 三、数据类型及运算 1.数据类型： （1）基本数据类型。 （2）用户定义的数据类型。 2.常量和变量： （1）局部变量和全局变量。（2）变体类型变量。 （3）缺省声明。 3.常用内部函数。 4.运算符和表达式： （1）算术运算符。 （2）关系运算符和逻辑运算符。（3）表达式的执行顺序。 四、数据输入输出 1.数据输出： （1）Print方法。 （2）与Print方法有关的函数（Tab，Spc，Space $）。（3）格式输出（Format $）。 2.InputBox函数。 3.MsgBox函数和MsgBox语句。 4.字形。 5.打印机输出： （1）直接输出。 （2）窗体输出。 五、常用标准控件 1.文本控件： （1）标签。 （2）文本框。 2.图形控件： （1）图片框、图象框的属性、事件和方法。 （2）图形文件的装入。 （3）直线和形状。 3.按钮控件。 4.选择控件：复选框和单选按钮。 5.选择控件：列表框和组合框。 6.滚动条。 7.记时器。 二级VB模拟试题(2-1)(1)-计算机等级考试试题 一、填空题（每空２分，共40分） １、ＶＢ中若要产生一消息框，可用______函数来实现。 ２、设计弹出式菜单时，先通过______建立菜单，然后将顶层菜单的Visible属性设置为False，最后在代码中通过窗体对象的______方法显示弹出式菜单。 ３、Ｗindows可公用的对话框有：______、保存文件对话框、颜色设置、字体设置对话框、打印设置对话框、帮助文件六种，ＶＢ可通过调用通用对话框控件的______、ShowSave、ShowColor、______、ShowPrint、ShowHelp方法来使用它们。也可通过设置通用对话框控件的______属性来实现。 ４、在ＶＢ中窗体文件的后缀名为______，工程文件的后缀名为______。 ５、图像框和图片框均可用于装载、显示图形文件，可在设计阶段给它们的______属性赋值，也可在运行阶段通过______函数装入图形文件。 ６、若要将菜单项设计为分隔条，则该菜单项的标题属性应设置为______。 ７、______实际上是ＶＢ提供的一种特殊的子程序，用来完成一定的操作。 ８、ＶＢ提供______函数用于将数字字符转换成数值型，提供______函数用于将数值转换成字符型。 ９、______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 10、在过程内用______声明的变量为静态变量，在执行一个过程结束时，过程中所用到的Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。 11、在模块文件中的声明部分用Global或______关键字声明的变量为全局变量。 12、在模块文件中的声明部分用______或______定义的变量为模块级变量。 二、选择题（每题２分，共20分） １、若要使命令按钮不可用，则可设置其（）属性为False来实现。 Ａ、ValueＢ、CancelＣ、EnabledＤ、Default ２、若要使某可见控件获得焦点，则可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value ３、复选框或单选钮的当前状态可通过（）属性来返回或设置。 Ａ、CheckedＢ、ValueＣ、SelectedＤ、Caption ４、VB提供（）属性用于控制对象是否可用。 Ａ、DefaultＢ、CancelＣ、EnabledＤ、Visible ５、VB中可通过（）方法画圆 Ａ、PsetＢ、LineＣ、CircleＤ、Oval ６、可获得当前系统时间的函数是（） Ａ、Date()Ｂ、Time()Ｃ、IsDate()Ｄ、Year() ７、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick ８、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 、工程资源管理器窗口B、工具箱窗口C、代码窗口D、属性窗口 ９、设a=“VisualBasic”，下面使b=“Visual”的语句是 A、b=Left(a,8,12) B、b=Mid(a,8,5) C、b=Rigth(a,6) D、b=Left(a,6)计算机等级考试二级VB模拟试题四及答案解析
全国计算机等级考试二级VB上机试题及答案(十一)
全国计算机等级考试二级VB语言笔试试题与答案
全国计算机等级考试VB经典必考资料,知识点总结
计算机二级VB考试试题
2020年计算机等级VB考试强化练习题及答案
计算机等级考试二级_VB笔试真题及答案
全国计算机等级考试VB二级上机题库,有答案
计算机等级考试VB模拟训练题(四)
全国计算机等级考试二级VB入门教程
计算机等级考试二级VB基础教程
2010年3月计算机等级考试二级_VB笔试真题及答案
【免费下载】上海市计算机等级考试 二级 VB 真题
计算机二级考试VB一般程序设计习题
2019年春江苏省计算机等级考试VB试题
计算机二级VB考试大纲
二级VB模拟试题(2-1)(1)-计算机等级考试试题