资源描述
计算机根据学生的答案判断正确与否,当结束时给出成绩Option ExplicitDim n1%, n2%, r!, nok%, ne%Private Sub Command1_Click()Label1 = Picture1.Print -Picture1.Print 一共计算 & (nok + ne) & 道题 & . & 得分 & Int(nok / (nok + ne) * 100)End SubPrivate Sub Command2_Click()If Val(Text1) = r ThenPicture1.Print Label1; Text1; nok = nok + 1ElsePicture1.Print Label1; Text1; ne = ne + 1End IfText1 = Text1.SetFocusForm_LoadEnd SubPrivate Sub Command3_Click()MsgBox 你的成绩为 & Int(nok / (nok + ne) * 100)EndEnd SubPrivate Sub Form_Load()Dim nop%, op As String * 1Randomizen1 = Int(10 * Rnd)n2 = Int(10 * Rnd)nop = Int(4 * Rnd + 1)If nop = 4 And n2 = 0 Thenn2 = Int(10 * Rnd)End IfSelect Case nopCase 1op = +: r = n1 + n2Case 2op = -: r = n1 - n2Case 3op = *: r = n1 * n2Case 4op = : r = n1 / n2End SelectLabel1 = n1 & op & n2 & =End Sub
展开阅读全文