1．通过实训了解VB在实际生活中的应用以及具体应用于哪些方面； 2．领会自己操作，独立思考的意义，通过实训实现知识的贯通 实训目的 1. 根据本学期在课堂上师老师所讲的和自己所学的知识，利用实训将其融会贯通； 实训要求2. 在实训时间里要积极思考，努力完成各个课程； 3．实训过程中遇到困难及时请教老师或同学的指导。 1. 实训过程中尽量独立完成整个课程，有必要时进行小组讨论或请老实训注意事项师的指导； 2. 实训过程中爱惜计算机，正确使用并操作； 3. 虚心听从师老师和同学的指导，认真完成一周的实训 实训内容1、 该系统要有加、减、乘、除，运算功能，把计算结果显示在指定控件内。参与运算的数不能超过1000。 2、 该系统要求可以改变参与运算的数据为粗体、斜体或者非粗斜体。 3、 要求把每次运算的数据、结果、运算类型写书到文件中 1. 在VB环境下，设计要使用的界面； 2. 设计界面上各个控件的属性； 实训简操作步骤3. 再创建新的窗体，设计需要使用的界面； 4. 编写程序代码； 5. 保存与调试程序。 1. 一周的实训，通过自己动手操作，独立思考，让我体会到了学习实训心得体会VB的极大乐趣； 2. 课堂上的知识通过实训有机结合在一起，并且对课本知识有了全新的理解和自己独到的见解； 一周的实训，让我明白了“实践出真知” 实训评语及成绩评语 成绩 指导教师 （签 名） 年月 日
附录：
一、 设计的系统界面示意图
二、 涉及的代码清单 简易计算器代码： Dim v As Boolean Dim s As String Dim x As Double Dim y As Double
Private Sub Command1_Click(Index As Integer) If Form.Tag = \"T\" Then If Index = 10 Then Text1.Text = \"0.\" Else
Text1.Text = command1(Index).Caption End If
Form1.Tag = \"\" Else
a = Text1.Text
Text1.Text = a & Command1(Index).Caption End If End Sub
Private Sub Command2_Click(Index As Integer) Form1.Tag = \"T\" If v Then
x = Text1.Text: v = Not v Else
y = Text1.Text Select Case s Case 0
Text1.Text = x + y Case 1
Text1.Text = x - y Case 2
Text1.Text = x * y Case 3 If y <> 0 Then Text1.Text = x / y Else
MsgBox (\"不能以0为除数\") Text1.Text = x v = False End If End Select x = Text1.Text End If s = Index End Sub
Private Sub Command3_Click() Form1.Tag = \"t\": y = Text1.Text Select Case s Case 0
Text1.Text = x + y Case 1
Text1.Text = x - y Case 2
Text1.Text = x * y Case 3 If y <> 0 Then Text1.Text = x / y
Else
MsgBox (\"不能以0为除数\") Text1.Text = x End If End Select
x = Text1.Text: y = 0: v = False: s = 5 End Sub
学生成绩查询代码：
Private Sub Form_Load() '初始化开的课程,在这里所有的班级都开设了这九门课程! Combo1.AddItem \"数学\" Combo1.AddItem \"语文\" Combo1.AddItem \"英语\" Combo1.AddItem \"生物\" Combo1.AddItem \"化学\" Combo1.AddItem \"物理\" Combo1.AddItem \"政治\" Combo1.AddItem \"历史\" Combo1.AddItem \"地理\" End Sub
Private Sub command4_Click() Dim a As Single Dim b As Integer Dim c As String
If Combo1.Text = \"数学\" Then
Adodc1.Recordset(\"数学成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"语文\" Then
Adodc1.Recordset(\"语文成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"英语\" Then
Adodc1.Recordset(\"英语成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"生物\" Then
Adodc1.Recordset(\"生物成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"化学\" Then
Adodc1.Recordset(\"化学成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"物理\" Then
Adodc1.Recordset(\"物理成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"政治\" Then
Adodc1.Recordset(\"政治成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"历史\" Then
Adodc1.Recordset(\"历史成绩\") = Text3.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"地理\" Then
Adodc1.Recordset(\"地理成绩\") = Text3.Text Adodc1.Recordset.Update End If
Adodc1.Recordset(\"学生总分\") = Val(Adodc1.Recordset(\"数学成绩\")) + Val(Adodc1.Recordset(\"语文成绩\")) + Val(Adodc1.Recordset(\"英语成绩\")) + Val(Adodc1.Recordset(\"化学成绩\")) + Val(Adodc1.Recordset(\"生物成绩\")) +
Val(Adodc1.Recordset(\"物理成绩\")) + Val(Adodc1.Recordset(\"政治成绩\")) + Val(Adodc1.Recordset(\"历史成绩\")) + Val(Adodc1.Recordset(\"地理成绩\"))
a = CSng(Val(Adodc1.Recordset(\"学生总分\")) / 9) b = InStr(Trim(Str(a)), \".\") If b <> 0 Then
If Val(Mid(Str(a), b + 3, 1)) >= 5 Then
c = Str(Val(Mid(Trim(Str(a)), 1, b + 2)) + 0.01) Else
c = Str(Val(Mid(Trim(Str(a)), 1, b + 2))) End If
Adodc1.Recordset(\"学生平均分\") = Trim(c)
Else
Adodc1.Recordset(\"学生平均分\") = Trim(Str(a) & \".00\") End If
Adodc1.Recordset.Update MsgBox \"修改完毕！\" End Sub
Private Sub Command2_Click() If Combo1.Text = \"\" Then
MsgBox \"请选课程名！\" Exit Sub End If
Adodc1.Refresh
Adodc1.Recordset.Find (\"studentname like '\" & Text4.Text & \"' \") If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox \"123\"
Else
If Combo1.Text = \"数学\" Then
Text3.Text = Adodc1.Recordset(\"数学成绩\")
End If
If Combo1.Text = \"语文\" Then
Text3.Text = Adodc1.Recordset(\"语文成绩\")
End If
If Combo1.Text = \"英语\" Then
Text3.Text = Adodc1.Recordset(\"英语成绩\")
End If
If Combo1.Text = \"生物\" Then
Text3.Text = Adodc1.Recordset(\"生物成绩\")
End If
If Combo1.Text = \"化学\" Then
Text3.Text = Adodc1.Recordset(\"化学成绩\")
End If
If Combo1.Text = \"物理\" Then
Text3.Text = Adodc1.Recordset(\"物理成绩\")
End If
If Combo1.Text = \"政治\" Then
Text3.Text = Adodc1.Recordset(\"政治成绩\")
End If
If Combo1.Text = \"历史\" Then
Text3.Text = Adodc1.Recordset(\"历史成绩\")
End If
If Combo1.Text = \"地理\" Then
Text3.Text = Adodc1.Recordset(\"地理成绩\")
End If
End If End Sub
Private Sub Command1_Click() Dim a As Single Dim b As Integer Dim c As String
If Combo1.Text = \"\" Then MsgBox \"请选课程名！\" Exit Sub End If Adodc1.Refresh
Adodc1.Recordset.Find (\"studentname like '\" & Text4.Text & \"' \") If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox \"123\" Else
If Combo1.Text = \"数学\" Then
Adodc1.Recordset(\"数学成绩\") = Text2.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"语文\" Then
Adodc1.Recordset(\"语文成绩\") = Text2.Text
Adodc1.Recordset.Update End If
If Combo1.Text = \"英语\" Then
Adodc1.Recordset(\"英语成绩\") = Text2.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"生物\" Then
Adodc1.Recordset(\"生物成绩\") = Text2.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"化学\" Then
Adodc1.Recordset(\"化学成绩\") = Text2.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"物理\" Then
Adodc1.Recordset(\"物理成绩\") = Text2.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"政治\" Then
Adodc1.Recordset(\"政治成绩\") = Text2.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"历史\" Then
Adodc1.Recordset(\"历史成绩\") = Text2.Text Adodc1.Recordset.Update End If
If Combo1.Text = \"地理\" Then
Adodc1.Recordset(\"地理成绩\") = Text2.Text Adodc1.Recordset.Update End If
Adodc1.Recordset(\"学生总分\") = Val(Adodc1.Recordset(\"数学成绩\")) + Val(Adodc1.Recordset(\"语文成绩\")) + Val(Adodc1.Recordset(\"英语成绩\")) + Val(Adodc1.Recordset(\"化学成绩\")) + Val(Adodc1.Recordset(\"生物成绩\")) + Val(Adodc1.Recordset(\"物理成绩\")) + Val(Adodc1.Recordset(\"政治成绩\")) + Val(Adodc1.Recordset(\"历史成绩\")) + Val(Adodc1.Recordset(\"地理成绩\")) a = CSng(Val(Adodc1.Recordset(\"学生总分\")) / 9) b = InStr(Trim(Str(a)), \".\") If b <> 0 Then
If Val(Mid(Str(a), b + 3, 1)) >= 5 Then
c = Str(Val(Mid(Trim(Str(a)), 1, b + 2)) + 0.01) Else
c = Str(Val(Mid(Trim(Str(a)), 1, b + 2))) End If
Adodc1.Recordset(\"学生平均分\") = Trim(c)
Else
Adodc1.Recordset(\"学生平均分\") = Trim(Str(a) & \".00\") End If
Adodc1.Recordset.Update MsgBox \"录入完毕！\" End If End Sub
Private Sub Command3_Click() Dim i As Integer Dim a(1 To 9) As Single Dim b(1 To 9) As String Adodc1.Refresh
Adodc1.Recordset.Find (\" class like '\" & Text1.Text & \"' \")
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox \"123\" Else For i = 1 To 9
a(i) = Val(DataGrid1.Columns(DataGrid1.Col + i + 1)) Next i j = 1 End If End Sub
因篇幅问题不能全部显示，请点此查看更多更全内容