在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：按照题目要求调试并运行程序，进行"统计"，关闭程序后按题目要求存盘。