设计一个由计算机来当小学低年级学生算术老师的VB应用程序.doc

Public Class Form1Private Class tmDim ys1 As IntegerDim ys2 As IntegerEnum ysfadd = 1 加subtract = 2 减ride = 3 乘except = 4 除End EnumDim ys As ysf = ysf.addDim da As SingleDim sj As Random = New RandomReadOnly Property yss() As StringGetyss = ys1.ToString & & Choose(ys, +, -, *, ) & & ys2.ToString & =Exit PropertyEnd GetEnd PropertyReadOnly Property daf() As StringGetReturn Trim(da.ToString)End GetEnd PropertyPublic 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 除法，生成能整除的运算DoIf ys2 = 0 Then ys2 = Int(sj.Next(1, 10)If ys1 / ys2 = ys1 ys2 Then Exit Doys1 = Int(sj.Next(0, 10)ys2 = Int(sj.Next(1, 10)LoopEnd IfSelect Case ysCase ysf.addda = ys1 + ys2Case ysf.subtractda = ys1 - ys2Case ysf.rideda = ys1 * ys2Case ysf.exceptda = ys1 / ys2End SelectEnd SubEnd ClassStructure cjPublic zts As IntegerPublic zqs As IntegerFriend ReadOnly Property cws() As IntegerGetReturn zts - zqsEnd GetEnd PropertyFriend ReadOnly Property zql() As StringGetReturn Format(zqs / zts, 0.#%)End GetEnd PropertyEnd StructureDim mcj As cj = New cjDim yszf As tm = New tmPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadmcj.zts = 0Label1.Text = yszf.yssEnd SubPrivate Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUpDim zq As Boolean = FalseIf e.KeyCode = Keys.Enter Thenmcj.zts += 1If Trim(TextBox1.Text) = yszf.daf Thenmcj.zqs += 1zq = TrueEnd IfListBox1.Items.Add(yszf.yss & IIf(zq, , )TextBox2.Text = mcj.ztsTextBox3.Text = mcj.zqsTextBox4.Text = mcj.cwsTextBox5.Te