二级VB上机题库36

　　

 　　
Private Sub Command1_Click()
'Call ShowName(?)
End Sub
Private Sub Label1_Click()
'Call ShowName(?)
End Sub
'Private Sub ShowName(c As ?)
    If TypeOf c Is CommandButton Then
        Label2.Caption = "单击" & Command1.Caption
    End If
    If TypeOf c Is Label Then
'    ? = "单击" & Label1.Caption
    End If
End Sub

 　　
Private Sub Form_Load()
    Picture1(0).Left = 0
    Picture1(0).Top = 100
    For k = 1 To 7
'        Picture1(k).Visible =?
    Next
End Sub
Private Sub Command1_Click()
'    Timer1.Enabled =?
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
    Static i As Integer
    Picture1(i).Visible = False
    i = i + 1
'    If i = ? Then
'        i =?
    End If
    Picture1(i).Visible = True
End Sub

 　　
Dim a(5, 5) As Integer
Dim b(5) As Integer
Dim c(5) As Integer
Private Sub Command1_Click()
    N = 5
    For i = 1 To N
'===============考生编写程序开始======================
???
'===============考生编写程序结束======================
    Next i
    Save
End Sub
Private Sub Form_Load()
    read
End Sub
Public Sub read()
    Open App.Path & "\Data5.txt" For Input As #1
    Do While Not EOF(1)
        For i = 1 To 5
            For j = 1 To 5
                Input #1, a(i, j)
            Next j
        Next i
    Loop
    Close #1
End Sub
Public Sub Save()
    Open App.Path & "\out5.txt" For Output As #1
    For i = 1 To 5
        Print #1, b(i), c(i)
    Next i
    Close #1
End Sub

　　

　　

 　　
Private Sub Command1_Click()
    Dim n As Integer
    Dim b As Integer
    Dim a(3) As Integer
    s = RTrim(Text1.Text)
'n = ?  (Text1.Text)
        For i = 1 To n
        'b = ? (Mid(s, i, 1))
        'Select Case ?
            Case 48 To 57
                a(0) = a(0) + 1
            Case 65 To 90
                a(1) = a(1) + 1
            Case 97 To 122
                a(2) = a(2) + 1
        End Select
    Next
'For i = 0 To ?
        '? = a(i)
    Next
End Sub

 　　
Private Sub remove(La As ListBox, Lb As ListBox)
'    For i = 0 To  ? – 1
'      Lb.AddItem ?.List(i)
    Next
'    ?.Clear
End Sub
Private Sub Command1_Click()
    Call remove(List1, List2)
End Sub
Private Sub Command2_Click()
    Call remove(List2, List1)
End Sub

 　　
Dim a(10) As Integer
Public Sub Save()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Label4.Caption
    Close #1
End Sub
Private Sub Command1_Click()
    Open App.Path & "\Data5.txt" For Input As #1
'    Do While Not ?
        For i = 1 To 10
            Input #1, a(i)
'            s = s & ?
        Next i
    Loop
    Close #1
    Label2.Caption = s
End Sub
Private Sub Command2_Click()
'============以下考生编写程序开始=================
??(1)??
'============考生编写程序结束=====================
    For i = 1 To 10
        s = s & Str(a(i))
    Next i
    Label4.Caption = s
    Save
End Sub