係統粉 > 電腦問答 > 其他問答

分類

已解決VB的一個小程序，有點小問題

提問者：燒烤★七月 | 瀏覽次 | 提問時間：2017-01-29 | 回答數量：8

VB的一個小程序，有點小問題要求實現的功能為：讀取一個.txt文本文檔中的數據，並經行一定規則的計算，之後輸出計算結果，我的戴帽如下：Private Sub Command1_Click()Dim a(1001) As DoubleDim var1Dim i As IntegerOpen \"e:\\計算結果.txt\" For Input As #1Do While Not EOF(1)Line Input #1, var1a(i) = var1List1.AddItem (\"a\" & \"(\" & i & \")=\" & a(i))i = i + 1Loop For i = 0 To 999 a(i) = (a(i)) ^ 2 - 10 List2.AddItem (\"a\" & \"(\" & i & \")=\" & a(i)) Next iEnd SubPrivate Sub Command2_Click()EndEnd Sub這樣做到是實現了我所要的功能了，可是存在蠻多費解的地方：1.為什麼 For i = 0 To 999

已有8條答案

新lana

回答數：17 | 被采納數：63

１、command1和command2是否在同一個文件裏？
２、換行符是一個叫做vbcrlf的字符串
３、app.path可以得到當前程序所在路徑，所以將e:\計算結果.txt改成app.path & "\計算結果.txt"

2017-01-29 21:19:58

讚 1

德陽幺妹

回答數：205 | 被采納數：3

感謝版主幫助，我試試看，command1和command2是同一個文件裏的啊 (1)

(1)

2017-01-30 00:21:22

讚 20

evergreen樓

回答數：124 | 被采納數：78

把command1裏的代碼全部複製到command2行不行？有什麼錯誤提示

2017-01-29 23:38:24

讚 12

奔夏_

回答數：118 | 被采納數：107

就把 for next段複製到command2下沒用，錯誤提示為“編譯錯誤，子程序或函數未定義”是不是要定義個函數來調用數組a()啊？

2017-01-30 04:10:28

讚 11

天一一天日天一

回答數：109 | 被采納數：24

a是command1裏的局部變量，把a的定義放在Private Sub Command1_Click的前麵

2017-01-29 20:23:29

讚 10

藍莓香潤手霜

回答數：118 | 被采納數：93

版主一語中的啊，嗬嗬，成了，假如輸出到文本框中回車符的那個字符串應該加在哪兒呢？

2017-01-30 06:03:06

讚 11

time無敵小呂布

回答數：70 | 被采納數：37

text2.text=text2.text & "a(" & i & “）=” & a(i) & vbcrlf

2017-01-30 02:21:08

讚 7

elwoodblues

回答數：207 | 被采納數：13

輸出到文本框也順利解決，直接把vbcrlf加載後麵就可以了，真的很感謝版主的幫助啊

2017-01-30 16:59:20

讚 20

相關問答

最新其他問答

解決方法