visualbasic程序設(shè)計(jì)講義第5章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)(編輯修改稿)
2025-06-12 17:56 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 List 屬性一樣、有相同項(xiàng)數(shù)的布爾值數(shù)組。在窗體設(shè)計(jì)時(shí)是不可用的。格式 : (index) [= boolean] Object 對(duì)象表達(dá)式，其值是一個(gè) ListBox 對(duì)象。 Index 控件中項(xiàng)的索引號(hào)。 Boolean 一個(gè)用來(lái)指定項(xiàng)是否被選中的布爾表達(dá)式其值為： True 表示項(xiàng)被選中 ,False（缺省值）表示項(xiàng)沒有被選中。 說(shuō)明 :此屬性對(duì)能夠復(fù)選是尤其有用的?？梢钥焖贆z查在列表中哪些項(xiàng)已被選中。也可以從代碼中使用該屬性選中或取消選中列表中的一些項(xiàng)。 ⑹ Sorted 屬性 :返回一個(gè)值，指定控件的元素是否自動(dòng)按字母表順序排序 ,該屬性只能在設(shè)計(jì)狀態(tài)設(shè)置 .當(dāng)值為 : True 列表中的項(xiàng)目按字符碼順序排 序。 False（缺省值） 列表中的項(xiàng)目不按字母表順序排序。 ⑺ Text 屬性 : ListBox 控件返回列表框中選擇的項(xiàng)目； 返回值總與表達(dá)式List(ListIndex)的返回值相同 。只能在程序中設(shè)置和引用 .在運(yùn)行時(shí)為只讀 ?？梢杂? Text 屬性來(lái)確定當(dāng)前選擇的項(xiàng)目。 () Private Sub List1_Click() Text1 = (0) Text2 = End Sub ⑻ MultiSelect 屬性 :返回或設(shè)置一個(gè)值，該值指示是否能夠在 ListBox 控件中進(jìn)行復(fù)選以及如何進(jìn)行復(fù)選。在運(yùn)行時(shí)是只讀的。 0 （缺省值）不允許復(fù)選。 1 簡(jiǎn)單復(fù)選。鼠標(biāo)單擊或按下 SPACEBAR （空格鍵）在列表中選中或取消選中項(xiàng)。（箭頭鍵移動(dòng)焦點(diǎn)。） 2 擴(kuò)展復(fù)選。按下 SHIFT 并單擊鼠標(biāo)或按下 SHIFT 以及一個(gè)箭頭鍵（上箭頭、下箭頭、左箭頭、和右箭頭）將在以前選中項(xiàng)的基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項(xiàng)。按下 CTRL 并單擊鼠標(biāo)來(lái)在列表中選中或取消選中項(xiàng)。 ⑼ Style 屬性值為： 常數(shù) 值 描述 VbListBoxStandard 0 （ 缺省值）標(biāo)準(zhǔn)的。 ListBox 控件按它在 Visual Basic 老版本中的樣子顯示；即，象是文本項(xiàng)的列表。 VbListBoxCheckbox 1 復(fù)選框。在 ListBox 控件中，每一個(gè)文本項(xiàng)的邊上都有一個(gè)復(fù)選框。在 ListBox 中可以選擇多項(xiàng)。 ⑴ AddItem 方法 用于將項(xiàng)目添加到 ListBox 控件 ,語(yǔ)法格式 : item, index object 必需的。一個(gè)對(duì)象表達(dá)式，其值一個(gè) ListBox 對(duì)象。 Item 必需的。字符串表達(dá)式，它用來(lái)指定添加到該對(duì)象的項(xiàng)目。 Index 可選的。是整數(shù)，它用來(lái)指定新項(xiàng)目或行在該對(duì)象中的位置。對(duì)于 ListBox 控件的首項(xiàng)， index 為 0。 說(shuō)明 :如果所給出的 index 值有效，則 item 將放置在 object 中相應(yīng)的位置。如果省略 index， 當(dāng) Sorted 屬性設(shè)置為 True 時(shí)， item 將添加到恰當(dāng)?shù)呐判蛭恢茫?dāng) Sorted 屬性設(shè)置為 False 時(shí)， item 將添加到列表的結(jié)尾 ⑵ RemoveItem 方法 :用以從 ListBox 控 件中刪除一項(xiàng)。 語(yǔ)法格式 : index object 必需的。一個(gè)對(duì)象表達(dá)式，其值為 “應(yīng)用于 ”列表中的一個(gè) ListBox 對(duì)象。 index 必需的。一個(gè)整數(shù)，它表示要?jiǎng)h除的項(xiàng)或行在對(duì)象中的位置。對(duì)于 ListBox 中的首項(xiàng)， index = 0。 ⑶ Clear 方法 :用于清除 ListBox 的內(nèi)容。 語(yǔ)法格式 : object 所在處代表一個(gè)對(duì)象表達(dá)式，其值為列表中的一個(gè) ListBox 對(duì)象。 [例 57]()用列表框顯示 1000 到 1100 之間的素?cái)?shù) Private Sub Command1_Click() Dim n As Integer Dim i As Integer, s As Integer For n = 1001 To 1100 Step 2 s = 0 For i = 2 To Sqr(n) If n Mod i = 0 Then s = 1 Exit For End If Next If s = 0 Then n Next End Sub [例 58]()同構(gòu)數(shù)是一個(gè)整數(shù)，它恰好出現(xiàn)在其平方的右端，例如5*5=25,25*25=125，即 5和 25 都是同構(gòu)數(shù)。求 10000 以內(nèi)的同構(gòu)數(shù)。 1 位同構(gòu)數(shù) n: n=n*n mod 10 2 位同構(gòu)數(shù) n: n=n*n mod 100 3 位同構(gòu)數(shù) n: n=n*n mod 1000 4 位同構(gòu)數(shù) n: n=n*n mod 10000 可以用 for循環(huán)中嵌套 select選擇語(yǔ)句來(lái)實(shí)現(xiàn) ，流程如圖： Private Sub Command1_Click() Dim n As Long For n = 1 To 10000 Select Case n Case n * n Mod 10 Format(n, @@@@@ ) amp。 Format(n * n, @@@@@@@@@@) Case n * n Mod 100 Format(n, @@@@@ ) amp。 Format(n * n, @@@@@@@@@@) Case n * n Mod 1000 Format(n, @@@@@ ) amp。 Format(n * n, @@@@@@@@@@) Case n * n Mod 10000 Format(n, @@@@@ ) amp。 Format(n * n, @@@@@@@@@@) End Select Next End Sub [例 59]算術(shù)練習(xí)程序（ ）。 出題部分由窗體的 Activate 事件過(guò)程實(shí)現(xiàn)。Activate 事件 —— 當(dāng)一個(gè)窗體對(duì)象成為活動(dòng)窗口時(shí)發(fā)生 。程序中用 來(lái)存放生成的題目數(shù) 。 答題部分通過(guò)文本框的 KeyPress 事件過(guò)程實(shí)現(xiàn)。程序中用 來(lái)存放完成的題目數(shù) 。 注意：窗體設(shè)計(jì)時(shí)或初始化控件時(shí)必須把程序使用的 Tag 賦值為 0，否則編譯時(shí)會(huì)報(bào)類型不匹配，因?yàn)?Tag 默認(rèn)為字符串型 。由于屬性 Tag 是附加在各控件的 ,在這里 相當(dāng)于窗體文件 (模塊 )級(jí)的變量 ,共窗體內(nèi)各過(guò)程共享 . Private Sub Form_Load()‘初始化控件 = = 1 = QBColor(15) = =
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1