2010秋江蘇省高校計算機等級考試二級VB上機考試試題1

考試說明:

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

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

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

一:改錯題(14分)

[題目]

本程序的功能是,找出10—100之間的所有只有奇數真因子的整數,所謂數據n的真因子是指除1和n之外的因子

Option Explicit

Option Base 1

Private Sub Cmd1_Click()

  Dim fac() as integer, n as integer

  Dim I as integer, sn as string, flag as Boolean

  flag=False

  For n=10  to  100

Call  jsyz(n, fac, flag)

if flag then

  sn=n & “:”

  for i=1 to Ubound(fac)

     sn= sn & fac(i) & “,”

  next i

  list1.AddItem Left(sn,len(sn)-1)

End if

 Next n

End Sub

Private Sub jsyz(n as integer,fa() as integer, flag as Boolean)

  Dim I as integer, k as integer, n as integer

  For i=2 To n-1

If n mod i=0 then

  If I mod 2<>0 then

     k=k+1

     Redim fa(k)

     fa(k)=i

  else

    Exit Sub

  End if

   End if

 next i

 if k<>0 then flag=true

End Sub

[要求]

【要求】

  1．新建工程，輸入上述代碼，改正程序中的錯誤；

  2．改錯時，不得增加或刪除語句，但可適當調整語句位置；

  3．將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。

二:編程題(26分)

[題目]

  編寫程序,隨機生成一個元素值為10—40之間整數的4行5列數組;找出該二維數組的最大元素與最小元素,并將最大元素與最小元素的值以及相應的行號和列號輸出到圖片框中

(注意:數組最大元素與最小元素都可能有多個)

【編程要求】

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

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

  2．運行程序，按”運行”按鈕,則生成隨機數組并顯示在圖片框pic1中,并在圖片框pic2中輸出數組最大元素值和最小元素值及相應的數組元素的行號和列號;按”清除”按鈕,將兩個圖片框清空,焦點置于”運行”按鈕,按”結束”按鈕.結束程序運行

  3．程序中應定義一個通用過程maxmin，用于求二維數組最大元素值和最小元素值。

    【要求】

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

答案:

改錯題:

flag=False      位置錯,調整到for n=10 to 100語句后

Dim I as integer, k as integer, n as integer    刪去n as integer

Redim fa(k)                           改為Redim Preserve  fa(k)