當前位置：係統粉 > 電腦問答 > 其他問答 > VB的一個小程序，有點小問題

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

2017-01-29 21:19:58

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

讚 1

德陽幺妹

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

2017-01-30 00:21:22

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

讚 20

evergreen樓

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

2017-01-29 23:38:24

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

讚 12

奔夏_

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

2017-01-30 04:10:28

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

讚 11

天一一天日天一

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

2017-01-29 20:23:29

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

讚 10

藍莓香潤手霜

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

2017-01-30 06:03:06

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

讚 11

time無敵小呂布

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

2017-01-30 02:21:08

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

讚 7

elwoodblues

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

2017-01-30 16:59:20

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

讚 20

相關問題

解決方法

說說微軟小冰推出的小程序“小冰FM”

2017年09月04日，進化到第五代的微軟小冰最近可謂動作頻頻，其中就包括在微信平台發布了小程序“小冰FM”‍體驗之後，小冰把更多想象帶進了生活，比如會根據你之前的點播推薦一首相關...
用得最多的微信小程序竟是它你愛用小程序嗎？

　　微信在今年高調推出小程序接口，時隔數月，微信小程序到底發展的如何呢？阿拉丁數據統計平台在日前發布了第一份小程序TOP100榜單。　　據悉，這份榜單的背後收錄了超過10000個...
用完這五個，再也不敢說小程序壞話了

微信小程序發布三個月了，但還是有人總說它的壞話，比如入口太深、功能太少、沒卵用等等。小程序在功能上自然比不了原生 App，但如果使用得當，它還是能幫你解決不少意想不到的問題，比如在...
輕芒發布“輕芒小程序+” 可免費創建專屬小程序

7月5日消息，輕芒今日在發布會上正式發布小程序解決方案“輕芒小程序+”，使內容創作者即便沒有任何開發團隊，隻需簡單填寫表單就可以免費創建一個專屬於自己的小程序。輕芒聯合創始人...

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

電腦問答欄目

最新其他問答

熱門問答