实 验 报 告
姓名赵添麟 班级 0811121 学号 06 实验日期 2013-03-15 课程名称 VB 程序设计 指导教师 伍建青 成绩
实验名称：简单编码的程序设计
实验目的
1）掌握数据基本类型和表达式的运算。 2）熟悉数值和字符串处理的简单程序设计。 3）掌握常用函数的使用方法。 实验环境
Visual Studio 2008 实验内容
1）计算三角形面积
实验3.1 分别输入三条边的边长a，b和c，单击“计算”命令按钮，首先判断能否形成三角形，然后按公式计算出三角形的面积，保留小数2位。程序运行界面如图所示。 ①控件的主要属性：（ 要求列出所有控件） ②程序代码：Dim a, b, c As Single
Dim p, s As Double
a = Val(TextBox1.Text) : b = Val(TextBox2.Text) : c = Val(TextBox3.Text)
If Not (IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text)) Then Label4.Text = \"边必须是数字\"
ElseIf (a + b) > c And (a + c) > b And (b + c) > a Then p = (a + c + b) / 2
s = Math.Sqrt(p * (p - a) * (p - b) * (p - c)) Label4.Text = \"能形成三角形\"
Label5.Text = \"三角形面积是：\" & Format(s, \"0.00\") Else
Label4.Text = \"无法形成三角形\" End If
图 计算三角形面积
2）随机函数
实验3.2 输入“随机生成自然数”的范围，单击“生成自然数”命令按钮，显示该范围内的一个随机自然数；选择“小写”或“大写”单选按钮，单击“生成英文字母”命令按钮，显示随机生成的一个英文字母。程序运行界面如图所示。 ①控件的主要属性：
②程序代码：Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click Dim a, b, c As Integer
If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then a = Val(TextBox1.Text) : b = Val(TextBox2.Text) c = Int(Rnd() * (b - a + 1) + a) Label2.Text = \"生成结果：\" & c
图 随机函数
实 验 报 告
姓名赵添麟 班级 0811121 学号 06 实验日期 2013-03-15 课程名称 VB 程序设计 指导教师 伍建青 成绩
Else
MsgBox(\"必须输入数字\", MsgBoxStyle.Exclamation) End If End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a As Integer a = Int(Rnd() * 26 + 1) If RadioButton1.Checked Then
Label3.Text = \"生成结果：\" & Chr(a + 96) End If
If RadioButton2.Checked Then
Label3.Text = \"生成结果：\" & Chr(a + ) End If End Sub
实验小结（调试与分析出错情况及解决方法）
1. 编写实验3.2时，容易漏掉Randomize()语句，这样容易使个别数据出现频率过高。每次运行时要初始化随机数生成器。
