哪位第1题：编写一个求成绩等级的程序。要求输入一个学生的考试成绩，输出其分数和对应的等级。共分五个等级：小于60分的为“E”；60~69分为“D”；70~79分为“C”；80~89分为“B”；90分以上为“A”。同时要求能够对错误的输入进行相应处理<如果输入A或者其他字母又或者大于100  或者小于0的数 就显示你输入的不符合要求 ，请重新输入》。
 


[ 本帖最后由 bi1014227000 于 2011-5-28 12:47 编辑 ]

  Dim a As Integer
  a = Val(InputBox("请输入成绩："))
  a = Int(a / 10)
  If a < 6 Then a = 5
  If a > 9 Then a = 9
  a = 74 - a
  MsgBox "你的成绩等级为：" & Chr(a)
  '在vb6中通过验证

大哥都用哪个控件呀

那个控件 都没用使用到。输入是用的
inputbox 对话框。
输出是用的
msgbox 对话框。

不过，他没有超范围处理。
Dim a As Integer
  a = Val(InputBox("请输入成绩："))
if a>100 or a<0 then                          '超范围处理
  msgbox "输入的成绩错误。"                   '提示
else
  a = Int(a / 10)
  If a < 6 Then a = 5
  If a > 9 Then a = 9
  a = 74 - a
  MsgBox "你的成绩等级为：" & Chr(a)
end if

其实处理了，只是没提示错误，<6和>9就是的，实际上就是输入字母它也能得到结果

啊 怎没 没有用 控件呀          我们老师 让我们控件   。 大哥 你有QQ 吗 加我1014227000  我在那上面跟你说

错了 应该是姐姐

~不懂，帮顶

这上面 没办法传图片  真气人

看大侠们都没做～无聊就来玩玩看～

Option Explicit

Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Dim High_Low As String

Private Sub Command1_Click()
Dim Scores As Integer

    High_Low = "Z"
    
    If Text1.Text <> "" And InStr(Text1.Text, "Enter the test scores !") = 0 Then
    
        Scores = Val(Text1.Text)
        
        If IsNumeric(Scores) = True Then
        
            If Scores > 100 Or Scores < 0 Then
                MsgBox "Enter the Results of Range , Please !"
                Exit Sub
            Else
                If UCase(High_Low) = "Z" Then High_Low = IIf(Scores < 50, "F", "Z"): If High_Low = "F" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 50 And Scores < 60), "E", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 60 And Scores < 70), "D", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 70 And Scores < 80), "C", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 80 And Scores < 90), "B", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf((Scores >= 90 And Scores < 100), "A", "Z"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then High_Low = IIf(Scores = 100, "A+", "A"): If High_Low <> "Z" Then Label2.Caption = High_Low: Exit Sub
                If UCase(High_Low) = "Z" Then Label2.Caption = High_Low: Exit Sub
            End If
            If UCase(High_Low) = "Z" Then Exit Sub
        End If
    Else
        If InStr(Text1.Text, "Enter the test scores !") <> 0 Then Exit Sub
    End If

End Sub

Private Sub Form_Initialize()
    High_Low = "Z"
End Sub

Private Sub Form_Load()
    
    If App.PrevInstance Then
       Call MsgBox("This program has been executed !", vbCritical, "Warning")
       Unload Me
    End If
    
    SetCurrentDirectory App.Path
    
    frmMain.Caption = frmMain.Caption & " Ver " & App.Major & "." & App.Minor & "." & App.Revision
    
    Text1.Text = " Enter the test scores !"
    Label2.Caption = "Level not determined !"
End Sub

Private Sub NewCalcu()
    High_Low = ""
    Text1.Text = " Enter the test scores !"
    Label2.Caption = "Level not determined !"
End Sub

Private Sub Text1_Click()
    Call NewCalcu
    Text1.Text = ""
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Call Command1_Click
End Sub

Private Sub Text1_LostFocus()
    If Text1.Text = "" Then Text1.Text = " Enter the test scores !"
End Sub

控件用LabelBox1 + LabelBox2 + TextBox1 + CommonButton1 + Form1

如果你要工程的话顺便发给你～功能很少～不过也许你要自己转字体编码～


[ 本帖最后由 wube 于 2011-5-27 22:45 编辑 ]