2023年秋上机试题

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

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

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

本试卷完成时间 70分钟）

一、 改错题（17分）

题目]在20个不同的两位随机数中找出一组数，这组数中任意两个书的组最大公约数都为1，即两两互质。

option explicit

private sub command1_click()

dim a(20) as integer, i as integer, b() as integer

dim k as integer, idx as integer

do while idx <=20

k = int(90*rnd)+10

for i = to idx

if a(i) =k then exit for

next i

if i>idx+1

idx =idx+1

a(idx)= k

text1 = text1 & str(a(idx))

if idx mod 10 = 0 then text1=text & vbcrlf

end if

loopredim b(1)

b(1) =a(1)

for i =2 to 20

call sub1(a(i), b)

next i

for i =1 to ubound(b)

text2 =text2 & str(b(i))

if i mod 10 =0 then text2 =text2 & vbcrlf

next i

end sub

private sub sub1(data as integer, t() as integer)

dim i as integer, j as integer, k as integer

k = ubound(t)

for i =l to k

for j =2 to data

if data mod j = 0 and t(k) mod j = 0 then

exit sub

end if

next j

next i

redim preserve t(k+1)

t(k) =data

end sub

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

2.改错题的界面应与给出的参考界面相似，主要用来调试程序；

3.改错时，不得增加或删减语句，但可以适当调整语句位置；

4.将窗体文件和工程文件分别命名为f1和p1，并保存到软盘的a根目录下。

二、编程题（23分）

题目]编写一个求qi（i）函数表的程序，将结果显示在列表框中。qi（x）函数的计算公式是：

编程要求]1． 按“取x值”按钮，通过inputbox函数分别输入自变量的初值sv、终值fv及步长sv,fv,sp的缺省值分别取
.1，计算并将自变量数据显示在多行文本框list1中。再按“求函数值”按钮，则开始计算并在多行文本框list2中显示结果；按“退出”按钮，结束程序运行；

2． 程序中应一个名为fact的递归函数过程，用于计算阶乘值。

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

2将窗体文件和工程文件分别命名为f2和p2，并保存到软盘a的根目录下。

2023年秋上机试题

江苏省高等学校非计算机专业学生。计算机基础知识和应用能力等级考试上机试题 2003年秋 二级visual basic语言 试卷代号vb01 本试卷完成时间70分钟 一 改错 17分 题目 这是一个对原文进行加密的程序，原文全部由大写字母及空格与合法的标点符号组成，加密方法是每个字母依所在原文中的排列...

2023年秋上机试题

江苏省高等学校非计算机专业学生。计算机基础知识和应用能力等级考试上机试题 2003年秋 二级visual basic语言 试卷代号vb07 本试卷完成时间70分钟 一 改错题 17分 题目 统计英文字符串中以各种字母为首的单词数量 单词之间用空格或其他非字母字符分隔 统计是不分大小写 本题参考界面见...

VFP上机试题 2019秋 01

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