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

准提部林

純用工作表製作//適單選題//
Xl0000210.rar (11 KB, 下载次数: 19)

2023-5-21 16:59 上传

点击文件名下载附件

新增題目, 兩行複製再修改文字...不須再指定或另寫宏碼(共用一個程序)

希望123456

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

给这 ...

我只会这么写，你说的在an(a)怎么写？我还有一个问题，就是假如我有100道题目，我如何批量生成这种选择题呢？用一个数组存储题目和选项，然后在代码里给optionbutton.caption属性赋值，但是题目如何复制呢，因为单元格的位置不固定。还有一个问题就是，每一个题目的答案都是变化的，难道我要每一个题目的答案都写一个Function吗，这样添加修改起来很麻烦的！
Function aw()
If OptionButton4 = True Then
   an = "回答正确"
Else
   an = "回答错误请重试"
End If
MsgBox an, vbOKOnly, "检查答案"

End Function
Private Sub OptionButton1_Click()
Call aw
End Sub

Private Sub OptionButton2_Click()
Call aw
End Sub

Private Sub OptionButton3_Click()
Call aw
End Sub

Private Sub OptionButton4_Click()
Call aw
End Sub

希望123456

zxsea_7426 发表于 2023-5-20 20:45
使用窗体更容易

可以帮我解决一下问题吗

希望123456

micch 发表于 2023-5-20 23:58
html只是一个题，没有切换。看样式很简单，用表格做也行，不过表格容错避免误操作方面没有窗体方便。

可以解决一下我的需求吗？就是做一个模板，方便批量做选择题

fanyoulin

希望123456 发表于 2023-5-22 10:29
可以解决一下我的需求吗？就是做一个模板，方便批量做选择题

这东西关系到shapes，入了们就不难：

1、动态插入控价，用内部控件即可，外部控件反而搞复杂了；
2、使用 .OnAction 来统一调度应答模块；
3、本来应该是可以带参数的，但我没学会 .OnAction如何带参数，只能用了笨办法：遍历所有shape，不算精练的达到了目的；

希望123456

fanyoulin 发表于 2023-5-22 11:06
这东西关系到shapes，入了们就不难：

1、动态插入控价，用内部控件即可，外部控件反而搞复杂了；

我在文言一心上查了一段代码，无法实现批量修改caption属性。.


Private Sub CommandButton1_Click()
    Dim Opb() As OptionButton
    ReDim Opb(1 To 4) As OptionButton
      
    For i = 1 To 4
        Set Opb(i) = Me.Controls("OptionButton" & i)
    Next i
      
    For i = 1 To 4
        Opb(i).Caption = i
    Next i
End Sub


对于你那个SHAPE，我还没有学过

fanyoulin

希望123456 发表于 2023-5-22 11:32
我在文言一心上查了一段代码，无法实现批量修改caption属性。.

这我就没法回答你了，shapes是excel所有的内置图形集合，有详细的资料可查，而controls是外部控件，找不到系统性的解释啊。

lkqsmxw

上传个开心问答软件，希望有用。

希望123456

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

给这 ...

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

lkqsmxw 发表于 2023-5-22 14:38
上传个开心问答软件，希望有用。

软件功能是很强大，但是不利于学习知识呀