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