發表新討論
#3479: 有VB大大能加我及時幫我看看嗎


garylikewu85 (羲皇)

學校 : 臺中市私立明道高級中學
編號 : 10729
來源 : [140.128.88.169]
最後登入時間 ：
2012-03-12 15:51:18
a004. 文文的求婚 | From: [218.170.2.101] | 發表日期 : 2010-02-26 21:55
Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If Val(a) Mod 4 > 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub
 我想直接在 IF 裡面加我要的條件 但是 , 不通耶 可以幫忙嗎 
#3480: Re:有VB大大能加我及時幫我看看嗎


garylikewu85 (羲皇)

學校 : 臺中市私立明道高級中學
編號 : 10729
來源 : [140.128.88.169]
最後登入時間 ：
2012-03-12 15:51:18
a004. 文文的求婚 | From: [218.170.2.101] | 發表日期 : 2010-02-26 21:59
Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If Val(a) Mod 4 > 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub
 我想直接在 IF 裡面加我要的條件 但是 , 不通耶 可以幫忙嗎


忘記輸入  g57328624   雅虎的QQ 
#3482: Re:有VB大大能加我及時幫我看看嗎


linishan (L)

學校 : 國立交通大學
編號 : 1090
來源 : [104.132.150.102]
最後登入時間 ：
2019-05-10 19:57:54
a004. 文文的求婚 | From: [125.228.233.112] | 發表日期 : 2010-02-26 23:02
Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If Val(a) Mod 4 > 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub
 我想直接在 IF 裡面加我要的條件 但是 , 不通耶 可以幫忙嗎


忘記輸入  g57328624   雅虎的QQ



我想請教的是..

你想怎麼寫 ?

錯誤訊息是 . . . ?

上面的閏年判斷應該不對...

 
#3486: Re:有VB大大能加我及時幫我看看嗎


garylikewu85 (羲皇)

學校 : 臺中市私立明道高級中學
編號 : 10729
來源 : [140.128.88.169]
最後登入時間 ：
2012-03-12 15:51:18
a004. 文文的求婚 | From: [218.170.2.101] | 發表日期 : 2010-02-27 10:57
Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If Val(a) Mod 4 > 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub
 我想直接在 IF 裡面加我要的條件 但是 , 不通耶 可以幫忙嗎


忘記輸入  g57328624   雅虎的QQ



我想請教的是..

你想怎麼寫 ?

錯誤訊息是 . . . ?

上面的閏年判斷應該不對...

Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If a > 0 And a < 99999 Then Else MsgBox "請勿亂打" And Text1.Text = " "

If <>IntegerThen Else MsgBox "請勿亂打" And Text1.Text = ""

If Val(a) Mod 4 = 0 And Val(a) Mod 100 > 0 Or Val(a) Mod 400 = 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub

把條件弄反了 查到好像可以用 邏輯方式加在IF內 第四和第五行的指令 是我想說 要是亂輸入非英文字 則跳到 可是怎都弄不好 也範例能提供一下嗎 兩行分別測試都不對有點傷腦筋


 
#3487: Re:有VB大大能加我及時幫我看看嗎


linishan (L)

學校 : 國立交通大學
編號 : 1090
來源 : [104.132.150.102]
最後登入時間 ：
2019-05-10 19:57:54
a004. 文文的求婚 | From: [125.228.227.187] | 發表日期 : 2010-02-27 13:25
Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If Val(a) Mod 4 > 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub
 我想直接在 IF 裡面加我要的條件 但是 , 不通耶 可以幫忙嗎


忘記輸入  g57328624   雅虎的QQ



我想請教的是..

你想怎麼寫 ?

錯誤訊息是 . . . ?

上面的閏年判斷應該不對...

Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If a > 0 And a < 99999 Then Else MsgBox "請勿亂打" And Text1.Text = " "

If <>IntegerThen Else MsgBox "請勿亂打" And Text1.Text = ""

If Val(a) Mod 4 = 0 And Val(a) Mod 100 > 0 Or Val(a) Mod 400 = 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub

把條件弄反了 查到好像可以用 邏輯方式加在IF內 第四和第五行的指令 是我想說 要是亂輸入非英文字 則跳到 可是怎都弄不好 也範例能提供一下嗎 兩行分別測試都不對有點傷腦筋




你不一定要if then else

可以改成 If a<=0 || a>=99999 Then

 

