vb 程序设计教程(机械工业出版社)习题答案 实验5.docVIP

实验5 习题1 程序 Private Sub Form_Click() Dim i%, j%, k%, a% Print 水仙花数如下 For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = i * 100 + j * 10 + k If a = i * i * i + j * j * j + k * k * k Then Print a Next k Next j Next i End Sub 截图 习题2 程序 Private Sub Form_click() Dim i%, j% For j = 0 To 3 For i = 65 To 69 If i + j 70 Then Print Chr(i + j); Else Print Chr(i + j - 5); End If Next i Print Next j End Sub 截图 习题3 程序 Private Sub Form_Click() Dim i%, j! j = 1 For i = 2 To 19 j = j + (-1) ^ (i - 1) / (i * (i + 1)) Next i Print 结果为; j End Sub 截图 习题4 程序 Private Sub Form_Click() Dim x%, y%, z%, a%, b% For x = 0 To 9 For y = 0 To 9 For z = 0 To 9 a = x * 100 + x * 10 + y b = y * 100 + z * 10 + z If a + b = 532 Then Print x; y; z Next z Next y Next x End Sub 截图