vb综合实验

VB 6.0 + SQL综合实验步骤一：建立数据库新建数据库，命名为“KCGL”，在里面新建5个表：dept、course、sc、student 和users。

其中前四个表的表结构和数据见实验三。

Users表用来存放用户的帐号和密码，表结构如下：Users表建好后，往表中插入几个用户的用户名和密码（自己给定）。

步骤二：新建窗体打开VB6.0，新建一个标准的EXE文件。

在右下角的“属性窗口”框中，在“名称”中输入“Frmlogin”，在”Caption”中输入“登录”。

如下图所示：然后在工程资源管理器中，鼠标右键点击“窗体”，选择“添加”，再选择“添加窗体”。

如下图所示：个工程文件，如下图所示：将Form1的名称改为“frmmain”，Caption改为“学生信息管理”。

（方法：在属性窗口中修改）步骤三：设置窗体向Frmlogin窗体分别添加两个 Label 控件、两个 TextBox 控件和两个CommandButton。

控件在左侧工具箱，如下图所示：鼠标左键点击需要添加的控件，放到右边的窗体中，就可以添加控件了。

添加完控件后需要修改属性，方法是在属性窗口里面修改。

各控件属性修改如下：设置好后的窗体如下图所示：在菜单栏上点击“工程”—>“引用”，在“microsoft activex data objects 2.6 library”前面打勾，点击“确定”。

如下图所示：步骤四:填写代码（重要）首先双击“登录”按钮，打开代码编辑界面，输入如下代码。

要注意的是“Data Source=DEXX25”表示本机服务器的名字为“DEXX25”，大家做实验时需要将你们自己的机子作为服务器，方法是点击右下角的SQL 服务管理器查看。

Private Sub Command1_Click()Dim Cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cmd As New mandDim connstring As StringDim sqlstr As StringStatic iCount As Integerconnstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=kcgl;Data Source=DEXX25"sqlstr = "select * from users where username='" & Trim(Text1.Text) & "' and password='" & Trim(Text2.Text) & "'"Cn.Open connstringSet rs = Cn.Execute(sqlstr) '使用连接对象的Execute方法，返回记录集If rs.EOF TheniCount = iCount + 1MsgBox "用户名或密码不正确，请重新登录"Text1.Text = ""Text2.Text = ""Text1.SetFocusElseFrmlogin.HideFrmmain.ShowUnload FrmloginEnd Ifrs.CloseCn.CloseIf iCount >= 3 ThenMsgBox "超过次数", , "登录失败"EndEnd IfSet rs = NothingSet Cn = NothingEnd Sub接着双击“退出”按钮，输入如下代码：Private Sub Command2_Click()EndEnd Sub步骤五：启动窗体（F5）按F5或工具栏上的，启动窗体，输入用户名和密码，点击“登录”。

大一VB的实验报告
实验目的
本次VB的实验目的在于：
1.学习VB的基础语法和编程思想。

2.熟悉VB语言的IDE开发环境，了解其界面、操作方式和功能。

3.通过实现一个简单的文本编辑器，进一步熟悉VB的编程技巧。

实验内容
界面设计
首先，我们需要对文本编辑器的界面进行设计。

我们采用VB自带的Windows Form进行界面设计。

Notepad-UI
Notepad-UI
如图所示，主要包括菜单栏、工具栏、编辑区和状态栏等四个部分。

功能实现
新建、打开和保存
首先，我们需要实现新建、打开和保存功能，这是每个文本编辑器都需要支持的基本操作。

我们可以通过使用VB自带的控件——菜单控件和文件对话框，快速实现这些功能。

