1樓：匿名使用者
沒錯，你這麼寫就是1
要改得話，你得j=(text1.text)+1這樣才能累加
2】你根本就沒有想我說的，你要麼把j設定成一個公共變數，要麼就寫我前面的，比如：
j=val(text1.text)+1;
text1.text=j
2樓：dl_會飛的青蛙
你沒有貼**
不知道你錯在**
寫了個例子 你看看吧
dim j as integer
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()j = j + 1
text1.text = j
end sub
我試驗過沒有問題！~
3樓：
哦，我知道了，問題出現在你的j的定義上。你在模組定義的時候，是不是用public j as integer呢？
如果你使用dim j as integer那就不行，要改成public j as integer
4樓：匿名使用者
因為沒一次執行改過程時j會恢復初始直，要在最開始的地方宣告變數j
5樓：絕交
"dl_會飛的青蛙"回答肯定可以，把**拷上去就可以用了！！
我再提供一個**:
再窗體級定義:
dim j as integer
private sub form_load()timer1.interval = 300end sub
private sub timer1_timer()j = j + 1
text1.text = j
end sub
絕對可以的,timer1.interval設定不能太大了,要不反應慢。
如果不行，你肯定在程式的其他地方引了變數j，把他復位了；要不是這樣，肯定可以。
不行的話，你過來把我砍了！！！！
6樓：
本人試驗了2樓的**，是正確的啊
7樓：
那是因為變數j的定義在timer事件裡，下述兩種方法試一試。
①在timer事件裡，輸入如下**。
static j as long
j = j + 1
text1.text = j
②定義j為窗體級變數即可。即在窗體**的開始，加入private j as long
VB的問題，一個VB的問題
以下 只需要按command1就可以同時顯示text1和text2了 option explicit option base 1 private sub command1 click dim a 15 as integer dim i as integer text1.text for i 1 to...
vb的問題，vb的一個問題
private sub form queryunload cancel as integer,unloadmode as integer 點選右上角的關閉 dim a as integer a msgbox 確認關閉嗎？vbokcancel vbquestion,系統提示 if a vbok the...
VB程式設計的簡單問題，VB簡單程式設計問題
1.do while loop 如果while的條件成立，就執行裡面的語句 比如，while a 2，先判斷a，a不大於2就不執行了 這個是不滿足就不執行 2.do loop while e 這個是不管while的條件成不成立，都會先執行裡面的語句，執行完之後再判斷while的條件成不成立，成立就繼...