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． 新建工程，输入上述**，改正程序中的错误；
2． 改错时，不得增加或删除语句，但可适当调整语句位置；
3． 将窗体文件和工程文件分别命名为f1和p1，并保存到t盘的根目录下。
二、编程题（26分）
题目】编写程序，找出给定数据范围内所有的盈余数。所谓盈余数是指除自身以外的因子之和大于其自身的整数。例如12的因子有，1+2+3+4+6=16>12，所以12就是一个盈余数。
编程要求】1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2． 运行程序，在“a:”文本框中输入数据的起始值，在“b:”文本框中输入数据的结束值，按“查找”按钮，则将数据范围内的赢余数按参考界面中的格式输出到列表框中；按“清除”按钮，将文本框和列表框清空，焦点置于“a:
”文本框上；按“结束”按钮，结束程序运行；
3． 程序中应至少定义一个通用过程，用于求一个整数的因子及所有因子之和，或用于判断一个整数是否为赢余数。
要求】将窗体文件和工程文件分别命名为f2和p2，并保存到t盘的根目录下。
2019秋VB02上机答案
2008年 秋 上机 visual basic vb02 答案。一 改错。题目 本程序的功能是查找80 150范围内的特殊十进制数据，其特点是该十进制数对应的8进制数为回文数 指从左向右读与从右向左读一样的数 例如十进制数据105，其对应八进制数为151,属于回文数。所以105就是符合要求的数。op...
2019秋VB01上机
江苏省高等学校非计算机专业学生。计算机基础知识和应用能力等级考试上机试卷 2011秋 二级 visual basic语言 试卷代号vb01 本试卷完成时间 70分钟 考试须知 1 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考 2 考试结束后，文件必须存放在指定位置，否则适当...
2019秋VB01上机答案
2010年 秋 上机 visual basic vb01 答案。一 改错。题目 本程序的功能是，找出10 100之间所有只有奇数真因子的整数。所谓数据n的真因子是指除过1和n之外的可以整除n的因子。option explicit option base 1 private sub cmd1 clic...