VB程序实训报告
If Label1.Caption = \
Text1.Text = n * Val(Text1.Text) End If
If Label1.Caption = \
If Text1 <> 0 Then Text1.Text = n / Val(Text1.Text) End If
beiss = True End Sub
Private Sub Cmdzf_Click() Text1 = -Val(Text1) End Sub
Private Sub jia_Click() Label1.Caption = \n = Val(Text1.Text) beiss = True End Sub
Private Sub jian_Click() Label1.Caption = \n = Val(Text1.Text) beiss = True End Sub
Private Sub Chen_Click() Label1.Caption = \n = Val(Text1.Text) beiss = True End Sub
Private Sub Chu_Click() Label1.Caption = \n = Val(Text1.Text) beiss = True End Sub
任务四，通讯录：
主要实现实现对联系人数据的添加、修改、插入、查询等操作，其界面如下图所示：
11
VB程序实训报告
其主要代码如下所示：
Private Sub Command1_Click() On Error Resume Next rst.AddNew
rst.Fields(0) = Text1.Text rst.Fields(1) = Combo1.Text rst.Fields(2) = DTPicker1.Value rst.Fields(3) = Text2.Text rst.Fields(4) = Text3.Text rst.Fields(5) = Text4.Text rst.Fields(6) = Text5.Text rst.Update
MsgBox \添加成功！\End Sub
Private Sub Command2_Click() On Error Resume Next rst.Fields(0) = Text1.Text rst.Fields(1) = Combo1.Text rst.Fields(2) = DTPicker1.Value rst.Fields(3) = Text2.Text rst.Fields(4) = Text3.Text rst.Fields(5) = Text4.Text rst.Fields(6) = Text5.Text rst.Update
MsgBox \修改成功！\End Sub
12
VB程序实训报告
Private Sub Command3_Click()
Dim rst1 As New ADODB.Recordset Dim sql As String
sql = \通讯表 where 姓名='\rst1.Open sql, cnn, adOpenKeyset, adLockPessimistic If Text1.Text = \
MsgBox \姓名不能为空！\ElseIf rst.EOF Then
MsgBox \通讯录里无此人\Else
Text1.Text = rst.Fields(0) Combo1.Text = rst.Fields(1) DTPicker1.Value = rst.Fields(2) Text2.Text = rst.Fields(3) Text3.Text = rst.Fields(4) Text4.Text = rst.Fields(5) Text5.Text = rst.Fields(6) End If End Sub
Private Sub Command4_Click() On Error Resume Next If rst.EOF Then
MsgBox \通讯录里无此人\Else
rst.Delete
MsgBox \删除成功\End If End Sub
Private Sub Command5_Click() rst.MovePrevious If rst.BOF Then
MsgBox \这是第一条记录\提示\ rst.MoveLast End If
Call chaxun End Sub
Private Sub Command6_Click() rst.MoveNext If rst.EOF Then
MsgBox \这是最后一条记录\提示\ rst.MoveFirst
13
VB程序实训报告
End If
Call chaxun End Sub
Private Sub Command7_Click() rst.MoveFirst Call chaxun End Sub
Private Sub Command8_Click() rst.MoveLast Call chaxun End Sub
Private Sub Form_Load() Dim txtsql As String
txtsql = \通讯表\Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset cnn.Open conn
rst.Open txtsql, cnn, adOpenKeyset, adLockPessimistic
With Combo1
.AddItem \男\ .AddItem \女\End With End Sub
Public Sub chaxun() On Error Resume Next Text1.Text = rst.Fields(0) Combo1.Text = rst.Fields(1) DTPicker1.Value = rst.Fields(2) Text2.Text = rst.Fields(3) Text3.Text = rst.Fields(4) Text4.Text = rst.Fields(5) Text5.Text = rst.Fields(6) rst.Update End Sub
第五部分：实训结果(结果分析)
14
VB程序实训报告
在做第一个任务简易记事本时，在文字的剪切，复制，粘贴等操作都遇到不少问题，刚开始就犯了一个很低级的错误，代码Text1.SelText由于习惯原因老是打成Text1.Text。运行是老是出错，找了很久才发现这个问题。还有在设置状态栏的当前时间时，那些时间老是显示不出来。最后才发现原来是Timer1的属性：interval为0。把他改为1000过来后才成功的显示出系统时间来。 在做任务二多媒体播放器中，由于在这之前已做过类似得的课题，所以在做的过程中，并没遇到太大的问题，完成的比较顺利。 至于任务三计算器，是所选四个任务中遇到问题最多的一个。在运行的时候不断的出错，改完这个那个又错。经过修改后，在运行时虽然没再提示错误，但其运行的结果并没达到在设计时的理想效果。由于要实现两个数的运算，但在设计时我只用了一个文本框，刚开始在编写代码时，实在是想不通该如何实现该功能。于是我又添加多了一个文本框，并把该文本框的Visible属性设为False，但仍然无法实现设计时的初衷。最后经过不断的资料搜索和查阅终于解决了所有的问题。
任务四通讯录系统考察的主要是VB与SQL Server 2005数据库之间的链接与访问。由于本人之前已经曾单独地完成过图书管理系统和酒店管理系统的设计，所以对于Vb与数据库之间的链接与访问已有了已定的了解。该通讯录系统在实现的过程中虽然也出现了一点点的问题，但还是能很快的就找到关键问题的所在，并及时把它修正过来。
总的来说在完成这四个所选的任务中都出现了一下或多或少的问题，有些是因为本身所学知识的限制，有些却是由于自己的粗心所造成的。或缺少一个符合，或缺少一两个字母，最终都导致了所编程序无法顺利得运行。今后，我一定要在这一方面多加小心。避免不必要的错误。
第六部分：实训心得
在这一周的实习中，使我学到了好多书本上没有的知识，更让我对VB有了更深一步的掌握，同时也发现了许多自己在学习方面的不
15