作者OPOQ (OPOQ)
看板Programming
标题Re: [问题] vb6.0 for 回圈
时间Fri Oct 26 00:34:25 2007
※ 引述《DRAGONLL (要研不要延)》之铭言：
: 我写了以下的回圈
: 希望输出在 text2 跟 debug.print 上
: Text1.Text的值是数字 表示要迭代几次
: 假设Text1.Text＝10
: 但我以下的程式 好像 text2.text 部份好像只会显示第10次的结果
: debug.print就可以1～10次的结果都呈现
: 请问要怎修改 才可以让 text2 可以跑出10次结果呢
: For i = 1 To Text1.Text Step 1
: s3 = Fix(8 * Rnd) + 1: s4 = Fix(8 * Rnd) + 1
: s5 = Fix(8 * Rnd) + 1: s6 = Fix(8 * Rnd) + 1
: s7 = Fix(8 * Rnd) + 1: s8 = Fix(8 * Rnd) + 1
: s9 = Fix(8 * Rnd) + 1
: test = (Left(s1, 1) + Right(s1, 1) * 9 + s2 * 8 + s3 * 7 + s4 * 6 + s5 * 5 _
: + s6 * 4 + s7 * 3 + s8 * 2 + s9 * 1) Mod 10
: s10 = IIf(test = 0, 0, 10 - test)
: Text2.Text = rr & s2 & s3 & s4 & s5 & s6 & s7 & s8 & s9 & s10
: Debug.Print rr & s2 & s3 & s4 & s5 & s6 & s7 & s8 & s9 & s10
: Next i
你把 Text2.Text 放在回圈里面 会造成 之前Text2.text内的东西被後来的盖掉
所以只会显示最後一次的结果
如果要放在回圈内 可以改成
Text2.Text=Text2.Text & rr & s2 & s3 & s4 & s5 & s6 & s7 & s8 & s9 & s10 & vbcrlf
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 219.84.180.160
1F：推 DRAGONLL:感谢指导 可以跑出来了 可是vbcrlf 没法될 211.74.176.177 10/26 00:47
2F：→ DRAGONLL:换行耶... 211.74.176.177 10/26 00:48
3F：推 gofin:text2物件要设成multiline=true 58.83.49.18 10/26 09:08
4F：推 DRAGONLL:O大大感谢 问题解决了 ！～～ 211.74.176.177 10/26 10:32
5F：推 DRAGONLL:g大 也感谢罗＠！～ 211.74.176.177 10/26 10:59