一个是我用VBA写的选择题，还有一个是别人用javascript写的选择题，我想用改进

希望123456

micch 发表于 2023-5-21 16:13
写一个function，比如命名为   selectanswer(a)，在4个选择对应的sub中写 call selectanswer(a)

给这 ...

大佬，你说的这个call，我加了一个参数进去，运行错误呀，代码发上去了，怎么修改？

micch

希望123456 发表于 2023-5-22 14:57
Function aw(a As Integer)
If OptionButton & a = True Then
   an = "回答正确"

论坛有一点总觉得不太方便，文件还需要压缩才能上传，所以我一般不做文件，太麻烦了。电脑旧，垃圾文件多了增加碎片。

我描述一下： 比如选项A对应的optionButton1，call aw(1),B对应的  call aw(2)，以此类推

这样aw通过引用的数字就知道操作上选了哪个答案。

function aw(a)
'如果正确答案是 C,把abcd和1234对应起来，或者参数a用string，直接用字母而不用数字
if a = 3 then msgbox “回答正确” else msgbox "回答错误，请重试"
end function

micch

1. Function aw(Answer As String)
   
2. If Answer = "C" Then '//等于题目的正确答案C
   
3.    an = "回答正确"
   
4. Else
   
5.    an = "回答错误请重试"
   
6. End If
   
7. MsgBox an, vbOKOnly, "检查答案"
   
8. 
   
9. End Function
   
10. Private Sub OptionButton1_Click()
    
11. Call aw("A")
    
12. End Sub
    
13. 
    
14. Private Sub OptionButton2_Click()
    
15. Call aw("B")
    
16. End Sub
    
17. 
    
18. Private Sub OptionButton3_Click()
    
19. Call aw("C")
    
20. End Sub
    
21. 
    
22. Private Sub OptionButton4_Click()
    
23. Call aw("D")
    
24. End Sub
    

复制代码

先得有题目的正确答案，然后函数aw才能根据答题情况返回对应结果

希望123456

Function aw(a As Integer)
If OptionButton & a = True Then
   an = "回答正确"
Else
   an = "回答错误请重试"
End If
MsgBox an, vbOKOnly, "检查答案"
End Function

Private Sub OptionButton1_Click()
Call aw(4)
End Sub

Private Sub OptionButton2_Click()
Call aw(4)
End Sub

Private Sub OptionButton3_Click()
Call aw(4)
End Sub

Private Sub OptionButton4_Click()
Call aw(4)
End Sub
这个代码到底怎么修改，问题不解决了，心理好纠结，有人把代码修改一下吗？

希望123456

micch 发表于 2023-5-22 21:12
先得有题目的正确答案，然后函数aw才能根据答题情况返回对应结果

如果能按照我的那种设想，代码会多方便呀，如果这样的写法，对于批量修改代码不利！要改好多处！比如你要是增加第二道选择题，代码又得写好多！

希望123456

micch 发表于 2023-5-22 21:12
先得有题目的正确答案，然后函数aw才能根据答题情况返回对应结果

Function aw(i)
If i = 1 Then
   an = "回答正确"
Else
   an = "回答错误请重试"
End If
MsgBox an, vbOKOnly, "检查答案"
End Function
Private Sub OptionButton1_Click()
Call aw(2)
End Sub
Private Sub OptionButton2_Click()
Call aw(2)
End Sub
Private Sub OptionButton3_Click()
Call aw(2)
End Sub
Private Sub OptionButton4_Click()
Call aw(1)
End Sub
Private Sub OptionButton5_Click()
Call aw(2)
End Sub
Private Sub OptionButton6_Click()
Call aw(1)
End Sub
Private Sub OptionButton7_Click()
Call aw(2)
End Sub
Private Sub OptionButton8_Click()
Call aw(2)
End Sub

大佬，根据你的提示，我做了一个变通的处理，就是我把i=1设置为正确答案，这样FUNCTION只要写一个就行了，其他的错误答案，我只要CALL 的时候，给一个i=2就达到我想要的批量修改的目的了，现在还有一个问题没有解决，就是如何批量修改8个OptionButton的caption属性，否则要一个一个复制粘贴很繁琐！

希望123456

micch 发表于 2023-5-22 21:12
先得有题目的正确答案，然后函数aw才能根据答题情况返回对应结果

十分感谢micch大佬对我的耐性讲解，每次我发的帖子，您都认真回答了！我回复了，但是审核中，还有一个问题想请教您！

micch

希望123456 发表于 2023-5-22 21:48
如果能按照我的那种设想，代码会多方便呀，如果这样的写法，对于批量修改代码不利！要改好多处！比如你要 ...

写代码不是你这样的思路。为什么要call function，因为一个function能做所有的事情。

以这个帖子为例，所有optionbutton可以共用一个sub，然后把function内容写在sub中。就不用call了。

关键是把变量设好，通过变量的值的切换实现。当题目切换的时候，顺便切换答案。

不存在批量修改代码的情况，因为只有一个sub，代码要通用，就不需要复制很多份