nt = n
dok = k + 1
redim a(k)
a(k) =n mod 100
n = n \ 100
loop until n = 0
for k = 1 to ubound(a)
sum = sum + a(k) ^3
next k
if sum = nt then fg = true
end sub
要求】1． 新建工程，按参考界面形式创建窗体，再从t盘根目录下的文件中将有错误的程序**复制到**编辑器窗口中或自行输入上述**，改正程序中的错误；
2． 改错时，不得增加或删除语句，但可适当调整语句位置；
3． 将窗体文件和工程文件分别命名为f1和p1，并保存到t盘的根目录下。
二、编程题（26分）
题目】编写程序，找出给定范围内所有满足以下条件的整数：该整数的平方数的各位数字之和为素数。
编程要求】1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2． 运行程序，在文本框“a：”中输入查找整数范围的起始值，在“b：”文本框中输入终止值后按“查找”按钮，则将符合要求的整数按参考界面的格式输出到列表框中；按“清除”按钮，将两个文本框与列表框清空，焦点置于“a：
”文本框上；
3． 程序中至少应定义一个通用过程，用于求一个整数各位数字之和或判断一个整数是否是素数（注意：1不是素数）。
要求】将窗体文件和工程文件分别命名为f2和p2，并保存到t盘的根目录下。
2019春vb上机
2011年 春 上机试卷 04 本试卷完成时间为70分钟 考试须知 1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考。2.考试结束后，文件必须存放在指定位置，否则适当扣分 考试盘中若无指定文件，则不予评分。3.程序 应缩行书写 呈锯齿形 一 改错题 14分 题目 本程序的功...
2019春VB笔试
第二部分 visual basic 程序设计。一 选择题 用答题卡答题，答案依次填在21 30答题号内 21 以下说法中，正确的是 21 a.属性是对象的特征，所有的对象都有相同的属性。b.属性值只能在属性窗口中设置。c.在程序中可以用赋值语句给对象的任何一个属性赋值。d.对象的运行时属性不出现在对...
2019春VB笔试
第二部分 visual basic 程序设计。一 选择题 用答题卡答题，答案依次填在21 30答题号内 21 以下说法中，正确的是 21 a.属性是对象的特征，所有的对象都有相同的属性。b.属性值只能在属性窗口中设置。c.在程序中可以用赋值语句给对象的任何一个属性赋值。d.对象的运行时属性不出现在对...