Question

求大神解答，vb入门题

一张试卷共有25道题，评分标准规定答对一题得4分，答错或不答均倒扣1分，小明同学答卷共得60分，编程计算小明共答对了多少道题？
这已经是我全部的家当了，求各位大神帮帮忙！！！！！！！！！！！！！！

Answer 1

答错(100-60)÷5=8题
答对25-8=17题

追问

• 是编一个vb程序出来，不是简单的数学题，求解！！！！！！！！加急啊！！！！！！

   

追答

编程需要有过程的。你这个提问问的是结果。怎么编程？输入什么，输出什么？考的知识点是什么？

追问

我也不知道，只要点击计算在界面会输出
小明成绩
答对 题
答错 题

追答

你好，采纳楼下的答案吧。

Private Sub Form_Load()
    Show
    Dim x, y
    For x = 0 To 25
        For y = 0 To 25
            If x + y = 25 And 4 * x - y = 60 Then Print "小明共答对了 " & x & " 道题"
        Next
    Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim x, y
For x = 0 To 25
For y = 0 To 25
If x + y = 25 And 4 * x - y = 60 Then Debug.Print x
Next
Next

End Sub