VB上机实验指导书(3)

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

（