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)