vb第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-文庫吧資料
2025-01-18 21:45本頁面
【正文】 值。 表 54 屬性設(shè)置 對 象 屬 性 屬性值 說 明 List1 Multiselect 0 None 不能多項(xiàng)選擇 Style 1Checkbox 風(fēng)格 List2 Multiselect 2 Extended 擴(kuò)展多項(xiàng)選擇 有錯(cuò)誤 說明： ? （ 1）列表框的 Multiselect屬性決定了用戶是否能夠選擇多項(xiàng)數(shù)據(jù)： ? Multiselect＝ 0None 不能 ? Multlselect＝ lSimple 簡單多重 ? Multiselect＝ 2Extended 擴(kuò)展多重 ? （ 2）簡單或擴(kuò)展的多重選擇。 End Sub ? 刪除選中項(xiàng)目操作 Private Sub Command2_Click() k = Val(InputBox(輸入索引值 )) Cls Print 刪除的項(xiàng)目內(nèi)容 。 。 (最后一次選中的 項(xiàng)目文本 ) 表 52 常用列表框 方法 方 法 說 明 AddItem 用來向列表框中添加數(shù)據(jù) (添加項(xiàng)目 ) ?列表框名 . AddItem 項(xiàng)目字符串 [,索引值 ] RemoveItem 用來從列表框中刪除數(shù)據(jù) (刪除項(xiàng)目 ) ?列表框名 . RemoveItem 索引值 Clear 清除列表框中的各項(xiàng) (清除項(xiàng)目 ) ?列表框名 . Clear 2．使用列表框顯示數(shù)據(jù) ? 【 例 5－ 7】 將例 5－ 6中的文本框改為列表框（如圖 5－ 16所示）。(已選中的項(xiàng)目的位置 ) Selected 在程序運(yùn)行使用代碼來選定列表中的選項(xiàng)，例如 (2)＝ True使得列表框 List1中的第 3條選項(xiàng)被選中。(列出項(xiàng)目內(nèi)容 ) List(i) 添加 內(nèi)容 :Ctrl+Enter ListCount 返回列表框中的選項(xiàng)個(gè)數(shù)。 屬 性 說 明 List 設(shè)置或返回列表中選項(xiàng)，使用 List屬性可以得到列表中的任何選項(xiàng)。 ? 5． 4． 1 列表框 List Box ? 可以看到多個(gè)項(xiàng)目， ? 當(dāng)不能同時(shí)顯示所有選項(xiàng)時(shí)，會自動加上一個(gè)垂直滾動條， ? 1．列表框的屬性與方法 ? 表 51列出了常用的列表框?qū)傩浴? Next j Next i End Sub 不換行 5． 4 列表框與組合框 ? List Box 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循環(huán) ,窗體界面的設(shè)計(jì)參見圖 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。 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 判斷標(biāo)志 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之間的所有素?cái)?shù) ? 【 例 5－ 6】 求從 1000到 1100之間的所有素?cái)?shù)。 ? 一個(gè)自然數(shù) n不是素?cái)?shù)，它一定有這樣的因子i： 2 ? i ? n Sqr(n)、 n/2 ? 如圖 5－ 4所示。 ? 【 例 5－ 2】 輸入一個(gè)正整數(shù)，利用 “ for”循環(huán)判斷是否素?cái)?shù)。 vbCrLf End If Next = a End Sub ? 說明：常量 VbCrLf表示插入一個(gè)回車與換行符組合，相當(dāng)于：回車加上換行符（ Chr(l3)＆ Chr(10)）來產(chǎn)生一個(gè)行斷點(diǎn)。 ? 編寫命令按鈕的 Click事件代碼： Private Sub Command1_Click() a = For n = 1 To 1000 If n Mod 37 = 0 Then a = a amp。增加一個(gè)文本框Text 其 MultiLine屬性為“ True”, 其 ScrollBars屬性為 “ 2Vertical” ?一個(gè)命令按鈕 Command1和一個(gè)框架 Frame1。 I 0 3 初值送循環(huán)變量 循環(huán)變量的值超過終值？ 執(zhí)行循環(huán)體中各個(gè)語句 循環(huán)變量的值加步長值 Next后的語句 是 否 求整除的自然數(shù) ? 【 例 5－ 5］顯示 1000以內(nèi)的所有能被 37整除的自然數(shù)（如圖 5l3 所示）。 步長為負(fù)時(shí) For I = 3 To 0 Step Print I Next Print After For :。 ? 初值、終值可以是正數(shù)、負(fù)數(shù)和零； ? 步長可以是整數(shù)或小數(shù)， Step 1可以省略。 ? 其語法為 ? For（循環(huán)變量） =（初值） To（終值） [Step（步長） ] ? [（循環(huán)體語句列 1） ] ? [Exit For] ? ［（循環(huán)體語句列 2）］ ? Next [循環(huán)變量 ] ? For I = 1 To 3 Step 1 ? Print I ? Next I ? Print I 初值送循環(huán)變量 循環(huán)變量的值超過終值？ 執(zhí)行循環(huán)體中各個(gè)語句 循環(huán)變量的值加步長值 Next后的語句 是 否 說明： ? 循環(huán)變量超過終值循環(huán)結(jié)束，而不是等于終值。 ?（ 3）最后的 m就是最大公約數(shù)。 ? （ 2） 若 r≠0 ，則 m←n ，n←r ，繼續(xù)相除得到新的 r。 ［例 54]第 2版教材方法， 54DoWhile后測求最大公約數(shù) 輸入兩個(gè)正整數(shù)，求它們的最大公約數(shù)。 ?分析：求最大公約數(shù)可以用“ 遞減法 ” ，方法如下： ? 可能的因子從 n到 1，找到最大就退出循環(huán) d=d1 如果 m、 n都能被 d整除，則 max ← d,退出
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號-1