求VB学生评语生成器
答案:1 悬赏:80 手机版
解决时间 2021-04-12 17:25
- 提问者网友:了了无期
- 2021-04-12 04:20
求VB学生评语生成器
最佳答案
- 五星知识达人网友:大漠
- 2021-04-12 05:21
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......余下全文>>
'声明德智体美劳变量
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......余下全文>>
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