你的問題是  And 是用來聯立條件式

如果true後面的陳述式大於1行,要這樣分行:

If () Then

?

?

End If

至於判斷是不是數字很簡單

把a Val後再CStr

如果a仍相同 則a全為數字

If CStr(Val(a))=a Then

...

 
#3490: Re:有VB大大能加我及時幫我看看嗎


garylikewu85 (羲皇)

學校 : 臺中市私立明道高級中學
編號 : 10729
來源 : [140.128.88.169]
最後登入時間 ：
2012-03-12 15:51:18
a004. 文文的求婚 | From: [218.170.2.101] | 發表日期 : 2010-02-27 19:50
Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If Val(a) Mod 4 > 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub
 我想直接在 IF 裡面加我要的條件 但是 , 不通耶 可以幫忙嗎


忘記輸入  g57328624   雅虎的QQ



我想請教的是..

你想怎麼寫 ?

錯誤訊息是 . . . ?

上面的閏年判斷應該不對...

Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If a > 0 And a < 99999 Then Else MsgBox "請勿亂打" And Text1.Text = " "

If <>IntegerThen Else MsgBox "請勿亂打" And Text1.Text = ""

If Val(a) Mod 4 = 0 And Val(a) Mod 100 > 0 Or Val(a) Mod 400 = 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub

把條件弄反了 查到好像可以用 邏輯方式加在IF內 第四和第五行的指令 是我想說 要是亂輸入非英文字 則跳到 可是怎都弄不好 也範例能提供一下嗎 兩行分別測試都不對有點傷腦筋




你不一定要if then else

可以改成 If a<=0 || a>=99999 Then

 

你的問題是  And 是用來聯立條件式

如果true後面的陳述式大於1行,要這樣分行:

If () Then

?

?

End If

至於判斷是不是數字很簡單

把a Val後再CStr

如果a仍相同 則a全為數字

If CStr(Val(a))=a Then

...

大大 能加ㄍ即時通嗎0.0 想直接問另一些問題  顆顆 不然發了要等一陣子在看 好慢>"<

()不是都是一樣的? 那要分大瓜小瓜吧? 還是沒差?

 
#3573: Re:有VB大大能加我及時幫我看看嗎


ba1286400 (AprilWolf)

學校 : 不指定學校
編號 : 10543
來源 : [61.216.234.199]
最後登入時間 ：
2010-04-11 21:38:29
a004. 文文的求婚 | From: [218.160.239.102] | 發表日期 : 2010-03-24 22:15
Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If Val(a) Mod 4 > 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub
 我想直接在 IF 裡面加我要的條件 但是 , 不通耶 可以幫忙嗎


忘記輸入  g57328624   雅虎的QQ



我想請教的是..

你想怎麼寫 ?

錯誤訊息是 . . . ?

上面的閏年判斷應該不對...

Private Sub Text1_Change()
a = Text1.Text
b = Label1.Caption
If a > 0 And a < 99999 Then Else MsgBox "請勿亂打" And Text1.Text = " "

If <>IntegerThen Else MsgBox "請勿亂打" And Text1.Text = ""

If Val(a) Mod 4 = 0 And Val(a) Mod 100 > 0 Or Val(a) Mod 400 = 0 Then Label1.Caption = "平年" Else Label1.Caption = "閏年"
End Sub

把條件弄反了 查到好像可以用 邏輯方式加在IF內 第四和第五行的指令 是我想說 要是亂輸入非英文字 則跳到 可是怎都弄不好 也範例能提供一下嗎 兩行分別測試都不對有點傷腦筋




你不一定要if then else

可以改成 If a<=0 || a>=99999 Then

 

你的問題是  And 是用來聯立條件式

如果true後面的陳述式大於1行,要這樣分行:

If () Then

?

?

End If

至於判斷是不是數字很簡單

把a Val後再CStr

如果a仍相同 則a全為數字

If CStr(Val(a))=a Then

...

大大 能加ㄍ即時通嗎0.0 想直接問另一些問題  顆顆 不然發了要等一陣子在看 好慢>"<

()不是都是一樣的? 那要分大瓜小瓜吧? 還是沒差?

有差別，一個是可以讓這個括號裡面的運算式先算在算外面，例如：
w / (h^2) <- 先算h^2的值在除於w的值，關於BMI值的部份。

 
ZeroJudge Forum