二级VB上机题库21

　　

 　　
Private Sub Command1_Click()
    Dim k As Integer, s As Single, a As Single, b As Single
    a = Val(Text1(0).Text)
    s = a
    b = a
'    For k = 1 To ?
        s = s + Val(Text1(k).Text)
'        If ? < Val(Text1(k).Text) Then
            a = Val(Text1(k).Text)
        End If
        If b > Val(Text1(k).Text) Then
            b = Val(Text1(k).Text)
        End If
    Next k
'    s = (s - a - b) / ?
'    s = ? * 3 * Val(Text2.Text)
'    ? = Int(s * 100) / 100
End Sub

 　　
Dim n As Integer
'需考生编写的程序
==============================
  ？？？
==============================
Private Sub Command2_Click()
    Open App.Path + "\out4.dat" For Output As #1
    Print #1, n, Option1.Value, Option2.Value, Text1
    Close #1
End Sub
Private Sub m10_Click()
    n = 10
End Sub
Private Sub m2000_Click()
    n = 2000
End Sub
Private Sub m12_Click()
    n = 12
End Sub
Private Sub m1000_Click()
    n = 1000
End Sub
Private Sub Option1_Click()
    n = 0
    m1000.Enabled = False
    m2000.Enabled = False
    m10.Enabled = True
    m12.Enabled = True
End Sub
Private Sub Option2_Click()
    n = 0
    m10.Enabled = False
    m12.Enabled = False
    m1000.Enabled = True
    m2000.Enabled = True
End Sub

 　　
Private Sub Command1_Click()
    Text4 = ""
    a = Val(Text1)
    b = Val(Text2)
    n = Val(Text3)
'    Text4 = Text4 & a & "  " & ?
    k = 2
    Do While k < n
        c = a * b
        k = k + 1
        k = k + 1
        If c < 10 Then
            Text4 = Text4 & "  " & c
'            a = ?
            b = c
        Else
            d = c \ 10
            Text4 = Text4 & "  " & d
            a = d
            k = k + 1
'            If k <= ? Then
                d = c Mod 10
                Text4 = Text4 & "  " & d
'                ? = d
            End If
        End If
    Loop
End Sub

　　

　　

 　　
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Const LEFT_BUTTON = 1
    If oncircle(X, Y) Then
        Line1.X1 = x0
        Line1.Y1 = y0
        If Button = LEFT_BUTTON Then
            Line1.X2 = X
'            Line1.Y2 = ?
        Else
'            Line1.X2 = Line1.?
'            Line1.Y2 = y0 - ?
        End If
        Label1.Caption = ""
    Else
'        ? = "鼠标位置不对"
    End If
End Sub

 　　
Private Sub Command1_Click()
    n = Val(InputBox("请输入整数（8-12）", "输入"))
'    If n > ? Or n < 8 Then
        MsgBox ("数据错误，请重新输入")
        Command2.Enabled = False
        Command3.Enabled = False
    Else
        Command2.Enabled = True
        Command3.Enabled = True
    End If
End Sub
Private Sub Command2_Click()
    Dim s As Long, k As Integer
    s = 0
    For k = 1 To n
        s = s + f(k)
    Next
    Text1 = s
End Sub
Function f(n As Integer) As Long
'    s = ?
    For k = 2 To n
        s = s * k
    Next
'    f = ?
End Function
Private Sub Command3_Click()
    Open App.Path & "\out4.dat" For Output As #1
    Print #1, n, Text1
    Close #1
End Sub

 　　
Form1(code)
Private Sub Command1_Click()
    Form2.Text1 = ""
    Form2.Text2 = ""
    Form2.Text3 = ""
    Label1.Caption = ""
    Form2.Show
End Sub
Private Sub Command2_Click()
    Form3.Text2 = ""
    Label1.Caption = ""
    Form3.Show
End Sub
Form2(code)
Private Sub Command1_Click()
    Text1 = ""
    Text2 = ""
    Text3 = ""
End Sub
Sub writeusers()
'    n = n + ?
    users(n, 1) = Text1
    users(n, 2) = Text2
End Sub
Private Sub Command2_Click()
    If Text1 = "" Then
        MsgBox ("必须输入用户名！")
        Text1.SetFocus
'    ElseIf finduser(Trim$(Text1)) > ? Then
        MsgBox ("此用户名已经存在!")
    ElseIf Text2 <> Text3 Then
        MsgBox ("口令验证错误!")
    Else
        writeusers
'      ?  = "注册成功！"
        Form2.Hide
    End If
End Sub
Form3(code)
Private Sub Command1_Click()
    k = finduser(Trim$(Text1))
'    If k = ? Then
        MsgBox ("没有注册！")
'    ElseIf Trim$(Text2) <> users( ? ) Then
        MsgBox ("口令错误！")
    Else
        Form1.Label1.Caption = "登录成功！"
        Form3.Hide
    End If
End Sub