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

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

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

            二級Visual Basic語言(試卷代碼VB08

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

            [考試須知]

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

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

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

            一.改錯題(14分)

            [題目]本程序的功能是將無符號二進制數轉化為十進制數。本程序界面見圖1。

            Private Sub Command1_Click()

               Dim st1 As String,st2 As String,n As Integert

               Dim s As String

               S=Text1

               n=InStr(s,”.”)

               If n <>0 Then

                   st1=Left(s,n-1)

                   st2=Right(s,Len(s)-n-1)

              Else

                   st1=s

              End If

              If n<>0 Then

                 Text2=cov1(st1) & ”.” & cov2(st2)

              Else

                 Text2=cov1(st1)

              End If

            End Sub

             

            Private Function cov1(st As String) As Integer

            Dim i As Integer, k As Integer

            For i=Len(st) To 1 Step -1

               cov1=cov1+Val(Mid(st, i, 1))*2^k

               k=k+1

            Next i

            End Function

             

            Private Function cov2(st As Integer) As Single

            Dim i As Integer, k As Integer

            K=-1

            For i=1 To Len(st)

               cov2=cov2+Val(Mid(st, i, 1))*2^k

               k=k-1

            Next i

            End Function

            [要求]

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

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

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

            二.編程題(26分)

            [題目]編寫程序求1~200之間可以表示為4n+1形式并等于兩個平方數之和的所有素數。

            [編程要求]

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

            2.  單擊“運行”按鈕,求出滿足條件的素數,并按圖示格式輸出到列表框;

            3.  單擊“清除”按鈕,則將列表框清空,焦點置于“運行”按鈕上;單擊“結束”按鈕,結束程序運行;

            4.  程序中必須包含一個將某種數表示成兩個平方數之和的通用過程。

            [要求]

            將窗體文件和工程文件分別命名為F2P2,并保存到軟盤A的根目錄下。

            圖1

            圖2

             

             

             

                      

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