随机出题程序实验报告

1、随机出题程序实验报告1.界面2. 流程图3.属性控件属性值Form1Text 随机出题Textbox1Textbox2Label1Text =Button1Text 确定Button2Text 统计Listbox1PictureBox1 4.程序 类级别变量定义： Dim x As Integer '110 之间的随机数 Dim y As Integer '110 之间的随机数 Dim t As Integer '14之间的随机数 Dim n As Integer '统计题量 Dim tn As Integer '统计正确量 Dim fn As Inte

2、ger '统计错误量 Sub chuti(ByRef t As Integer, ByRef n As Integer, ByRef x As Integer, ByRef y As Integer)' 随机出题，在textbox1 中给出算式，n 统计题量 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)' 计算结果是否正确，并在listbox 中给出完整的表达式，tn统计正确的题量，fn统计错误的题量 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 & " " & "错误") fn += 1 End If End Sub Sub tongji(ByVal n As Integer, ByVal tn As Integer, ByVal fn As Integer)'统计做题情况 ListBox1.Items.Add(" &

7、quot;) ListBox1.Items.Add(" ") ListBox1.Items.Add("总共2：" & n - 1 & " 正确：" & tn & " 错误：" & fn)End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'运行时出题 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'点击确定，显示结果，下一题出现，textbox2 清空 Dim answer As String answer = TextBox2.Text If answer = "" Then MessageBox.Show("错误！未输入运算结果！") 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("输入错误！请输入一个数") TextBox2.Focus() Exit Sub End If Next compute(t, x, y, tn, fn) chuti(t, n, x, y) TextBox2.Clear()End Sub Priva