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語言上機4

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

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

            二級Visual Basic語言 (試卷代號 VB04)

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

            【考試須知】

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

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

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

            一、改錯題(14分)

            【題目】本程序用于驗證下列命題:可被37整除的三位整數,其各位數字循環移位后得到的三位數也可被37整除。例如148,481,

            841都是這樣的數(不考慮含有數字0的三位數)。

            Option Explicit

            Private Sub Command1_Click()

                Dim n As Integer,p(2) As Integer,j As Integer

                Dim s As String,f As Boolean

                For n=100 To 999                             //此處插入圖片。

                    Call pnum(n,p,f)

                    If f And n Mod 37=0 Then

                        s=CStr(n)

                        For j=1 To 2

                            If p(j) Mod 37 <> 0 Then

                                MsgBox("驗證失敗")

                                Exit Sub

                            Else

                                s=s&Str(p(j))

                            End If

                         Next j

                         List1.AddItem s

                    End If

                Next n

            End Sub

             

            Private Sub Sub1(n As Integer,p() As Integer,flag As Boolean)

                Dim i As Integer,k As Integer,h As Integer

                flag=False

                If InStr(CStr(n),"0")=0 Then flag=True

                For i=1 To 2

                    k=n Mod 10

                    h=n\100

                    p(i)=Str(k)&Str(h)

                    n=p(i)

                Next i

            End Sub

            【要求】

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

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

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

            二、編程題(26分)

            【題目】將若干正整數排成圓圈,依次編號(例如26為第一號)。編寫程序,找出拐點元素(所謂拐點元素是指它比左右相鄰元素

            都大或都。,輸出拐點元素的值及位置。

            【編程要求】

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

            2. 按“運行”按鈕,則生成由15個無重復數的兩位隨機整數數列,顯示到文本框內;求出該數列中的怪點元素,按示例格式(數據

            ,位置號)顯示在列表框中;按“清除”按鈕,則文本框、列表框清空,將焦點置于文本框上;按“退出”按鈕,結束程序運行;

            3. 程序中應定義一個生成沒有重復元素的的兩位隨機整數數組的通用過程。

            【要求】

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

              

             

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