第六章课后题答.docVIP

第六章课后习题答案 2. B 3. 不对。既可以在标准模块，也可以在窗体模块中。 4. B 6. Swap2能实现a和b的交换 7. ②③④⑤⑥ 8. Private Sub Form_click() Dim n As Integer n = InputBox(输入n:) If Even(n) Then Print n; 为偶数 Else Print n; 为奇数 End If End Sub Private Function Even(ByVal x As Integer) As Boolean If x Mod 2 = 0 Then Even = True Else Even = False End If End Function 9. Private Sub Form_click() Dim a As Single, b As Single, c As Single a = Val(Text1): b = Val(Text2): c = Val(Text3) Text4 = Maxnum(a, b, c) End Sub Private Function Maxnum(ByVal x As Single, ByVal y As Single, ByVal z As Single) As Single Maxnum = x If Maxnum y Then Maxnum = y If Maxnum z Then Maxnum = z End Function 10. Private Sub Form_click() Dim yearNum As Integer yearNum = InputBox(输入年份) If IsLeapYear(yearNum) Then Print yearNum; 年是闰年 Else Print yearNum; 年不是闰年 End If End Sub Private Function IsLeapYear(ByVal y As Integer) As Boolean If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 Then IsLeapYear = True Else IsLeapYear = False End If End Function 11 Private Sub Form_click() Dim n As Integer n = InputBox(输入n：) Print sumN(n) End Sub Private Function sumN(ByVal n As Integer) As Long Dim i As Integer Dim sum As Integer For i = 1 To n sum = sum + i ^ 2 Next sumN = sum End Function 12. Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim x1 As Single, x2 As Single a = Val(Text1): b = Val(Text2): c = Val(Text3) root a, b, c, x1, x2 Text4 = x1 Text5 = x2 End Sub Private Sub root(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, x1 As Single, x2 As Single) Dim delt As Integer delt = b * b - 4 * a * c x1 = (-b + Sqr(delt)) / (2 * a) x2 = (-b - Sqr(delt)) / (2 * a) End Sub 15. Private Sub cmdOk_Click() Dim i As Integer Static x As Integer If txtPass.Text = 12345 Then MsgBox 密码输入正确,