Re: [問題] vb6.0 for 迴圈

[OPOQ (OPOQ)]

※ 引述《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
推 DRAGONLL:感謝指導 可以跑出來了 可是vbcrlf 沒法될
→ DRAGONLL:換行耶...
推 gofin:text2物件要設成multiline=true
推 DRAGONLL:O大大感謝  問題解決了 ！～～
推 DRAGONLL:g大  也感謝囉＠！～