第四章控制結(jié)構(gòu)-文庫吧資料
2024-10-06 12:32本頁面
【正文】 For i = 2 To m 1 IF (m Mod i) = 0 Then Flag = False Next i IF Flag = True Then n = n + 1 Print Spc(3 Len(Str(m)))。 分析：解此問題兩種方法 ， 可根據(jù)公式： 26=13*(1+)n 直接利用標準對數(shù)函數(shù)求得；也可利用循環(huán)求得 ， 程序如下： Private Sub Command1_Click() x = 13 n = 0 Do While x 26 x = x * n = n + 1 Loop Print n, x End Sub 例 410求 100以內(nèi)的素數(shù) 素數(shù)素數(shù)也成質(zhì)數(shù)，就是大于 2且只能被 1和本身整除的整數(shù)。 x Loop Print 二進制數(shù)為： 。程序運行界面如圖： 程序代碼如下： Private Sub Command1_Click() Dim x$, n%， a%, n = InputBox(請輸入 1個整數(shù) ) Print 十進制數(shù)為： 。 T＝ 1 ?T為連乘積的變量，設初值為 1 For i＝ 1 To 10 T＝ T*i Next i 退出循環(huán)時， i的值是多少呢？ … Loop循環(huán)語句 Do循環(huán)用于控制循環(huán)次數(shù)未知的循環(huán)結(jié)構(gòu)。 循環(huán)次數(shù)： n＝ Int（ +1 ） 語句塊 [Exit For] 語句塊 循環(huán)體 終值－初值 步長 T F 循環(huán)變量＝初值 循環(huán)變量 ≤終值 語句塊 有 Exit For 語句塊 循環(huán)變量＝循環(huán)變量＋步長 F T 步長 0時 For循環(huán)語句流程示意圖 例 48求 100以內(nèi)所有數(shù)的和。 語句塊：重復執(zhí)行的部分，構(gòu)成循環(huán)體， 可以是一句或多句。 例如，根據(jù) x是 1～ 4的值，轉(zhuǎn)換成 “ 內(nèi)科 ” 、 “ 外科 ” 、 “ 婦科 ” 、 “ 兒科 ” 的語句可以寫成： kb＝ Choose（ x,“內(nèi)科 ” ,“外科 ” ,“婦科 ” ,“兒科 ” ） For循環(huán)語句 For循環(huán)語句是計數(shù)型循環(huán)語句，用于控制循環(huán)次數(shù)預知的循環(huán)結(jié)構(gòu)。 如果整型表達式的值小于 1或大于列出的選項數(shù)目時，函數(shù)返回 Null。前者代替 IF語句，后者可代替 Select Case語句， ?IIF（）函數(shù) 函數(shù)形式： IFF（表達式，條件為 True時的值，條件為 False時的值） 例如：求 x， y中大的數(shù)，放入變量 T中，可以應用語句 T=IFF( xy , x ,y) ?Choose ()函數(shù) 函數(shù)形式： Choose（整型表達式，選項列表） 其中整型表達式的值決定函數(shù)返回選項列表中的哪個值。焦點回到文本框 = 數(shù)值超出范圍 ,再輸入 ! 39?；剀囨I的 ASCII碼值為 13 If IsNumeric() Then 39。 z End Sub Private Sub Command2_Click() End End Sub ?例 27在文本框中輸入 11000之間的數(shù)字，如果輸入非數(shù)值，或數(shù)值超出范圍，給予提示，并重新輸入。 y。 x。 Spc(1)。 Spc(1)。程序運行界面如圖 程序代碼如下： Private Sub Command1_Click() Dim x%, y%, z%, t% x = Val(InputBox(請輸入 1個整數(shù) )) y = Val(InputBox(請輸入 1個整數(shù) )) z = Val(InputBox(請輸入 1個整數(shù) )) Print 您輸入三個的數(shù)是： 。 語句形式： Select Case 變量或表達式 Case 表達式列表 1 語句塊 1 Case 表達式列表 2 語句塊 2 …… [Case Else 語句塊 n＋ 1] End Select F 表達式列表 1 語句塊 1 表達式列表 2 語句塊 2 表達式列表 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(Text3) = 0 Then MsgBox (除數(shù)不能為 0，請重新輸入 ) Text3 = “ = Else Text4 = Val(Text1) / Val(Text3 End IF End Select End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1 = Text2 = Text3 = Text4 = End Sub 例 47編寫一個簡便四則運算器，應用 Select Case 判斷運算符。低血壓通常指血壓低于 90/60MmHg。 Private Sub Command1_Click() Dim x, y x = Val() ?將文本轉(zhuǎn)換為數(shù)值型后賦值給變量 x， y y = Val() IF x 90 And y 60 Then 血壓偏低 ElseIF x = 140 And y = 90 Then 血壓正常 ElseIF x 160 And y 95 Then 臨界高血壓 Else 高血壓 End IF End Sub Private Sub Command2_Click() End End Sub 例 45 按照世界衛(wèi)生組織 (WHo)建議使用的血壓標準是：凡正常成人收縮壓應小于或等于 140MmHg，舒張壓小于或等于 90MmHg。 例 42 程序代碼如下： Private Sub Command1_Click() Dim I As Integer IF Not Text2 = cljuan Then I= MsgBox(密碼錯誤 , 5 +64+ 0 + VBSystemModel, 登錄密碼 ) IF I = 2 Then End Else Text2 = ?用戶單擊 “ 取消 ” 按鈕返回按鈕值 text2=“”
教學課件相關推薦
鄂ICP備17016276號-1