【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“VB程序设计课程设计实验报告 - 技术总结”一文，供大家参考学习

第1页共31页 1 福建农林大学计算机与信息学院 程序设计类课程 实验报告 课程名称 Visual Basic程序设计教程 姓 名 系 计算机与信息学院 专 业 计算机应用技术 年 级 05级 学 号 指导教师 职 称 讲师 2007年 6月 2 日 实验项目列表 序号 实验项目名称 成绩 指导教师 1 Visual Basic环境和程序设计初步 2 顺序程序设计 3 选择结构程序设计 4 循环结构程序设计及数组的运用 5 过 程 6 窗体和常用控件一 7 常用控件二 8 循环结构程序设计及动态数组的应用 9 综合实例一 10 综合实例二 第2页共31页 2 系 计算机与信息学院 专业 计算机应用技术 年级 05级 姓名 学号 0 计算机号 67 实验时间 2007、3、28 实验地点 综南附307 指导教师签字 实验一 Visual Basic环境和程序设计初步 一、实验目的和要求 1、 了解Visual Basic系统对计算机软件、硬件的要求。

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

     3、 熟悉Visual Basic的集成开发环境IDE。

     4、 掌握在窗体上添加控件的各种方法。

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

     二、实验内容和原理 1、 熟悉工具箱上的标准控件以及窗体设计器和工程管理器窗口、属性窗口、代码窗口的功能、组成以及它们各种不同的打开方法。

     2、 在窗体上画一文本框个一个命令按钮在文本框中显示“VB程序设计”然后执行如下操作 1 编写适当事件过程当单击命令按钮时文本框内容消失。

     2 单击“文件”—“生成工程”并退出。

    在windows环境下运行该工程。

     用户界面 实验代码 Private Sub Command1_Click Text1.Text quotquot End Sub 3、 创建一个“标准EXE”类型的应用程序。

    要求程序运行时在屏幕上显示“欢迎您的到来”并输入您的名字当按回车键时弹出如下对话框 第3页共31页 3 用户界面 代码 Private Sub Text1_KeyPressKeyAscii As Integer If KeyAscii 13 Then MsgBox quot欢迎quot Text1.Text quot的到来quot End If End Sub 4、 创建如图所示的应用程序要求单击“确定”按钮后第一个文本框显示系统日期第二个文本框显示星期。

    单击“退出”按钮则退出应用程序。

     用户界面 实验代码 Private Sub Command1_Click Dim num As Integer num WeekdayNow Text1.Text Date Select Case num Case 1 Text2.Text quot日quot Case 2 Text2.Text quot一quot Case 3 第4页共31页 4 Text2.Text quot二quot Case 4 Text2.Text quot三quot Case 5 Text2.Text quot四quot Case 6 Text2.Text quot五quot Case 7 Text2.Text quot六quot End Select End Sub Private Sub Command2_Click End End Sub三、总结 通过本次实验熟悉了Visual Basic的集成开发环境IDE。

    掌握在窗体上添加控件的各种方法。

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

     系 计算机与信息学院 专业 计算机应用技术 年级 05级 姓名 洪景泉 学号 051893067 计算机号 67 实验时间 2007、4、4 实验地点 综南附307 指导教师签字 黄红兵 实验二 顺序程序设计 一、实验目的和要求 1.掌握常用内部函数的使用 2.掌握表达式 赋值语句的正确书写规则 3.掌握InpueBox和MsgBox的使用 二、实验内容和原理 1.创建如图所示的应用程序要求单击窗体显示如图所示的图形。

     用户界面 第5页共31页 5 实验代码 Private Sub Form_click Dim i As Integer Dim j As Integer For i 1 To 9 For j 1 To i If i 9 Or j 1 Or i j Then Print quot※quot Else Print Spc2 End If Next j Print Next i End Sub 2.创建如图所示的应用程序要求单击“放大”按钮后将文本中显示的字符串放大--倍若单击按钮“还原”按钮。

    则将文本框显示的字符串大小返原。

     用户界面 实验代码 Dim x as integer Dim y as integer 第6页共31页 6 Private Sub Command1_Click y Text1.FontSize Text1.FontSize IntRnd 2 2 y End Sub Private Sub Command2_Click Text1.FontSize y End Sub 3.创建如图的应用程序要求单击“确定”按钮后弹出“是否继续”若单击“是”则文本框显示“您按下的按钮是‘是’”若单击按钮“否”则文本框显示“您按下的是‘否’”。

    单击“结束”则退出应用程序。

     用户界面 实验代码 Private Sub Command1_Click Dim x As Integer x MsgBoxquot是否继续quot 20 quotMsgBox 信息显示窗口quot If x vbYes Then Text1.Text quot您按下的按钮:quot quot是quot Else Text1.Text quot您按下的按钮:quot quot否quot End If End Sub Private Sub Command2_Click End End Sub 三、总结 通过本次实验掌握常用内部函数的使用表达式 赋值语句的正确书写规则以及InputBox和MsgBox的使用 第7页共31页 7 系 计算机与信息学院 专业 计算机应用技术 年级 05级 姓名 洪景泉 学号 051893067 计算机号 67 实验时间 2007、4、11 实验地点 综南附307 指导教师签字 黄红兵 实验三 选择结构程序设计 一、实验目的和要求 1、掌握If条件语句的使用。

     2、掌握情况语句的使用以及情况语句与多分支条件语句的使用区别。

     二、实验内容和原理 1、请编一程序用于在期未时根据学生总分情况给予奖励条件如下四门总分不低于360含360分特等奖四门总分320分含320分360分不含360分优秀奖单科成绩不低于95分特别奖。

     用户界面 实验代码 Private Sub Command1_Click Dim t1 As Integer t2 As Integer t3 As Integer t4 As Integer sum As Integer If IsNumericText1.Text And IsNumericText2.Text And 第8页共31页 8 IsNumericText3.Text And IsNumericText4.Text Then t1 ValText1.Text t2 ValText2.Text t3 ValText3.Text t4 ValText4.Text sum t1 t2 t3 t4 Label3.Caption sum If sum gt 360 Then MsgBox quot您获得了特等奖quot 64 quot获奖通知quot ElseIf sum gt 320 And sum lt 360 Then MsgBox quot您获得了优秀奖quot 64 quot获奖通知quot ElseIf t1 gt 95 And t2 gt 95 And t3 gt 95 And t4 gt 95 Then MsgBox quot您获得了特别奖quot 64 quot获奖通知quot Else MsgBox quot您要努力了quot 64 quot通知quot End If Else MsgBox quot请输入数字quot 48 Text1.Text quotquot Text2.Text quotquot Text3.Text quotquot Text4.Text quotquot Text1.SetFocus End If End Sub Private Sub Form_Activate Text1.Text quotquot Text2.Text quotquot Text3.Text quotquot Text4.Text quotquot Text1.SetFocus End Sub 2. 输入XYZ三个数按从小到大的次序显示出来要求程序中不得使用循环结构和转向语句掌握两个数交换的方法 程序界面 第9页共31页 9 实验代码 Dim x as double y as double z as double t as double Private Sub Text1_KeyPressKeyAscii As Integer If KeyAscii quot13quot Then x ValTrimText1.Text Text2.SetFocus End If Text4.Text x End Sub Private Sub Text2_KeyPressKeyAscii As Integer If KeyAscii quot13quot Then y ValTrimText2.Text If x gt y Then t x x y y t End If Text3.SetFocus End If Text4.Text x Text5.Text y End Sub Private Sub Text3_KeyPressKeyAscii As Integer If KeyAscii quot13quot Then z ValTrimText3.Text If z lt y And z gt x Then Text5.Text z Text6.Text y ElseIf z lt x Then Text4.Text z Text5.Text x Text6.Text y 第10页共31页 10 Else Text6.Text z End If End If End Sub 315页简易计算器 然后输入代码代码如下所示 Private Sub Command1_Click Dim a As Double b As Double Dim operator As String a ValText1.Text operator TrimText2.Text b ValText3.Text Select Case operator Case quotquot Text4.Text a b Case quot-quot Text4.Text a - b Case quotquot Text4.Text a b Case quot/quot If b 0 Then MsgBox quot分母出错为零出错quot Else Text4.Text a / b End If Case Else MsgBox quot运算符出错请重新输入quot End Select End Sub 第11页共31页 11 Private Sub Form_Activate Text1.Text quotquot Text2.Text quotquot Text3.Text quotquot Text4.Text quotquot Text1.SetFocus End Sub 三、总结 通过本次实验掌握If条件语句的使用情况语句的使用以及情况语句与多分支条件语句的使用。

     系 计算机与信息学院 专业 计算机应用技术 年级 05级 姓名 洪景泉 学号 051893067 计算机号 67 实验时间 2007、4、18 实验地点 综南附307 指导教师签字 黄红兵 实验四 循环结构程序设计及数组的运用 一、实验目的和要求 1、 掌握FOR语句的使用。

     2、 掌握DO语句的各种形式的使用。

     3、 掌握如何控循环条件防止死循环或不循环。

     4、 掌握数组的声明以及数组元素的使用差别。

     5、 掌握静态数组和动态数组的使用差别。

     6、 应用数组解决与数组有关的常用算法问题。

     二、实验内容和原理 1、 编程计算1-23-45-6????n的值其中n由文本框输入要求掌握FOR语句的正确使用。

     用户界面 Private Sub Text1_KeyPressKeyAscii As Integer Dim n As Integer i As Integer s As Integer s 0 If KeyAscii quot13quot Then 第12页共31页 12 n ValTrimText1.Text For i 1 To n If i Mod 2 0 Then s s - i Else s s i End If Next Label1.Caption quot1-23-4...quot Strn quotquot Strs End If End Sub 2随机产生10个110的正整数包括110求最大值、最小值和平均值并显示整个数组的值。

     用户界面 实验代码 Option Base 1 Private Sub Form_Click Dim a10 As Integer Dim i As Integer max As Integer min As Integer Dim sum As Integer Randomize For i 1 To 10 ai IntRnd 10 1 Print Spc3 ai Next i max a1 min a1 For i 2 To 10 If max lt ai Then max ai 第13页共31页 13 End If If ai lt min Then min ai End If sum sum ai Next Text1.Text max Text2.Text min Text3.Text sum / 10 End Sub 4.在窗体上显示给定行的杨辉三角形。

     用户界面 Private Sub Command1_Click FontSize 22 FontBold True Dim i j n As Integer Dim a As Integer n ValText1.Text ReDim an n As Integer 将定义为n×n的数组 For i 1 To n 给第一列和主对角线上的元素赋值1 ai i 1 ai 1 1 Next i For i 3 To n For j 2 To n - 1 ai j ai - 1 j - 1 ai - 1 j 计算除第一列和主对角线上之外元素的值 Next j Next i For i 1 To n Rem Print Tab30 - i 3 定位每一行第一个元素输出位置 For j 1 To i Print ai j If ai j lt 10 Then 打印格式的设置 Print Space3 Else 第14页共31页 14 Print Space2 End If Next j Print Next i End Sub 三、总结 通过本次实验掌握循环语句的使用数组的声明以及数组元素的使用。

    掌握了静态数组和动态数组的使用差别。

     系 计算机与信息学院 专业 计算机应用技术 年级 05级 姓名 洪景泉 学号 051893067 计算机号 67 实验时间 2007、4、25 实验地点 综南附307 指导教师签字 黄红兵 实验五 过程 一、实验目的和要求 1、 掌握自定义函数过程和子过程的定义和调用方法。

     2、 掌握形参和实参的对应关系。

     3、 掌握值传递和地址传递的传递方式。

     4、 掌握递归的概念和使用方法。

     二、实验内容和原理 1. 编程计算1XX2????Xn的子过程和函数过程并分别调用。

    要求其中X和N的值由用户给定。

     用户界面 第15页共31页 15 实验代码 Option Explicit Private x As Integer n As Integer Private Function fn x As double Dim i As Integer sum As double For i 0 To n sum sum x i Next i f sum End Function Private Sub Form_Click Label1.Caption quot1quot amp x amp quotquot amp x amp quotquot amp 2 amp quot┅quot amp x amp quotquot amp n amp quotquot Text1.Text fn x End Sub Private Sub Form_Load x CIntInputBoxquot请输入底数Xquot n CIntInputBoxquot请输入指数nquot Form_Click End Sub 2. 编写函数SM AS IntegerN AS Integer as Long 此函数返回mmmmmm ……mm????mn个m的值。

     用户界面 第16页共31页 16 实验代码 Option Explicit Private Sub Form_Load Dim m As Integer n As Integer n InputBoxquot请输入个数nquot m InputBoxquot请输入mquot Label1.Caption m amp quotquot amp m 10 m amp quot...quot amp m amp quot...quot amp m amp quotquot Text1.Text sm n End Sub Function sm As Integer n As Integer As Long Dim i As Integer k As Long sum As Long k m sum 0 For i 1 To n sum sum k k k 10 m Next i s sum End Function 3用递归函数求和123??n其中n的值由用户输入 Private Function facn As Integer As long If n 1 Then fac 1 Else fac n facn - 1 End If End Function 4 用PI??/61/1??1/2??1/3????1/N??近似公式PI的值.当1/N??lt0.00001时第17页共31页 17 不再累加.要求: 掌握Do语句的各种形式的正确使用。

     1启动Visual BASIC在窗体上双击。

    打开代码窗口在Form_Click事件中输入如下代码 Private Sub Form_Click Dim n As Integer Dim s As Single s 0 n 1 Do While 1 / n 2 gt 10 -5 s s 1 / n 2 n n 1 Loop s s 6 PI StrSqrs Print quotPIquot quotquot PI End Sub 三、总结 通过本次实验掌握了自定义函数过程和子过程的定义和调用方法掌握值传递和地址传递的传递方式以及递归的概念和使用方法。

     系 计算机与信息学院 专业 计算机应用技术 年级 05级 姓名 洪景泉 学号 051893067 计算机号 67 实验时间 2007、5、9 实验地点 综南附307 指导教师签字 黄红兵 实验六 窗体和常用控件一 一、实验目的和要求 掌握窗体与常用控件的重要属性、事件和方法。

     二、实验内容和原理 1、在窗体上建立3个文本框和一个命令按钮。

    程序运行后单击命令按钮在第一个文本框中显示由Command1_click事件过程设定的内容同时在第二、第三个文本框中分别用大写字母和小写字母显示第一个文本框中的内容。

     用户界面 第18页共31页 18 实验代码 Option Explicit Private Sub Command1_Click Text1.Text quotText Command Imagequot Text2.Text UCaseText1.Text Text3.Text LCaseText1.Text End Sub3. 设计一个界面程序要求程序能实现界面上所指示的编辑操作和字体设置功能。

     用户界面 实验代码 Option Explicit Private Sub Check1_ClickIndex As Integer If Check10.Value vbChecked Then Text1.FontName quot黑体quot Else Text1.FontName quot宋体quot End If If Check11.Value vbChecked Then 第19页共31页 19 Text1.FontItalic True Else Text1.FontItalic False End If If Check12.Value vbChecked Then Text1.FontUnderline True Else Text1.FontUnderline False End If End Sub Private Sub Option1_ClickIndex As Integer Dim k As String k Text1.Text If Option10.Value Then Clipboard.Clear Clipboard.SetText k End If If Option11.Value Then Clipboard.Clear Clipboard.SetText k Text1.Text quotquot End If If Option12.Value Then Text1.Text Text1 Clipboard.GetText End If End Sub 2、设计一个界面程序要求程序运行时选中组合框中的某一项将弹出如下对话框加以说明。

     用户界面 实验代码 Option Explicit Private Sub Combo1_Click Dim exp1 As String 第20页共31页 20 exp1 quot我的兴趣爱好是quot Combo1.Text MsgBox exp1 quot兴趣爱好quot End Sub Private Sub Form_Load Combo1.AddItem quot音乐quot Combo1.AddItem quot美术quot Combo1.AddItem quot体育quot Combo1.AddItem quot上网quot Combo1.AddItem quot旅游quot End Sub 3、在窗体上画一个名称为HIS的水平滚动条和三个名称分别为c1c2c3标题分别为“左端”、居中、右端的命令按钮。

    请编写适当的事件过程使得在运行后如果单击“左端”命令时则滚动框位于滚动条最左端处如果单击“右端”则滚动框位于滚动条最右端处如果单击“居中”则滚动框位于滚动条中间处 用户界面 实验代码 Option Explicit Private Sub Command1_Click HScroll1.Value 0 End Sub Private Sub Command2_Click HScroll1.Value 50 End Sub Private Sub Command3_Click HScroll1.Value 100 End Sub 三、总结 通过本次实验掌握了窗体与常用控件的重要属性、事件和方法。

     第21页共31页 21 系 计算机与信息学院 专业 计算机应用技术 年级 05级 姓名 洪景泉 学号 051893067 计算机号 67 实验时间 2007、5、16 实验地点 综南附307 指导教师签字 黄红兵 实验七 常用控件二 一、实验目的和要求 掌握常用控件的重要属性、事件和方法 二、实验内容和原理 1.在窗体上画一个图片框和两个命令按钮。

    程序运行后如果单击“显示图片”命令按钮则在图片框装入一个用图形编辑软件画的简单图形。

    单击“清除图片”命令按钮则清除图片框的图形。

     用户界面 实验代码 Option Explicit 第22页共31页 22 Private Sub Command1_Click Image1.Picture LoadPicturequotD:pictureBentley Arnage 3.jpgquot End Sub Private Sub Command2_Click Image1.Picture LoadPicturequotquot End Sub 2. 在窗体上画4个图像框和一个文本框在每个图像框中装入一个箭头图形分为4个不同的方向把文本框的Multiline属性设置为TRUE。

    编写程序当单击某个图像框时在文本框中显示相应的信息。

     用户界面 实验代码 Option Explicit Private Sub Form_Load Image1.Picture LoadPicturequotD:picture1.bmpquot Image2.Picture LoadPicturequotD:picture2.bmpquot Image3.Picture LoadPicturequotD:picture3.bmpquot Image4.Picture LoadPicturequotD:picture4.bmpquot End Sub Private Sub Image1_Click Text1.Text quot单击向左箭头quot End Sub Private Sub Image2_Click Text1.Text quot单击向右箭头quot End Sub Private Sub Image3_Click Text1.Text quot单击向下箭头quot End Sub Private Sub Image4_Click Text1.Text quot单击向上箭头quot End Sub 第23页共31页 23 3. 编写一个模拟秒表操作的程序运行时的界面程序运行后单击“启动”.