【文章內(nèi)容簡介】 ④ b ① 1 ② n ③ 100 ① s1/v1 ② v2 ③ s2 祝您考試成功！ 第 10 頁 共 59 頁 Dim t As Integer a = Val() b = Val() t = a a = ① b = ② = ③ = ④ End Sub Vb專項練習 第六套 打開 考生文件夾 \30\工程 ，完善程序并保存。 實現(xiàn)功能： 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Command1_Click() Dim x As Single, y As Single a = 3: b = 5 ① = Val(InputBox(請輸入 x的值 )) If x 0 Then ② = x + 5 * a Else y = x 2 * b ③ Print y=。 CStr(y) End Sub 打開 “考生文件夾 \596\工程 ”，完善程序并保存。 實現(xiàn)功能： 當在文本 框 Text1中輸入圓的半徑后，單擊 “計算 ”按鈕，計算圓的周長，并在文本框 Text2中顯示出來。 39。填空完成程序，使得當在 Text1中輸入圓的半徑后，單擊 計算 按鈕，計算圓的周長，并在Text2中顯示出來。 39。注：請不要更改原程序結(jié)構(gòu)，刪除①、②、③，并在對應的位置填寫正確代碼 Private Sub Command1_Click() Const pi = 39。定義符號常量 Dim c As Single 39。定義周長 c為單精度型 Dim r As Single 39。定義半徑 r為單精度型 r = Val(① ) c = pi * ② ③ = CStr(c) End Sub 打開 “考生文件夾 \611\工程 ”，完善程序并保存。 實現(xiàn)功能：當 單擊 “顯示 ”按鈕后， Text Text2分別顯示交換后的變量 x、 y值。 39。填空完成程序，使得單擊 顯示 按鈕時， Text Text2分別顯示變量 x、 y的值。 39。注：請不要更改原程序結(jié)構(gòu)，刪除①、②、③，并在對應位置填寫正確的代碼 Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x y Then 39。以下三條語句交換 x,y的值 ① x ② y ③ end if ① x ② t ③ x ① ② r*2 ③ 祝您考試成功！ 第 11 頁 共 59 頁 t = ① x = y y = ② End If = ③ = CStr(y) End Sub 打開 “考生文件夾 \41\工程 ”，完善程序并保存。 某超市為了對蘋果進行促銷，規(guī)定購買 2公斤以上可以在原價每公斤 礎上打 8折。 實現(xiàn)功能： 輸入購買的蘋果公斤數(shù)，輸出應付款。 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Command1_Click() Dim x As Single Dim cost As Single x = Val(InputBox(請輸入蘋果 公斤數(shù) ： )) If x = 2 Then cost = ① Else cost = x * * ② Print ③ End Sub 打開 “考生文件夾 \20\工程 ”， 完善程序并保存。 某超市蘋果價格每斤 4元，購買 10斤以上 (包括 10斤 )將享受 8折優(yōu)惠。 實現(xiàn)功能：使得在 Text1中輸入重量并單擊 “計算 ”按鈕后，在 Label1中顯示對應的價格。 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Command1_Click() Dim x, s As Single x = Val() If ① Then s = 4 * ② Else s = 4 * x End If = CStr(③ ) End Sub Vb專項練習 第七套 打開 “考生文件夾 \614\工程 ”，完善程序并保存。 實現(xiàn)功能：當 單擊 “顯示 ”按鈕后，隨機產(chǎn)生 10個屬于 區(qū)間 [0， 100)的自然數(shù)，并保存于數(shù)組 a中，然后在窗體上顯示這 10個數(shù)中的最大值。 (注：學生運算結(jié)果有可能跟樣圖中數(shù)值不一致 ) 39。(注：學生運算結(jié)果有可能跟樣圖中數(shù)值不一致。 ) 39。注：請不要更改原程序結(jié)構(gòu)，刪除①、②、③，并在對應位置填寫正確的代碼 ① x* ② end if ③ cost ① x=10 ② x* ③ s 祝您考試成功！ 第 12 頁 共 59 頁 Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer Print Randomize For i = 0 To ① Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max a(i) Then max = ② End If Next i Print 這 10個自然數(shù)中的最大值 =。 CStr(③ ) End Sub 打開 “考生文件夾 \15\工程 ”， 完善程序并保存。 實現(xiàn)功能 ： 單擊按鈕后打印出下面所示的圖案。 (第一行的第一個 “*”從第 5列開始輸出 ) 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Command1_Click() Dim i, j As Integer For i = 1 To ① Print Tab(6 i)。 For j = 1 To ② Print ③ 。 Next j Print Next i End Sub 打開 “考生文件夾 \598\工程 ”，完善程序并保存。 舉重比賽中， 60公斤級選手體重不能超過 60公斤。 實現(xiàn)功能： 填空完成程序，使得在文本框 Text1中輸入一個大于 60的數(shù)時，標簽Label1顯示 “超重！不能參賽！ ”； 當輸入一個小于等于 60的數(shù)時，標簽 Label1顯示 “合格，可以參賽！ ”。 39。舉重比賽中， 60公斤級選手體重不能超過 60公斤。 39。填空完成程序，使得在文本 Text1中輸入一個大于 60的數(shù)時，標簽 Label1顯示 超重！不能參賽！ ； 39。當輸入一個小于等于 60的數(shù)時，標簽 Label1顯示 合格，可以參賽！ 。 39。注：請不要更改原程序結(jié)構(gòu)，刪除①、②、③，并在對應位置填寫正確的代碼 Private Sub Command1_Click() Dim t As Single 39。定義變量 t，值由文本框 Text1讀入 t = Val(① ) If ② Then = 超重！不能參賽！ Else = 合格，可以參賽！ ③ End Sub 打開 “考生文件夾 \108\工程 ”，完善程序并保存。 實現(xiàn)功能： 判斷從文本框 Text1中輸入的數(shù)據(jù)，如果該數(shù)據(jù)滿足條件：除以 3余 2，① ② t60 ③ end if ① 9 ② a(i) ③ max ① 4 ② 5 ③ “*” 祝您考試成功！ 第 13 頁 共 59 頁 除以 5余 3，除以 7余 4，則輸出在窗體上。 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Command1_Click() x = Val() If x Mod 3 = 2 Then If ① = 3 Then If ② Then Print ③ End If End If End If End Sub 打開 “考生文件夾 \181\工程 ”，完善程序并保存。 實現(xiàn)功能： 從鍵盤輸入 10個學生的測試成績，輸出最高分和 最低分。 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Command1_Click() Dim cj(10) As Single Dim i As Integer Dim max As Single Dim min As Single For i = 1 To 10 cj(i) = Val(InputBox(請輸入 10 個學生的成績 , 成績輸入 )) Next i max = cj(1) min = cj(1) For i = 2 To 10 If cj(i) max Then max = ① End If If ② Then min = ③ End If Next i Print CStr(max), CStr(min) End Sub Vb 專項練習第八套 打開 “考生文件夾 \117\工程 ”， 完善程序并保存。 實現(xiàn)功 能： 當單擊窗體后，計算 22＋ 42＋ 62＋?＋ N1500的 N的最大值 。 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Form_Click() Dim s As Integer Dim N As Integer N = 22 s = 0 Do s = s + ① N = ② Loop Until s 1500 Print N= amp。 CStr(③ ) End Sub 打 開 “考生文件夾 \9\工程 ”，完善程序 并保存。 實現(xiàn)功能： 輸入 10個數(shù)，存放在數(shù)組中，并按輸入的逆序輸出在窗體上。 39。請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③。填寫正確的代碼，使程序完善 Private Sub Command1_Click() Dim s(9) As Single For i = 0 To 9 ① x mod 5 ② x mod 7=4 ③ x ① cj(i) ② cj(i)min ③ cj(i) ① s(i) ② 1 ③ s(i) ① n ② n+20 ③ n20 祝您考試成功！ 第 14 頁 共 59 頁 ① = Val(InputBox(請輸入一個數(shù) )) Next i For i = 9 To 0 Step ② Print ③ Next i End Sub 打開 “考生文件夾 \87\工程 ”， 完善程序 并保存。 實現(xiàn)功能： 通過鍵盤輸入 10 個數(shù)，統(tǒng)計這 10個數(shù)的和。 39。請不