【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了4.2.4.frm相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Begin VB.Form Form14 
       Caption         =   "Form14"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form14"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form14"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
    Dim Grade As Single
    Grade = InputBox("请输入分数")
    Select Case Grade
    Case Is >= 90
    MsgBox "优秀"
    Case 80 To 89
    MsgBox "良好"
    Case 70 To 79
      MsgBox "中等"
    Case 60 To 69
        MsgBox "及格"
    Case Else
     MsgBox "不及格"
    End Select
    End Sub
    
    

上一篇：4.2.3.frm
下一篇：哈弗F7 VS名爵HS，谁更懂得年轻人的心？