实 验 报 告 一

课 程 专业班级 姓 名 VB程序设计 学 号 实验项目 Visual Basic环境 顺序选择程序设计(4学时) 成 绩 指导教师 实验日期 实验目的

（1）熟悉Visual Basic6.0集成开发环境

（2）掌握Visual Basic程序的开发过程，能够运行一个完整的Visual Basic程序 （3）掌握常用函数的使用方法 （4）掌握常用输入、输出语句

实验内容

一、VB环境和顺序结构

【实验1】设计一个简单VB程序（20分）

它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为\Basic 程序设计示例\，当用户单击命令按钮“显示”时，文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”，单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容，单击命令按钮“结束”时，结束程序。

通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动

实验结果：

【请将你的代码粘贴到下面】 Private Sub Command1_Click() Text1.Text = \欢迎使用Visual Basic 6.0\Print \你好\End Sub

1

Private Sub Command2_Click() Text1.Text = \Cls End Sub

Private Sub Command3_Click() End End Sub

【请将你的典型结果的截图粘贴到下面】

【实验2】分别定义八个变量，变量名为：var1、var2、var3、var4、var5、var6、var7、var8，变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。（20分）

通过该程序掌握变量的定义、变量名与变量值的含义。

2

实验结果：

【请将你的代码粘贴到下面】 Option Explicit

Private Sub Form_Click() Dim var1 As String Dim var2 As Integer Dim var3 As Long Dim var4 As Single Dim var5 As Double Dim var6 As Currency Dim var7 As Boolean Dim var8 As Date

var1 = \ var3 = 30000: var4 = 1.005 var5 = 3.1415926: var6 = 100.1234 var7 = True: var8 = #5/1/2015# Print

Print \变量名：\ab(15); \ab(30); \ab(40); \ab(50); \ Print \变量值：\ab(15); var1; Tab(30); var2; Tab(40); var3; Tab(50); var4 Print \变量类型：\ab(15); TypeName(var1); Tab(30); TypeName(var2); Tab(40); TypeName(var3); Tab(50); TypeName(var4) Print

Print \变量名：\ab(15); \ab(30); \ab(40); \ab(50); \ Print \变量值：\ab(15); var5; Tab(30); var6; Tab(40); var7; Tab(50); var8 Print \变量类型：\ab(15); TypeName(var5); Tab(30); TypeName(var6); Tab(40); TypeName(var7); Tab(50); TypeName(var8) End Sub

Private Sub Form_Load()

Form1.Caption = \变量的定义与赋值\ Form1.FontSize = 13

3