|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2010秋江蘇二級VB上機考試試題1 |
2010秋江蘇省高校計算機等級考試二級VB上機考試試題1 考試說明: 1.改錯題的界面不作要求,主要用來調(diào)試程序,若題目中有參考界面,則僅作參考 2.考試結(jié)束后,文件必須存放在指定位置,否則適當(dāng)扣分,考試盤中若無指定文件,則不予評分 3.程序代碼書寫應(yīng)呈鋸齒形 一:改錯題(14分) [題目] 本程序的功能是,找出10—100之間的所有只有奇數(shù)真因子的整數(shù),所謂數(shù)據(jù)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．改錯時，不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置； 3．將窗體文件和工程文件分別命名為F1和P1，并保存到T盤的根目錄下。 二:編程題(26分) [題目] 編寫程序,隨機生成一個元素值為10—40之間整數(shù)的4行5列數(shù)組;找出該二維數(shù)組的最大元素與最小元素,并將最大元素與最小元素的值以及相應(yīng)的行號和列號輸出到圖片框中 (注意:數(shù)組最大元素與最小元素都可能有多個) 【編程要求】 1．程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及 界面元素大小適中,且均可見； 2．運行程序，按”運行”按鈕,則生成隨機數(shù)組并顯示在圖片框pic1中,并在圖片框pic2中輸出數(shù)組最大元素值和最小元素值及相應(yīng)的數(shù)組元素的行號和列號;按”清除”按鈕,將兩個圖片框清空,焦點置于”運行”按鈕,按”結(jié)束”按鈕.結(jié)束程序運行 3．程序中應(yīng)定義一個通用過程maxmin，用于求二維數(shù)組最大元素值和最小元素值。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。 答案: 改錯題: flag=False 位置錯,調(diào)整到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) |