二级VB上机题库37

　　

 　　
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 Option1(k).Value = True Then
            Picture1.Print Option1(k).Caption
        End If
    Next k
    For k = 0 To 2
'        If Check1(k).Value =  ?  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()
'    ?  = ""
    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)
'    ?
End Sub

 　　
Private Sub Command1_Click()
    Dim a%, b%, c%, n%
    n = Val(Text1.Text)
'    a = Val(  ?    )
    b = Val(List1.List(List1.ListCount - 1))
    c = a + b
    Do While c < n
'        a = ?
        b = c
'        List1.AddItem  ?
        c = a + b
    Loop
End Sub

 　　
Dim a(5, 40)
Private Sub Command1_Click()
    Dim ch As String
    ch$ = ""
    Open App.Path & "\in5.dat" For Input As #1
    For i = 1 To 5
        For j = 1 To 40
            Input #1, a(i, j)
            ch = ch & a(i, j) & " "
        Next j
        ch = ch & Chr(13) & Chr(10)
    Next i
    Close #1
    Text1.Text = ch
End Sub
Private Sub Command2_Click()
'===================考生编写的程序==============
???
'================================================
End Sub
Private Sub Command3_Click()
    Open App.Path & "\out5.dat" For Output As #1
    For k = 0 To 4
        Print #1, Label1(k)
    Next k
    For k = 0 To 4
        Print #1, Text2(k)
    Next k
    Close #1
End Sub

　　

　　

 　　
Private Sub Command1_Click()
'    Timer1.Enabled = ?
    Command1.Caption = IIf(Command1.Caption = "开始", "停止", "开始")
End Sub
Private Sub Form_Load()
'    ?
End Sub
Private Sub Timer1_Timer()
    Static n
    Dim a As Integer
    n = n + 1
    a = n Mod 3
'    Select Case ?
        Case 1
            Label1.Caption = "欢迎您参加等级考试！"
        Case 2
            Label1.Caption = "请您认真复习！"
'        Case ?
            Label1.Caption = "祝您获得好成绩！"
    End Select
End Sub

 　　
Private Sub Command1_Click()
    n = Val(Text1.Text)
'    ?
    For k = 1 To n
        List1.AddItem Int(Rnd * 100)
    Next k
End Sub
Private Sub Command2_Click()
'    For k = List1.ListCount - 1 To  ?  Step -1
        If Val(List1.List(k)) Mod 2 = 1 Then
'            s = s + Val(  ?  )
'            List1.RemoveItem  ?
            List1.RemoveItem  k
        End If
    Next k
'    ? = s
End Sub

 　　
Dim a(5, 40)
Private Sub Command1_Click()
    Dim ch As String
    ch$ = ""
    Open App.Path & "\in5.dat" For Input As #1
    For i = 1 To 5
        For j = 1 To 40
            Input #1, a(i, j)
            ch = ch & a(i, j) & " "
        Next j
        ch = ch & Chr(13) & Chr(10)
    Next i
    Close #1
    Text1.Text = ch
End Sub
Private Sub Command2_Click()
   
'===================考生编写的程序==============
???
'================================================
End Sub
Private Sub Command3_Click()
    Open App.Path & "\out5.dat" For Output As #1
    For k = 0 To 4
        Print #1, Label1(k)
    Next k
    For k = 0 To 4
        Print #1, Text2(k)
    Next k
    Close #1
End Sub