第九章VBNET 程序设计基础.PPT

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Val(TextBox1.Text) = result Then TextBox2.Text = tm TextBox1.Text Space(3) √ vbCrLf dtok += 1 Else TextBox2.Text = tm TextBox1.Text Space(3) × vbCrLf dterr += 1 End If 产生下一道题目 Randomize() N1 = Int(10 * Rnd() + 1) N2 = Int(10 * Rnd() + 1) NOp = Int(4 * Rnd() + 1) Select Case NOp Case 1 Op = ＋ : result = N1 + N2 Case 2