实验一 Visual Basic程序设计初步
一、实验目的
1． 了解Visual Basic系统对计算机软、硬件的要求。 2． 掌握Visual Basic的启动和退出方法。 3． 熟悉Visual Basic的集成开发环境。
4． 掌握建立、编辑、运行、调试和保存一个简单的Visual Basic应用程序的全过程。 5． 掌握常用控件（窗体、文本框、标签、命令按钮）的应用。
二、实验内容
实验1.1 启动Visual Basic 6.0，创建一个“标准EXE”类型的应用程序。 【实验要求】
1．通过在属性窗口中对各控件属性进行设置而不编写代码，程序运行后，在屏幕上显示“欢迎您使用Visual Basic6.0”与“请输入您的姓名”，屏幕设计的界面如图1-1所示。
图1-1 实验1.1运行时的界面
2．分别以sy1-1.frm和sy1-1.vbp为文件名保存窗体文件和工程文件。 【实验步骤】
1. 进入VB环境，执行“文件”→“新建工程”命令，在其对话框中选择“标准EXE”。 2. 在窗体上建立两个标签、一个文本框；在属性窗口中对各控件属性进行设置，见表1.1。
表1.1 属性设置
控件名 属 性 设 置 Form1 Label1 Label2 Text1
Caption=\欢迎使用\Caption=\欢迎使用Visual Basic 6.0\FontSize（大小）=16,FontBold（粗体）=True Caption=\请输入您的姓名\，ForntSize=14， FontItalic（斜体）=True FontUnderline（下划线）=True Text= （空白） - 1 -
3．执行“运行”→“启动”命令或单击工具栏上的运行按钮“4. 光标放置在Text1中，这时您可输入您的姓名；
5．执行“文件”→“保存”命令或单击工具栏上的保存按钮“和sy1-1.vbp为文件名保存窗体文件和工程文件。
提示：
”，运行程序； ”，分别以sy1-1.frm
（1）两个标签内的字体大小、字形和字体效果等，均可在标签的属性窗口中通过点击Font属性行右边的按钮“控件的宽度缩小即可。
实验1.2 通过编程修改控件的属性。 【实验要求】
1. 程序的设计界面如图1-2（a）。
2. 点击“单击此处”按钮后程序运行的界面如图1-2（b）。
”打开字体对话框进行设置。
（2）在label1控件中，实现“欢迎使用Visual Basic 6.0”在两行显示，只须将label1
（a） （b）
图1-2 实验1.2运行界面
【实验步骤】
1. 进入VB环境，执行“文件”→“新建工程”命令，在其对话框中选择“标准EXE”。 2. 在窗体中建立一个标签与一个命令按钮，在属性窗口中对各控件属性按表1.2“属性设置值”列的要求进行设置。
3．双击“单击此处”按钮（或者单击“视图”→“代码窗口”命令）调出代码窗口，在对象下拉列表框中选取控件对象名Command1，在事件下拉列表框中选取Click事件，进入命令按钮Click事件过程。
4．在Commamd1_click()事件中编写代码，按表1.2“属性修改”列的要求修改各控件属性。
5．执行“运行”→“启动”命令，运行程序，如无错转入下一步。 6. 执行“文件”→“保存”命令或单击工具栏的保存按钮“
和sy1-2.vbp为文件名保存窗体文件和工程文件。
表1.2 对象属性设置和修改
控件名 Form1 Label1 Command1 - 2 -
属性设置值 Caption=\设计界面\ Caption=\请留意此处\ Caption=\单击此处\ 属性修改值 Caption=\编程后界面\ Caption=\欢迎您使用VB6.0！\ Caption=\运行结果\ ”，分别以sy1-2.frm
实验二 VB语言基础
一、实验目的
1. 掌握VB的基本数据类型，熟悉VB中常量的使用与变量的定义。
2. 掌握VB的基本运算，包括算术运算、关系运算和逻辑运算等，熟悉各种运算符的含义、优先级别及使用方法。
3. 掌握表达式的正确书写规则，并通过上机操作验证各种表达式值的正确性。4. 掌握常用内部函数的使用。
5. 进一步熟悉Visual Basic的集成开发环境。
二、实验内容
实验2.1 在窗体中分别输出一个整型、单精度型、字符型和逻辑型的数据。【实验要求】
1. 先定义各种类型的变量，把各种常量值赋给相应变量后再输出。 2. 改变各种变量的值后输出。 【实验步骤】
1．在窗体的单击事件过程中输入以下代码： Private Sub Form_Click()
Print 123, 56.78, \
End Sub 2．运行此程序，单击窗体，观察运行结果。 3．把窗体的单击事件过程代码修改为： Private Sub Form_Click()
Dim a As Integer,b As Single,c As String,d As Boolean
a=100 b=3.657 c=\中国桂林\d=True Print a,b,c,d End Sub
4．运行此程序，单击窗体，观察运行结果。
实验2.2 设a= 12,b=3,c=5.6 ,d=8.2,求下列表达式的值： （1）a\\c+b^3 Mod c*d
（2）a>b And c>d Or b 1．掌握各种运算符的含义及其运算的优先规律。 2．在立即窗口中输出各表达式的值。 - 3 - 【实验步骤】 1．在VB开发环境中，单击“视图”菜单，执行“立即窗口”命令（或按“Ctrl+G”2．在立即窗口中输入： a=12 b=3 c=5.66 d=8.12 print a\\c+b^3 Mod c*d print a>b And c>d Or b 实验2.3 设x=100，A=\，B=\，求下列函数的值。 （1）Sqr(100) (2) Val(A) (3) Mid$(B,7,5) (4) Asc(Mid(B,5,1)) 【实验要求】 1. 掌握各种函数的含义及应用。 2. 在窗体中输出各函数的值。 【实验步骤】 1. 在窗体Form_Click的事件过程中输入以下代码： x=100 A=\ B=\Print Sqr(x) Print Val(A) Print Mid$(B,7,5) Print Asc(Mid(B,5,1)) 2. 运行程序，单击窗体，观察输出结果。 3. 修改数据及代码，对其他常用函数如Abs、Chr、Str等进行求值输出。 实验2.4 利用随机函数Rnd 生成1~31之间的任意整数（包括1和31）。 【实验要求】 1. 掌握随机函数及其他常用函数的书写格式。 2. 熟悉随机函数与Int函数配合使用生成任意整数的方法产生一定范围内的随机整数。该方法为：Int（Rnd*（上限-下限+1）＋下限）。 【实验步骤】 1. 在立即窗口中输入： n= Int（Rnd*31+1） Print n 2. 按回车键后，观察n的值。 3. 重复上述步骤1和步骤2，再观察随机数n的值是否发生了变化。如果n值不变化，输入语句Randomize使随机数发生改变。 - 4 - 组合键），弹出“立即”窗口。 4. 修改程序生成55~88之间的任意整数。 实验2.5 格式输出函数Format的使用。 【实验要求】 1. 掌握格式输出函数Format的格式。 2. 能够按照指定格式要求，熟练使用格式输出函数Format正确输出数值型数据、字符型数据和时间/日期型数据等。 【实验步骤】 1．在窗体的单击事件过程中输入以下代码： Private Sub Form_Click() Print Format（12345,\） Print Format（12345,\） Print Format（12345，\） Print Format（185.469,\） Print Format（185.469,\） Print Format（12345.66,\） Print Format（0.1235,\） Print Format（1234.5,\） Print Format（123.456,\） Print Format（123.456,\） End Sub 2．运行此程序，单击窗体，观察运行结果。 3．把窗体的单击事件过程代码修改成如下形式： Private Sub Form_Click() Print Format（\） Print Format（\） Print Format（\） Print Format（\） End Sub 4．运行此程序，单击窗体，观察运行结果。 5．把窗体的单击事件过程代码修改成如下形式： Private Sub Form_Click() T1 = Time D1 = Date Print Format(D1, \ Print Format(D1, \－dddd－yyyy\Print Format(T1, \－m－s AM/PM\Print Format(T1, \：mm：ss A/P\Print Format(D1, \Print FormatDateTime(Now, 4) Print Now End Sub 6．运行此程序，单击窗体，观察运行结果。 - 5 -