主题：一个出数学加减题的程序【新】
孙瑞
[专家分：590] 发布于 2007-07-16 22:24:00
修正了程序的乘除错误！基本无错！
恳请高手指正代码！
谢谢！
[b]欢迎查错！！[/b]
[b]sunruiyeyipeng@163.com[/b]
[url=http://sunrui.123ye.com]我的网站[/url]
[fly]Help Me![/fly]
最后更新于：2007-09-07 22:02:00
回复列表 （共23个回复）
沙发
bcahzvip [专家分：6040] 发布于 2007-07-17 09:11:00
回答完一题后,能不能不用鼠标就到下一题去?
也要为答题的人着想吧?!~
板凳
孙瑞 [专家分：590] 发布于 2007-07-17 16:50:00
我不知道怎样在listbox里移动焦点！
唉，恕我无力，我也正在改进！
3 楼
啊远 [专家分：2610] 发布于 2007-07-17 18:05:00
移动 listbox 的当前选择焦点吗， 这很简单的呀！
Private Sub Command1_Click() ' 往上移
If List1.ListIndex > 0 Then
List1.ListIndex = List1.ListIndex - 1
End If
End Sub
Private Sub Command2_Click() ' 往下移
If List1.ListIndex < List1.ListCount - 1 Then
List1.ListIndex = List1.ListIndex + 1
End If
End Sub
Private Sub Form_Load()
Dim index As Integer
For index = 0 To 13 Step 1
List1.AddItem CStr(index)
Next
End Sub
4 楼
孙瑞 [专家分：590] 发布于 2007-07-17 20:34:00
谢谢！我试一下！
5 楼
loongchina [专家分：90] 发布于 2007-07-17 20:50:00
不行,不怎么好啊
6 楼
啊远 [专家分：2610] 发布于 2007-07-17 20:55:00
怎么个不好？
7 楼
孙瑞 [专家分：590] 发布于 2007-07-17 21:03:00
谢谢！的确可以用！！
8 楼
香脆饼干 [专家分：2040] 发布于 2007-07-18 13:06:00
很有趣，支持一下
9 楼
天天学习 [专家分：4570] 发布于 2007-07-18 17:05:00
能把学到的知识用于实际,不错.
不过,你上传的包里面没有把用至的非标准控件加进来?
10 楼
loongchina [专家分：90] 发布于 2007-07-18 17:11:00
第一、答题时,还要到上面的文本框答,费事！
第二、答下一题时，还要移动鼠标，而且还要到文本框中修改上一题答案，麻烦！
第三、那么多题，还必须全部答完才能交卷，不能只答几题就交卷，如果有不会的题还不能空着，讨厌！
我来回复
您所在位置：