form2.frm

vb

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Psycho1.05"
   ClientHeight    =   5925
   ClientLeft      =   6360
   ClientTop       =   3375
   ClientWidth     =   5985
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   5925
   ScaleWidth      =   5985
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   3015
      Left            =   600
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "Form2.frx":0816
      Top             =   120
      Width           =   3855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "    请记住：任何管理才能都不是天生的，它是在后天的学习、实践中逐渐培养起来的，测试的结果也并不意味着你注定不能从事管理工作。"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   1215
      Left            =   480
      TabIndex        =   1
      Top             =   3600
      Width           =   4095
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Select Case s1
Case Is >= 43
    Text1.Text = "    你具有较高的管理水平和管理才能，非常从事管理工作。"
Case 32 To 42
    Text1.Text = "    你具有一定的管理水平和管理才能，比较从事管理工作。"
Case 21 To 31
    Text1.Text = "    你目前不适合从事管理工作，但经过实践锻炼，有意识地培养自己的管理能力，将来你可以成为较为优秀的管理者。"
Case Is <= 20
    Text1.Text = "    希望你目前选择职业时不要选择管理工作。希望你努力学习，努力实践，将来再选择管理工作。"
End Select

End Sub