“单选题练习”程序在浏览错题时,在对应选项下面标注:"★","×" 的语句可以简化。
我在 2016年9月30日发了“所见即所显……”和“刚才忘了上传附件……”2个帖子。该帖子获贵宾“xiangyue0510”送10朵鲜花,在此表示十分的感谢!
我发现源代码中有关"★","×" 的语句可以简化。改动如下:
(我在应该删除的语句前加"'"字符。把改换的语句写在要删除语句下面。新的说明的重点是“直接赋值”)
通用部分:
'Dim LW(2) As String '"","★","×"
----------------------------------------
Private Sub Form_Load()
……
'LW(0) = ""
'LW(1) = "★"
'LW(2) = "×"
……
End Sub
----------------------------------------
Private Sub CmdOk_Click() '确定
……
' tmb(xuhao, opt + 2) = "2" '记住错题"×"的按钮位置 ,在opt。
tmb(xuhao, opt + 2) = "×" '在你选择的opt的对应数组元素直接赋值"×"
……
End Sub
----------------------------------------
Private Sub Quchu() '分解1题的内容
……
'tmb(xuhao, bz + 2) ="1"'标准答案已经储存
tmb(xuhao, bz + 2) = "★" '在标准答案的对应数组元素直接赋值"★"
……
End Sub
----------------------------------------
Private Sub sj_xianshi(un As Integer) '显示
……
'Label8(j).Caption = LW(Val(tmb(un, j + 2))) '显示:"","★","×"。
Label8(j).Caption = tmb(un, j + 2) '直接显示:"","★"或"×"。
……
End Sub
欢迎提出意见和指正。