```vb ’Tool Strip Menu Item - New File Private Sub NewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewToolStripMenuItem.Click If currentFile <>。

实验题目总体要求：本学期的所有的实验题目，希望同学们按如下步骤认真做，（1）先画出处理界面（窗体）；（2）再给出处理步骤，（3）写出程序代码：可参考下面的例题：例如：设计程序，求1+2+3+...+N 的和值。

其处理过程是：（一）设计界面（在纸上画出界面，并注明各控件的名称）：（二）处理步骤：单击命令按钮，按以下步骤处理（1）定义3个变量：N ，s ，x ，分别用于存放：输入的数值，和值，控制循环（2）将文本框1的值，提供给变量N ；（3）s=0（累加前，将变量s 初始化为0）；（4）X=1（设置循环的开始值）（5） 当X<=N 时 重复执行S=s+xX=X+1（5）在文本框2中显示和值S（三）编写有关的代码：Private Sub Command1_Click()Dim n%，s%，x%N=val(text1.text)S=0X=1Do while x<=nS=s+xX=x+1LoopText2=sEnd Sub文本框1：TEXT1 文本框2：TEXT21：Command1标签1：Label1 标签2：实验一：用语言或流程图描述处理步骤(1次)1.判定一个数X是否是偶数的处理步骤;2.写出求5的阶乘的计算步骤;3.写出求1+2+3+...... +100的计算过程;4.写出计算1!+2！+3！+4！+......+20!的计算步骤;5.写出求一元二次方程解的处理步骤;6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;实验二：表达式及其运算的实现(1次)1.设计一个程序，完成利用文本框输入任意两个数的乘法运算，并显示计算结果。

2.进一步完善程序，完成利用文本框输入任意两个数的加法、减法、乘法、除法运算，并显示计算结果，3.再进一步，改进，完成，利用随机函数，产生任意两个100到200之间的整数，并完成两个数的加法、减法、乘法、除法运算，并显示计算结果。

4．求方程AX+B=0的解。

《VB程序设计》课程实验教学综述摘要:本文结合案例对VB实验教学的目标、内容、实验教学策略、实验教学评价等方面进行了探讨,分析了VB语言程序设计实验教学中存在的问题,提出了改进措施。

关键词:VB程序设计实验教学实验课程体系《VB 程序设计》课程是大学计算机基础教学中第一门系统讲授程序设计的课程。

Visual Basic语言是事件驱动的、面向对象的可视化程序设计语言,简单易学[1],能很快被初学者接受。

课程主要讲授程序设计的基本知识和基本的程序设计方法,目的是培养学生利用可视化程序设计语言解决实际问题的技能。

《VB 程序设计》实验教学作为理论教学的延伸,不仅可以帮助学生巩固课堂理论教学内容,还可以使学生熟悉程序调试技巧和程序设计的一般原则。

1 VB简介Visual Basic是Microsoft公司开发的包含协助开发环境的事件驱动、面向对象的可视化程序设计语言,为用户提供了友好的设计界面。

微软公司把许多新的数据访问功能加到VB中,3.0版以后的VB具有数据库连接和数据处理功能。

用户只需要根据需求将所需的对象直接添加到窗体上,而不必为这些对象的创建去编写繁杂的代码,用户所需要编写的代码只是这些对象要实现的功能。

Visual Basic将Windows 编程的复杂性“封装”起来,能够高效率地开发一些应用软件。

目前课堂教学中使用的集成环境是Visual Basic 6.0。

2 《VB 程序设计》实验课程体系设计2.1 实验课程目标《VB 程序设计》课程是大学计算机基础教学的必修课程,主要讲授程序设计的基本知识和基本的程序设计方法。

实验教学是实现课程目标的重要环节,实验教学质量的好坏直接影响课程的整体教学质量。

VB的实验教学可以加深学生对课堂教学内容的理解,建立与程序设计相关的各种基本概念,理解程序设计的步骤及各阶段之间的关系,掌握运用VB程序设计语言编程的基本方法,包括对如何分析问题、如何进行算法设计、如何编写程序代码以及如何对代码进行调试等基本功能[2]。

vb实验心得体会VB实习心得体会论文(急..)“三分理论，七分实践”，这次上机实习，让我认识到了学习VB 的重要性，同时也对VB程序有了更加深入的理解。

在这个过程中我对VB的各种控件的属性和功能有了进一步的掌握，让我又熟悉了一门计算机语言。

这次实习让我对VB中的循环结构有了更深的认识，以前只是知道循环结构大概的框架，并不知道它是如何运行的，而这次我知道它的循环基理，而且还学会了在定义时候的一些小窍门，例如在多个Form 中都要用到的变量就可以将它定义为一个全局变量，放在一个标准模块里等等。

以前认为VB是一门比较简单的语言，现在我才明白他其实也并没有想象中的那么简单，而且比我们想象的还要复杂。

有些功能并不只是对控件的设置就能实现的，而必须要在代码中编写。

老师常说“编程就是一个不断发现错误的过程”，通过这次实习我也充分的认识到了这个事实。

不停的改错，不停的产生新的代码，不停的产生新的界面，不停的有了新的收获。

利用本次的实习我还对VB的知识又进行了一次复习，而且我还学到了不少新的知识，尤其是控件组的应用，着实给我的编程中带来了不少方便，例如编写代码的过程中，我们利用一个for循环就可以实现一个控件组的初始化，可以说是简单快捷。

但是万事总是利弊相随，在给我带来方便的同时当然也带来了一点麻烦，就是在对控件组中的控件进行属性的必要修改时，必须反复与窗体与代码之间，看好多遍才可以把它准确的改变。

不过只要你的控件组不是很大的话就不会带来多 -烦的，如果控件很多的话最好还是不要用，因为用了反而会增加很大的工作量。

还有就是我在程序设计过程中遇到了列表的问题，这一个问题真的把我难住了。

不过经过了与同学的交流与学习，最后我还是把它解决了，而且还学到了好多方法，例如用List的sorted属性就可以完成对成绩大小的排序，真的为我省了不少力。

在实习中我体会到了集体的智慧，让我从中学到了很多东西。

仅仅两周的时间，让我对VB甚至计算机语言产生了浓厚的兴趣，每次遇到问题，分析问题，到最后把问题彻底解决，每次都会学到很多课本上学不到的新知识与新的技能。

电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验10 文件 实验时间2011-12-12班级： 姓名： 学号：实 验 目 的:1）、理解System.IO 对象模型。

2）、熟练掌握使用File 和Directory 对象操作文件的方法。

3）、熟练掌握DriveListBox 和StreamWriter 对象读写文本文件的方法。

4）、理解流的概念。

5）、掌握使用StreamReader 和StreamWriter 对象读写文本文件的方法。

实 验 环 境:Windows XPVisual 2003实 验 内 容 及 过 程:查找并替换文本文件的内容1、 新建一个“VisualBasic 项目”2、 界面设计由一个显示选择的文件的文本框（txtFileName ）、一个查找内容的文本框（txtFindText ）、一个替换内容的文本框（txtReplaceText ）、一个显示打开的文件内容的多行文本框（txtContent ）、三个标签（Label ）和两个按钮（btnSelFile 、btnReplace ）组成。

还要再添加一个OpenFileDialog 控件。

界面安排如图T10-1。

3、 编写程序代码引入System.IO 名称空间。

单击“选择文件”按钮的事件代码： 图T10-1 界面设计Private Sub btnSelFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnSelFile.ClickOpenFileDialog1.InitialDirectory = "c:\"OpenFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"OpenFileDialog1.FilterIndex = 1OpenFileDialog1.RestoreDirectory = TrueIf OpenFileDialog1.ShowDialog = DialogResult.OK ThentxtFileName.Text = OpenFileDialog1.FileNameEnd IfIf txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End If单击“替换”按钮的事件代码：Private Sub bntReplace_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles bntReplace.ClickIf txtFindText.Text = "" ThenMsgBox("请输入查找字符串", MsgBoxStyle.Critical)End IfTryDim fs As New FileStream(txtFileName.Text, FileMode.Open)Dim sr As New StreamReader(fs)Dim tempstr As Stringtempstr = Path.GetTempFileNameDim sw As New StreamWriter(tempstr)Dim s As StringDos = sr.ReadLineIf s <> Nothing Thens = s.Replace(txtFindText.Text, txtReplaceText.Text)sw.WriteLine(s)ElseExit DoEnd IfLoop While s <> Nothingsw.Close()sr.Close()fs.Close()File.Delete(txtFileName.Text)File.Move(tempstr, txtFileName.Text)If txtFileName.Text <> "" Thenreadfile(txtFileName.Text, txtContent)End IfMsgBox("替换完成。

实验一Visual Basic集成开发环境和程序设计初步实验目的：1、了解Visual Basic系统对计算机软、硬件的要求。

2、掌握启动与退出Visual Basic的方法。

3、了解Visual Basic集成环境的组成，各部分的作用。

4、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。

5、掌握常用控件（文本框、标签、命令按钮）的应用。

6、感性认识控件（对象）、过程、事件、属性等的概念，初步认识窗体、控件、属性、过程在程序设计中的作用和关系。

实验内容：建立一个“标准exe”类型的应用程序，要求单击“确定”按钮，在屏幕上显示“您好，世界！”，单击“退出”按钮，退出应用程序。

界面如图1-1所示，以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。

1-1 图实验准备：应用程序建立VB1) VB集成化开发环境 2) 复习相关知识：1.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。

2.实验步骤：中文版的启动与退出。

1.Visual Basic 6.0 启动：Microsoft Visual Basic 6.0）单击“开始”按钮，然后选择“程序”中“1 中文版”，单击即可。

中文版”图标，Microsoft Visual Basic 6.0或：单击桌面上“ exe”按钮，进入环境。

）新建工程对话框，单击打开“标准2--退出：1) 单击集成环境窗口右上角的关闭按钮。

2) 单击“文件”下拉菜单中的“退出”选项。

2.界面设计：（1）添加标签Label1。

（2）添加命令按钮Command1。

（3）添加命令按钮Command2。

（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间位置。

3.设置界面对象属性：可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。

1)设置Form窗体Caption属性为“Hello,World!”2)设置Command1按钮Caption属性为“确定”，名称属性为“OK”.3)设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。

vb12研究报告VB12（维生素B12），也称为腺苷钴胺，是一种复合型的维生素B12。

它在人体内起着关键的作用，包括红细胞形成和神经系统功能的维持。

VB12的缺乏可能导致贫血和神经损伤等健康问题。

此次研究旨在探索VB12的作用机制和补充方式，并评估其对人体健康的影响。

研究方法：本研究采用双盲、随机、安慰剂对照的临床试验设计。

共选取500名健康成年人作为研究对象，他们被随机分为实验组和对照组，实验组每天补充VB12，对照组则补充安慰剂。

实验组使用的VB12剂量为每日2000微克，经过12周的补充后，两组被测量生化指标和体征的变化。

研究结果：经过12周的补充，实验组的红细胞计数和血红蛋白水平较对照组显著增加，说明VB12可以促进红细胞形成。

此外，实验组的神经系统功能得分明显高于对照组，表明VB12的补充对神经系统有益。

补充VB12没有引起明显的副作用，表明其安全性较高。

讨论与结论：本研究结果表明，VB12的补充对人体健康有益。

红细胞计数和血红蛋白水平的增加，说明VB12可以改善贫血状况。

神经系统功能的改善，说明VB12对神经保护和修复有积极作用。

补充VB12安全性较高，可以长期使用。

然而，本研究还存在一些限制，例如研究时间较短，样本量有限等，因此需要进一步的深入研究来验证结果。

总结：本研究发现VB12的补充可以改善贫血和神经系统功能，在维护人体健康方面具有潜在的应用前景。

补充VB12应遵循医生的建议和正确的剂量，以确保其安全有效。

未来，我们需要进一步研究VB12的作用机制，以及其在其他健康问题中的应用。

实验一问答题：1、答：常见的有visual Basic、C++、Java、SQL。

用途特点：（参考课本4-5页）2、答：代码是一行或几行命令。

程序是针对某个任务编写的有序代码的集合。

软件是程序和文档的集合。

它们的关系是：代码 < 程序 < 软件3、答：面向对象程序设计中的每一个对象都应该能够接受数据、处理数据并将数据传达给其它对象，因此它们都可以被看作一个小型的“机器”，即对象。

它能够让人们更简单地设计并维护程序，使得程序更加便于分析、设计、理解。

4、答：参考课本第9页5、答：类——是创建对象实例的模板, 包含了创建对象的属性描述和行为特征的定义。

对象——是类的一个实例，继承了类的属性、方法。

控件——是具有图形界面的对象，它同样具有属性、方法、事件，是用来设计用户界面的重要元素。

属性——是对象的性质，用来描述和反应对象特征的参数。

事件——响应对象的动作，它发生在用户与程序交互时。

如单击控件、鼠标移动、键盘按下。

过程——指附在该对象上的程序代码，是事件的处理程序。

6、答：参考课本12页到17页。

实验二问答题：1、答通用属性有：Caption标题、Enabled可用性、Visible可见性、ForeColor前景颜色、BackColor背景颜色等。

2、答标签label是用来显示信息的，不具有输入功能。

属性有Caption、BackStyle、Alignment、BorderStyle、AutoSize。

文本框用来输入、输出数据，编辑文本。

属性有Text、 Maxlength、MultiLine、 ScrollBars、 Locked 、 PassWord 。

3、答结果为：标签里显示一个“abc”，图片框里显示3行“欢迎您”。

4、答要保存2次，分别是工程文件.vbp和窗体文件.frm。

实验一：一、选择1.D2.D3.B4.A5.B6.C7.CD8.D9.D10.编程机制是C、设计方式是B11.A12.D13.D14.C15.A二、填空1.windows2. 中断3.工具箱4.代码5.分类6.form2.show7. 出现语法错误8. 错9. 事件10. 面向对象11. 工程文件结构及各文件名12. 工程13. 设计程序代码14.双击窗体15.vb的安装文件夹16.属性17.方法18.font 19. form_load() 20.对象1.Private Sub Command1_Click()Print Sqr(8), 8 ^ (1 / 3)End Sub2.Private Sub Command1_Click()For i = 100 To 110Print Sqr(i)Next iEnd Sub3.Private Sub Form_Load()Print " 郑州大学在前进！"End Sub4. Private Sub label_click()PrintLabel.caption=”蓝天白云绿水青山”End sub实验二：一、选择1.B2.C3.B4.C5.C6.C7.B8.B9.D10.A11.C12.C13.C14.B15.A16.C17.B18.D19.C20.C二、填空1. Form_Click()2. Interval、5003..vbp .frm4.left top Height、Width twip5.picture6.load7. locked8. font Alignment9. GotFocus() LostFocus() 10. 属性窗口程序代码1.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2)Private Sub Command2_Click()Label3 = Val(Text1) / Val(Text2)End Sub2.Private Sub Command1_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu1.jpg") End SubPrivate Sub Command2_Click()Picture1.Visible = TruePicture1.Picture = LoadPicture("d:\tu2.jpg") End SubPrivate Sub Command3_Click()Picture1.Visible = False'也可以改为：Picture1.Picture = LoadPicture("") End Sub3.Private Sub Command1_Click()Label3 = Val(Text1) * Val(Text2) End Sub4.Private Sub Command1_Click() Text2 = Text1End SubPrivate Sub Command2_Click() Text1 = ""Text2 = ""End SubPrivate Sub Form_Load() Command1.Visible = False Command2.Visible = FalseEnd SubPrivate Sub Text1_Change() Command1.Visible = True Command2.Visible = TrueEnd Sub5.Private Sub Form_Load()Image1.Picture = LoadPicture("d:\tu3.jpg")End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width)) Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End实验三：一、选择1.A2.BC3.BC4.A5.A6.A7.BCD8.D9.B10.B 11.B二、判断题不合法的变量：3. 4. 5. 6. 8. 10. 11. 14.15. 16.三、1、abs(x+y)2. (3+x*y)^23. (-b+sqr(b^2-4*a*c))/(2*a)4.sin(30*3.14/180)+exp(2)四、1. int(rnd* 71+20) 或int(rnd* 71)+202. x<0 and y>0 or x>0 and y<0 或者x*y<03. x mod 3=0 or x mod 7=0或x/3=x\3 or x/7=x\74. x>=10 and x<205. x>="A" and x<="Z"6. left(s,3) 或mid(s,1,3)操作题：2.Private Sub Command1_Click()Dim n%n = Abs(Val(Text1))Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000")'上句的输出也可以用下面的print方式:' Print Format(n ^ 2, "#.000"); Spc(2); Format(Sqr(n), "#.000"); Spc(2); Format(n ^ 3, "#.000"); Spc(2); Format(n ^ (1 / 3), "#.000")End Sub3.Private Sub Command1_Click()Dim x%, y%x = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100Print "反序数："; Format(y, "000")End SubPrivate Sub Command2_Click()Dim x%, y As Stringx = Int(Rnd * 900 + 100)Print "产生的随机数："; xy = Trim(Str(x))Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1)End Sub4.Private Sub Command1_Click()Dim m%, n%Randomizem = Val(Text1): n = Val(Text2)x = Int(Rnd * (n - m) + m)y = Int(Rnd * (n - m) + m)z = Int(Rnd * (n - m) + m)Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & zEnd Sub5.Private Sub Command1_Click()Label1.Caption = DateEnd SubPrivate Sub Command2_Click()Label2.Caption = TimeEnd SubPrivate Sub Command3_Click()Label3.Caption = WeekdayName(Weekday(Date))End Sub实验四：一、选择1.C2.D3. C4.D5.A6.D7.B8.B9.A10.C二、填空1. 48.71E-01, -4.87122. 关系、逻辑、算术3. 900，100，mid(s,2,1)4.m、1,2,3 、print m & "月是第二季度"、end select三、程序结果1. X=4 y=132. 10操作题：1.方法一：Private Sub Command1_Click()x = InputBox("请输入弧度数值", "弧度转换", 0)xx = Val(x)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")MsgBox "弧度" & x & "转换为" & aa & "度" & bb & "分" & cc & "秒" End Sub方法二：Option ExplicitPrivate Sub Command1_Click()Dim x!, a!, aa%, b!, bb%, c!, cc$x = Val(Text1)a = x * 180 / 3.14aa = Int(a)b = (a - aa) * 60bb = Int(b)c = (b - bb) * 60cc = Format(c, "#.000")Label2 = "弧度" & Text1 & "转换为" & aa & "度" & bb & "分" & cc & "秒"End Sub2.Private Sub Command1_Click()Dim x%x = Val(Text1)If x / 400 = x \ 400 Or x Mod 4 = 0 And x Mod 100 <> 0 ThenLabel2 = Text1 & "年是闰年"ElseLabel2 = Text1 & "年不是闰年"End IfEnd Sub3.Private Sub Command1_Click()Dim x%, y%, z%x = InputBox("输入第一个数")y = InputBox("输入第二个数")z = InputBox("输入第三个数")Print "输入的数是："; x; y; zIf x > y Then t = x: x = y: y = tIf y > z Then t = y: y = z: z = tIf x > y Then t = x: x = y: y = tPrint "排序结果是："; x; y; zEnd Sub4.方法一：Private Sub Command1_Click() x = Val(InputBox("请输入上网时间:")) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5fei = x * 1End SelectMsgBox "上网费用为:" & fei & "元" End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub方法二：Private Sub Command1_Click() Dox = Val(InputBox("请输入上网时间:", , -1)) If x <> -1 ThenSelect Case xCase Is < 10fei = 25Case 10 To 50fei = x * 2Case 50 To 100fei = x * 1.5Case Is >= 100End Selectzongfei = zongfei & Space(3) & fei MsgBox zongfei, , "上网费用为"ElseExit DoEnd IfLoopEnd SubPrivate Sub Command2_Click()EndEnd Sub实验五一、选择B C B A C二、填空（1）for x=2 to 10s*(1-1/x)(2) 1 t>1E-6(3) j t(4) 5 11 51.Private Sub Command1_Click()For n = 1 To 100s = s + nNext nPrint sEnd SubPrivate Sub Command2_Click()n = 1Do While n <= 100s = s + nn = n + 1LoopPrint sEnd Sub2.Private Sub Command1_Click()For i = 0 To 20For j = 0 To 33If i * 5 + j * 3 + 1 / 3 * (100 - i - j) = 100 Then Print i, j, 100 - i - j Next jNext iEnd Sub3.Private Sub Command1_Click()n = 0DoIf n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Don = n + 1LoopPrint nEnd Sub4.'已知x,y,z分别是0~9中的一个数，求x,y,z的值，使得xxz+yzz=532. Private Sub Command1_Click()Dim x%, y%, z%, i%, j%For x = 0 To 9For y = 0 To 9For z = 0 To 9If (x * 100 + x * 10 + z) + (y * 100 + z * 10 + z) = 532 Then Print x, y, z NextNextNextEnd SubPrivate Sub Command2_Click()For x = 0 To 9For y = 0 To 9For z = 0 To 9If Val(x & x & z) + Val(y & z & z) = 532 Then Print x; y; z NextNextNextEnd Sub5.Private Sub Command1_Click()x = Val(Text1)y = x * 4n = 0Do While x <= yx = x * (1 + 0.1)n = n + 1LoopPrint x, nEnd Sub6.Private Sub Command1_Click()n = Val(InputBox("输入计算到第几项:", , 0))For i = 1 To ns = s + (-1) ^ (i + 1) * iNextPrint n, sEnd SubPrivate Sub Command2_Click()n = Val(InputBox("输入计算到第几项:", , 0))p = 1For i = 1 To ns = s + p * ip = -pNextPrint n, sEnd Sub7.'s=(0+1)+(0+1+2)+(0+1+2+3)+(0+1+2+3+4)+……(0+1+2+3+4+……n) Private Sub Command1_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0))s = 0: t = 0For i = 1 To nt = t + is = s + tNext iPrint sEnd SubPrivate Sub Command2_Click()Dim n%, s%n = Val(InputBox("输入计算到第几项:", , 0)) s = 0: t = 0For i = 1 To nt = 0For j = 1 To it = t + jNexts = s + tNextPrint sEnd Sub8.Private Sub Command1_Click()Dim s As Double, pi As Doublen = 1: s = 0Do While 1 / (2 * n - 1) >= 0.0001 '也可以是Do Until 1 / (2 * n - 1)< 0.0001s = s + (-1) ^ (n + 1) * 1 / (2 * n - 1)n = n + 1Looppi = 4 * sPrint piEnd Sub9.'5-9:输出所有的“水仙花数”.'所谓的“水仙花数”是指一个3位数，其各位数字的立方和等于该数本身。

实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。

2．熟悉Visual Basic 的集成开发环境。

3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。

4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。

二、实验类型综合三、实验时间：2013-3-8四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序，计算任意输入的正整数的平方根。

3、编写一个应用程序，界面如图1-1所示。

窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。

（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求 写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果（输入与输出）。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。

2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

VB换肤（GUI界面）第一种方法：后缀为.she文件的皮肤SkinSharp换肤库不是COM组件，无需进行系统注册，仅以标准dll方式存在。

1.打开vb6开发环境，新建一个工程文件，并存档2.将一个名为“肤色”的文件夹和一个名为SkinH_VB6.dll的文件拷贝到工程所在的目录3.外部函数接口api函数原型，把这原形放在通用声明段Private Declare Function SkinH_AttachEx Lib "SkinH_VB6.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long4.若需要什么样的皮肤（即.she文件）就在相应的事件（比喻在Form_Load()）中输入下面的内容：SkinH_AttachEx App.Path & "/皮肤/vista.she", " "app.path：系统字串常量，返回工程所在的路径。

皮肤：是跟工程在同一目录下的一个文件夹vista.she：皮肤文件，可以把网上下载的.she文件放在同目录下用时，只接按上四步骤即可。

第二种方法：ActiveSkin 4.3软件的应用。

可以自己更改皮肤1.安装ActiveSkin 4.3。

同其它软件安装一样。

2.汉化该软件。

直接运行setup.exe（汉化的安装文件）。

点下一步直至完成3.新建一个VB工程文件，在工具箱灰白色地方右键单击，选择[部件]，在部件对话框中勾选ActiveSkin4.3后单击[应用][确定]4.在出现的两个控件中选择拖入到窗体上。

右键单击，选择[编辑皮肤]即可到ActiveSkin4.3中编辑皮肤bel控件必须使用该部件给的ab控件来替换。

原本的A是不会显示6.选择相应的事件(如Form_Load())。

在该事件中输入：Skin1.ApplySkin Me.hWnd7.如果要移植你的程序到别的机器上运行，请编译打包。

vb实验作业参考答案VB实验作业参考答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。

在学习VB编程过程中，实验作业是非常重要的一部分，通过实践来巩固所学知识。

本文将提供一些VB实验作业的参考答案，帮助读者更好地理解和掌握VB编程。

一、VB基础知识实验作业参考答案1. 实验题目：编写一个VB程序，实现两个整数的加法运算，并将结果显示在文本框中。

参考答案：```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目：编写一个VB程序，实现输入一个数字，判断该数字是奇数还是偶数，并在消息框中显示结果。

