📄 20098.html
字号:
<html> <head> <title>测验程式的问题</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>测验程式的问题</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:kaogifer@giga.net.tw">志文</a> on October 13, 1999 at 21:25:41:<p>小弟因工作需要,自己想写一个可以测验股票代码的程式<br>就是我建好股票名称以及股票代码,当我开始测验时,pc出现名称,我输入代码,pc判断对错<br>目前我label4.caption 放入股票名称<br> text2.text抓的为股票代码<br>可是底下的判断,却是失败的,请问各位先进能否指导一下,谢谢<p>Private Sub Command1_Click() '开始测验<br> Dim i As Variant<br> Dim ansq As Variant<br> correct = 0: wrong = 0<br> For i = 0 To Data1.Recordset.RecordCount - 1<br> Label4.Caption = Data1.Recordset.Fields(i + 1).Value<br> Text2.SetFocus<br> If Text2(ansq).Text = Data1.Recordset(i).Value Then<br> correct = correct + 1<br> CurrentX = 2000: CurrentY = 3000<br> Print "答对了"<br> Data1.Recordset.MoveNext<br> Else<br> wrong = wrong + 1<br> CurrentX = 2000: CurrentY = 3000<br> Print "答错了"<br> End If<br> Next<br>End Sub<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20098--><!--top: 20117--><li><a href="20117.html">Re: 测验程式的问题</a> <b>小v</b> <i>09:33:02 10/14/99</i>(<!--responses: 20117-->0)<ul><!--insert: 20117--></ul><!--end: 20117--><!--top: 20114--><li><a href="20114.html">Re: 测验程式的问题</a> <b>小v</b> <i>09:17:19 10/14/99</i>(<!--responses: 20114-->0)<ul><!--insert: 20114--></ul><!--end: 20114--></ul><!--end: 20098--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -