小弟有很多不懂的，以后望大家帮帮~~

[此贴子已经被作者于2006-11-11 10:28:39编辑过]

嘿嘿..很不错啊..
...如果能在答案里输入了如A之后...就能将焦点马上跳到另外一个答案框...
...当我提交了之后...能显示出正确答案..而不是错误.正确这些...会好一些....
..如果能随机出题...那就更好了....
...继续努力啊...下次要做得更好..

{...如果能在答案里输入了如A之后...就能将焦点马上跳到另外一个答案框...}
这个不会耶~~呵呵~

{当我提交了之后...能显示出正确答案..而不是错误.正确这些}
这点没有想到哟~~谢谢提醒~~

{如果能随机出题...那就更好了....}
随机出题也不会哟~~ 在窗体里 让它随机也不会哟~~

嘿嘿...慢慢来吧.....以后...肯定能够写出来的..

改了点点~~

Private Sub Text1_Change()
if Text1.Text ="a" or Text1.Text ="A" or Text1.Text ="b" then
'把可能的答案都列全了，如果选择的可能性比较多，可以用
'if asc(left(trim(text1.text),1))>=asc("a") and asc(left(trim(text1.text),1))>=asc("f") then
'的方法,因为a-z的字母asc码是连续的。
text2.setfocus
end if

End Sub

楼上的..最好将textBox的text统一转换一下大小写...
如UCase(Text1.Text) = "A" 这样比较好..因为你这样..如果我输入小写a,和大写A..就会有不同的效果了..
...还有..你这样做...难道要每个文本框都写个代码?...不符合面向对象的重复使用的规则....
...最好是将textBox控件做成一个控件数组....
然后判断一下Index..如果是小于10的话...就
Text1(Index+1).SetFocus
///..如果是10的话...那就将焦点放到提交里...

谢谢 大鸟给菜鸟指导~~~~~~

我也是最近才学的。能不能看下你的代玛~
加我有QQ：182421809

对不起 代码没有保存 下次搞过一个 再发上来