参考答案：```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目：编写一个VB程序，实现一个简单的计算器功能，包括加法、减法、乘法和除法操作。

参考答案：```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目：编写一个VB程序，实现一个简单的登录界面，包括用户名和密码输入框以及登录按钮。

VB学习与实验指导测试题参考答案第一章第二章第三章第四章第五章第六章第七章第八章第九章综合测试题一综合测试题二下篇实验教程实验2 Visual Basic 变量、函数与表达式的使用实验2-1 算术运算符的使用13178332262-2-22007-10-153 2.857143 2.85714285714286实验2-2 字符运算符的使用20071020071020172007-10-10102007-10-20出错，类型不匹配实验2-3 关系运算符的使用FalseFalseFalseFalseFalseFalseFalseTrueFalseTrue实验2-4 逻辑运算符的使用TrueTrueFalseTrueFalseFalseTrueTrueFalse5-59实验2-5 常用函数的使用3.14 3.147.389056098930651 -1 .999999998205103 4-1 1 0.70554755825 251250 0A a65 9748 688 -98 -89 -9aaa 4.5 aaa4.516 5Visua 6.0sua Basic Basic 6.0abcde EFGBasic Basic BasicVisual Basic 6.0 Basic8 8aaa dd2011-3-152011-3-15 14:35:5215320113001.731.731.7317.32E-010173%实验3 算法基础及程序控制结构实验3-1 三个数的交换A=CC=BB=TBC实验3-2 求周长和面积Const PI=3.14159262*PI*RPI*R*RPicture1.ClsFormat(L, ".00")Format(M, ".00")实验3-3 求分段函数的值x=Val(Text1.Text)y=1+Sin(x)y=Log(x)Text1.Text = ""Text2.Text = ""实验3-4 求一元二次方程的根Val(Text2.Text)Val(Text3.Text)b ^ 2 - 4 * a * c"x1=" & (-b + Sqr(delt)) / (2 * a)"x2=" & (-b - Sqr(delt)) / (2 * a)Text2.Text = ""Text3.Text = ""End实验3-5 判断素数N Mod k = 0k=NN Mod i=0k=2实验3-6 求最大公约数和最小公倍数M<NL=ML=NM Mod k = 0 And N Mod k = 0Text3.Text = kExit ForM>NL=ML=Nk Mod M = 0 And k Mod N = 0Text4.Text = kExit For实验3-7 判断升序数、降序数CStr(N)Len(S) – 1Mid(S, k, 1) >= Mid(S, k + 1, 1)k = Len(S)N = Val(Text1.Text)S = CStr(N)For k = 1 To Len(S) - 1If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next kk = Len(S)实验3-8 判断回文数1Len(s)\2-1Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1)k = Len(S) \ 2Mid(S, k, 1) + S1S = S1实验3-9 求级数的值Val(Text1.Text)1x ^ ns * nt / s <= 10 ^ -6Text2.Text = y实验3-10 查找数字串并求和Text1.Text = ""Text2.Text = ""List1.ClearText1.TextFalseWhile Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = Truek = k * 10 + Mid(s, i, 1)i = i + 1Flag = Truesum + kText2.Text = sum实验3-11 随机产生20个奇数Int((99 - 10 + 1) * Rnd) + 10a Mod 2 = 1n Mod 5 = 0Picture1.Cls实验3-12 加密解密Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26)c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mod 26) c & s2Text2.TextLen(s2)Mid(s2, i, 1)c = Chr(Asc("a") + (Asc(c) - Asc("a") + 23) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 23) Mod 26) c & s1s1Text1.Text = ""Text2.Text = ""实验3-13 统计单词个数Text1.TextMid(s, i, 1) <> " " And i <= Len(s)i = i + 1Mid(s, start, i - start)nText1.Text = ""List1.Clear实验4 数组的使用实验4-1 一维数组的产生及输出i = 1 To 20Int((9 - 0 + 1) * Rnd + 0)i = 1 To 20Print a(i);Printi = 1 To 20Picture1.Print a(i);If i Mod 5 = 0 Then Picture1.Printi = 1 To 20Text1.Text & Space(2) & a(i)If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbCrLf v In aIf i Mod 5 = 0 Then Picture2.Print实验4-2 选手得分Int((50 - 10 + 1) * Rnd + 10) / 10i = 1 To 6sum = sum + score(i)max = score(1)min = score(1)score(i) > max Then max = score(i)score(i) < min Then min = score(i)(sum - max - min) / 4实验4-3 产生10个互不相同的整数Int((999 - 10 + 1) * Rnd + 10)t Mod 10 = 5Then Exit Forn= n + 1a(i) = tFor i = 1 To 10Print a(i);If i Mod 5 = 0 Then PrintNext i实验4-4 统计数字出现的次数IsNumeric(S) = FalseExit SubLen(S)c >= "0" And c <= "9"A(c) = A(c) + 1A(k) <> 0m = m + 1实验4-5 排序1 To 10Int((99 - 10 + 1) * Rnd + 10)Text1.Text & A(n) & " "1 To 9i + 1 To 10A(i) > A(j)T = A(j)A(j) = A(i)A(i) = T1 To 910 - iA(j) > A(j + 1)T = A(j + 1)A(j + 1) = A(j)A(j) = T1 To 10Text3.Text = Text3.Text & A(i) & " "10T = A(i)ji - 1k + 11 To 10Text4.Text = Text4.Text & A(i) & " "实验4-6 二维数组的产生及输出1 To 41 To 5Int((9 - 0 + 1) * Rnd + 0)1 To 41 To 5Print A(i, j);Print1 To 41 To 5Picture1.Print A(i, j);Picture1.Print1 To 41 To 5Text1.Text = Text1.Text & A(i, j) & " "Text1.Text = Text1.Text & vbCrLf实验4-6 查找最大和最小元素及其位置1 To 31 To 4A(i, j) = Int((99 - 10 + 1) * Rnd + 10)Picture1.Print A(i, j);Picture1.PrintA(1, 1)， 1， 1A(1, 1)， 1， 1A(i, j)ijA(i, j) < minA(i, j)ij"最大元素" & "A(" & maxi & "," & maxj & ")=" & max "最小元素" & "A(" & mini & "," & minj & ")=" & min实验4-7 矩阵转置Dim A() As Integer"请输入N的值"ReDim A(N, N) As IntegerFor i = 1 To NFor j = 1 To NA(i, j) = Int((99 - 10 + 1) * Rnd + 10)Text1.Text = Text1.Text & A(i, j) & " "Next jText1.Text = Text1.Text & vbCrLfNext it = A(i, j)A(i, j) = A(j, i)A(j, i) = tFor i = 1 To NFor j = 1 To NText2.Text = Text2.Text & A(i, j) & " "Next jText2.Text = Text2.Text & vbCrLfNext i实验5 过程实验5-1 孪生素数和降序素数Dim i As IntegerFor i = 2 To N - 1If N Mod i = 0 Then Exit FunctionNext iPrime = TrueDim a As IntegerDim b As Integera = N \ 10b = N Mod 10If a > b ThenDecNumber = TrueElseDecNumber = FalseEnd If10 To 100Prime(i) = True And Prime(i + 2) = TrueList2.AddItem i & "和" & i + 2DecNumber(i) = True And Prime(i) = TrueList3.AddItem i实验5-2 求多项式和k = 1a = f(x, k)S + ak = k + 1Single As SingleDim i As Integer, a As Singlea = (x + 1) / xFor i = 2 To ka = a * (x + i) / ((2 * i - 1) * x)Next ia实验5-3 进制转换Asc(C) - Asc("A") + 10Left(S, k - 1)Mid(S, k + 1)Change(Mid(S2, i, 1)) * N ^ (0 - i)T1 + T2Tran(8, S)Tran(16, S)Not (C >= "0" And C <= "7" Or C >= "A" And C <= "F" Or C = ".")实验5-4 Armstrong数i As Long, a As Long, b As LongCombo1.Text实验5-5Option Base 1Dim a(5) As IntegerDim b(5) As Integerb(i) = i * i + 1Text2.Text = Text2.Text & b(i) & " "1 To 51 To 5Gcd(a(i), b(j)) = 1Gcd = KExit For实验5-6Create(a)Output(a)Sort(a)Output(a)GetMaxMin(a, MaxData, MinData)MaxDataMinDataAverage(a)Int((99 - 10 + 1) * Rnd + 10)1 To UBound(a)a(i);a(i) > a(j)t = a(j)a(j) = a(i)a(i) = t2 To UBound(a)a(i) > MM = a(i)a(i) < NN = a(i)s = s + a(i)Average = s / UBound(a)实验6 界面设计实验6-1 用户登陆MsgBox "请登录！"PassWordInput=TxtPassW.TextUserIdInput=UserId And PassWordInput=PassWordCmdReset_Click实验6-2 学籍登记OptXb(0).Value = TrueList1.AddItem Space(4) & xh & Space(6) & xm & Space(6) & xb & Space(12) & xy & Space(16) & zy & Space(4)List1.RemoveItem List1.ListIndex实验6-3 字体格式设置Select Case OpFontCheck2.Value = 1OpColor = IndexOpFont = Index实验6-4 兴趣调查List1.AddItem ItemEndSelect Case IndexItem = Text1.Text实验6-5 调色板。

