真实评语生成器,求VB学生评语生成器

真实评语生成器,求VB学生评语生成器

Option Explicit
'声明德智体美劳变量
Dim Mind As String, Score As String, PE As String
Dim Manner As String, Labor As String, jy As String
Private Sub Combo1_Click()
jy = Combo1.Text
End Sub
'生成
Private Sub Command1_Click()
If Text3.Text = Then
MsgBox 姓名栏不能为空, vbOKOnly, 提示
Text3.SetFocus
Text1.Text =
Else
Text1 = + Text3.Text + 同学一学期来 + Mind + Score + _
PE + Manner + Labor + Text2.Text + jy
End If
End Sub
'保存
Private Sub Command2_Click()
Dim sF As String
sF = Text3.Text + .txt
Open sF For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command3_Click()
End '退出
End Sub
'德
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Mind = 各方面从高从严要求自己，上进心强，遵守纪律。
Case 1
Mind = 思想上要求进步，严于律已，能较好地遵守校纪班规。
Case 2
Mind = 有一定的上进心，基本上能遵守学校的规章制度。
Case 3
Mind = 思想纪律表现一般，基本上能遵守校纪班规，但自律能力不强，偶尔 _
+ 有意外行为。
End Select
End Sub
'智
Private Sub optScore_Click(Index As Integer)
Select Case Index
Case 0
Score = 学习能力出众，勤奋用功，成绩优异，如保持下去，前途无限。
Case 1
Score = 学习能力较好，肯下功夫，成绩优良，有较好的发展潜力。
Case 2
Score = 有一定的自学能力，所作出的努力取得相应的成绩，挖掘潜力可观。
Case 3
Sc......余下全文>>