1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            二級vb上機江蘇2010春第三套試卷答案

            1.改錯題

            Option Explicit
            Private Sub Command1_Click()
            Dim N As Integer, k As Integer
            For N = 20 To 180
                k = N ^ 2
                If sx(k) Then
                    List1.AddItem N & "^2=" & k
                End If
            Next
            If  List1.ListCount <> 0   Then List1.AddItem "無升序平方數"       '錯誤點1修改為  List1.ListCount = 0 
            End Sub
            Private Function sx(ByVal N As Integer) As Boolean
            Dim num() As Integer, k As Integer, p As Integer
            Dim i As Integer
            Do
                p = N Mod 10
                k = k + 1
                ReDim Preserve num(k)
                num(k) = p
                N = N \ 10
            Loop Until N<0   '錯誤點2,應修改為 N = 0

            For i = 2 To UBound(num)
                If num(i) >num(i - 1) Then Exit Function '錯誤點3  修改為num(i) > num(i - 1)
            Next i
            sx = True
            End Function

            国产在线精品一区二区三区不卡_亚洲第一极品精品无码_永久免费无码网站在线观看_亚洲av综合日韩