2023年（秋）上机 visual basic（vb02）答案。
一、改错。题目】本程序的功能是查找80~150范围内的特殊十进制数据，其特点是该十进制数对应的8进制数为回文数（指从左向右读与从右向左读一样的数）。例如十进制数据105，其对应八进制数为151,属于回文数。
所以105就是符合要求的数。
option explicit
private sub command1_click()
dim i as integer, hw as string, fg as boolean
dim st as string
for i = 80 to 150
fg = false
call hw8(i, hw, fg)
if fg then
st = cstr(i) &hw & o"
stend if
next i
end sub
private sub hw8(byval n as integer, hw as string, f as boolean) '无byval
dim k as integer, st() as string * 1, i as integer
hw = do
k = k + 1
redim preserve st(k)
st(k) =n mod 8
hw = st(k) &hw
n = n \ 8
loop until n <=0err n < 0
for i = 1 to ubound(st) /2
if st(i) next i f = true end sub 二、编程题。 题目】编写程序，验证任意一个不超过9位的自然数，经过下述的反复变换最终得到123。变换方法是统计该数的偶数（0算偶数）个数记为a，奇数个数记为b，数据位数记为c；以a为百位数、b为十位数、c为个位数，得到一个新数（若a=0，则以b为百位数、a为十位数），若这个新数不是123，再按上述步骤进行变换，直到出现123为止。123被称为陷阱数。 option explicit private sub command1_click() dim n as long, a as integer, b as integer, c as integer n = text1 ndo while n <>123 call validate(n)nloop "验证成功！" end sub private sub validate(n as long) dim a as integer, b as integer, c as integer dim i as integer, t as integer c = len(cstr(n)) for i = 1 to c if mid(cstr(n), i, 1) mod 2 = 0 then a = a + 1 elseb = b + 1 end if next i if a = 0 then t = a: a = b: b = t end if n = a * 100 + b * 10 + c end sub private sub command2_click() text1 = end sub private sub command3_click() endend sub 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 新建工程，输入上述 改正... 2010年 秋 上机 visual basic vb01 答案。一 改错。题目 本程序的功能是，找出10 100之间所有只有奇数真因子的整数。所谓数据n的真因子是指除过1和n之外的可以整除n的因子。option explicit option base 1 private sub cmd1 clic... 江苏省高等学校非计算机专业学生。计算机基础知识和应用能力等级考试上机试卷 2011秋 二级 visual basic语言 试卷代号vb01 本试卷完成时间 70分钟 考试须知 1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考 2 考试结束后，文件必须存放在指定位置，否则适当...2019秋VB02上机
2019秋VB01上机答案
2019秋VB01上机