| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 472 人关注过本帖
标题:“单选题练习”程序在浏览错题时,在对应选项下面标注:"★","×" 的语句可 ...
只看楼主 加入收藏
nhjsjjs
Rank: 1
等 级:新手上路
威 望:1
帖 子:13
专家分:0
注 册:2016-9-4
结帖率:100%
  问题点数:0  回复次数:1   
“单选题练习”程序在浏览错题时,在对应选项下面标注:"★","×" 的语句可以简化。
我在 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
欢迎提出意见和指正。
2018-06-10 10:40
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:909
专家分:5237
注 册:2015-8-10
  得分:0 
这次不送花了,说实话写的太乱了。看着费劲
2018-06-21 10:47







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.120435 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved