画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 = 1000End SubPrivate Sub Timer1_Timer()Label1.Visible = Not Label1.VisibleEnd 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.PrintEnd SubPrivate 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 = FalseEnd SubPrivate Sub Option1_Click(Index As Integer) Command1.Enabled = TrueEnd 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 LoopEnd 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 -