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

福建农林大学计算机与信息学院

（程序设计类课程）

实验报告

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

姓名：洪景泉

系：计算机与信息学院

专业：计算机应用技术

年级：05级

学号：

指导教师：黄红兵

职称：讲师

2007年6月 2 日

实验项目列表

系：计算机与信息学院专业：计算机应用技术年级： 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