二级VB上机题库23

　　

 　　
Private Sub Command1_Click()
    'Combo1.?
    Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    'If KeyAscii > 57 Or KeyAscii < ? Then
        MsgBox "请输入数字！"
    '    KeyAscii = ?
    End If
End Sub

 　　
Private Sub Command1_Click()
    Dim m As Integer
    Dim n As Integer
    Dim s As Long
    Dim i As Integer
    m = Val(Text1.Text)
    n = Val(Text2.Text)
    s = 0
    'For i = ?  To n
        't = ?
        's = s + ?
    Next
    lblResult.Caption = s
End Sub
Private Function f(ByRef x As Integer) As Long
    Dim t As Long
    t = 1
    For i = 1 To x
        't = ?
    Next
    'f = ?
End Function

 　　
Private Sub Command1_Click()
    '===考生编写程序开始====
       
    '===考生编写程序结束====
       
    '不要改动以下内容
    save Label1
End Sub

　　

　　

 　　
Private Sub mnuOper_Click(Index As Integer)
    'Select Case ?
        Case 1
            Form2.Show
            Form1.Hide
        Case 2
    '      Timer1.Enabled =?
        Case 3
            End
    End Select
End Sub
Private Sub Timer1_Timer()
    Picture1.Left = Picture1.Left + 100
    'If Picture1.Left + Picture1.Width >= ? Then
        'Picture1.Left = ?
    End If
End Sub
Private Sub Command1_Click()
    Form1.Show
    Form2.Hide
End Sub

 　　
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Frame1.Enabled = True
    Else
        Frame1.Enabled = False
    End If
End Sub
Private Sub Check2_Click()
    If Check2.Value = 1 Then
        Frame2.Enabled = True
    Else
        Frame2.Enabled = False
    End If
End Sub
Private Sub Command1_Click()
    If Check1.Value = 1 Then
        'If  ? = True Then
            s = "古典音乐"
        Else
            s = "流行音乐"
        End If
    End If
    If Check2.Value = 1 Then
        'If ? = True Then
            s = s & "篮球"
        Else
            s = s & "羽毛球"
        End If
    End If
    'Label2.Caption = ?
End Sub
Private Sub Form_Load()
    Check1.Value = 1
    Check2.Value = 1
End Sub

 　　
Option Base 1
Dim a(4, 4) As Integer
Private Sub Command1_Click()
'====考生编写程序开始====
  （1）
    '====考生编写程序结束====
    '不得修改以下部分
    save Label3
End Sub
Private Sub Command2_Click()
'====考生编写程序开始====
（2）
    '====考生编写程序结束====
    '不得修改以下部分
    save Label4
End Sub
Private Sub Form_Load()
    Open App.Path & "\in5.txt" For Input As #1
    For i = 1 To 4
        For j = 1 To 4
            Input #1, a(i, j)
        Next j
    Next i
    Close #1
End Sub