vb上机实验
zhouchang = 2 * pi * r
s2 = \半径=\圆的周长=\ MsgBox s2, 64, \确认窗口\
End Sub (4)．运行程序
单击工具栏上的“启动”按钮，进入运行模式。单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图3－3所示。
(a)
(b) (c)
图3－3 计算圆的周长
2．实验内容 (1)．设计界面
初始界面如图3－4所示。 (2)．设置属性
表3－1 属性设置
Form1
对象
属性 Caption
属性值 求三角形的面积
11 zjh
vb上机实验
图3-4 初始界面
(3)．编写程序代码
Private Sub Form_click()
Dim a As Single, b As Single, c As Single Dim s As Single, p As Single
a = InputBox(\请输入三角形的边a：\输入\b = InputBox(\请输入三角形的边b：\输入\c = InputBox(\请输入三角形的边c：\输入\
If (a + b <= c Or a + c <= b Or b + c <= a) Or (Abs(a - b) >= c Or Abs(a
- c) >= b Or Abs(b - c) >= a) Then
MsgBox (\你输入的数据有误！\Else
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c)) Print \三角形的面积为：\End If End Sub （4） 运行程序 如图3—5（a）（b）（c）（d）所示
(a) (b)
（c） （d）
图3－5 计算三角形的面积
12 zjh
vb上机实验
实验四 选择结构
【实验目的】
1．掌握逻辑表达式的正确书写形式。
2．掌握单分支与双分支条件语句的用法，熟悉If?.Then?..Else语句。 3．掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句。
【实验内容】
1. 编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示：设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。
2．输入一个数字（0-6），用中英文显示星期几。提示：用多条件多分支选择语句Select Case来解决。
【实验步骤与指导】
1．实验内容 （1）建立用户界面。 （2）设置对象属性。
表4－1 属性设置
对象 Frame1 Text1 Label1 属性 Caption Text PasswordChar Caption FontName fontSize （3）编写事件代码。
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '回车字符的Ascii为13
If Text1.Text = \
Label1.Caption = \欢迎使用本系统！\ Else
属性值 请输入您的密码： * 黑体 三号 说明 清空 只显示字符“*” 字体名称 字体大小 13 zjh
vb上机实验
Label1.Caption = \对不起，密码错！\ End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If End Sub （4）运行程序
程序输出界面如图4－1，图4－2所示。
图4－1 验证密码正确 图4－2 验证密码不正确
2．实验内容
（1）建立用户界面。参考图4－3所示。
图4－3 界面设计
（2）设置对象属性。
14
zjh
vb上机实验
表4－2 属性设置
对象 属性 属性值 说明 Form1 Caption 星期 Label1 Caption 输入一个数字（0-6） Label2 Caption 空 BorderStyle 1-Fixed Single 边框样式 Caption 星期 Default True 缺省命令按Command1 钮 Text1 Text “” 空 3）编写事件代码。
Private Sub Command1_Click() Dim n As Integer, m As String n = Val(Text1.Text) Select Case n
Case 1
m = \星期一（Monday）\Case 2
m = \星期二（Tuesday）\Case 3
m = \星期三（Wednesday）\Case 4
m = \星期四（Thursday）\Case 5
m = \星期五（Friday）\Case 6
m = \星期六（Saturday）\Case 0
m = \星期日（Sunday）\Case Else
m = \重新输入\
End Select
Label2.Caption = m
End Sub
程序输出界面如图4－4所示。
15 zjh
（