三大結構之選擇----IF

來源:互聯網
上載者:User

標籤:

現實世界中,根據面臨的特定情形,不斷調整我們應對的方式,是每一個智慧生命體具有的典型特徵。在VB的世界裡,也具有這樣的特徵;VB提供了一個結構,讓我們告訴程式,當前條件下,需要採取這種辦法,就VB的書寫文法格式,是這樣滴:

If     條件   Then
             語句塊
End If

例子:

 If a < b Then
            Print "a真小於b"
        End If

在上面的例子中,如果條件不成立,我們什麼也不做,選擇了忽略,如果我們不想忽略,也就是條件成立,我們採取A計劃應對,如果不成立,我們啟動B計劃應對,此時的VB書寫格式是這樣滴:

If     條件   Then
        語句塊1

Else

語句塊2
End If

---------------------------------------

If     條件   Then
        A計劃

Else

B計劃
End If


例子:

 If a < b Then
        Print "a真小於b"

Else

Print "a真的不小於b"
End If

上機練習操作如下:






在表單上添加一個CommandButton按鈕,預設名字為Command1,修改為cmdSort,並將Caption屬性值修改為:排序了。


修改後的圖如下:


雙擊“排序了”按鈕,進入EditCode代碼編輯介面。


在游標閃爍的地方,按下Tap鍵,並寫上如下的代碼:

    Dim a As Integer
    Dim b As Integer
    
    a = Int(Rnd * 1000)
    b = Int(Rnd * 1000)
    
    If a < b Then
        Print "a真滴小於b"
    Else
        Print "a真的不小於b"
    End If

或如:


編譯,並運行如:


顯示介面如下:


點擊排序了按鈕,在表單上顯示如下:



三大結構之選擇----IF

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.