（1）用Print方法：设置窗体的前景色为红色。
（2）用一个标签控件：设置标签控件的前景色为红色。
【思考】为什么在以上两种方法中在颜色的设置问题上有所不同？3 通过编程修改控件的属性。
【要求】（1）进入程序设计的界面如图1-1（a）。
（2）点击“单击此处”按钮后程序运行的界面如图1-1(b)。
【步骤】（1）在窗体中创建一个标签Label1、一个命令按钮Command1。
（2）在属性窗口中设置对象的属性：对象名称属性名称属性值Form1 Caption 设计界面Label1 Caption 请留意此处3．掌握输入、输出对话框（InputBox和MsgBox）的基本使用方法。
二、实验内容1假设有变量a=2,b=5,c=4,d=3,e=6，编写程序，计算表达式a+b>c and d*a=e的值，将结果打印在窗体上。
【提示】注意复合表达式的运算顺序。
【思考】复合表达式按什么样的顺序运算？2编写程序，界面如图2-1所示。
使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签Label1上，再求出该数的正弦值，将结果写在标签Label2上。
【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1、两个标签Label1和Label2。
始化。
（2）产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下限。
（3）求正弦值函数为：sin()。
【思考】怎样产生一个[60,90]之间的随机数？3 编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-2所示。
其中F与C之间的关系为：3259+=CF。
【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2、两个标签Label1和Label2、两个文本框Text1和Text2。
（2）设置对象的属性对象名称属性名称属性值Form1 Caption 温度转换4 求圆的面积及圆柱体的体积，界面如图2-3所示。
【步骤】（1）设计应用程序的界面：在窗体上创建两个命令按钮Command1和Command2，四个标签Label1、Label2、Label3和Label4，四个文本框Text1、Text2、Text3和Text4。
（2）设置对象的属性对象名称属性名称属性值Command1 Caption 求圆的面积Command2 Caption 求圆柱的体积Label1 Caption 圆的半径Label2 Caption 圆柱的高Label3 Caption 圆的面积Label4 Caption 圆柱的体积TextText1、Text2、Text3、Text41．掌握逻辑表达式的正确使用方法。
2．掌握单分支、双分支和多分支条件语句结构的使用方法。
二、实验内容 1 有函数：⎪⎩⎪⎨⎧≥-<≤-<=)10(124)101(23)1(x x x x x xy写一个程序，输入x 值后，则输出相应y 值。
要求用“If…ElseIf…EndIf ”和用“Select Case ”两种方法完成该题目。
【提示】注意区分1≤x<10和1<=x And x<10有什么不同。
2编写一个判断给定坐标在第几象限的程序，界面如图3-1所示。
【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮ElseIf y > 0 ThenLabel1.Caption = "在第二象限"ElseLabel1.Caption = "在第三象限"End IfEnd IfEnd Sub（4）程序的运行及保存。
3 编写一个网吧收费程序。
【要求】（1）运行界面如图3-2所示。
（2）网吧基本收费为2元/小时。
（3）根据不同的上机时数x，上机费用y可以按以下公式计算收费：【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，两个标签Label1和Label2，两个文本框Text1和Text2。
（2）设置对象的属性对象名称属性名称属性值Command1 Caption 计费Label1 Caption 上机时数Label2 Caption 上机费用Text1、Text2 Text（3）编写事件代码：Private Sub Command1_Click()Dim x!, y!x = Val(Text1)If x < 3 Theny = 2 * xElseIf x < 5 Theny = 2 * 0.9 * xElseIf x < 10 Theny = 2 * 0.8 * xElsey = 2 * 0.75 * xEnd IfText2 = Str(y)End Sub（4）程序的运行及保存。
4 输入某学生的某科目考试成绩（100分制），输出该学生的成绩等级。
90分以上为“优秀”，80～89分为“良好”，70～79分为“中等”，60～69分为“及格”，60分以下为“不及格”。
【步骤】（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1，两个标签Label1和Label2，两个文本框Text1和Text2，如图3-3所示。
【步骤】（1）编写事件代码：Private Sub Form_Click()Dim i%ClsFor i = 1 To 10Print String(i, "*")Next iEnd Sub（2）程序的运行及保存。
【提示】使用String（）函数，String（）函数可以重复显示某个字符串。
例如，String（4，"*"）可以生成4个连续的“*”，即“****”。
2编写程序，用单循环在窗体上实现如图4-2所示的图形。
【步骤】（1）编写事件代码：Private Sub Form_Click()Dim i%ClsFor i = 9 To 0 Step -1Print Spc(10 - i); String(2 * i + 1, Trim(Str(i)))Next iEnd Sub（2）程序的运行及保存。
【提示】（1）注意观察图形的规律：第I行在输出时是m个空格＋n 个字符x，其中m、n、x均和I有关系。
（2）配合Print方法使用Spc（n）函数，其作用是产生n 个连续的空格。
（2）设置对象的属性对象名称属性名称属性值Command1 Caption 翻一番Label1 Caption 现有产值Label2 Caption 元Label3 Caption 年增长率Label4 Caption %Label5 Caption 经过Label6 Caption 年Label7 Caption 产值为：Label8 Caption 元Text1～Text4 Text（3）编写事件代码：7使用双重循环，输出“九九乘法表”，如图4-4所示。
【步骤】（1）界面设计：在属性窗口将窗体Form1的Caption属性设置为“九九乘法表”。
图4-4 实验4-7程序运行界面（2）编写事件代码：Private Sub Form_Click()Dim i%, j%Dim str As StringPicture1.PrintFor i = 1 To 9For j = 1 To istr = i & "¡Á" & j & "=" & i * jPicture1.Print Tab((j - 1) * 9 + 1); str;Next jPicture1.PrintNext iEnd Sub（3）程序的运行及保存。
【提示】（1）注意行号和该行乘法单元的个数之间的关系。
（2）注意乘法单元的规律：“4×3＝12”中4为行号，3为列号，且列号不大于行号。
（3）乘号“×”可从汉字输入法软键盘菜单的“数学符号”中找到；或从Word 中菜单【插入】->【符号】中找到，再从Word 中剪切或复制到VB 代码中。
（4）可以将窗体的AutoRedraw 属性设为True ，以防初始大小的窗体显示不下全部内容。
8 显示所有的水仙花数。
所谓水仙花数，就是指一个3位正整数，其各位数字的立方和等于该数本身。
例如，333351153++=，153即为水仙花数。
【步骤】（1）界面设计：在窗体上创建一个图形框Picture1。
（2）编写事件代码：Private Sub Picture1_Click() Dim i% Picture1.Cls实验五数组及其应用一、实验目的1．掌握数组的基本概念。
2．掌握数组的声明、引用。
3．掌握静态数组和动态数组的区别。
4．掌握控件数组。
4．掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。
二、实验内容1随机产生10个0～100之间（包括0和100）的整数，存放在一个数组中，然后求各元素之和、平均值，统计大于平均值的元素个数并把它们打印出来，如图5-1所示。
RandomizePicture1.ClsPicture2.ClsText1 = ""Text2 = ""For i = 1 To 10a(i) = Int(Rnd * 101)Picture1.Print a(i);Next iEnd Sub（4）程序的运行及保存。
2 编写一个程序，删除数组中某个元素，如图5-2所示。
【步骤】【步骤】（1）设计应用程序的界面：在窗体上创建一个图形框Picture1，三个标签Label1、Label2和Label3，三个文本框Text1、Text2和Text3。
（2）设置对象的属性对象名称属性名称属性值Label1 Caption 最大元素Label2 Caption 行号Label3 Caption 列号TextText1、Text12、Text3（3）编写事件代码：Option Base 1Private Sub Form_click()Dim a(4, 5) As Integer, i%, j%, max%, max_i%,（1）设计应用程序的界面：在窗体上创建一个命令按钮Command1；七个标签Label1～Label7，四个文本框Text1～Text4，如图6-1所示。
图6-1 实验6-1的运行界面图（2）设置对象的属性对象名称属性名称属性值Command1 Caption 求和Label1 Caption A的值Label2 Caption B的值Label3 Caption C的值Label4 Caption 和Label5 Caption +Label6 Caption +Label7 Caption =Text1～Text14 Text（3）编写事件代码：图7-1 实验7-1程序运行界面2在实验7-1的基础上，用计时器控件实现在窗体的标题栏上显示当前系统的日期和时间信息，刷新周期为1秒种。