隨機(jī)出題程序?qū)嶒?yàn)報(bào)告

1、隨機(jī)出題程序?qū)嶒?yàn)報(bào)告1.界面2. 流程圖3.屬性控件屬性值Form1Text 隨機(jī)出題Textbox1Textbox2Label1Text =Button1Text 確定Button2Text 統(tǒng)計(jì)Listbox1PictureBox1 4.程序 類級(jí)別變量定義： Dim x As Integer '110 之間的隨機(jī)數(shù) Dim y As Integer '110 之間的隨機(jī)數(shù) Dim t As Integer '14之間的隨機(jī)數(shù) Dim n As Integer '統(tǒng)計(jì)題量 Dim tn As Integer '統(tǒng)計(jì)正確量 Dim fn As Inte

2、ger '統(tǒng)計(jì)錯(cuò)誤量 Sub chuti(ByRef t As Integer, ByRef n As Integer, ByRef x As Integer, ByRef y As Integer)' 隨機(jī)出題，在textbox1 中給出算式，n 統(tǒng)計(jì)題量 Randomize() x = CInt(Int(Rnd() * (10 - 1) + 1) y = CInt(Int(Rnd() * (10 - 1) + 1) t = CInt(Int(Rnd() * (4 - 1) + 1) Dim op As String = "" Select Case t

3、Case 1 op = "+" Case 2 op = "-" Case 3 op = "×" Case 4 op = "÷" End Select TextBox1.Text = CStr(x) & " " & op & " " & CStr(y) n += 1End Sub Sub compute(ByVal t As Integer, ByVal x As Integer, ByVal y As Integer, By

4、Ref tn As Integer, ByRef fn As Integer)' 計(jì)算結(jié)果是否正確，并在listbox 中給出完整的表達(dá)式，tn統(tǒng)計(jì)正確的題量，fn統(tǒng)計(jì)錯(cuò)誤的題量 Dim z As Double Dim op As String = "" Select Case t Case 1 z = x + y op = "+" Case 2 z = x - y op = "-" Case 3 z = x * y op = "×" Case 4 z = x / y op = "

5、47;" End Select If z = CDbl(TextBox2.Text) Then ListBox1.Items.Add(x & " " & op & " " & y & " " & "=" & " " & TextBox2.Text & " " & "正確") tn += 1 Else ListBox1.Items.Add(x & "

6、" & op & " " & y & " " & "=" & " " & TextBox2.Text & " " & "錯(cuò)誤") fn += 1 End If End Sub Sub tongji(ByVal n As Integer, ByVal tn As Integer, ByVal fn As Integer)'統(tǒng)計(jì)做題情況 ListBox1.Items.Add(" &

7、quot;) ListBox1.Items.Add(" ") ListBox1.Items.Add("總共2：" & n - 1 & " 正確：" & tn & " 錯(cuò)誤：" & fn)End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'運(yùn)行時(shí)出題 chuti(t, n, x, y)End Sub P

8、rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click'點(diǎn)擊確定，顯示結(jié)果，下一題出現(xiàn)，textbox2 清空 Dim answer As String answer = TextBox2.Text If answer = "" Then MessageBox.Show("錯(cuò)誤！未輸入運(yùn)算結(jié)果！") TextBox2.Focus() Exit Sub End If For i As Inte

9、ger = 0 To answer.Length - 1 If (Asc(answer.Substring(i, 1) < 48 Or Asc(answer.Substring(i, 1) > 57) And Asc(answer.Substring(i, 1) <> 45 Then MessageBox.Show("輸入錯(cuò)誤！請(qǐng)輸入一個(gè)數(shù)") TextBox2.Focus() Exit Sub End If Next compute(t, x, y, tn, fn) chuti(t, n, x, y) TextBox2.Clear()End Sub Priva