程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第7章实验答案.docVIP

实验7-1： Private Sub C1_Click() If Text1 = 123456 Then Text1.Text = 口令正确 Text1.Passwordchar = Else Text2.Text = Text2.Text - 1 If Text2.Text 0 Then MsgBox 第 (3 - Text2.Text) 次口令错误，请重新输入 Else MsgBox 3次输入错误，请退出 Text1.Enabled = False End If End If End Sub 实验7-2： Option Explicit Dim flg As Integer Private Sub Calculate_Click() If flg = 1 Then txtweight = txtheight - 105 Else txtweight = txtheight - 100 End If End Sub Private Sub Exit_Click() End End Sub Private Sub Op1_Click() fl