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

基础题（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 = True 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