【正文】 數(shù)累加。 在進入內(nèi)循環(huán)之前，使用 Print Tab()來對起始輸出位置定位，退出內(nèi)循環(huán)后，使用 Print來控制換行。確定開始顯示的坐標(biāo) Print , 五元 , 二元 , 一元 n = 0 39。 自動出現(xiàn)滾動條 表項 索引 2. 常用屬性 (1)Name屬性 (2)List屬性：該屬性是一個字 符型數(shù)組 , 用于存放列表框的表項 數(shù)組的下標(biāo)從 0開始 圖 ， (0)的值為 “教授”， (1)的值為“副教授” 列表框 中國最大的資料庫下載 (3)ItemData屬性 ：為每個表項設(shè)置一個對應(yīng)的數(shù)值 (4)ListCount屬性 ：返回列表框中表項的數(shù)目 (5)ListIndex屬性 ：返回已選定表項的順序號 (索引 )。清除列表框的內(nèi)容 For i = 0 To 1 39。獨有的一些屬性： (1)Style屬性 ：該屬性取值為 0， 1或 2，分別決定了組合框的三種不同類型 下拉組合框 (Dropdown Combo) 簡單組合框 (Simple Combo) 下拉列表框 (Dropdown List) 組合框 中國最大的資料庫下載 (2)Text屬性 ：該屬性是用戶所選定項目的文本或直接從文本框輸入的文本 中國最大的資料庫下載 (1)創(chuàng)建應(yīng)用程序的用戶界面 (2)設(shè)置對象屬性 組合框的 Style屬性為 0， TabIndex(鍵序 )為 0 兩個標(biāo)簽；四個命令按鈕； 一個文本框 Text1，用來顯示當(dāng)前的選修課總課程數(shù) 例 編制程序，把一批課程名放入組合框中，再對組合框進行項目顯示、添加、刪除、全部刪除等操作 中國最大的資料庫下載 (3)編寫程序代碼 Private Sub Form_Load() 電子商務(wù) 網(wǎng)頁制作 Inter簡明教程 計算機網(wǎng)絡(luò)基礎(chǔ) 多媒體技術(shù) = 39。1表示無表項 ind 39。輸出標(biāo)題 FontSize = 12 Print 39。輸出第一行數(shù)字 Next k Print 39。內(nèi)循環(huán) Print Tab(k * 4)。換行 Next j End Sub 程序舉例 例 打印 “ 九九乘法表 ” 中國最大的資料庫下載 打印“九九乘法表” 中國最大的資料庫下載 (1)分析 ：模仿十進制整數(shù)轉(zhuǎn)換成二進制數(shù)的方法 (即“除 2取余” )，采用逐次“ 除 n取余 ”法 (n為 2， 8或 16)，即用 n不斷去除要轉(zhuǎn)換的十進制數(shù)，直至商為 0為止，將每次所得的余數(shù)逆序排列 (以最后余數(shù)為最前位 )，即得到所轉(zhuǎn)換的 n進制數(shù)。未選，則以二進制轉(zhuǎn)換 Else n = () End If y = ： x = Val() If x = 0 Then = Exit Sub End If Do While x 0 s = x Mod n 39。“結(jié)束” Unload Me End Sub 示例： (142)10 = (8E)16 中國最大的資料庫下載 例如： 10＝ 2*5 24=2*2*2*3 76=2*2*19 解題的步驟；程序代碼： Private Sub Form_Load() Show s = InputBox(請輸入一個正整數(shù) ) x = Val(s) ： Print Print x。 If x 1 Then Print *。最后計算 4*n/s就是所求的 π近似值。調(diào)用過程 form_load End Sub 。畫線和圓弧 Line (0, 2500)(2500, 2500), RGB(255, 0, 0) Line (2500, 0)(2500, 2500), RGB(255, 0, 0) Circle (0, 0), 2500, RGB(0, 0, 255) 39。如果采用 s和 n來分別記錄落在正方形內(nèi)和 1/4圓內(nèi)的隨機點數(shù)。 For i = 2 To x Do While (x Mod i = 0) 39。求商 y = Mid(Ch, s + 1, 1) + y 39。“轉(zhuǎn)換”按鈕單擊事件過程 Dim y As String, x As Long, s As Integer Dim Ch As String, n As Integer Ch = 0123456789ABCDEF 39。 39。外循環(huán) Print j。 k。設(shè)置字號 Print Tab(12)。表項個數(shù) End Sub Private Sub Command1_Click() 39。真時為選定 (i) End If Next i End Sub Private Sub Command2_Click() 39。單擊“清除”按鈕時，將清除右列表框中的內(nèi)容 (2)編寫程序代碼 例 設(shè)計一個選課程序 中國最大的資料庫下載 Private Sub Form_Load() 電子商務(wù) 網(wǎng)頁制作 Inter簡明教程 計算機網(wǎng)絡(luò)基礎(chǔ) 多媒體技術(shù)“ End Sub Private Sub Command1_Click() 39。 n。 For j = 1 To 2 * i 1 Print Chr(i + 48)。條件為真，循環(huán)無終止進行下去 x = Val(InputBox(請輸入要加入的數(shù) (1表示結(jié)束 ), 輸入數(shù)據(jù) )) If x = 1 Then Exit Do End If