实验33.docVIP

实验33 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t As Integer, f As Single, x As String t = Val(TextBox1.Text) f = 7.69 * t x = Str$(f) + 元 Label2.Text = x TextBox1.Focus() End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load TextBox1.Text = Label2.Text = End Sub End Class Public Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer If TextBox1.Text = Then TextBox1.Focus() 在文本框1输入身高 MsgBox(请输入身高) Exit Sub End If If TextBox2.Text = Then TextBox2.Focus() 在文本框2输入体重 MsgBox(请输入体重) Exit Sub End If 选择性别 If RadioButton1.Checked = False And RadioButton2.Checked = False Then 此种情况不会发生 MsgBox(请选择被检测者性别) Exit Sub End If If RadioButton1.Checked = True Then x = Val(TextBox1.Text) - 100 计算男性体重 ElseIf RadioButton2.Checked = True Then x = Val(TextBox1.Text) - 105 计算女性体重 End If 判断体重是否超标，并显示 If Val(TextBox2.Text) x Then Label3.Text = 体重超标，请注意饮食与运动！ Else Label3.Text = 体重正常 End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 清除计算体重和超标提示 Label3.Text = : TextBox1.Text = : TextBox2.Text = RadioButton1.Checked = False : RadioButton2.Checked = False End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End 结束工程运行 End Sub End Class Public Class Form3 Dim x As Integer, varstring As String Private Sub Form1_Load(ByVa