随机出题程序实验报告.docVIP

随机出题程序实验报告 1.界面 流程图 3.属性 控件 属性 值 Form1 Text 随机出题 Textbox1 Textbox2 Label1 Text = Button1 Text 确定 Button2 Text 统计 Listbox1 PictureBox1 4.程序 类级别变量定义： Dim x As Integer 1~10 之间的随机数 Dim y As Integer 1~10 之间的随机数 Dim t As Integer 1~4之间的随机数 Dim n As Integer 统计题量 Dim tn As Integer 统计正确量 Dim fn As Integer 统计错误量 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 Case 1 op = + Case 2 op = - Case 3 op = × Case 4 op = ÷ End Select TextBox1.Text = CStr(x) op CStr(y) n += 1 End Sub Sub compute(ByVal t As Integer, ByVal x As Integer, ByVal y As Integer, ByRef 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 = ÷ End Select If z = CDbl(TextBox2.Text) Then ListBox1.Items.Add(x op y = TextBox2.Text 正确) tn += 1 Else ListBox1.Items.Add(x 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( ) ListBox1.Items.Add( ) ListBox1.Items.Add(总共2： n - 1 正确： tn 错： fn) End Sub Private Sub Form1_Load