找了好久~找不到vb程式編寫錯誤
以下是我編寫的程式
發現從()的地方,程式都不能run,其他地方都還蠻正常的
請各位大大能指點我迷津~謝謝QQ
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1) 'a=最暖月均溫
b = Val(Text2) 'b=最冷月均溫
c = Val(Text3) 'c=年蒸發散量
d = Val(Text4) 'd=年降雨量
If a > 10 And b > 18 And c < d And Combo1 = "否。" Then
Text5.Text = "您所輸入的氣候資料,經由判斷後為" & "熱帶氣候"
( ElseIf a > 10 And c > d And combol = "否。" Then
Text5.Text = "您所輸入的氣候資料,經由判斷後為" & "乾燥氣候"
ElseIf a > 10 And 18 >= b >= -3 And c < d And combol = "否。" Then
Text5.Text = "您所輸入的氣候資料,經由判斷後為" & "溫帶氣候"
ElseIf a > 10 And b < -3 And c < d And combol = "否。" Then
Text5.Text = "您所輸入的氣候資料,經由判斷後為" & "寒帶氣候" )
ElseIf a <= 10 And b < -3 And combol = "否。" Then
Text5.Text = "您所輸入的氣候資料,經由判斷後為" & "極地氣候"
ElseIf Combo1 = "是,山地!" Then
Text5.Text = "您所輸入的氣候資料,經由判斷後為" & "高地-山地氣候"
ElseIf Combo1 = "是,高原!" Then
Text5.Text = "您所輸入的氣候資料,經由判斷後為" & "高地-氣候"
End If
End Sub