2019秋VB01上机

江苏省高等学校非计算机专业学生。

计算机基础知识和应用能力等级考试上机试卷（2011秋）

二级 visual basic语言 （试卷代号vb01）

本试卷完成时间 70分钟）

考试须知】1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；

2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；

3． 程序**书写应呈锯齿形。

一、改错题（14分）

题目】本程序的功能是，找出100到999之间的回文数，且其对应的8进制数也是回文数的整数。所谓回文数是指正读与倒读都相同的数。

option explicit

private sub command1_click()

dim i as integer, m as integer

for i = 100 to 999

m = d2q(i)

if m and reverse(i) then

cstr(i)

cstr(m)

end if

next i

end sub

private function d2q(n as integer) as string

dim p as integer

dop = n mod 8

d2q = cstr(p) &d2q

n = n \ 8

loop until n = 0

end function

private function reverse(n as integer) as boolean

dim i as integer, s as string

s = cstr(n)

for i = 1 to len(s) /2

if mid(s, i, 1)

next i

reverse = true

end function

要求】1． 新建工程，输入上述**，改正程序中的错误；

2． 改错时，不得增加或删除语句，但可适当调整语句位置；

3． 将窗体文件和工程文件分别命名为f1和p1，并保存到t盘的根目录下。

二、编程题（26分）

题目】编写程序，求出巴都万数列（padovan sequence）的第n1到第n2项中的素数数据项。巴都万数列的计算公式是：

编程要求】1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2． 运行程序，在两个文本框中分别输入起始项与终止项的序号后按“查找”，则在多行文本框中，按每行10个元素输出数列项数据，并在列表框中输出其中的素数数据项及其序号；按“清除”按钮，将三个文本框与列表框清空，焦点置于第一个文本框上；按“结束”按钮，结束程序运行；

3． 程序中应定义一个判断素数的通用过程。

要求】将窗体文件和工程文件分别命名为f2和p2，并保存到t盘的根目录下。

2019秋VB01上机答案

2010年 秋 上机 visual basic vb01 答案。一 改错。题目 本程序的功能是，找出10 100之间所有只有奇数真因子的整数。所谓数据n的真因子是指除过1和n之外的可以整除n的因子。option explicit option base 1 private sub cmd1 clic...

2019秋VB02上机

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 新建工程，输入上述 改正...

VFP上机试题 2019秋 01

一 项目 库和表操作 12分 打开t盘根目录中的项目文件jxgl，在该项目中已有一数据库jxsj。1 在jxsj数据库中按如下 所示的结构创建表，并按 中的要求设置相关属性。1 设置表的注释 世博会场馆简介一览表 2 设置cg字段的有效性规则 不能为空字符串 3 设置zdmj字段的输入掩码 整数部分...