vb计算机二级考试
试题
中考模拟试题doc幼小衔接 数学试题 下载云南高中历年会考数学试题下载N4真题下载党史题库下载
2016
1.基本操作(2小题，每题15分，共计30分)
(1) 在名称为Form1的窗体上画一标签(名称为Label1，标题为空白，BorderStyle属性为1，Visible属性为False)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”)，如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的
内容
财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容
，运行后的窗体如图2所示。要求程序中不得使用任何变量。
Private Sub Command1_Click()
Label1.Visible = True
Text1.Visible = False
Label1.Caption = Text1.Text
End Sub
(2)在名称为Form1的窗体上画一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1)，如图1所示。在属性窗口中对滚动条设置如下属性：
Min 500
Max 2000
Largechange 50
Smallchange 20
编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如图2所示。要求程序中不得使用任何变量。
Private Sub HScroll1_Change()
Text1.Height = HScroll1.Value
Text1.Width = Text1.Height * 1.2
End Sub
2.简单应用(2小题，每题20分，计40分)
(1)在考生文件夹下有一个工程文件sjt21.vbp，请在窗体上画两个单选按钮(名称分别为Option1Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为List1)和一个文本框(名称为Text1)，如图1所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单击按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于三个)，并添加到列表框中;如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。
在考生文件夹下有一个工程文件sjt21.vbp(相应的窗体文件名为sjt21.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。
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)在考生文件夹下有一个工程文件sjt22.vbp(相应的窗体文件名为sjt22.frm)，其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序运行后，在四个文本框中各输入一个整数(如图1所示)，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来(如图2所示)。这个程序不完整，请把它补充完整，并能正确运行。
Option Base 1
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 i - Start
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
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
Sort arr2()
Text1.Text = arr2(1)
Text2.Text = arr2(2)
Text3.Text = arr2(3)
Text4.Text = arr2(4)
End Sub
3.综合应用(1小题,计30分)
在窗体上建立三个菜单(名称分别为Read、Calc和Save,分别为“读入数据”、“计算并输出”、和“存盘”)，然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图所示)。程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1;如果单击“计算并输出”按钮，则把该数组中小于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来;如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt31.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
Option Base 1
Dim Arr(100) As Integer
Dim Sum As Integer '存储累加和
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
浙公网安备 33021202002483