2023年（秋）上机 visual basic（vb01）答案。
一、改错。题目】本程序的功能是，找出10--100之间所有只有奇数真因子的整数。所谓数据n的真因子是指除过1和n之外的可以整除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
for n = 10 to 100
call jsyz(n, fac, flag)
'flag = false 'err 位置错。
if flag then
sn = n &
for i = 1 to ubound(fac)
sn = sn & fac(i) &
next i
left(sn, len(sn) -1)
end if
flag = false
next n
end sub
private sub jsyz(n as integer, fa() as integer, flag as boolean)
dim i as integer, k as integer
for i = 2 to n - 1
if n mod i = 0 then
if i mod 2 <>0 then
k = k + 1
redim preserve fa(k) 'err 无preserve
fa(k) =i
elseexit suberr exit for
end if
end if
next i
if k <>0 then flag = true
end sub
二、编程题。
题目】编写程序，通用过程maxmin用于找出一个二维整数数组的最大元素值与最小元素值。主过程则随机生成一个元素值为10到40之间整数的4行5列数组，再调用maxmin过程，找出该数组的最大元素与最小元素值，并将取值等于最大元素值的数组元素行号与列号输出；接着再把等于最小元素值的数组元素的行号与列号输出。（注意：
等于数组最大元素值与最小元素值的数组元素分别都可能有多个）
option explicit
option base 1
private sub cmdrun_click()
dim a(4, 5) as integer, i as integer, j as integer
dim maxi as integer, mini as integer
randomize
for i = 1 to 4
for j = 1 to 5
a(i, j) =int(rnd * 31) +10
a(i, j);
next j
next i
call maxmin(a, maxi, mini)
for i = 1 to 4
for j = 1 to 5
if a(i, j) =maxi then maxi; i; j
next j
next i
for i = 1 to 4
for j = 1 to 5
if a(i, j) =mini then mini; i; j
next j
next i
end sub
private sub maxmin(a() as integer, maxv as integer, minv as integer)
dim i as integer, j as integer
maxv = a(1, 1): minv = a(1, 1)
for i = 1 to ubound(a, 1)
for j = 1 to ubound(a, 2)
if a(i, j) >maxv then
maxv = a(i, j)
elseif a(i, j) minv = a(i, j) end if next j next i end sub private sub cmdclear_click() end sub private sub cmdexit_click() endend sub 江苏省高等学校非计算机专业学生。计算机基础知识和应用能力等级考试上机试卷 2011秋 二级 visual basic语言 试卷代号vb01 本试卷完成时间 70分钟 考试须知 1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考 2 考试结束后，文件必须存放在指定位置，否则适当... 2008年 秋 上机 visual basic vb02 答案。一 改错。题目 本程序的功能是查找80 150范围内的特殊十进制数据，其特点是该十进制数对应的8进制数为回文数 指从左向右读与从右向左读一样的数 例如十进制数据105，其对应八进制数为151,属于回文数。所以105就是符合要求的数。op... stnext i end sub private function d2b n as integer as string dim p as string dop n mod 2 d2b d2b p n n 2 loop until n 0 end function 要求 1 新建工程，输入上述 改正...2019秋VB01上机
2019秋VB02上机答案
2019秋VB02上机