<source id="v77gz"></source>
    <u id="v77gz"><p id="v77gz"></p></u>

      <samp id="v77gz"></samp>

      <var id="v77gz"><td id="v77gz"><ins id="v77gz"></ins></td></var>

      <video id="v77gz"></video>
      <source id="v77gz"></source>
    1. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      2013秋江蘇省二級VB上機真題第1套

      江蘇高等學校非計算機專業學生

      計算機基礎知識和應用能力等級考試上機試卷(2013秋)

      二級 Visual Basic語言(試卷代號VB01

      (本試卷完成時間   70分鐘)

      【考試須知】

      1. 改錯題的界面不作要求,主要用來調試程序,若題目中有參考界面,則僅作參考;

      2. 考試結束后,文件必須存放在指定位置,否則適當扣分;考試盤中若無指定文件,則不予評分;

      3. 程序代碼書寫應呈鋸齒形。

       

      一、改錯題(14分)

      【題目】

      本程序的功能是生成由nn通過InputBox函數輸入)個3位升序數構成的隨機數組,所謂升序數是指從高位到低位數字值依次增加的整數

      (本程序界面由1TextBox1CommandButton組成,所有對象均采用缺省名)

       

      Option Explicit

      Option Base 1

      Private Sub Command1_Click()

        Dim n as long, a() As Integer, k as Integer, p as Integer

        n=InputBox(“輸入數據個數;,”升序數數組”,10)

        Redim a(n)

        Do

           p= Int(Rnd*900)+101

           If judge(p) Then

             k=k+1

             a(k)=p

             Text1.text=Text1.text & Str(a(k))

             If K Mod 5=0 Then Text1.text = Text1.text & vbcrlf

           End If

        Loop Until k>n

      End Sub

       

      public Function judge(n as integer) As Boolean

        Dim i as integer, a(3) as integer

        For i=3 To 1 Step -1

            a(i)= n Mod 10

            n=n\10

        Next i

        For i=1 to 2

          If a(i)>=a(i+1) Then Exit For

        Next i

        judge=True

      End Function

      1.新建工程,按參考界面形式創建窗體,再從T盤根目錄下的err.txt文件中將有錯誤的程序代碼復制到代碼編輯器窗口中或自行輸入上述代碼,改正程序中的錯誤。

      2.改錯時,不得增加或刪除語句,但可適當調整語句的位置。

      3.將窗體文件和工程文件分別命名為F1P1,并保存到T盤的根目錄下。

      二、編程題(26)

      【題目】

         編寫程序,找出給定范圍內所有不是素數的虧數。所謂虧數是指除本身外其所有因子之和小于自身的正整數。例如,106的因子為1、2、53,和為56,106是虧數。(注意:凡因子和為1的即為素數)

      【編程要求】

          1.程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見。

      2.運行程序,”a:”文本框中輸入數據范圍的起始值,”b:”文本框中輸入數據范圍的終止值后,單擊查找按鈕,若數據范圍內存在虧數”,則將它們按附圖參考界面所示的格式輸出到列表框中,否則在列表框中輸出指定范圍內無虧數的信息,單擊清除按鈕,將文本框與列表框清空,焦點置于”a:”文本框上

       3.程序中至少應定義一個通用過程,用于求一個整數的因子和或判斷其是否為虧數

      【要求】將窗體文件和工程文件分別命名為F2P2,并保存到T盤的根目錄下

      一、改錯題

      15  Loop  Until  k>n       改為   k=n

      17  Private Function judge(n as integer) As Boolean   改為 Byval   n

      24  If  a(i)>=a(i+1)  Then  Exit  Function        改為Exit  Function

       

      二、編程題

      Option Explicit

      Option Base 1

       

      Private Sub CmdClear_Click()

        Text1.Text = "": Text2.Text = ""

        List1.Clear

        Text1.SetFocus

      End Sub

       

      Private Sub CmdFind_Click()

        Dim a As Integer, b As Integer, i As Integer

        Dim st As String, flg As Boolean, sum As Integer

        a = Val(Text1.Text)

        b = Val(Text2.Text)

        For i = a To b

          flg = False: st = "": sum = 0

          Call judge(i, flg, st, sum)

          If flg Then

             List1.AddItem i & ":" & st & "=" & sum

          End If

        Next i

        If List1.ListCount = 9 Then List1.AddItem "指定范圍內無虧數"

      End Sub

       

      Private Sub judge(n As Integer, fg As Boolean, st As String, sum As Integer)

        Dim i As Integer

        For i = 1 To n - 1

          If n Mod i = 0 Then

             sum = sum + i

             st = st & i & "+"

          End If

        Next i

        If sum < n And sum <> 1 Then

          fg = True

          st = Left(st, Len(st) - 1)

        End If

      End Sub

      中文在线字幕第一页_中文字幕高跟丝袜作品番号_亚洲中文无无码第_日本亚洲欧美国产日韩a??y_在线观看亚洲av无码专区