二、有关控件的属性
     
控件名称 属性 功能描述 
Combo1 Text=’请选择寄语’ 供选择相应的寄语 
Command1 Caption=”生成”  
Command2 Caption=”保存” 保存成.txt文件 
Command3 Caption=“退出”  
Text1  供生成评语 
Text2  供添加自定义评语 
Text3  供输入姓名 
Frame控件4个  分开德智体美劳五项 
Option控件20个  细分成四个等级 
Label控件3个  显示相应提示信息 
   
 
 
 2．3、源代码
   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 = "有一定的自学能力，所作出的努力取得相应的成绩

首页 上一页 1 2 3 4 5 6 下一页 尾页 4/6/6