vb实验总结通用模板第1篇一个月的时间非常快就过去了，这一个月我不敢说自己有多大的进步，获得了多少知识，但起码是了解了项目开发的部分过程。

虽说上过数据库相关的课程，但是没有亲身经历过相关的设计工作细节。

这次课程设计给我提供了一个很好的机会。

通过这次课程设计发现这其中需要的很多知识我们没有接触过，上网查找资料的时候发现我们以前所学到的仅仅是皮毛，还有很多需要我们掌握的东西我们根本不知道。

同时也发现有很多已经学过的东西我们没有理解到位，不能灵活运用于实际，不能很好的用来解决问题，这就需要自己不断的大量的实践，通过不断的自学，不断地发现问题，思考问题，进而解决问题。

在这个过程中我们将深刻理解所学知识，同时也可以学到不少很实用的东西。

这次的数据库课程设计，我们组负责的企业信息文档管理系统的设计。

这课题是自拟的。

我们组实行的分工合作。

我主要是负责数据库功能模块设计这部分。

从各种文档的阅读到需求分析、概要设计、数据库总体设计、代码编写与调试，我们都准备了好长时间。

组内分工合作的整个过程，我亲身体验了一回系统的设计开发过程，分工合作的好处。

很多东西书上写的很清楚，貌似看着也很简单，思路非常清晰。

