(最新版)vb实验报告范本doc

福建农林大学计算机与信息学院 （程序设计类课程） 实验报告

课程名称： Visual Basic程序设计教程

姓 名： 洪景泉

系： 计算机与信息学院

专 业： 计算机应用技术

年 级： 05级

学 号： 指导教师： 黄红兵 职 称： 讲师

2007年 6月 2 日 实验项目列表 序号 实验项目名称 成绩 指导教师 1 Visual Basic环境和程序设计初步 黄红兵 2 顺序程序设计 黄红兵 3 选择结构程序设计 黄红兵 4 循环结构程序设计及数组的运用 黄红兵 5 过 程 黄红兵 6 窗体和常用控件（一） 黄红兵 7 常用控件（二） 黄红兵 8 循环结构程序设计及动态数组的应用 黄红兵 9 综合实例（一） 黄红兵 10 综合实例（二） 黄红兵

系： 计算机与信息学院 专业： 计算机应用技术 年级： 05级 姓名： 洪景泉 学号： 计算机号 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 = "" End Sub

3、 创建一个“标准EXE”类型的应用程序。要求：程序运行时在屏幕上显示“欢迎您的到来！”，并输入您的名字。当按回车键时弹出对话框如下所示： 用户界面：

代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MsgBox "欢迎" + Text1.Text + "的到来" End If End Sub 4、 创建如图所示的应用程序，要求：单击“确定”按钮后，第一个文本框显示系统日期，第二个文本框显示星期。单击“退出”按钮则退出应用程序。 用户界面： 实验代码： Private Sub Command1_Click() Dim sum As Integer sum = Weekday(Now) Text1.Text = Date Select Case sum Case 1 Text2.Text = "日" Case 2 Text2.Text = "一" Case 3 Text2.Text = "二" Case 4 Text2.Text = "三" Case 5 Text2.Text = "四" Case 6 Text2.Text = "五" Case 7 Text2.Text = "六" End Select

End Sub Private Sub Command2_Click() End End Sub三、总结 通过本次实验熟悉了Visual Basic的集成开发环境（IDE）。掌握在窗体上添加控件的各种方法。掌握建立、编辑、运行和保存一个简单的Visual Basic应用程序的全过程。 系： 计算机与信息学院 专业： 计算机应用技术 年级： 05级 姓名： 洪景泉 学号： 计算机号 67 实验时间： 2007、4、4 实验地点： 综南附307 指导教师签字： 黄红兵 实验二 顺序程序设计 一、实验目的和要求 1.掌握常用内部函数的使用 2.掌握表达式 赋值语句的正确书写规则 3.掌握InpueBox和MsgBox的使用 二、实验内容和原理 1.创建如图所示的应用程序，要求：单击窗体显示如图所示的图形。 用户界面： 实验代码： 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 "※"; Else Print Spc(2); End If Next j Print Next i End Sub

2.创建如图所示的应用程序，要求：单击“放大”按钮后，将文本中显示的字符串放大２--３倍；若单击按钮“还原”按钮。则将文本框显示的字符串大小返原。 用户界面： 实验代码： Dim x Dim y Private Sub Command1_Click() y = Text1.FontSize x = Int(Rnd * 2 + 2) Text1.FontSize = x * y End Sub Private Sub Command2_Click() Text1.FontSize = y End Sub 3.创建如图的应用程序，要求：单击“确定”按钮后，弹出“是否继续”，若单击“是”，则文本框显示：“您按下的按钮是‘是’”；若单击按钮“否”，则文本框显示：“您按下的是‘否’”。单击“结束”，则退出应用程序。 用户界面：

实验代码： Private Sub Command1_Click() Dim x As Integer x = MsgBox("是否继续", 20, "MsgBox 信息显示窗口") If x = vbYex Then Text1.Text = "您按下的按钮是“是”" Else Text1.Text = "您按下的按钮是“否”" End If Text1.FontBold = True End Sub Private Sub Command2_Click() End End Sub 三、总结 通过本次实验掌握常用内部函数的使用，表达式 赋值语句的正确书写规则以及 InpueBox和MsgBox的使用 系： 计算机与信息学院 专业： 计算机应用技术 年级： 05级 姓名： 洪景泉 学号： 计算机号 67 实验时间： 2007、4、11 实验地点： 综南附307 指导教师签字： 黄红兵 实验三 选择结构程序设计 一、实验目的和要求 1、掌握If条件语句的使用。 2、掌握情况语句的使用，以及情况语句与多分支条件语句的使用区别。 二、实验内容和原理 1、请编一程序用于在期未时根据学生总分情况给予奖励，条件如下：四门总分不低于360（含360分），特等奖；四门总分320分（含320分）~360分（不含360分），优秀奖；单科成绩不低于95分，特别奖。 用户界面：

实验代码： Private Sub Command1_Click() Dim t1, t2, t3, t4, sum If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And IsNumeric(Text3.Text) And IsNumeric(Text4.Text) Then t1 = Val(Text1.Text) t2 = Val(Text2.Text) t3 = Val(Text3.Text) t4 = Val(Text4.Text) sum = t1 + t2 + t3 + t4 Label3.Caption = sum If sum >= 360 Then MsgBox "您获得了特等奖", 64, "获奖通知" ElseIf sum >= 320 And sum < 360 Then MsgBox "您获得了优秀奖", 64, "获奖通知" ElseIf t1 >= 95 Or t2 >= 95 Or t3 >= 95 Or t4 >= 95 Then MsgBox "您获得了特别奖", 64, "获奖通知" Else MsgBox "您要好好努力了！", 64, "通知" End If Label3.Caption = sum Else MsgBox "请输入数字", 16 End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Label3.Caption = "" End Sub 2. 输入X，Y，Z三个数，按从小到大的次序显示出来，运行结果如图：要求：程序中不得使用循环结构和转向语句；掌握两个数交换的方法 程序界面：