<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. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      vb上機09秋季試題1

              二級Visual Basic上機試卷

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

          考試說明:

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

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

      予評分;

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

          一、改錯題(14)

       

          【題目】

          本程序的功能是,24位真彩色圖像的一個像素的顏色值,轉換成用十進制表示的

      綠、藍三基色的亮度值。

         

       Option Explicit

       Option Base 1

       Private Sub Command1_Click()

         Dim st As String,C(3) as String*8

         Dim k As Integer,color(3) As String

         color(1)="紅色"

         color(2)="綠色"

         color(3)="藍色"

         st=text1

         Do

           k=k+1

           c(k)=Left(st,8)

           st=Right(st,Len(st)-8)

         Loop Until k>3

         For k=1 To 3

           Text2=Text2 & color(k) &":" & b2d(C) & vbCrLf

         Next k

       End Sub

      Private Function b2d(s As String) As Integer

          Dim k As Integer

          Do

            b2d=b2d+Val(Right(s,1))*2^k

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

            k=K+1

          Loop Until k=Len(s)

      End Function

      【要求】

        1.新建工程,輸入上述代碼,改正程序中的錯誤;

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

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

        二、編程題(26)   

        【題目】

        編寫程序,隨機生成mn列由1位非零整數組成的數組;并分別求出數組中所有周邊

      元素之和與非周邊元素(內部)之和。(m、nInputBox函數輸入,缺省值分別為4、5)

        【編程要求】

        1.程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及

      界面元素大小適中,且均可見;

        2.運行程序,"運行"按鈕,出現如圖的InputBox函數窗口,分別輸入數組行、列數(

      使用缺省值)后按"確定",則生成隨機數組并顯示在圖片框中,并在文本框12中分別輸出

      數組周邊元素之和與非周邊元素(內部)之和;按"清除"按鈕,將所有文本框和圖片框清空;按

      "結束"按鈕,結束程序運行;  

        3.程序中應定義一個通用過程,用于求二維數組的周邊元素之和與非周邊元素之和。

        【要求】

        將窗體文件和工程文件分別命名為砣和P2,并保存到T:盤的根目錄下

       

          參考答案   

        一、改錯題

        (1)Loop Until k>3     改為Loop Until k=3

        (2)Text2=Text2 & color(k) & ":" & b2b(c) & vbCrLf

          改為Text2=Text2 & color(k) & ":" & b2b(c(k)) & vbCrLf

        (3)Loop Until k=len(s) 

          改為Loop Until s=""或改為Loop Until Len(s)=0

      :編程題

          Option Explicit

          Option Base 1

          Dim a() As Integer, n As Integer, m As Integer

          Private Sub Command1_Click()

            Dim i As Integer, j As Integer

            Dim ext As Integer, ins As Integer

            n = InputBox("數組行數m:", "數組處理", 4)

            m = InputBox("數組列數n:", "數組處理", 5)

            ReDim a(n, m)

            For i = 1 To n

              For j = 1 To m

                a(i, j) = Int(Rnd * 9) + 1

                Picture1.Print a(i, j);

              Next j

              Picture1.Print

            Next i

            Call comput(ext, ins)

            Text1 = ext

            Text2 = ins

          End Sub

          Private Sub comput(ext As Integer, ins As Integer)

            Dim i As Integer, j As Integer

            For i = 1 To n

              For j = 1 To m

                If i = 1 Or j = 1 Or i = n Or j = m Then

                  ext = ext + a(i, j)

                Else

                  ins = ins + a(i, j)

                End If

              Next j

            Next i

          End Sub

          Private Sub Command2_Click()

             Picture1.Cls

             Text1 = "": Text2 = ""

          End Sub

          Private Sub Command3_Click()

            End

          End Sub

       

       

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