(1)江苏省高等学校非计算机专业学生。
计算机基础知识和应用能力等级考试上机试卷（2011春）
二级visual basic语言（试卷代号vb01）
本试卷完成时间 70分钟）
一、改错题（14分）
题目】本程序的功能是，找出100～999之间的10进制数为升序数，且其对应的8进制数也是升序数的整数。所谓升序数是指该数的十位数字值大于个位数字值，百位数字值大于十位数字值。
option explicit
private sub cmdfind_click()
dim n as integer, s8 as string
for n = 100 to 999
s8 = d2q(n)
if sx(n) and sx(val(s8)) then
n & d==>s8 & q"
end if
next n
end sub
private function d2q(n as integer) as string
dim p as integer
dop = n mod 8
d2q = d2q & cstr(p)
n = n \ 8
loop until n = 0
end function
private function sx(byval n as integer) as boolean
dim num() as integer, k as integer, t as integer
dim i as integer
t = len(cstr(n))
redim num(t)
for k = 1 to t
num(k) =val(mid(cstr(n), k, 1))
next k
for i = 1 to ubound(num) -1
if num(i) >num(i + 1) then exit for
next i
sx = true
end function
要求】1．新建工程，输入上述**，改正程序中的错误；
2．改错时，不得增加或删除语句，但可适当调整语句位置；
3．将窗体文件和工程文件分别命名为f1和p1，并保存到t盘的根目录下。
二、编程题（26分）
题目】编写程序，对实验数据进行分组均化处理。处理的方法是：先将实验数据从小到大排序，然后按排序后的顺序每3个数作为一组，再用每组3个数的平均值作为这3个数的表现值。
编程要求】1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2． 运行程序，按“处理”按钮，出现如图的inputbox函数窗口，输入数据个数（或使用缺省值）后按“确定”，则生成10～40之间的随机整数数组并显示在实验数据文本框中，然后对实验数据进行排序并显示在排序结果文本框中，再进行分组均化并在文本框中输出数据均化结果；按“清除”按钮，将三个文本框清空，焦点置于“处理”按钮上；按“结束”按钮，结束程序运行；
3． 程序中应定义一个名为sort的通用过程，用于对一维数组按从小到大排序。
要求】将窗体文件和工程文件分别命名为f2和p2，并保存到t盘的根目录下。
2)江苏省高等学校非计算机专业学生。
计算机基础知识和应用能力等级考试上机试卷（2011春）
二级visual basic语言（试卷代号vb02）
本试卷完成时间 70分钟）
一、改错题（14分）
题目】本程序的功能是，找出使用公式（m＝1～100）生成的一个数据序列中的所有非素数，分别输出这些非素数的全部真因子。所谓数n的真因子是指除1和n之外的因子。
option explicit
private sub command1_click()
dim m as integer, p as long
dim st1 as string
st1 =
for m = 1 to 100
p = m * m - m + 41
if not prime(p) then
call fac(p, st1)
"第" &m & 项 " p & st1
end if
next m
end sub
private function prime(n as long) as boolean
dim k as integer
for k = 2 to sqr(n)
if n mod k = 0 then exit for
next k
prime = true
end function
private sub fac(n as long, st as string)
dim i as integer
for i = 2 to n \ 2
if n mod i = 0 then
st = st & i &
end if
next i
st = right(st, len(st) -1)
end sub
要求】1. 新建工程，输入上述**，改正程序中的错误；
2. 改错时，不得增加或删除语句，但可适当调整语句位置；
3. 将窗体文件和工程文件分别命名为f1和p1，并保存到t盘的根目录下。
二、编程题（26分）
题目】编写程序，在一个数组中找出比第一个数组元素的值大的所有数组元素中值最小的元素。如果第一个数组元素值本身为最大数，则输出“无”。
编程要求】1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2． 运行程序，按“处理”按钮，则生成由10个两位随机数组成的数组并显示在文本框text1中，找出比第一个数组元素a(1)大的最小元素输出在文本框text2中，若没有比a(1)大的数组元素，则在text2中输出“无”；按“清除”按钮，将所有文本框清空，焦点置于“处理”按钮上；按“结束”按钮，结束程序运行；
3． 程序中应定义一个通用过程，用于求一维数组中比a(1)大的最小元素。
算法提示】先找出所有比数组原第一个元素大的元素存入一新数组，再找出其中的最小元素即可。
要求】将窗体文件和工程文件分别命名为f2和p2，并保存到t盘的根目录下。
3)江苏省高等学校非计算机专业学生。
计算机基础知识和应用能力等级考试上机试卷（2011春）
二级visual basic语言（试卷代号vb03）
本试卷完成时间 70分钟）
一、改错题（14分）
题目】本程序的功能是，输入整数n，在小于等于n的素数序列中，找出所有接连3个素数之和也是素数的子序列。
private sub command1_click()
dim n as integer, pn() as integer, k as integer
dim i as integer, sum as integer, st as string
n = text1
k = 2do
if prime(k) then
i = i + 1
redim pn(i)
pn(i) =k
end if
k = k + 1
loop until k > n
for i = 1 to ubound(pn)
sum = 0
for k = i to i + 2
sum = sum + pn(k)
st = st & pn(k) &
next k
if prime(sum) then
left(st, len(st) -1sum
end if
st = next i
end sub
private function prime(n as integer) as boolean
dim i as integer
for i = 2 to sqr(n)
if n mod i = 0 then exit for
next i
prime = true
end function
要求】1. 新建工程，输入上述**，改正程序中的错误；
2. 改错时，不得增加或删除语句，但可适当调整语句位置；
3. 将窗体文件和工程文件分别命名为f1和p1，并保存到t盘的根目录下。
二、编程题（26分）
题目】编写程序，找出数组中的最大元素值，把最大元素与数组首元素位置对调；然后再找出数组中的最小元素值，把最小元素与数组末尾元素位置对调。（若存在多个相等的最大元素，只对调其中一个即可，最小元素亦然）
编程要求】1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2． 运行程序，按“生成数组”按钮，出现如图的inputbox函数窗口，输入数据个数（或使用缺省值）后按“确定”，则生成两位数的随机整数数组并显示在文本框text1中；按“运行”按钮，找出数组最大元素和最小元素后，分别与数组首元素位置对调和与末尾元素位置对调，并将位置对调后的数组元素显示在文本框text2中；按“清除”按钮，将两个文本框清空，焦点置于“生成数组”按钮上；
3． 程序中应定义一个通用过程，用于求一维数组的最大元素及最小元素。
2019春vb上机
2011年 春 上机试卷 04 本试卷完成时间为70分钟 考试须知 1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考。2.考试结束后，文件必须存放在指定位置，否则适当扣分 考试盘中若无指定文件，则不予评分。3.程序 应缩行书写 呈锯齿形 一 改错题 14分 题目 本程序的功...
《VB》上机作业
上机作业。第3章结构化程序设计与数组。一 分支结构 1 旧教材 p82 新教材 p87 程序设计题 1。2 旧教材 p83 新教材 p87 程序设计题 2。3 输入一个字符，判断该字符是否为字母 数字 空格还是其它符号。请分别用块if结构和情况选择语句来实现。二 循环结构 一 1 旧教材 p83 新...
VB上机作业
选择题。自测练习，提供参 及解答 1.自测练习，提供参 及解答 下列关于函数的说法正确的是 a 函数名在过程中只能被赋值一次 b 如果在函数体内没有给函数名赋值，则该函数无返回值 c 如果在定义函数时没有说明函数的类型，则该函数是无类型的 d 利用exit function语句可以强制退出函数 解答...