2023年(春)上机试卷(04)
(本试卷完成时间为70分钟)
考试须知】
1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考。
2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分。
3.程序**应缩行书写(呈锯齿形)。
一、改错题(14分)
题目】本程序的功能是：在0--255之间的整数中，找出其对应的8位二进制**正序与反序相同的数。程序界面参见下图。
option explicit
private sub cmdsearch_click()
dim n as integer,sb as string
for n=0 to 255
if hw(n,sb)then
n & sb
end if
next n
if then "无符合要求数据"
end sub
private function hw(n as integer,st as string) as boolean
dim i as integer
st=d2b(n)
for i=1 to len(st)/2
if mid(st,i,1)<>mid(st,len(st)-i+1,1) then exit for
next i
hw=true
end function
private function d2b(n as integer)as string
dim p as integer
dop=n mod 2
d2b=str(p) &d2b
n=n\2loop until n=0
d2b=right("0000000" &d2b,8)
end function l
【要求】 i
1.新建工程，输入上述**，改正程序中的错误。
2.改错时，不得增加或删除语句，但可适当调整语句位置。
3.将窗体文件和工程文件分别命名为f1和p1,并保存到t盘的根目录下。
二、编程题(26分)
【题目】 编写程序，在一个数组中找出只出现一次的那些数，并将其存入一个新的数组。
【编程要求】
1.程序界面参见下图，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中。且均可见。
2.运行程序，按"处理"按钮，出现如图所示的inputbox函数窗口，输入数组元素个数(或使用缺省值)后按"确定"按钮，则生成10-40之间的随机整数数组并显示在文本框text1中，找出数组中只出现一次的元素存入新的数组，并输出到列表框list1;按"清除"按钮，将文本框和列表框清空，焦点置于"处理"按钮；按"结束"按钮，结束程序运行。
3.程序中应定义一个通用过程，用于求一维数组中只出现一次的数据，并存入新的数组。
要求】将窗体文件和工程文件分别命名为f2和p2,并保存到t盘的根目录下。
2019春vb上机试卷
1 江苏省高等学校非计算机专业学生。计算机基础知识和应用能力等级考试上机试卷 2011春 二级visual basic语言 试卷代号vb01 本试卷完成时间 70分钟 一 改错题 14分 题目 本程序的功能是，找出100 999之间的10进制数为升序数，且其对应的8进制数也是升序数的整数。所谓升序数...
《VB》上机作业
上机作业。第3章结构化程序设计与数组。一 分支结构 1 旧教材 p82 新教材 p87 程序设计题 1。2 旧教材 p83 新教材 p87 程序设计题 2。3 输入一个字符，判断该字符是否为字母 数字 空格还是其它符号。请分别用块if结构和情况选择语句来实现。二 循环结构 一 1 旧教材 p83 新...
VB上机作业
选择题。自测练习，提供参 及解答 1.自测练习，提供参 及解答 下列关于函数的说法正确的是 a 函数名在过程中只能被赋值一次 b 如果在函数体内没有给函数名赋值，则该函数无返回值 c 如果在定义函数时没有说明函数的类型，则该函数是无类型的 d 利用exit function语句可以强制退出函数 解答...