程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第8章实验答案.docVIP

实验8-1 有一个阶梯，如果每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；每步跨7阶，正好到达阶梯顶。问阶梯至少有多少阶？ （1） Private Sub Form_Click() Dim m As Integer Do If m Mod 2 = 1 And m Mod 3 = 2 And m Mod 4 = 3 And m Mod 5 = 4 And m Mod 6 = 5 And m Mod 7 = 0 Then Print m Exit Do End If m = m + 1 Loop End Sub （2） Private Sub Form_Click() Dim m As Integer, n As Integer For n = 7 To 32767 Step 7 n整数，循环的最大值可以采用32767 If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 4 = 3 And n Mod 5 = 4 And n Mod 6 = 5 Then Print n Exit For End If Next n End Sub 实验8-2 利用循环结构显示如图8-4所示的界面。 图8-4 程序运行界面图 （1） Private Sub Form_Click() For i = 1 To 9 Print Tab(10 - i); String(2 * i - 1, Trim(Str(i))) Next i End Sub （2） Private Sub Form_Click() For i = 1 To 9 Print Tab(10 - i); For m = 1 To 2 * i - 1 Print Trim(Str(i)); Next m Print Next i End Sub Private Sub Form_Click() For i = 9 To 1 Step -1 Print Tab(10 - i); String(2 * i - 1, Chr(64 + 10 - i)) Next i End Sub Private Sub Form_Click() For i = 1 To 9 Print Tab(10 - i); String(2 * i - 1, Trim(Str(i))) Next i For i = 8 To 1 Step -1 Print Tab(10 - i); String(2 * i - 1, Trim(i)) Next i End Sub 实验8-3 求sn=a+aa+aaa+aaaa+…+aa…aaa（n个a），其中a是一个由随机数产生的1~9（包括1、9）中的一个正整数，n是一个由随机数产生的5～10（包括5、10）中的一个数。 Private Sub Form_Click() Dim sn!, w!, i%, a%, n% Randomize a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) sn = 0: w = 0 Print a=; a, n=; n Print sn=; For i = 1 To n w = w * 10 + a sn = sn + w If i = n Then Print w; Else Print w; +; Next i Print =; sn End Sub 实验8-4 在窗体上显示出所有的水仙花数。水仙花数是指一个3位数，其中各位数字立方和等于该数字本身。例如，153=13+53+33，所以153就是水仙花数。 （1） Private Sub Form_Click() Dim m As Integer, a%, b%, c%, n% n = 0 For m = 100 To 999 Step 1 a = m \ 100 b = (m - a * 100) \ 10 十位数上的数计算有多种表示方法，请同学思考 c = m Mod 10 If a ^ 3 + b ^ 3 + c ^ 3 = m Then Print m; n = n + 1 If n Mod 5 = 0 Then Print End If Next m End Sub （2） Private Sub Form_Click() Dim a%, b%, c%, m% For a = 1 To 9 For b = 0