[計算機軟件及應用]vb循環(huán)結構-資料下載頁
2025-10-10 04:09本頁面
【正文】 Next j Print Next i End Sub 圖 4 ? Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 1 To 7 Print Tab(10 i)。 For j = 1 To 2 * i 1 If i Mod 2 = 1 Then Print *。 Else Print 。 End If Next j Print Next i End Sub 圖 5 ? Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 7 To 1 Step 1 Print Tab(10 i)。 For j = 1 To 2 * i 1 Print *。 Next j Print Next i End Sub 實驗題 ? 46：編寫程序，輸出下列所示的圖形 思考題，不做要求 列表框（ ListBox） ? 列表框能為用戶提供若干個選項，形成列表，供用戶從中任意選擇 ? 常用屬性 1） List：表示列表框包含的各個項。 如左圖所示：該列表框共有 4個項目， 即 (0)的值為 教授 (1)的值為 副教授 (2)的值為 講師 (3)的值為 助教 ? 各項通過序號來區(qū)分！ 序號固定從 0開始，依次類推。 構成一個字符型數(shù)組 ? 靜態(tài)添加項目： 方式一：輸入一個選項后按回車鍵 方式二：輸入一個選項后按 Ctrl＋回車鍵 ? 動態(tài)添加項目： (4)= 工程師 列表框 ? 常用屬性 2） ListCount：返回列表框當前包含項目的個數(shù)。只讀 注意： List屬性的序號范圍為 0~ListCount屬性值 1 3） Text：返回列表框當前被選定的項目內容。只讀，默認值為空。 4） ListIndex：返回列表框當前選定的項目的下標。默認值為 1，表示沒有選中任何項目；若為其他值，則表示選中具體某項 注意： ()等價于 ? 常用事件 1） Click：單擊列表框中一個項目時發(fā)生 2） DblClick：雙擊列表框中一個項目時發(fā)生 列表框 ? 常用方法 1） AddItem：添加項目 格式：對象 .AddItem 列表項 [，下標 ] 如： List1. AddItem ―工程師 ” ,4 ‘把 “ 工程師 ” 添加到列表框，且下標為 4。 說明：若省略下標，則表示把新項目添加為列表框最后一項。 注意：下標不能超過當前下標最大值 ? 2） RemoveItem：刪除指定的項目 格式： 對象 .RemoveItem 下標 如： List1. RemoveItem 4 39。刪除列表框的第 5項（下標為 4） ? 3） Clear：刪除列表框所有的項目 格式：對象 .Clear 組合框（ ComboBox） ?組合框是列表框和文本框的組合，即允許用戶從已有的選項中進行選擇，也允許輸入列表中不包括的內容。所以組合框具有列表框和文本框的大部分屬性和方法。 ?常用屬性 1） List：同 ListBox 2） ListCount：同 ListBox 3） ListIndex：同 ListBox 4） Text：同 TextBox 組合框 ? 5） Style：決定了組合框的三種不同類型，只讀 默認值為 0，表示類型為 Dropdown Combo(下拉組合框 )； 若為 1，則表示 Simple Combo(簡單組合框 )； 若為 2，則表示 Dropdown List(下拉列表框 ) 參見例子 組合框 ? 常用事件 1） Click：單擊組合框中一個項目時發(fā)生 2） DblClick：雙擊組合框中一個項目時發(fā)生（只對簡單組合框有效） 3） Change：組合框的文本框部分內容發(fā)生改變時發(fā)生 參見例子 ? 常用方法 1） AddItem：同 ListBox 2） RemoveItem：同 ListBox 3） Clear：同 ListBox 例 ? 題目：建立一個調查信息程序，如下所示。要求： 1）通過選擇組合框的項目，實現(xiàn)以不同的字體顯示列表框 2）可以將文本框中所示姓名添加至列表框中 3）可以將選定的人員姓名從列表框中刪除 設計模式 運行模式 例 ? Private Sub Form_Load() 沈曉詠 石兆峰 宋紅霞 疏達明 = 宋體 宋體 黑體 仿宋 _GB2312 楷體 _GB2312 = End Sub 例 ? Private Sub Combo1_Click() = End Sub ? Private Sub Command1_Click() 39。 ―添加人員 ” 按鈕 If Then End If End Sub ? Private Sub Command2_Click() 39。 ―刪除人員 ” 按鈕 If 1 Then End If End Sub 實驗四 ? 46：找出 200以內所有 7的倍數(shù)，并把它們添加到一個列表框中。如果單擊列表框中一個項目，則在文本框中顯示出來；如果雙擊一個項目，則將其從列表框中刪除
教學課件相關推薦
鄂ICP備17016276號-1