vb第5章循環(huán)結(jié)構(gòu)程序設(shè)計(編輯修改稿)
2025-02-08 21:45 本頁面
【文章內(nèi)容簡介】 For n = 1 To 1000 If n Mod 37 = 0 Then a = a amp。 Str(n) amp。 vbCrLf End If Next = a End Sub ? 說明：常量 VbCrLf表示插入一個回車與換行符組合，相當于：回車加上換行符（ Chr(l3)＆ Chr(10)）來產(chǎn)生一個行斷點。 判斷一個正整數(shù)是否素數(shù)。 ? 【 例 5－ 2】 輸入一個正整數(shù)，利用 “ for”循環(huán)判斷是否素數(shù)。 ? 分析：所謂 “ 素數(shù) ” 是指除了 1和該數(shù)本身，不能被任何整數(shù)整除的數(shù)。 ? 一個自然數(shù) n不是素數(shù)，它一定有這樣的因子i： 2 ? i ? n Sqr(n)、 n/2 ? 如圖 5－ 4所示。 命令按鈕的 Click 事件代碼 Private Sub Command1_Click() Dim n As Long Select Case Val() Case Is 3 MsgBox 請輸入一個大于 2的整數(shù)！ , vbInformation + vbOKOnly, 注意 Case Is 2147483647 MsgBox 此數(shù)太大！ , vbInformation + vbOKOnly, 注意 Case Else n = Val() s = 0 i = 2 Do While i = Sqr(n) And s = 0 If n Mod i = 0 Then s = 1 Else i = i + 1 End If Loop If s = 0 Then a = “是一個素數(shù) ” Else a = “不是素數(shù) ” End If = Str(n) amp。 a End Select End Sub s = 0 For i = 2 To Sqr(n) If n Mod i = 0 Then s = 1 Exit For End If Next 判斷標志 n1或 n/2 Do While i = Sqr(n) If n Mod i = 0 Then s = 1 Exit Do End If i = i + 1 Loop 求從 1000到 1100之間的所有素數(shù) ? 【 例 5－ 6】 求從 1000到 1100之間的所有素數(shù)。 分析：現(xiàn)對 1000～ 1100之間的各整數(shù)依次測試。使用了雙重 For循環(huán) ,窗體界面的設(shè)計參見圖 5－ 15， 命令按鈕的 Click事件代碼： Private Sub Command1_Click() a = For n = 1001 To 1100 Step 2 s = 0 For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then s = 1 Exit For End If Next If s = 0 Then a = a amp。 Str(n) amp。 vbCrLf Next = a End Sub 窗體上打印圖形 ? 在窗體上用字符“ *”打印出下列圖形 ? i值控制行值， j值控制列值 ? 兩重循環(huán) ——循環(huán) 嵌套 ? 562打印金字塔形 Private Sub Command1_Click() For i = 1 To 5 Print Tab(20 i)。 For j = 1 To 2 * i 1 Print *。 Next j Next i End Sub 不換行 5． 4 列表框與組合框 ? List Box amp。 Combo Box ? 為用戶提供了包含一些選項和信息的可滾動列表。 ? 5． 4． 1 列表框 List Box ? 可以看到多個項目， ? 當不能同時顯示所有選項時，會自動加上一個垂直滾動條， ? 1．列表框的屬性與方法 ? 表 51列出了常用的列表框?qū)傩浴? 表 51 常用的列表框?qū)傩浴? 屬 性 說 明 List 設(shè)置或返回列表中選項，使用 List屬性可以得到列表中的任何選項。例如 (2)表示列表框 List1中第 3項的值。(列出項目內(nèi)容 ) List(i) 添加 內(nèi)容 :Ctrl+Enter ListCount 返回列表框中的選項個數(shù)。 (列表框項目的數(shù)量 ) ListIndex 返回當前選項的索引號，如果沒有選項被選中，該屬性為 1。(已選中的項目的位置 ) Selected 在程序運行使用代碼來選定列表中的選項，例如 (2)＝ True使得列表框 List1中的第 3條選項被選中。 (列表框名 . Selected(索引值 )=True) Text 設(shè)置或返回列表中當前選項的值。 (最后一次選中的 項目文本 ) 表 52 常用列表框 方法 方 法 說 明 AddItem 用來向列表框中添加數(shù)據(jù) (添加項目 ) ?列表框名 . AddItem 項目字符串 [,索引值 ] RemoveItem 用來從列表框中刪除數(shù)據(jù) (刪除項目 ) ?列表框名 . RemoveItem 索引值 Clear 清除列表框中的各項 (清除項目 ) ?列表框名 . Clear 2．使用列表框顯示數(shù)據(jù) ? 【 例 5－ 7】 將例 5－ 6中的文本框改為列表框（如圖 5－ 16所示）。 ? 將窗體中的文本框換為列表框，無需修改列表框的屬性，只需修改命令按鈕的 Click事件代碼： ? 增加項目 ’ 使用列表框的 AddItem方法 Private sub Command1_Click() For n = 1001 To 1100 Step 2 s = 0 For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then s = 1: Exit For End If Next If s = 0 Then n Next End Sub 項目內(nèi)容 ? 顯示選中項目操作 Private Sub List1_Click() Print 選中項目與索引值： 。 。 Print 項目數(shù)： 。 End Sub ? 刪除選中項目操作 Private Sub Command2_Click() k = Val(InputBox(輸入索引值 )) Cls Print 刪除的項目內(nèi)容 。 (k) k End Sub 3．選擇和移動數(shù)據(jù) ? 【 例 5－ 10】 利用循環(huán)結(jié)構(gòu)和列表框控件，設(shè)計的 “ 選項移動 ” 窗體 ——指由兩個列表框和 4個命令按鈕所構(gòu)成的窗口，在 Windows中常見（圖 5－ 21）。 表 54 屬性設(shè)置 對 象 屬 性 屬性值 說 明
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1