1、2013 秋江苏省二级 VB 上机真题第 1 套一、改错题（14 分）【题目】本程序的功能是生成由 n（n 通过 InputBox 函数输入）个 3 位升序数构成的随机数组,所谓升序数是指从高位到低位数字值依次增加的整数(本程序界面由 1 个 TextBox 和 1 个 CommandButton 组成，所有对象均采用缺省名)Option ExplicitOption Base 1Private Sub Command1_Click()Dim n as long, a() As Integer, k as Integer, p as Integern=InputBox(“输入数据个数;”,”升
2、序数数组”,10)Redim a(n)Dop= Int(Rnd*900)+101If judge(p) Thenk=k+1a(k)=pText1.text=Text1.text 按“清除“按钮,将三个文本框与列表框清空,焦点置于第一个文本框上;按“结束“按扭,结束程序运行。3程序中应定义一个判断素数的通用过程。【要求】将窗体文件和工程文件分别命名为 F2 和 P2,并保存到 T 盘的根目录下。参考答案 一、改错题第 6 行 If m And Reverse(i) Then 改为 Reverse(m)第 12 行 Private Function d2Q(n As Integer)As Stri
3、ng 改为 ByVal n第 24 行 Exit For 改为 Function二、编程题Option ExplicitPrivate Sub CmdFind_Click()Dim n1 As Integer, n2 As Integer, i As IntegerDim k As Integer, js As Integer, st As Stringn1 = Text1: n2 = Text2For i = n1 To n2k = Padovan(i)st = st 按“清除“ 按钮,将所有文本框清空, 焦点置于“处理“按钮上;按“结束“按钮,结束程序运行。3.程序中应定义一个通用过程,用于求一维数组中比 a(1)大的最小元素。【算法提示】先找出所有比数组原第一个元素大的元素存入一新数组,再找出其中的最小元素即可。【要求】将窗体文件和工程文件分别命名为 F2 和 P2,并保存到 T 盘的根目录下。
