chap7（常用标准控件）.pptVIP

* * * * * * * * * * * 例题 ☆ * 例 设计一个加法速度测试程序，当用户单击“开始”按钮后，开始计时，并在文本框1、2中显示随机产生的被加数和加数。用户在文本框3中输入答案，按回车键后程序在答案后面给出“√”“╳”指示对错。1分钟后统计出题数量和做对数量。用户可单击“继续”按钮继续测试或关闭窗口退出程序。 * 文本框 3 时钟 1 命令按钮 1 CmdStart 标签 5 lbljudge 、LblCount Dim a As Integer, b As Integer Private Sub Form_Load( ) Text1.FontSize = 30 : Text2.FontSize = 30 Text3.FontSize = 30 : LblJudge.FontSize = 30 Text1.text= ： text2.text= : text3.text= cmdStart.caption= 开始 Lblcount.caption = : Lbljudge.caption = End Sub * Private Sub CmdStart_Click( ) a = 0 : b = 0 : Randomize Text1.Text = Int(100 * Rnd + 1) Text2.