第九章VB.NET程序设计基础.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 Op = － : result = N1 - N2 Case 3 Op = × : result = N1 * N2 Case 4 Op = ÷ : result = N1 / N2 End Select tm = N1 Op N2 = Label1.Text = tm TextBox1.Text = End Sub * 双击form1窗体上的“计分”按钮控件，在出现的代码窗口中，默认的事件过程是Button1_Click事件(鼠标单击时发生的事件)，在“sub”和“End Sub”之间输入如Button1下语句：（在文本框输入答案后按“确定”按钮，在TextBox2显示正确与否的结果。同时产生下一道题目，这段程序与Form1_Load相同，也可通过过程调用合为一个。） ‘当单击“计分”按钮，计算机显示得分结果。 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = TextBox2.Text = ---------------------- vbCrLf TextBox2.Text = 一共计算 (dtok + dterr) 道题 vbCrLf TextBox2.Text = 得分： CInt(dtok / (dtok + dterr) * 100) 分 vbCrLf End Sub * 双击form1窗体上的“退出”按钮控件，在出现的代码窗口中，默认的事件过程是Button1_Click事件(鼠标单击时发生的事件)，在“sub”和“End Sub”之间输入如Button1下语句：End 即可。 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click End End Sub * 注意： (1)?在本程序中为了减少程序量，没有考虑输入非法数据，也没考虑当除法时分母为零?(本例不会产生分母为零的数)的情况。 (2)?显示的“√”和“×”可通过中文输入法状态栏，右键单击软键盘选择“数学符号”菜单中的对应符号。 * * 代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer a = InputBox(输入一个数) If a Mod 2 = 1 Then MsgBox(a 是奇数) Else MsgBox(a 是偶数)