natlai

以下是我編寫的程式
發現從（）的地方，程式都不能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

炎黄

ElseIf a > 10 And 18 >= b >= -3 And c < d And combol = "否。" Then
这条错误：
elseif a>10 and b<=18 and b>=-3 and c<d and combol ="否。" then

naruto6404

Val(Text1)

這種地方也有錯誤

Text1 是物件，不能轉為數值

所以應寫成 Val(Text1.Text)