📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "学生评语生成器"
ClientHeight = 4620
ClientLeft = 45
ClientTop = 330
ClientWidth = 5595
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4620
ScaleWidth = 5595
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command3
Caption = "退出"
Height = 435
Left = 4560
TabIndex = 34
Top = 4080
Width = 915
End
Begin VB.CommandButton Command2
Caption = "保存"
Height = 435
Left = 3240
TabIndex = 33
Top = 4080
Width = 915
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frmMain.frx":0000
Left = 1980
List = "frmMain.frx":0016
TabIndex = 31
Text = "请选择寄语"
Top = 120
Width = 3375
End
Begin VB.Frame Frame4
Caption = "美"
Height = 795
Left = 120
TabIndex = 26
Top = 2880
Width = 1695
Begin VB.OptionButton Option4
Caption = "差"
Height = 180
Index = 3
Left = 900
TabIndex = 30
Top = 480
Width = 555
End
Begin VB.OptionButton Option4
Caption = "一般"
Height = 180
Index = 2
Left = 900
TabIndex = 29
Top = 240
Width = 675
End
Begin VB.OptionButton Option4
Caption = "良好"
Height = 180
Index = 1
Left = 120
TabIndex = 28
Top = 480
Width = 795
End
Begin VB.OptionButton Option4
Caption = "优秀"
Height = 180
Index = 0
Left = 120
TabIndex = 27
Top = 240
Width = 795
End
End
Begin VB.Frame Frame3
Caption = "体"
Height = 735
Left = 120
TabIndex = 20
Top = 2100
Width = 1695
Begin VB.OptionButton Option3
Caption = "差"
Height = 180
Index = 3
Left = 900
TabIndex = 24
Top = 480
Width = 675
End
Begin VB.OptionButton Option3
Caption = "一般"
Height = 195
Index = 2
Left = 900
TabIndex = 23
Top = 240
Width = 735
End
Begin VB.OptionButton Option3
Caption = "良好"
Height = 195
Index = 1
Left = 120
TabIndex = 22
Top = 480
Width = 735
End
Begin VB.OptionButton Option3
Caption = "优秀"
Height = 180
Index = 0
Left = 120
TabIndex = 21
Top = 240
Width = 675
End
End
Begin VB.TextBox Text3
Height = 315
Left = 720
TabIndex = 18
Top = 120
Width = 1095
End
Begin VB.Frame Frame2
Caption = "劳"
Height = 795
Left = 120
TabIndex = 13
Top = 3720
Width = 1695
Begin VB.OptionButton Option2
Caption = "优秀"
Height = 180
Index = 0
Left = 120
TabIndex = 17
Top = 240
Width = 675
End
Begin VB.OptionButton Option2
Caption = "良好"
Height = 195
Index = 1
Left = 120
TabIndex = 16
Top = 480
Width = 735
End
Begin VB.OptionButton Option2
Caption = "一般"
Height = 195
Index = 2
Left = 900
TabIndex = 15
Top = 240
Width = 675
End
Begin VB.OptionButton Option2
Caption = "差"
Height = 180
Index = 3
Left = 900
TabIndex = 14
Top = 480
Width = 675
End
End
Begin VB.TextBox Text2
Height = 630
Left = 1920
MultiLine = -1 'True
TabIndex = 12
Top = 720
Width = 3495
End
Begin VB.Frame Frame1
Caption = "德"
Height = 795
Left = 120
TabIndex = 7
Top = 480
Width = 1695
Begin VB.OptionButton Option1
Caption = "差"
Height = 195
Index = 3
Left = 840
TabIndex = 11
Top = 480
Width = 735
End
Begin VB.OptionButton Option1
Caption = "一般"
Height = 195
Index = 2
Left = 840
TabIndex = 10
Top = 240
Width = 735
End
Begin VB.OptionButton Option1
Caption = "良好"
Height = 195
Index = 1
Left = 120
TabIndex = 9
Top = 480
Width = 735
End
Begin VB.OptionButton Option1
Caption = "优秀"
Height = 195
Index = 0
Left = 120
TabIndex = 8
Top = 240
Width = 735
End
End
Begin VB.CommandButton Command1
Caption = "生成"
Height = 435
Left = 1920
TabIndex = 6
Top = 4080
Width = 975
End
Begin VB.TextBox Text1
Height = 2175
Left = 1920
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 1680
Width = 3555
End
Begin VB.Frame fraScore
Caption = "智"
Height = 735
Left = 120
TabIndex = 0
Top = 1320
Width = 1695
Begin VB.OptionButton optScore
Caption = "差"
Height = 180
Index = 3
Left = 900
TabIndex = 4
Top = 480
Width = 675
End
Begin VB.OptionButton optScore
Caption = "一般"
Height = 195
Index = 2
Left = 900
TabIndex = 3
Top = 240
Width = 735
End
Begin VB.OptionButton optScore
Caption = "良好"
Height = 195
Index = 1
Left = 120
TabIndex = 2
Top = 480
Width = 735
End
Begin VB.OptionButton optScore
Caption = "优秀"
Height = 180
Index = 0
Left = 120
TabIndex = 1
Top = 240
Width = 675
End
End
Begin VB.Label Label1
Caption = "添加自定义评语"
Height = 255
Left = 2880
TabIndex = 32
Top = 480
Width = 1335
End
Begin VB.Label Label3
Caption = "评 语 栏"
Height = 255
Left = 2880
TabIndex = 25
Top = 1440
Width = 1395
End
Begin VB.Label Label2
Caption = "姓名"
Height = 255
Left = 180
TabIndex = 19
Top = 180
Width = 375
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'土人一位做中学教师的朋友一日找上门来，说，土人啊，快要放假了，写70多个学生
'的评语实在是件麻烦事，能不能做个评语生成器什么的，一定要帮忙哟。为了友情，
'土人花了一个晚上的时间赶出了这个东东，换取一条红塔山和两瓶将军。嘿嘿，赚到
'了。不过，老师的东西本来不该要的。
'如果你觉得这个东东不错，请作些修改，让它生成的评语不至于雷同。如果你做出来
'了，请给土人一个拷贝。谢谢。
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
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
Score = "学习上用心程度不够，成绩不太理想，但悟性较好，经努力会很快有长" _
+ "足进步的。"
End Select
End Sub
'体
Private Sub Option3_Click(Index As Integer)
Select Case Index
Case 0
PE = "热爱体育，积极参加体育锻炼，体能素质优良，身体健康。"
Case 1
PE = "爱好体育，主动参加体育锻炼，体能素质良好，身体健康。"
Case 2
PE = "基本上按要求参加体育锻炼，成绩合格。"
Case 3
PE = "体育方面不太理想，身体素质有待加强。"
End Select
End Sub
'美
Private Sub Option4_Click(Index As Integer)
Select Case Index
Case 0
Manner = "为人诚实，尊重老师、长辈，团结同学，乐于助人。"
Case 1
Manner = "待人有礼貌，尊重师长、团结同学。"
Case 2
Manner = "和气待人，与同学和好相处。"
Case 3
Manner = "举止有进欠周到，望加强修养。"
End Select
End Sub
'劳
Private Sub Option2_Click(Index As Integer)
Select Case Index
Case 0
Labor = "热爱劳动，有吃苦耐劳的精神。"
Case 1
Labor = "劳动积极肯干，能吃苦耐劳。"
Case 2
Labor = "劳动课能完成任务，但主动性有待提高。"
Case 3
Labor = "劳动方面认识不足，表现一般。"
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -