【正文】 39。**********SPACE********** a(i) = CInt(10 【 *】 Rnd + 1) Next For i = 1 To 9 39。**********SPACE********** If a(i) 【 ?】 Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next End Sub 答案： 1). * 2). i + 1 或 1 + i 3). a(j) 〖第 12 題〗『程序填空』 (1 分 )(題號 :537) 39。39。 Text7 中顯示前 6 個文本框中的數(shù)值的最大數(shù) 請在【】處填入正確的內(nèi)容 Private Sub Command1_Click() Dim a, b, c, d, e, f, m As Integer a = Val(): b = Val(): c = Val() d = Val(): e = Val(): f = Val() Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) 39。**********SPACE********** Sub max(x, y, z, 【 ?】 ) If x y Then m = x Else m = y End If 39?！境绦蛱羁铡? 39。題目：代碼功能：輸入數(shù)字 17,顯示其對應(yīng)的星期幾 (例 :輸入 39。**********SPACE********** 【 ?】 case 1 y=今天是星期日 case 2 y=星期一 case 3 y=星期二 case 4 y= 星期三 case 5 y=星期四 case 6 39。**********SPACE********** 【 ?】 y = 輸入錯誤 end select = y End Sub 答案： 1). select case x 2). y=星期五 3). Case Else 〖 第 14 題〗『程序填空』 (1 分 )(題號 :64) 39。題目：輸入任何一個英文字母 x,若 x 的值 為 a,c,df ,則 39。 小寫字母；若為其它的值 ,則顯示 xa（如輸入的 X 的值是 39。 Private Sub Command1_Click() x = 39。**********SPACE********** Case 【 ?】 = UCase(x) Case m, o, p To z = LCase(x) Case Else 39?！境绦蛱羁铡? 39。(1) 對于己知兩數(shù) m、 n，使得 mn。(2) m 除以 n 得余數(shù) r。(3) 若 r=0，則 n 為求得的最大公約數(shù)，算法結(jié)束；否則執(zhí)行 (4) 39。原兩數(shù)相乘除以最大公約數(shù)即為最小公倍數(shù)，程序如下 : 39。**********SPACE********** 【 ?】 39。**********SPACE********** Do While 【 ?】 39。 m 最小公倍數(shù) =?！境绦蛱羁铡? 題目：下面的程序?qū)崿F(xiàn)：從鍵盤輸入一個數(shù)字，將其插入一個 39。 Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i 1 Print a(i)。**********SPACE********** 【 ?】 i = 8 Do While a(i) x 39。**********SPACE********** If i 0 Then 【 ?】 For i = 1 To 9 Print a(i)?！境绦蛱羁铡? 39。題目：將字符串 S1 反向輸出 39。**********SPACE********** Call Invert(【 ?】 , s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String Dim i As Integer 39。**********SPACE********** 【 ?】 ystr = tempstr End Sub 答案： 1). s1 2). Len(xstr) 3). Loop 〖第 18 題〗『程序填空』 (1 分 )(題號 :38) 【程序填空】 題目：下面的程序段，用于實現(xiàn)在一個 nXm 的矩陣中，找出值最 39。 Private Sub Form_Click() Dim mat() As Integer Dim n, m As Integer n = Val(InputBox(請輸入矩陣的行數(shù) )) m = Val(InputBox(請輸入矩陣的列數(shù) )) 39。 Next j Print Next i Max = mat(1, 1) For i = 1 To n For j = 1 To m 39。**********SPACE********** 【 ?】 End If Next j Next i Print Print 矩陣最大的元素的值為： 。 row。 col End Sub 答案： 1). ReDim mat(n, m) As Integer 2). Max mat(i, j) 或 mat(i, j) Max 3). row = I〖第 26 題〗『程序填空』 (1 分 )(題號 :529) 19【程序填空】題目：窗體上建立了兩個文本框 Text1(輸入字符串 )及 39。 39。 小寫轉(zhuǎn)為大寫 請在【】處填入正確的內(nèi)容 Private Sub Command1_Click() = = End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 39。**********SPACE********** Case A 【 ?】 Z s = LCase(s) Case a To z 39。 且不能畫出圖片框 ? 39。**********SPACE********** CX = 【 ?】 CY = / 2 39。**********SPACE********** For Radius = 0 To 【 ?】 (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next Radius End Sub 答案： 1). / 2 2). Limit = CX 3). Limit 〖第 21 題〗『程序填空』 (1 分 )(題號 :52) 【程序填空】 39。 39。 *** 39。 ******* 39。 *** 39。 Private Sub Form_Click() Dim i%, j%, k% For i = 0 To 3 For j = 0 To 2 i Print 。**********SPACE********** For k = 0 To 【 ?】 Print *。**********SPACE********** 【 ?】 Next j For k = 0 To 4 2 * i Print *。**********SPACE********** 【 ?】 Next i End Sub 答案： 1). 2★ *★ i★ +★ 1 2). Print 。題目：代碼功能：求 1!+2!+?? 10!的值。**********SPACE********** 【 ?】 s = 1 For I = 2 To 10 t = t * I 39。**********SPACE********** 【 ?】 Print s End Sub 答案： 1). t = 1 2). s =★ s★ +★ t 3). Next I 或 Next 〖第 23 題〗『程序填空』 (1 分 )(題號 :515) 39。題目：由輸入對話框輸入 n（ n 必須為大于零且小于 30 的自然數(shù)）， 39。 39。請在【】處填入正確的內(nèi)容 39。**********SPACE********** Do While n = 0 【 ?】 n = 30 n = Val(InputBox(n=, 請重輸入 )) Loop sum = 0 k = 0 Do 39。**********SPACE********** Loop Until k = 【 ?】 = Sum= + Str(sum) End Sub 答案： 1). Or 2). k + 1 或 1 + k 3). = n 2 39。 39。設(shè)貨物運費每噸 39。 39。 Private Sub Form_Click() Dim w!, s! Dim p As Currency, t As Currency w = InputBox(請輸入貨物重量 ) s = InputBox(請輸入托運距離 ) Select Case s Case Is 100 p = 30 39。**********FOUND********** Case Other p = 20 39。 t。 39。 39。 39。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu) 39。**********FOUND********** work = b * 2 4 * a * c If work = 0 And a 0 Then 39。**********FOUND********** root2 = (Sqr(work)) / (2 * a) 有二個實根 + Str$(root1) + , + Str$(root2) Else 無實根 ! End If End Sub 答案： 1). work = b ^ 2 4 * a * c 2). root1 = (b + Sqr(work)) / (2 * a) 或 root1 = ( Sqr(work) b ) / (2 * a) 3). root2 = (b Sqr(work)) / (2 * a) 或 root2 = ( Sqr(work) b) / (2 * a) 〖第 26 題〗『程序改錯』 (1 分 )(題號 :119) 39。【程序改錯】 39。題目：在下面的程序段中過程 pd 可以判斷任意三個數(shù)能