※ 引述《MAGICXX (逢甲阿法)》之銘言:
: Private Sub Command2_Click()
: Dim Rn As Integer
: Dim u As Integer
: Dim es As Integer
: Dim ea As Integer
: Dim K As Integer
: Dim Ht As Integer
z沒有宣告喔(雖然不是問題的原因)
: Text5.Text = Rn
: Text3.Text = u
: Text4.Text = es
: Text6.Text = ea
: Text7.Text = K
: Text8.Text = Ht
上面反了,應該是下面這樣
Rn = Text5.Text
讓左邊的變數等於右邊的值
: z = Rn + u + es + ea + K + Ht
: Label8.Caption = z
: End Sub
: 我這邊不管TEXT裡面怎麼打
: 他顯示出來的z(也就是label8)都是0耶...
當你執行時,這些TextBox應該也會變0吧
: 可以請問一下 我哪邊弄錯了嗎?
: 另外我還想要問
: if a>=b then
: a=c
: else
: a=d
: end if
: 我可以算出這邊
: a變成c幾次?
: 跟
: a變成d幾次嗎?
: 因為我這個本身是放在DO LOOP裡面(考慮用FOR NEXT...雖然兩個都不太懂 囧)
可以的,不過要設2個變數去紀錄
if a>=b then
a = c
atoc = atoc + 1
else
a = d
atod = atod + 1
end if
--
我的P2個板 自然就是美 傾聽‧自然之美
NB_COLSPRING 科技 Σ 冷 泉 港 >生命孕育地,海洋之心
ClubT [風]
有空可以來逛逛^_^
Blog: http://www.wretch.cc/blog/ClubT http://clubtblog.blogspot.com
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.219.179.43