【VB开源代码栏目提醒】:以下是网学会员为您推荐的VB开源代码-4.2.3.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Begin VB.Form Form13 
       Caption         =   "Form13"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form13"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form13"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
    grade = InputBox("请输入分数")
    If grade >= 90 Then
     MsgBox "优秀"
    ElseIf grade >= 80 Then
     MsgBox "良好"
    ElseIf grade >= 70 Then
     MsgBox "中等"
    ElseIf grade >= 60 Then
     MsgBox "及格"
    Else
     MsgBox "不及格"
    End If
    End Sub
    
    

上一篇：4.2.2.frm
下一篇：多年来只想说一句，我不怪你