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

            改錯題:

            Option Explicit
            Private Sub Command1_Click()
            Dim N As Integer, K As Long, St As String
            For N = 500 To 800
                K = N ^ 2
                If Validate(N) And Validate(K) Then
                    St = N & "^2=" & K
                    List1.AddItem St
                End If
            Next N
            End Sub
            Private Function Validate(ByVal N As Long) As Boolean '錯誤點1byval
            Dim P As String, i As Integer, a() As Integer, j As Integer
            P = CStr(N) '錯誤點2str(n)
            ReDim a(Len(P))
            For i = 1 To Len(P)
                a(i) = Mid(P, i, 1)
            Next i
            For i = 1 To UBound(a) - 1
                For j = i + 1 To UBound(a)
                    If a(i) = a(j) Then Exit Function     '錯誤點3Exit For
                Next
            Next
            Validate = True
            End Function

             


             

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