if then else
中文翻譯Private Sub Command1_Click( ) 定義 過程 按鈕1被點擊a =75 a 的值為75If a>60 Then 如果 a 大于 60 那么k=1 k的值為1Elself a>70 Then 否則 如果 a 大于70 那么k=2 k 的值為 2 (以下省略)Elself a>80 Thenk=3Elself a>90 Thenk=4Endif 結束判斷MsgBox k 在 消息 框 中 顯示 k 的值End Sub 結束 過程Select Case i 對i的值進行判斷Case 1,3 當為 1 ,3 時a=a+1 a 的值為其原值 +1Case2,4a=a+2End Select 結束判斷For i=1 To 5 循環 從i的值為1開始 到值為5 結束x = n/i x的值為 n 除以 in =n+1 n 的值 曾加1sum = sum + x sum 的值 曾加xNext i i曾加1。
VB 中的 if then else 簡單語句,找找錯漏
Private Sub Command1_Click()Text3 = Text1 * Text2Test = Text2 * 0.5If Text1 < Test Then r = Text1 * 0.5 + Text2 * Text2 / (8 * Text1) Text3 = 2 * r * Atn(Text2 * 0.5 / (r - Text1)) elseIf Text1 = Test Then Text3 = 3.1415 * Text2 * 0.5 Else Text3 = "超出半個圓的弧長" Print "需計算的弧長已達到或超出半個圓的弧長,請另用其他計算方法"End IfEnd Sub。
轉載請注明出處華閱文章網 » ifthenelse語句