注册 登录
编程论坛 VB6论坛

“单选题练习”程序在浏览错题时,在对应选项下面标注:"★","×" 的语句可以简化。

nhjsjjs 发布于 2018-06-10 10:40, 2145 次点击
我在 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
欢迎提出意见和指正。
1 回复
#2
xiangyue05102018-06-21 10:47
这次不送花了,说实话写的太乱了。看着费劲
1