第四章控制結(jié)構(gòu)-文庫吧在線文庫
【正文】 結(jié)構(gòu)的又一種表示形式，又稱情況語句。 z IF x y Then ‘ 如果 x y則 x,y交換 t = x: x = y: y = t End IF IF y z Then t = y: y = z: z = t IF x y Then t = x: x = y: y = t End IF End IF Print 從小到大的順序是： 。判斷是否是數(shù)值 x = Val() If x 0 Or x 1000 Then = 39。 語句形式： For 循環(huán)變量＝初值 To 終值 [ Step 步長 ] Next 循環(huán)變量 說明： 循環(huán)變量必須是數(shù)值型 步長：一般為正數(shù)，初值小于終值 ； 若為負(fù)數(shù)，初值大于終值； Step 缺省時(shí)默認(rèn)為 1。 n x = Do While n 0 a = n Mod 2 n = n \ 2 x = Chr(48 + a) amp。運(yùn)行界面如圖 [程序代碼 ] Private Sub Command1_Click() Dim maxa As Integer, mina As Integer, x As Integer, i As Integer ?每單擊一次清除原來內(nèi)容 maxa = 50 ?假設(shè)較小的數(shù)為最大 mina = 100 ?假設(shè)較大的數(shù)為最小 Randomize For i = 1 To 20 x = Int(Rnd * 51 + 50) Print x。 se。 例 百元買百雞問題 。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。 有一根長度為 321米的鋼材料 ， 要將它截取成兩種規(guī)格 a、 b的長度分別為 17米和 27米的短料 ， 每種至少 1段 ， 問分隔成 a， b各多少段后 ，剩余的殘料 r最少 ？ 分析 ， 該題利用 “ 試湊法 ” 通過二重循環(huán)求殘料 r的最小值正數(shù) ， 殘料不可能是負(fù)數(shù) 。 i。 解決此類問題采用“試湊法”，把每一種情況都考慮到。 以下程序段是錯(cuò)誤的： （ 1）內(nèi)外循環(huán)變量同名錯(cuò)誤： For i＝ 1 To 10 For i ＝ 1 To 20 … . Next i Next i （ 2）內(nèi)外循環(huán)交叉 For i ＝ 1 To 10 For j＝ 1 To 10 … Next i Next j 其他輔助控制語句 1. Go To 語句 形式 : Go To {標(biāo)號(hào) |行號(hào) } 作用：無條件地轉(zhuǎn)移到標(biāo)號(hào)或行號(hào)指定的那行語句 . 標(biāo)號(hào)是一個(gè)字符序列 ,行號(hào)是一個(gè)數(shù)字序列 . 多種形式： Exit For、 Exit Do、 Exit Sub、 Exit Function等 。 amp。 我們從素?cái)?shù)的定義來求解：從 i＝ 2， 3， 4， … ， m－ 1依次判斷 m能否被 i整除，只要有一個(gè)能整除 m就不是素?cái)?shù)，否則 m為素?cái)?shù)。 程序塊如下： Sum ＝ 0 ?sum 為累加和變量，設(shè)初值為 0 For i＝ 1 To 100 Sum＝ Sum＋ i Next i 又如：求 10的階乘。如果整型表達(dá)式為 1，則函數(shù)返回選項(xiàng)列表中的第一項(xiàng)的值，若整型表達(dá)式為 2，則函數(shù)返回選項(xiàng)列表中的第 2項(xiàng)的值， … 依次類推。 Spc(1)。 x。 . ElseIf不能寫成 Else If。 表達(dá)式 語句塊 1 語句塊 2 F T 雙 分支結(jié)構(gòu)流程示意圖 例 42 編寫一醫(yī)生工作站的登錄檢驗(yàn)程序，運(yùn)行界面如圖 4－ 3。函數(shù)格式如下： 變量 $＝ InputBox（ Prompt[,Title][,Default][,XPos][,YPose]） 例 41 應(yīng)用 InputBox函數(shù)進(jìn)行患者信息的輸入，運(yùn)行界面如圖 程序代碼如下： Private Sub Form_Click() Dim cl$, msg1$, msg2$, msg3$, msg$, I$ cl = Chr(13) + Chr(10) ?回車、換行 msg1 = 請(qǐng)輸入患者姓名 msg2 = 輸入后單擊確定按鈕 msg3 = 或按回車鍵 msg = msg1 + cl + msg2 + cl + msg3 I = InputBox (msg, 患者信息輸入框 , 張三 , 400, 400) End Sub ? 注意 ? 各項(xiàng)參數(shù)次序必須一一對(duì)應(yīng)， Prompt項(xiàng)不可省略， ? 其他項(xiàng)可以省略，但處于中間的默認(rèn)參數(shù)要用逗號(hào)占位符跳過 ? 該函數(shù)返回的值為字符型，如果需要輸入數(shù)值并參加運(yùn)算時(shí)，在運(yùn)算前運(yùn)用 Val(c)函數(shù)將其類型轉(zhuǎn)換為數(shù)值類型 例： （）函數(shù)和 MsgBox過程 MsgBox（）函數(shù)可以產(chǎn)生一個(gè)消息框，等待用戶選擇按鈕，當(dāng)用戶單擊某個(gè)按鈕時(shí)，函數(shù)返回按鈕的值，類型為整型。一般的程序設(shè)計(jì)語言中，順序結(jié)構(gòu)的語句主要是 賦值語句、輸入 /輸出語句 等。如：i%= ? i=4 ? 2)變量為數(shù)值型，表達(dá)式為字符串時(shí)，若表達(dá)式為數(shù)字型字符串，則自動(dòng)轉(zhuǎn)換為數(shù)值型在賦值給變量。如果采用形式（ 2）表示則語句之間要用冒號(hào)分隔，并且一定寫在同一行上。若單擊取消按鈕，程序停止運(yùn)行。 語句形式： Select Case 變量或表達(dá)式 Case 表達(dá)式列表 1 語句塊 1 Case 表達(dá)式列表 2 語句塊 2 …… [Case Else 語句塊 n＋ 1] End Select F 表達(dá)式列表 1 語句塊 1 表達(dá)式列表 2 語句塊 2 表達(dá)式列表 n 語句塊 n … . . 語句塊 n＋ 1 T T T Select語句流程示意圖 F F … . . Private Sub Command1_Click() Dim code As String code = Trim() Select Case code Case + Text4 .Text= Val(Text1) + Val(Text3) Case = Val(Text1) Val(Text3) Case * = Val(Text1) * Val(Text3 Case / IF Val(Tex
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1