广州大学学生实验报告
开课学院及实验室： 计算机楼301A 20##年11 月 28日
--
第二篇：Visual Basic程序设计实验报告
Visual Basic程序设计实验(本科)教学大纲
实验课程名称：Visual Basic程序设计实验
课程性质：基础必修
适用专业：理工科各专业
实验总学时： 48 学分数：4（含理论）
教材：《Visual Basic程序设计方法》 李敬有主编 北京航空航天大学出版社
参考书：《Visual Basic程序设计》 邓文新主编 北京航空航天大学出版社
一、实验教学目标与要求：
目标：以Visual Basic 6.0中文版为语言背景，通过实验进一步理解程序设计的基本知识，掌握可视化程序设计的基本思想以及会用VB开发工具设计一些实用的应用程序。重点培养学生的编程能力、理论联系实际的能力、程序的调试能力及创新能力。
要求：注意自始至终贯彻课程中所介绍的程序设计风格，养成良好的编程习惯。事先预习设计好程序，上机过程中能顺利完成程序的调试，独立完成所布置的上机作业。
二、实验课程具体内容：
第一次实验报告
课程名称：Visual Basic 程序设计实验
实验项目：VB集成开发环境
实验室：15J13室（504）
机器编号：
班级：数学072
姓名：姓名 (学号 )
实验日期：20##年3月8日
目的:
1.熟悉VB集成开发环境的组成及设置；
2.掌握VB的启动、退出方法；
3.掌握VB创建工程的基本步骤。
软硬件环境：
硬件：cpu主频：2.4GHz,内存：256M，硬盘：80G
软件：Windows 2000操作系统，Visual Basic 6.0
内容:
1.练习VB的启动、退出方法；
2.利用“视图”菜单显示属性窗口、代码窗口、工程资源管理器窗口、工具箱等；
3.建立一个简单的VB程序，运行并保存；
4.通过“工具”菜单的“选项”命令设置VB环境。
实验数据记录
第二次实验报告
课程名称：Visual Basic 程序设计实验
实验项目：基本控件
实验室：15J13室（504）
机器编号：
班级：
姓名：
实验日期：20##年3月23日
实验目的：
掌握常用控件（标签、文本框、命令按钮）的属性、事件和方法。
软硬件环境：
硬件：主频：2.4GHz,内存：256M，硬盘：80G
软件：Windows 2000操作系统，Visual Basic 6.0
实验内容:
1. 在运行窗体时，显示“学生管理系统”，当用户单击窗体时，显示“欢迎使用本系统”，当用户双击窗体时，显示“再见！”；
操作方法：启动VB后，创建一个EXE工程，
（1） 在FORM1上属性设置，将AutoRedraw设置为True.
（2） 打开代码窗口书写代码
Private Sub Form_Click()
Print "欢迎使用本系统"
End Sub
Private Sub Form_DblClick()
Print "再见"
End Sub
Private Sub Form_Load()
Print "学生管理系统"
End Sub
(3) 运行程序
（4）保存窗体和工程
2.利用两个标签控件，显示具有浮雕效果的文字；
3.为窗体插入图片并移动具有浮雕效果的文字；
4.利用随机函数对控件字体大小进行设置。
实验数据记录
1． 程序运行后窗体上出现 “”
单击窗体时
双击窗体时
第三次实验报告
课程名称：Visual Basic 程序设计
实验项目：顺序结构及选择结构
实验室：15J11室（501）
机器编号：
班级：生物061
姓名：姜磊 (2006052011 )
实验日期：20##年4月5日
实验目的：
软硬件环境：
硬件：主频：2.4GHz,内存：256M，硬盘：80G
软件：Windows 2000操作系统，Visual Basic 6.0
实验内容:
1.设计一个计算学生成绩的程序。程序功能为：用户在3个文本框中分别输入英语、计算机与数学成绩，单击命令按钮后，平均成绩输出到窗体上；
（1）.界面设计如下，在窗体上加三个标签，三个文本框，一个命令按钮，属性设置如下表
（2）．代码设计
Dim yy%, xs%, jsj%, pj!
Private Sub Command1_Click()
yy = Text1.Text
jsj = Text2
xs = Text3
pj = (yy + xs + jsj) / 3
Print "ƽ¾ù·ÖΪ£º", pj
End Sub
（3）运行
（4）保存
2.编写一个华氏与摄氏温度之间转换的程序，使用的转换公式是：F=9/5*C+32；
3.判定用户输入的数据是正数、负数还是零；
4.将百分制学生的成绩转换成5分制（“A”，“B”，“C”，“D”，“E”）。
实验数据记录
1．设计时界面如下
运行程序，在三个文本框分别输入成绩96，98，94，单击“平均分”按钮后，如下图
第四次实验报告
课程名称：Visual Basic 程序设计
实验项目：循环结构
实验室：15J11室（501）
机器编号：
班级：生物061
姓名：姜磊 (2006052011 )
实验日期：20##年4月12日
实验目的：
1.掌握while语句、do…while语句、for语句实现循环程序设计的方法；
2.掌握循环嵌套的使用方法；
3.熟悉分支结构与循环结构的综合运用。
实验内容:
1.求1~100之间所有能被7整除的数之和；
s = 0
For i = 1 To 100
If i Mod 7 = 0 Then
Print i
s = s + i
End If
Next
Print "100以内能被7整数的数和是", s
2.求两个数的最大公约数；
3.求Fibonacci数列的前20项；
4.求1000以内的水仙花数；
5.输出由“*”构成的菱形；
6.求100以内的所有素数。
7.输出九九乘法表。
判别一个数是否为素数
'方法一:用是否除完判别
Dim x%, i%, flag As Boolean
Private Sub Command1_Click()
x = InputBox("输入一个整数")
For i = 2 To x - 1
If x Mod i = 0 Then Exit For
Next
If i > x - 1 Then
Print x, "是素数"
Else
Print x, "不是素数"
End If
End Sub
'方法 二:用标志判别
Private Sub Command2_Click()
flag = True
x = InputBox("输入一个整数")
For i = 2 To x - 1
If x Mod i = 0 Then flag = False: Exit For
Next
If flag = True Then
Print x, "是素数"
Else
Print x, "不是素数"
End If
End Sub
1 1 2 3 5 8 ]
135=1