《设计一个由计算机来当小学低年级学生算术老师的VB应用程序.docx》由会员分享，可在线阅读，更多相关《设计一个由计算机来当小学低年级学生算术老师的VB应用程序.docx（3页珍藏版）》请在三一办公上搜索。
1、设计一个由计算机来当小学低年级学生算术老师的VB应用程序Public Class Form1 Private Class tm Dim ys1 As Integer Dim ys2 As Integer Enum ysf add = 1 加 subtract = 2 减 ride = 3 乘 except = 4 除 End Enum Dim ys As ysf = ysf.add Dim da As Single Dim sj As Random = New Random ReadOnly Property yss As String Get yss = ys1.ToString & & C
2、hoose(ys, +, -, *, ) & & ys2.ToString & = Exit Property End Get End Property ReadOnly Property daf As String Get Return Trim(da.ToString) End Get End Property Public Sub New ys1 = Int(sj.Next(0, 10) ys2 = Int(sj.Next(0, 10) ys = Int(sj.Next(1, 5) If ys = ysf.except Then 除法，生成能整除的运算 Do If ys2 = 0 The
3、n ys2 = Int(sj.Next(1, 10) If ys1 / ys2 = ys1 ys2 Then Exit Do ys1 = Int(sj.Next(0, 10) ys2 = Int(sj.Next(1, 10) Loop End If Select Case ys Case ysf.add da = ys1 + ys2 Case ysf.subtract da = ys1 - ys2 Case ysf.ride da = ys1 * ys2 Case ysf.except da = ys1 / ys2 End Select End Sub End Class Structure
4、cj Public zts As Integer Public zqs As Integer Friend ReadOnly Property cws As Integer Get Return zts - zqs End Get End Property Friend ReadOnly Property zql As String Get Return Format(zqs / zts, 0.#%) End Get End Property End Structure Dim mcj As cj = New cj Dim yszf As tm = New tm Private Sub For
5、m1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mcj.zts = 0 Label1.Text = yszf.yss End Sub Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp Dim zq As Boolean = False If e.KeyCode = Keys.Ent
6、er Then mcj.zts += 1 If Trim(TextBox1.Text) = yszf.daf Then mcj.zqs += 1 zq = True End If ListBox1.Items.Add(yszf.yss & IIf(zq, , ) TextBox2.Text = mcj.zts TextBox3.Text = mcj.zqs TextBox4.Text = mcj.cws TextBox5.Text = mcj.zql yszf = New tm Label1.Text = yszf.yss TextBox1.Text = End If End Sub End Class
