在Form1,标题为“显示记录”的窗体上画1个名称为Text1的文本框,其初始内容为空

基础题（1)
【操作步骤】
步骤1：新建一个窗体，在窗体上创建一个文本框控件。

步骤2：在属性窗口中，设置其Text属性为空。

步骤3：在文本框下方绘制一个命令按钮Command1。

步骤4：在属性窗口中，将Caption设置为"上一条记录"。

步骤5：复制命令按钮"上一条记录"，在窗体的空白位置处粘贴对话框，单击"是"按钮，创建一个控件数组。

步骤6：再创建3个命令按钮.
步骤7：按照题目要求将复制的3个命令按钮的Caption分别设置为"下一条记录"、"第一条记录"和"最后一条记录"，并将窗体的Caption设置为"显示记录"。

步骤8：选择"上一条记录"命令按钮，通过属性窗口设置Enable为False，选择"下一条记录"命令按钮，通过属性窗口设置Default为True.。

步骤9：将文件保存至考生文件夹下，且设置窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

基础题(2)
【操作步骤】
步骤1：打开VB开发环境，新建一个窗体。

步骤2：在窗体中添加一个标签控件Lable1，在属性窗口中设置标签的Caption属性为"等级考试"，然后设置其AutoSize属性为True，设置其BorderStyle属性为1。

步骤3：然后在窗体中添加一个计时器Timer1，设置其Interval属性为0，Enabled属性为True。

步骤4：打开代码窗口，编写代码如下。

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub
步骤5：运行程序，然后将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。

简单题(1)
【操作步骤】
步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符" ' ",将问号改为正确的内容。

参考答案
Private Sub Command1_Click()
Dim flag As Boolean
flag = False
Picture1.Print Label1.Caption, Text1.Text
Picture1.Print Frame1.Caption; "：",
For k = 0 To 3
If Check1(k).Value = T rue Then
Picture1.Print Option1(k).Caption
End If
Next k
For k = 0 To 2
If Option1(k).Value = 1 Then
If Not flag Then
Picture1.Print Frame2.Caption; "：",
flag = True
End If
Picture1.Print Check1(k).Caption; " ";
End If
Next k
Picture1.Print
End Sub
Private Sub Command2_Click()
Text1.Text = ""
For k = 0 To 3
Option1(k).Value = False
Next k
For k = 0 To 2
Check1(k).Value = 0
Next k
Picture1.Cls
Command1.Enabled = False
End Sub
Private Sub Option1_Click(Index As Integer)
Command1.Enabled = True
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(2)
【操作步骤】
步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符" ' ",将问号改为正确的内容。

参考答案
Private Sub Command1_Click()
Dim a%, b%, c%, n%
n = Val(Text1.Text)
a = Val(List1.List(List1.ListCount - 2))
b = Val(List1.List(List1.ListCount - 1))
c = a + b
Do While c < n
a = b
b = c
List1.AddItem c
c = a + b
Loop
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题
【操作步骤】
步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

For i = 1 To 5
Sum = 0
n = 0
For j = 1 To 40
If a(i, j) < 50 Then
Sum = Sum + a(i, j)
n = n + 1
End If
Next j
Label1(i - 1).Caption = Sum
Text2(i - 1).Text = Int(Sum / n * 100) / 100
Next i
步骤3：按照题目要求调试并运行程序，进行"统计"，关闭程序后按题目要求存盘。