可视化工具(VB)实验指导书.doc

可视化程序设计课程实验指导书前 言1 实验总体目标可视化开发工具课是电信、电子专业的主要课程，也是一门实践性很强的课程。Visual Basic是一种有代表性的较流行的可视化语言，利用它使得创建具有专业外观的用户界面的编程工作简单易行。安排实验教学的目的是使学生通过上机，进一步加深对课程内容的消化和理解，提高编程技术，提高实际应用能力，并为今后进一步学习和使用Visual Basic打下良好的基础。通过本实验课程的学习，应能达到下列基本要求：掌握调试程序的基本方法及上机操作方法；掌握VB语言程序设计的方法及编程技巧；能够根据要求选择正确的控件并对其设置属性及编写事件过程；能正确使用VB工具编写一般难度的应用程序。 适用专业计算机 先修课程C语言程序设计 实验课时分配实验项目学时实验1 熟悉VB开发环境2实验2 制作简单的VB程序2实验3 顺序结构程序设计2实验4 选择结构程序设计2实验5 循环结构程序设计2实验6 控件的使用（一）2实验7 控件的使用（二）2实验8 控件的使用（三）2实验9 菜单与过程2实验10 数据库应用2 实验环境（1）硬件要求：实验室提供PII或以上配置的微机。（2）软件要求：安装Microsoft Visual Basic 6.0以及Microsoft Access数据库。 实验总体要求要求每名学生按上机实验题目要求，参考教材及实验指导书完成相应的上机练习，并写出实验报告。对于编程部分，每个程序要求调试通过并可以运行。实验1 熟悉VB开发环境一、实验目的安装VB 6.0 系统，熟悉VB的集成开发环境。二、实验类型（含验证型、设计型或综合型）验证型。三、实验仪器VB软件光盘1张，PC机。四、实验内容掌握VB 的安装方法和步骤，掌握VB 的多种启动和退出方法，熟悉VB 的系统集成开发环境，了解各个窗口的作用。五、实验方法与步骤（1）VB的安装将VB 6.0的CD盘插入光驱，安装程序会自动运行，也可在“资源管理器”或“我的电脑”中找到Setup.exe文件并运行，随后就将逐步出现“向导”对话框，引导用户一步一步地进行安装操作。（2）VB的启动方法依照“开始”“程序”“Microsoft Visual Basic 6.0中文版”“Microsoft Visual Basic 6.0中文版”的步骤启动VB。通过“我的电脑”或“资源管理器”找到VB可执行文件所在的文件夹，找到可执行文件VB6.exe，双击左键启动。单击任务栏的“开始”“运行”命令，在打开的输入栏内输入可执行文件VB6.exe所在的路径和文件名，按“确定”按钮后运行。通过在桌面上建立的VB的快捷方式图标，双击该快捷方式图标完成快速启动。启动VB后可见到初始窗口，选择默认的“标准EXE”。单击“打开”按钮，进入VB的系统集成开发环境。（3）VB的退出用如下各种方法均可退出VB环境。单击VB程序窗口右上角的“关闭”按钮。执行“文件”菜单下的“退出”命令。单击VB程序窗口左上角的标题栏，打开快捷菜单，执行其中的“关闭”命令。在桌面下方的任务栏上选中VB的任务按钮，单击鼠标右键打开快捷菜单，选择“关闭”命令退出。六、注意事项七、思考题实验2 制作简单的VB程序一、实验目的通过简单程序设计理解控件的常用属性及其用法。二、实验类型设计型。三、实验仪器PC机。四、实验内容编制一个控制窗体“变大”和“变小”的程序。五、实验方法与步骤（1）添加窗体Form1。（2）在窗体上添加3个命令按钮Command1、Command2和Command3，并分别设置3个命令按钮的Caption属性为“窗体变大”、“窗体变小”和“退出”。实验2 改变窗体大小（3）输入如下程序。Private Sub Form_Load() Form1.Height = 3500 Form1.Width = 4000 Form1.Top = 2000 Form1.Left = 2000End SubPrivate Sub Command1_Click() “窗体变大”按钮 Form1.Height = Form1.Height + 200 Form1.Width = Form1.Width + 200End SubPrivate Sub Command2_Click() “窗体变小”按钮 Form1.Height = Form1.Height - 200 Form1.Width = Form1.Width - 200End SubPrivate Sub Command3_Click() “退出”按钮 EndEnd Sub（4）通过菜单“运行”“启动”运行应用程序，效果如图实验2所示。程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大。单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。六、注意事项七、思考题实验3 顺序结构程序设计一、实验目的熟悉消息框、输入框的使用方法。二、实验类型（含验证型、设计型或综合型）设计型。三、实验仪器PC机。四、实验内容设计一个程序，输入一个华氏温度F，程序可将其转换为摄氏温度C。转换公式为 C=5/9(F-32)。五、实验方法与步骤（1）添加窗体Form1。（2）编写如下的窗体单击事件过程并运行。Private Sub Form_Click()Dim F!,C! !代表单精度型数据，相当于Dim F As Single, C As SingleF = InputBox(请输入华氏温度F , 输入框)C = 5 / 9 * ( F 32 )Print 华氏温度F = & FPrint 摄氏温度C = & CEnd Sub（3）运行后单击窗体出现InputBox对话框，输入98按确定。运行效果如图实验3所示。实验3 输入框的应用六、注意事项学生可以自拟题及编写程序，练习消息框、输入框的有关编程方法。七、思考题实验4 选择结构程序设计一、实验目的熟悉条件语句的使用方法。二、实验类型设计型。三、实验仪器PC机。四、实验内容输入3个数，将他们从大到小排序。五、实验方法与步骤输入3个数，将他们从大到小排序。（1）添加窗体Form1。（2）编写如下的窗体单击事件过程并运行。Private Sub Form_Click()Dim weight As Single, pay As Singlea = Val(InputBox(请输入第一个数, 输入框)b = Val(InputBox(请输入第二个数, 输入框)c = Val(InputBox(请输入第三个数, 输入框)If a b Thent = a: a = b: b = tEnd IfIf a c Thent = a: a = c: c = tEnd IfIf b c Thent = b: b = c: c = tEnd IfPrint 三个数从大到小排序为： & a & , & b & , & cEnd Sub（3）运行后单击窗体连续出现3个InputBox对话框，分别输入3个数32，64，37。运行结果如图实验4所示。实验4 条件语句的应用六、注意事项七、思考题实验5 循环结构程序设计一、实验目的熟悉循环语句的使用方法。二、实验类型（含验证型、设计型或综合型）设计型。三、实验仪器PC机。四、实验内容用/4 = 1 - 1/3 + 1/5 - 1/7 + 级数求的近似值（取前5000项来进行计算)。 五、实验方法与步骤用/4 = 1 - 1/3 + 1/5 - 1/7 + 级数求的近似值（取前5000项来进行计算)。 （1）添加窗体Form1。（2）编写如下的窗体单击事件过程并运行。Private Sub Form_Click() Dim pi As Single Dim c As Integer, s As Integer pi = 0 一般情况下，累加时变量初值应该为0 s = 1 s表示加或减运算 For c = 1 To 10000 Step 2 pi = pi + s / c s = -s 交替改变加、减号 Next c Print =; pi * 4End Sub（3）运行后单击窗体，会在屏幕上显示“3.141397”字样。六、注意事项七、思考题实验6 控件的使用（一）一、实验目的熟悉单选框、复选框、框架的常用属性。二、实验类型（含验证型、设计型或综合型）设计型。三、实验仪器PC机。四、实验内容在窗体中建立一个文本框Textl、一个框架Fram1、两个复选框ChkBlod和ChkItalic。在Fram1中建立两个单选按钮OptSong和OptHei。运行时根据所选取的字体、字形来改变文本框中的文字显示状态。五、实验方法与步骤（1）添加窗体Form1，并向窗体中添加一个文本框Text1、一个框架Fram1。在框架外添加两个复选框ChkBlod和ChkItalic。在框加Fram1内添加两个单选按钮OptSong和OptHei。将单选钮OptSong和OptHei的Caption属性分别设置为“宋体”和“黑体”，将复选框ChkBlod和ChkItalic的Caption属性分别设置为“加粗”和“倾斜”。（2）输入如下各段过程代码，运行结果如图实验6所示。Private Sub CheBold_Click() If CheBold.Value = vbChecked Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub CheItalic_Click() If CheItalic.Value = vbChecked Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub Form_Load() Text1.Text = 单选钮及复选框的属性End SubPrivate Sub OptHei_Click() If OptHei.Value = True Then Text1.FontName = 黑体 End IfEnd SubPrivate Sub OptSong_Click() If OptSong.Value = True Then Text1.FontName = 宋体 End IfEnd Sub六、注意事项 一定要先添加框架，再向其中添加单选框，才能保证单选框是框架中的内容。七、思考题实验7 控件的使用（二）一、实验目的熟悉滚动条及定时器控件的使用方法。二、实验类型设计型。三、实验仪器PC机。四、实验内容（1）在窗体上添加一个文本框和一个水平滚动条。当单击滚动条或拖动滚动滑块时，文本框中将显示当前滑块所在的位置值。（2）在窗体上添加两个命令按钮和一个定时器控件。当单击“开始”按钮时，定时器开始运行，一个线段在窗体上做圆周运动，像时钟的秒针一样，每隔1秒钟移动一个位置。当单击“停止”按钮时，定时器终止运行。五、实验方法与步骤（1）滚动条控件的使用添加窗体Form1，并向窗体中添加一个文本框Text1和一个水平滚动条HScroll1。输入如下各段过程代码，运行结果如图实验7-1所示。Private Sub Form_Load() HScroll1.Max = 1000 设置滚动条的最大值 HScroll1.Min = 0 设置滚动条的最小值 HScroll1.SmallChange = 5 设置滚动条的最小移动距离 HScroll1.LargeChange = 10 设置滚动条的最大移动距离 HScroll1.Value = 500 设置滑块的初始位置End SubPrivate Sub HScroll1_Change() 滑块值改变时发生 Text1.Text = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() 拖动滑块时发生 Text1.Text = HScroll1.ValueEnd Sub实验7-1 滚动条的应用（2）时钟控件的使用添加窗体Form1，将窗体的AutoRedraw属性设置为True。向窗体上添加一个定时器控件Timer1，并将其Interval属性设置为1000，使得每隔1秒钟发生一次Timer事件。向窗体上添加两个命令按钮“开始”（名称为Cmd_Start）和“停止”（名称为Cmd_Stop）。向窗体上添加一个Line控件，取名为Line1，设计效果如图实验7-2中的左图所示。输入如下各段过程代码，运行结果如图实验7-2中的右图所示。Private len_S As Single, s As Integer 模块级变量Private Sub Cmd_Start_Click() 开始 Timer1.Enabled = True s = 0 Call Sub_MoveEnd SubPrivate Sub Cmd_Stop_Click() 停止 Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load() Timer1.Enabled = False len_S = Sqr(Line1.Y2 - Line1.Y1) 2 + (Line1.X2 - Line1.X1) 2) 秒针长度End SubPrivate Sub Timer1_Timer() 定时器的定时事件过程 s = s + 1 Call Sub_MoveEnd SubPrivate Sub Sub_Move() 定时器的定时事件过程 pi = 3.14159 Line1.X2 = Line1.X1 + len_S * Sin(pi * s / 30) 绘制秒针 Line1.Y2 = Line1.Y1 - len_S * Cos(pi * s / 30) PSet (Line1.X2, Line1.Y2) 绘制圆周End Sub实验7-2 定时器应用六、注意事项七、思考题实验8 控件的使用（三）一、实验目的熟悉通用对话框的使用方法。二、实验类型设计型。三、实验仪器PC机。四、实验内容在窗体上添加两个命令按钮、一个文本框和一个通用对话框。当单击“打开”按钮时，通用对话框显示“打开”对话框，用户选择一个文本文件名并显示在文本框中。当单击“字体”按钮时，文本框中的内容按用户选择的字体和字号显示。五、实验方法与步骤（1）单击“工程”菜单中的“部件”菜单项，选择“控件”选项卡，在其中的列表项里选择“Microsoft Common Dialog Controls 6.0（SP6）”，然后单击“确定”按钮，将通用对话框控件添加到工具栏中。（2）添加窗体Form1，并向窗体中添加一个通用对话框CommonDialog1、一个文本框Text1和两个命令按钮“打开（Command1）”和“字体（Command2）”。设计效果如图实验8中的左图所示。（3）输入如下各段过程代码，运行结果如图实验8中的右图所示。实验8 通用对话框的应用Private Sub Command1_Click() 打开 CommonDialog1.DialogTitle = 选择文件 CommonDialog1.Filter = 文本文件|*.txt 设置文件过滤器 CommonDialog1.InitDir = C: 设置默认文件夹 CommonDialog1.ShowOpen 显示打开对话框 Text1.Text = CommonDialog1.FileNameEnd SubPrivate Sub Command2_Click() 字体 CommonDialog1.Flags = cdlCFScreenFonts CommonDialog1.ShowFont Text1.FontName = CommonDialog1.FontName 设置字体名称 Text1.FontSize = CommonDialog1.FontSize 设置字体大小 Text1.FontBold = CommonDialog1.FontBold 粗体 Text1.FontItalic = CommonDialog1.FontItalic 斜体End Sub六、注意事项七、思考题实验9 菜单与过程一、实验目的熟悉变量的生存期及作用域，熟悉标准模块中变量及常数的使用。熟悉MDI窗体、菜单和工具栏的用法。二、实验类型设计型。三、实验仪器PC机。四、实验内容设计一个四则运算及统计的程序。其中四则运算中的各个数据范围在1到常数IMAX之间，由RND()函数随机得到每一个数据。根据显示的加减乘除符号进行相应计算，查看结果是否正确，并可以查看正确答案。常数IMAX是在标准模块中声明的常量。每道题可以计算多次，程序只统计第一次的计算结果是否正确。在标准模块中声明的全局变量Itotal、Iright和Iwrong分别统计总题目数、答对的题目数和答错的题目数。在上面基础上，再添加一个MDI窗体及另一个窗体Form2，其中Form2是用来统计出题次数及回答正确率的。在MDI窗体上加入菜单和工具栏，使得界面美观，并操作方便。五、实验方法与步骤（1）单击“工程”菜单中的“添加模块”命令，向工程中添加一个标准模块Module1，并向标准模块中添加如下代码：Const IMAX=180 AS Integer 在下个实验中此语句改为Public IMAX as integerPublic Iwrong as integer,Iright as integer,Itotal as integer（2）向窗体Form1中添加三个文本框Text1到Text3，并将他们的Text属性都设置为空（也可以在窗体的Form_Load事件中通过语句完成）。在程序中文本框Text1和Text2中的数由随机函数给出，范围在1到IMAX。（3）向窗体中添加一个标签Lbl_Oprt，用来显示操作运算符，运算符也是由随机函数给出。在设计时将其Caption设置为空。由于int(rnd(100)*4)+1的取值范围是1到4，可以分别表示将出的题目是加、减、乘和除。再向窗体中添加一个标签，并将其Caption属性设置为等号（=）。（4）向窗体中添加三个命令按钮Cmd_Tst、Cmd_Cal和Cmd_Ans ，他们的Caption属性分别设置为“出题” 、“计算” 和 “答案”。运行效果如图实验12-1所示。（5）在Form1中声明如下模块级的变量：Dim Flag_New As Integer 用来表示某一道题是否是第一次回答Dim IOprt As Integer 其取值为1到4，分别表示4个算术运算符Dim IAnswer As Integer 保存加、减、乘法的答案Dim FAnswer As Double 保存除法的答案（6）输入如下程序代码并运行。 “出题”按钮的单击事件程序代码：Private Sub Cmd_Tst_Click() Randomize Flag_New = 1 每次出题时表示该题尚未回答过 Text1.Text = Int(Rnd(10) * IMAX) + 1 Text2.Text = Int(Rnd(10) * IMAX) + 1 IOprt = Int(Rnd(100) * 4) + 1 Select Case IOprt Case 1: Lbl_Oprt.Caption = +: IAnswer = Val(Text1.Text) + Val(Text2.Text) Case 2: Lbl_Oprt.Caption = -: IAnswer = Val(Text1.Text) - Val(Text2.Text) Case 3: Lbl_Oprt.Caption = *: IAnswer = Val(Text1.Text) * Val(Text2.Text) Case 4: Lbl_Oprt.Caption = /: FAnswer = Format(Val(Text1.Text) / Val(Text2.Text), 0.#) 除法可能会出现小数，单独设计 End Select Text3.Text = Text3.SetFocusEnd Sub “计算”按钮的单击事件程序代码：Private Sub Cmd_Cal_Click() Dim Flag As Integer 用来表示回答是否正确。1为正确，0为错误 Flag = 1 首先假定是正确的，将flag置为1 Select Case IOprt Case 1, 2, 3: If Val(Text3.Text) IAnswer Then Flag = 0 若错误，则将flag置为0 Case 4: If Format(Val(Text3.Text), 0.#) FAnswer Then Flag = 0 若错误，则将flag置为0 End Select If Flag = 0 Then MsgBox wrong If Flag_New = 1 Then IWrong = IWrong + 1 对于初次计算的，统计该题回答是否正确 End If Else MsgBox right If Flag_New = 1 Then IRight = IRight + 1 对于初次计算的，统计该题回答是否正确 End If End If If Flag_New = 1 Then ITotal = ITotal + 1 Flag_New = 0 该题至少已经答过一次，下次不再统计 End IfEnd Sub “答案”按钮的单击事件程序代码：Private Sub Cmd_Ans_Click() Select Case IOprt Case 1, 2, 3: Text3.Text = IAnswer Case 4: Text3.Text = FAnswer End Select If Flag_New = 1 Then IWrong = IWrong + 1 对于直接看答案的，认为属于回答错误 Flag_New = 0End Sub实验9-1四则运算举例（7）单击“工程”菜单中的“添加MDI窗体”命令，向工程中添加一个MDI窗体MDIForm1。向MDI窗体中添加一个菜单项，如图实验12-2所示。其中假定每个菜单项的名称为前辍Mnu_再加上菜单项标题的各汉字汉语拼音的首字母。（8）单击“工程”菜单中的“部件”菜单项，选择“控件”选项卡，在其中的列表项里选择“Microsoft Windows Common Controls 6.0”，然后单击“确定”按钮。在工具箱中新增加的控件中分别选择Toolbar控件和ImageList控件，并添加到MDIForm1中。（9）右击窗体上的ImageList1控件，在弹出菜单中选择“属性”，然后在对话框中首先选择“通用”选项卡来设定图片的大小。再选择“图像”选项卡，单击“插入图片”按钮，选择4个合适的图片插入，其索引值分别为1到4。（10）右击Toolbar1控件，在弹出菜单中选择“属性”，在弹出的“属性页”对话框中先选择“通用”选项卡，在其中的“图像列表”下拉框中选择ImageList1。然后选择“按钮”选项卡，单击“插人按钮”向工具栏上添加命令按钮。每当添加一个按钮后，就设置它的属性。本题中主要是设置“标题”文本框和“图像”文本框。在“图像”文本框中依次输入1到4，则与之关联的ImageList控件中的相应图片会显示在该按钮上。（11）单击“工程”菜单中的“添加窗体”命令，向工程中添加一个新的窗体Form2，其Caption属性设置为“统计测试结果”，该窗体用来显示实验12-1中的统计结果。在Form2中添加一个命令按钮Cmd_View，其Caption属性设置为“统计”。其单击事件过程代码如下：Private Sub Cmd_View_Click() Cls Print 共出题; ITotal; 道 Print 计算正确; IRight; 道 Print 回答错误; IWrong; 道 Print 正确率; Format(100 * IRight / ITotal, 0.#); %End Sub（12）修改上面的标准模块中的常量声明语句，使其变成变量声明语句，以便用户可以修改该变量值来设定随机数的生成范围。将上面的语句改为：Public IMAX As Integer 将实验12-1中的常量声明语句改为本语句（13）MDI窗体的代码如下： 公共变量IMAX用来表示范围。各个数值的取值范围为0到IMAX。其中IMAX由 InputBox函数来给出。若给出的值不在1到180之间，则默认为180。单击“设置” 菜单时设置变量IMAX的值。其程序代码如下：Private Sub Mnu_SZ_Click() IMAX = InputBox(请输入随机数最大值, 设置一个最大值, 180) If IMAX 180 Then IMAX = 180End Sub 窗体Form1的说明与上面的实验相同。单击“出题计算”时调用该窗体Private Sub Mnu_CTJS_Click() Load Form1 Form1.ShowEnd Sub 窗体Form2是用来统计的，显示各种题的数目和正确率。单击“统计”时调用该窗体Private Sub Mnu_TJ_Click() Load Form2 Form2.ShowEnd Sub 单击“结束”时结束程序Private Sub Mnu_JS_Click() EndEnd Sub 如下的工具栏按钮程序使得每个按钮与其中的一个菜单项对应Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button) On Error Resume Next Select Case Button.Index Case 1 Call Mnu_SZ_Click Case 2 Call Mnu_CTJS_Click Case 3 Call Mnu_TJ_Click Case 4 Call Mnu_JS_Click End SelectEnd Sub实验9-2用菜单实现四则运算六、注意事项七、思考题实验10 数据库应用一、实验目的熟悉VB的数据库应用程序开发。二、实验类型综合型。三、实验仪器PC机。四、实验内容掌握通过VB来维护Access数据库中数据的方法。五、实验方法与步骤（1）创建窗体Form1，并向Form1中添加一个DATA控件，名为Data1。点击Data1的DatabaseName属性，将弹出的“DatabaseName”对话框中将该属性值设置为上面创建的“学生成绩管理”数据库，如图实验14-1所示。点击Data1的RecordSource属性，在下拉框中选择“学生成绩表”。实验14-1 为DATA控件设置属性（2）向Form1中添加5个标签，并将他们的Caption属性分别设置为“学号”、“姓名”、“性别”、“课程名称”和“成绩”。（3）向Form1中添加5个文本框控件，并分别命名为Text1到Text5，将这5个文本框控件的DataSource属性都设置为Data1，并通过下拉框将他们的DataField属性分别设置为“学号”、“姓名”、“性别”、“课程名称”和“成绩”。（4）按如下步骤添加一个数据环境：单击“工程”菜单中的“添加Data Environment”命令，创建一个数据环境DataEnvironment1相应的Connection1。右键单击Connection1并选择“属性”，在弹出的对话框中，首先在“提供者”选项卡中选择“Microsoft Jet 3.51 OLE DB Provider”（因为此例用的是旧版本的数据库），再在“连接”选项卡中选择前面创建的“学生成绩管理.mdb”数据库。右键单击Connection1并选择“添加命令”，向Connection1中添加一个命令对象Command1。右键单击Command1并选择“属性”，在弹出的对话框中选择“通用”选项卡，在其中的“连接”下拉框中选择Connection1，在“数据库对象”下拉框中选择“表”，在“对象名称”下拉框中选择“学生成绩表”。（5）按如下步骤创建一个数据报表：单击 “工程” 菜单中的“添加Data Report”命令，创建一个数据报表设计器DataReport1。在属性窗口中修改报表窗体的DataSource属性为“DataEnvironment1”，将其DataMember属性设置为“Command1”。在工具箱中单击“数据报表”，向“页标头（PageHeader）”栏中加入一个RptLabel控件，并设置其Caption属性为“学号”。向“细节（Command1_Detail）”栏中加入一个RptTextBox控件，并设置其DataMember属性为“Command1”，DataField属性为“学号”。重复此操作，直到将“学生成绩表”中的5个字段均添加到报表中。（6）向Form1中添加8个命令按钮控件，这8个命令按钮的Caption属性和名称分别是：增加（Cmd_Ins），删除（Cmd_Del），修改（Cmd_Upd），查找（Cmd_Fnd），上一个（Cmd_Pre），下一个（Cmd_Nxt），打印（Cmd_Prn）和结束（Cmd_End）。为这些按钮编写如下的事件过程并运行程序，运行结果如图实验14-2所示。Public msg 定义过程级的变量Private Sub Cmd_Ins_Click() vb_msg = MsgBox(请输入, vbOKCancel) If vb_msg = vbCancel Then Exit Sub End If Data1.Recordset.AddNew Data1.Recordset.Fields(学号) = Text1.Text Data1.Recordset.Fields(姓名) = Text2.Text Data1.Recordset.Fields(性别) = Text3.Text Data1.Recordset.Fields(课程名称) = Text4.T