但真正需要自己想办法去设计一个系统的时候才发现其中的难度。

经常做到后面突然就发现自己一开始的设计有问题，然后又回去翻工，在各种反复中不断完善自己的想法我想有这样的问题不止我一个，事后想想是一开始着手做的时候下手过于轻快，或者说是根本不了解自己要做的这个系统是给谁用的。

因为没有事先做过仔细的用户调查，不知道整个业务的流程，也不知道用户需要什么功能就忙着开发，这是作为设计开发人员需要特别警惕避免的，不然会给后来的工作带来很大的麻烦，甚至可能会需要全盘推倒重来。

所以以后的课程设计要特别注意这一块的设计。

经过组内讨论，我们确定的课题是企业信息文档管理系统。

说实话，我对这个系统不是很了解。

通过上网查找资料、相关文献的阅读，我对该系统有了大体的了解。

VB se企业运营综合实训的实验目的和实验步骤
实验目的
通过模拟公司运营的全过程，进行团队合作、企业战略规划、预算、流程管理等一系列活动，使学生综合运用战略管理、营销管理、生产管理、财务管理、人力资源管理等综合知识，领悟市场竞争环境中企业经营管理的规律，全面提升综合管理的专业技能。

该实验采用沙盘模拟方式，在其中老师不再单单是讲解者，而在不同阶段扮演着不同的角色:调动者、观察家、引导者、分析评论员、业务顾问等。

