二级实训

Do While i <= If = \ sum = sum + 1 End If i = i + 1 Loop

If Then

MsgBox \没有找到！\ Else

MsgBox \找到了\个\

End If End Sub 9．【程序说明】ArmstrongNumber过程是用于求出1--999之间所有的Armstrong数，并打印出来，但不完整，请在横线上填入必要的内容，使其完整。所谓Armstrong数是指一个数等于它每位上数字的立方和。例如：371=3^3+7^3+1^3，那么371就是一个Armstrong数。 【程序】

Public Sub ArmstrongNumber() Dim armstrong As Integer Dim i As Integer

Dim hundred As Integer '百位上的数字 Dim ten As Integer '十位上的数字 Dim one As Integer '个位上的数字 For i = 1 To 999

hundred = ten = one = If Then

Form1.Print i; \ End If Next i

End Sub

10. 【程序说明】TJ过程是将一批数据中小于零的数及它们的积打印出来，但不完整，请在横线上填入必要的内容，使其完整。SCSJ过程是产生数据，数据的取值范围为-10 ~ 10 之间的随机数。 【程序】

Private Const n = 10

Private a(1 To n) As Integer

'TJ过程是将一批数据中小于零的数及它们的积打印出来

'数据由SCSJ过程产生，数据的取值范围为-10 ~ 10 之间的随机整数 Public Sub TJ() Dim i As Integer Dim t As Single For i = 1 To 10

If Then t = t * a(i) End If Next i

Form1.Print \End Sub

Public Sub SCSJ() Randomize

Form1.Print \原始数据\ Dim i As Integer Dim j As Integer

For i = 1 To n

'随机产生0或1，为0时取负，为1时取正 j = Int(Rnd * 2)

If Then J = -1 a(i) = j * Int(Rnd * (n + 1)) Form1.Print a(i); Next i Form1.Print

End Sub

11. 【程序说明】已有一模块文件Modify.Bas。该模块中的Money过程是用于统计一个有7个工作人员的餐厅发工资所需的100元、50元、10元、5元和1元的票面数，但不完整，请在横线上填入必要的内容，使其完整。 SalaryData过程是给出7个员工的工资。（工资单位是元） 【程序】

Dim salary(7) As Integer

Public Sub Money()

Dim hundred As Integer, totalhundred As Integer '100元票面数量、总数量 Dim fifty As Integer, totalfifty As Integer '50元票面数量、总数量 Dim ten As Integer, totalten As Integer '10元票面数量、总数量 Dim five As Integer, totalfive As Integer '5元票面数量、总数量 Dim one As Integer, totalone As Integer '1元票面数量、总数量 Dim totalsalary As Integer '工资总计 Dim i As Integer, temp As Integer For i = 1 To 7 temp =

hundred = Int(temp / 100) temp = 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 = totalhundred = totalhundred + hundred totalfifty = totalfifty + fifty totalten = totalten + ten

totalfive = totalfive + five totalone = totalone + one

totalsalary = Next i

Form1.Print \共需100元\张\ Form1.Print \共需50元\张\ Form1.Print \共需10元\张\ Form1.Print \共需5元\张\ Form1.Print \共需1元\张\ Form1.Print \合计\元\End Sub

Public Sub SalaryData() salary(1) = 1398 salary(2) = 1765 salary(3) = 689 salary(4) = 1500 salary(5) = 832 salary(6) = 590 salary(7) = 1200

End Sub

12.【程序说明】FindMax过程是用于查找一批数据中的最大数，并打印出最大数的值及最大数在数组中的下标值，但不完整，请在横线上填入必要的内容，使其完整。GenerateData过程用于产生30个[1-500]之间的随机整数并5个一行打印出来。 【程序】

Dim a(30) As Integer Public Sub FindMax()

Dim Position As Integer '最大数在数组中的下标 Dim max As Integer '最大数 Dim i As Integer GenerateData max = Position = For i = 2 To 30 If a(i) > max Then max = Position = End If Next i

Form1.Print \最大值=\

Form1.Print \最大值的下标=\End Sub

Public Sub GenerateData() Dim i As Integer For i = 1 To 30

a(i) = Int(500 * Rnd() + 1) Form1.Print a(i),

If i Mod 5 = 0 Then Form1.Print

Next i End Sub

13. 【程序说明】Prime 过程是求出100到200之间所有的素数，并打印出来，但不完整，请在横线上填入必要的内容，使其完整。 【程序】

Public Sub prime()

'打印出100到200之间所有的素数，并统计素数的个数 Dim i As Integer Dim j As Integer

Dim k As Integer

Dim t As Integer '统计素数的个数 Dim b As Boolean For i = 100 To 200 b = True j = Int(Sqr(i))

Do While k <= j And b If i Mod k = 0 Then End If Loop

if then t = t + 1 Form1.Print i End If Next i

Form1.Print \End Sub

14. 【程序说明】Transpose过程用于产生一个转置矩阵（所谓转置是指将二维数组中所有行和对应列的元素进行交换），但不完整，请在横线上填入必要的内容，使其完整。Swap过程用于交换两个变量的值。 【程序】 Public Sub Transpose()