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

  • 3
  • 0
  • 约3.33千字
  • 约 4页
  • 2019-10-09 发布于未知
  • 举报

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

实验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

文档评论(0)

1亿VIP精品文档

相关文档