原创力文档- 1、本文档共6页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
第8章实验答案
实验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
文档评论（0）