<samp id="uu9tx"></samp>
        <samp id="uu9tx"><tr id="uu9tx"><nav id="uu9tx"></nav></tr></samp>
        <delect id="uu9tx"><legend id="uu9tx"><meter id="uu9tx"></meter></legend></delect>
                <samp id="uu9tx"><tr id="uu9tx"><meter id="uu9tx"></meter></tr></samp><nav id="uu9tx"></nav>
                <samp id="uu9tx"></samp>
                  <samp id="uu9tx"><tr id="uu9tx"><meter id="uu9tx"></meter></tr></samp>
                  江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
                  二級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

                  亚洲欧美日韩国产一区二区三区_全亚洲免费一级黄片_国产一区二区三区不卡视频手机版_国产污三级网站在线观看