国家计算机二级vb考试,国家计算机二级VB考试上机题合辑.doc

国家计算机二级VB考试上机题合辑

第一套

启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为C1和C2，标题(Caption属性)分别设为“命令按钮1”和“命令按钮2”，将C2的Visible属性为False。

单击命令按钮1(即运行Click事件过程)，在该Click事件过程中加入语句：

Private Sub C1_Clickk()

C2.Visible = True

C1.Visible = False

End Sub

单击命令按钮2(即运行Click事件过程)，在该Click事件过程中加入语句：

Private Sub C2_Clickk()

C1.Visible = True

C2.Visible = False

End Sub

启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1。画一个水平滚动条控件，通过其属性窗口将名称设为HS1，Min属性设为0，Max属性设为100，SmallChange属性设为2，LargeChange属性设为10。

单击窗体(即运行Click事件过程)，在该Click事件过程中加入语句：

Private Sub Form_Click()

L1.AddItem Str$(Form1.HS1)

End Sub

启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

由于提供的Fun()函数不完整，需添加语句，具体内容：

Function Fun(a() As Single) As Single

Sum = 0

For i = 1 To UBound(a)

Sum = Sum + a(i) / i

Next i

Fun = Sum

End Function

启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

由于所提供的窗体程序不完整，在窗体的Private Sub Command1_Click()事件过程中，有二处地方需要修改。

1) 将语句'Timer1.Enabled = ?

改为Timer1.Enabled = True

2) 将语句'Command1.Enabled = ?

改为Command1.Enabled = False

在窗体的Private Sub Command2_Click()事件过程中，有一处地方需要修改。

1) 将语句'Timer1.Enabled = ?

改为Timer1.Enabled = False

在窗体的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。

将语句'Label1.Left = ?

改为Label1.Left = Label1.Left + 20

启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

由于所提供的窗体程序不完整，需添加事件过程。

单击“统计”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

Private Sub Command2_Click()

n = Len(Text1)

For k = 1 To n

ch = Mid(Text1, k, 1)

If UCase(ch) = "A" Then

an = an + 1

End If

If UCase(ch) = "B" Then

bn = bn + 1

End If

If UCase(ch) = "C" Then

cn = cn + 1

End If

If UCase(ch) = "D" Then

dn = dn + 1

End If

Next k

Text1 = an & " " & bn & " " & cn & " " & dn

End Sub

第二套

启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题(Caption属性)设为“等级考试”，BorderStyle属性为