【正文】 數(shù)據(jù)；Average 過程用于計算各行的平均值；PrintArray過程用于打印二維數(shù)組和行平均值。 元End SubPublic Sub SalaryData() salary(1) = 1398 salary(2) = 1765 salary(3) = 689 salary(4) = 1500 salary(5) = 832 salary(6) = 590 salary(7) = 1200End Sub。 張 合計 amp。 張 共需1元 amp。 張 共需5元 amp。 張 共需10元 amp。 張 共需50元 amp。工資總計 Dim i As Integer, temp As Integer totalhundred = 0 totalfifty = 0 totalten = 0 totalfive = 0 totalone = 0 totalsalary = 0 For i = 1 To 7 temp = 1 hundred = Int(temp / 100) temp = 2 fifty = Int(temp / 50) temp = temp fifty * 50 ten = Int(temp / 10) temp = temp ten * 10 five = Int(temp / 5) temp = temp five * 5 one = 3 totalhundred = totalhundred + hundred totalfifty = totalfifty + fifty totalten = totalten + ten totalfive = totalfive + five totalone = totalone + one totalsalary = 4 Next i 共需100元 amp。5元票面數(shù)量、總數(shù)量 Dim one As Integer, totalone As Integer 39。50元票面數(shù)量、總數(shù)量 Dim ten As Integer, totalten As Integer 39。（工資單位是元） 程序如下：Dim salary(7) As IntegerPublic Sub Money() Dim hundred As Integer, totalhundred As Integer 39。該模塊中的Money過程是用于統(tǒng)計一個有7個工作人員的餐廳發(fā)工資所需的100元、50元、10元、5元和1元的票面數(shù)，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。隨機產(chǎn)生0或1，為0時取負，為1時取正 j = Int(Rnd * 2) If 3 Then J = 1 a(i) = j * Int(Rnd * (n + 1)) a(i)。數(shù)據(jù)由SCSJ過程產(chǎn)生，數(shù)據(jù)的取值范圍為10 ~ 10 之間的隨機整數(shù)Public Sub TJ() Dim i As Integer Dim t As Single 1 For i = 1 To 10 If 2 Then t = t * a(i) End If Next i T=。 程序如下：Private Const n = 10Private a(1 To n) As Integer39。該模塊中的TJ過程是將一批數(shù)據(jù)中小于零的數(shù)及它們的積打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。****** 錯誤4 ****** Next two k=。 five End If 39。 two。 one。******* 錯誤1 ******** For two = one + 1 To n five = n one two 39。總數(shù)20枚 Dim k As Integer 39。二分硬幣個數(shù) Dim five As Integer 39。輸出取法的數(shù)量及每一種取法的一分、二分、五分的個數(shù) Dim one As Integer 39。 程序如下：Public Sub CountTo60() 39。 is armstrong number End If Next iEnd Sub。十位上的數(shù)字 Dim one As Integer 39。 程序如下：Public Sub ArmstrongNumber() Dim armstrong As Integer Dim i As Integer Dim hundred As Integer 39。所謂Armstrong數(shù)是指一個數(shù)等于它每位上數(shù)字的立方和。 Str(X) End IfEnd Sub。****** 錯誤3 ****** Loop While times 5 If times 5 Then 猜數(shù)失敗,游戲結束! 39。產(chǎn)生一個1100 的任意整數(shù) times = 1 Do X = Val(InputBox(輸入猜數(shù)X)) Select Case X Case R 猜中了 Exit Do 39。 程序如下：Public Sub Guess() Dim R As Integer Dim X As Integer Dim times As Integer Randomize 39。 個 End IfEnd Sub。查到的個數(shù) Dim i As Integer str1 = InputBox(請輸入一個字符串) length = 1 i = 1 sum = 0 Do While i = 2 If 3 = at Then sum = sum + 1 End If i = i + 1 Loop If 4 Then MsgBox 沒有找到！ Else MsgBox 找到了 amp。在字符串str1中查找at Dim str1 As String Dim length As Integer 39。該模塊中的Findat過程是用于在一個字符串變量中查找at，并用消息框給出查找結果的報告：沒有找到或找到的個數(shù)，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。******** 錯誤3 ********** x(p) = x(p) 1 Next i 統(tǒng)計結果 For i = 1 To 10 p = i If i = 10 Then p = 0 39。******** 錯誤2 ********** p = Int(a(i) / 10) 39。統(tǒng)計個位上的數(shù)字分別為1，2，3，4，5，6，7，8，9，0的數(shù)的個數(shù) 39。 a(i)。 a(i)。每行10個打印出來 For i = 1 To 100 39。 程序如下：Public Sub calculate() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer 39。 4End Sub2．。!。1．。（3）按試題要求保存工程。 Basic系統(tǒng)的，則首先需要添加一個窗體模塊。（6），如圖218所示。同時清空列表框List2中的內(nèi)容。（3）窗體的右邊有一個標簽Label2，標題為“偶數(shù)：”，標簽的下面是一個列表框List2。、具體要求如下：（1）窗體的標題為“偶數(shù)遷移”，固定邊框。（6），如圖217所示。（4）標簽Label1的下面有一個標簽Label2，標題為“替換為：”，標簽Label2的右邊是一個文本框Text3，可以在Text3中輸入替換為的內(nèi)容。（2）窗體的上半部是一個文本框Text1，可以多行顯示文字。圖216 “倒計時”程序運行效果 17．，新建一個工程，完成“替換”程序的設計。（6）定時器Timer1的時間間隔為1秒。（4）單擊“開始計時”按鈕(Command1)后，程序根據(jù)選擇的時間開始倒計時，同時命令按鈕變?yōu)椴豢墒褂?，框架也不可使用。?）窗體的左邊有一個框架Frame1，標題為“選擇時間”；框架內(nèi)有一組單選鈕控件數(shù)組，從上到下為Option1(0)、Option1(1)和Option1(2)，標題分別為“1分鐘”、“5分鐘”和“10分鐘，默認選擇為1分鐘。圖215 “字體設置”程序運行效果 16．，新建一個工程，完成“倒計時”程序的