大学上机及课后习题答案选择分支与循环.pdfVIP

大学上机及课后习题答案选择分支与循环 第五章 选择分支与循环 1．阅读程序，写出执行结果。 (1)Private Sub Form_Click() Dim a As Integer, b As Integer a = 1: b = 0 Do While a = 5 b = b + a * a a = a + 1 Loop Print a, b End Sub 运行结果为： 6 55 (2)Private Sub Form_Click() Dim ch As String, i As Integer ch = DEF For i = 1 To Len(ch) ch = Mid(ch, 2 * i - 1, 1) Left(ch, Len(ch)) Print ch N