整个沙盘模拟过程就如一个游戏过程，具有互动性、趣味性、竞争性的特点，使学生能够充分运用听、说、学、做、改等一系列学习手段，开启一切可以调动的感官功能，并能够将学到的管理思路和方法在实际操作中很快实践与运用，从而对所学内容形成深度记忆。

学生通过沙盘演练，还可以在以下思维方面获得提升:树立共赢理念、全局观点与团队合作的重要性、保持诚信、个性特征与职业定位的协调统一、对待风险的态度等。

实验步骤
1.学生分组设立虚拟企业，做好角色分配企业总体战略的设定与宣讲企业初始状态的设定基本要求:了解沙盘盘面的结构，能够将企业的资源分布状况复原到沙盘上。

2.模拟竞争规则的学习与操作市场规则，比如市场划分和市场准
入、广告的投放和订单的争取企业运营规则，比如厂房的购买、出售和租赁;生产线的购买、转产与维修、出售;产品生产;原材料采购;产品研发和国际认证;融资贷款和贴现等基本要求:熟悉掌握模拟竞争的各种规则。

3.竞争模拟实战，引导年的经营，由教师指导学生进行第一季度的经营从第二季度到第八季度，由学生团队进行模拟经营，教师每季末就现场数据进行简要点评和分析。

4.企业评价与交流，企业经营分析报告的编制;市场占有率分析;企业的综合评价;各团队就自己的经营实况进行交流汇报。

实验报告11实验报告2：实验题目1：设计窗体。

参考界面如下：运行前运行后要求：1）在窗体上添加一个标签，通过属性窗囗设置标签格式：Caption：字体格式Alignment：2—Center（居中）BorderStyle ：1—Fixed Single（有边框）Backstyle：0—Tansparent（背景透明）2）运行时，单击“字号”，将标签内容的字号设置为30；单击“加粗”，将标签内容加粗；单击“下划线”，则在标签内容下加下划线。

提示：字号FontSize、加粗FontBold、下划线FontUnderline实验题目1源程序代码：Private Sub Command1_Click()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd Sub实验题目2：设计一个计算器。

参考界面如下：要求：1）实现算术运算（+、-、*、/）的功能；2）实现清除和结束的功能；3）实现清除后，将焦点移到第一个文本框中。

实验题目2源程序代码：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub实验题目3：设计一个能够统计某学生三门课程成绩总分和平均分的程序。