一、单项选择题(本大题共10小题，每小题2分，共20分)
1．一个可执行的vb程序至少要包括一个（ c ）。
a．资源文件模块b．类模块。
c．窗体模块d．标准模块。
2．以下语句的输出结果是（ c ）。
print format$(32548.5,“000,000.00”)
a．32548.5b．32,548.5
c．032,548.50d．32,548.50
3．下列各组变量声明正确的是（ a ）。
a．dim sdf as integer, tiger as single
b．dim i％, n$ as integer
c．dim ％,b％, c％, as integer
d．public dim n％
4、以下几项中，属于日期型常量的是（ c ）
a．"10/10/02" b．10/10/02 c．## d．
5．语句print int(-13.2)输出结果为（ d ）。
a．-13.2b．13.2
c．-13d．-14
6．下列事件中，由系统触发的是（ a ）。
a．timer事件b．activate事件。
c．click事件d．dblclick事件。
7．列表框控件中的列表内容是通过（ c ）属性设置的。
a．nameb．caption
c．listd．text
8．阅读下面的程序段：
for i = 1 to 3
for j = 1 to i
for k = j to 3
a = a + 1
next k
next j
next i
执行上面的三重循环后，a 的值为（ c ）
a．3b．9
c．14d．21
9．在窗体上面画一个命令按钮，然后编写如下事件过程：
option base 1
private sub command1_click()
dim aa = array(1,2,3,4)
j = 1for i = 4 to 1 step -1
s = s + a(i)*j
j =j*10
next i
print s
end sub
运行上面的程序，单击命令按钮，其输出结果是（ d ）
a．4321b．12
c．34d．1234
10．阅读程序：
function f(byval a as integer)
b = 0static c
b = b+1
c = c+1
f = a+b+c
end function
private sub command1_click ()
dim a as integer
a =2for i =1 to 3
print f(a);
next i
end sub
运行上面的程序，单击命令按钮，输出结果为（ b ）
a．4 4 4b．4 5 6
c．4 6 8d．出错。
二、填空题（本大题共10小题，每空1分，共20分）
1．表达式fix(-32.68)+int(-23.02)的值为 -56 。
2．假定建立了一个工程，该工程包括两个窗体，其名称(name 属性)分别为form1和form2，启动窗体为form1。在form1画一个命令按钮command1，程序运行后，要求当单击该命令按钮时，form1窗体消失，显示窗体form2，请在空白处将程序补充完整。
private sub command1_click()
unload .form1
form2. show
end sub
3．填写下面空白，以实现单击命令按钮command1时形成并输出一个主对角线上元素值为1，其他元素值为0的6*6 阶方阵。
private sub command1_click()
dim a(6,6)
for i=1 to 6
for j=1 to 6
if i=j then
a(i,j)=1
elsea(i,j)=0
else if
print a(i,j)
next j
printnext i
end sub
4．一个数据库可以有一个到多个个表，表中的行称为记录，表列称为字段。
5．使用visual basic 6.0编写程序时，会将所产生的程序**放在模块中，较常用的模块有窗体模块 ， 标准模块 ， 类模块 。
6．假定有一个名为“的文件，它位于“c:\abc\def”目录下，则filename属性的值为 c:\abc\def\ ，filetitle属性的值为 。
7．菜单编辑器可分为3个部分，即数据区 ， 编辑区和菜单项显示区 。
8．在visual basic中，组合框是列表框和文本框的组合。
9．在窗体上画一个命令按钮，然后编写如下程序：
private sub command1_click()
inc 2inc 3
inc 4end sub
private sub inc(a as integer)
static x as integer
x = x + a
print x;
end sub
程序运行后，单击命令按钮，输出结果为 2 5 9 。
10．程序填空：程序运行后，要求执行3次循环体，请填空。
x = 1do
x = x + 1
print x
loop untile x>=4(x>3)
三、简答题(本大题共2小题，每小题10分，共20分)
1． 将数字字符串转换成数值，用什么函数？取字符串中的某几个字符，用什么函数？将大写字母转换为小写字母，用什么函数？
答：（1）将数字字符串转换成数值，使用函数val3分）
（2）取字符串中的某几个字符，使用函数mid3分）
（3）将大写字母转换为小写字母，使用函数lcase4分）
2．请说明write#和print# 语句的区别？
答：write# 和print#语句的区别：
1）当用write# 语句向文件写数据时，数据在磁盘上以紧凑格式存放，能自动地在数据项之间插入逗号，并给字符串加上双引号5分）
2）用write# 语句写入的正数的前面没有空格5分）
四、改错题(本大题共2小题，每小题10分，共20分) 找出题中各处错误，在错误语句后写上正确语句，不得增加或删除语句。
1．程序功能：求s=1+3+5+7+..直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。
private sub command1_click()
dim i as integer, s as long
s = 0i = 1
do until s < 2000 ‘s>20005分）
s = s + i
i = i + 1i = i +25分）
loopprint s
end sub
答案：2025
2．程序功能：求1~99的平方根的和。（保留小数点两位），程序中有两行有错误。改正错误，使它能输出正确的结果。
private sub command1_click()
dim x as integer
dim sum as integerdim sum as single5分）
x = 1do while x <=99
sum = sum + sqrt(xsum = sum + sqr(x5分）
x = x + 1
loopprint format(sum
end sub
答案：661.46
五、编程题(本大题共2小题，每小题10分，共20分)。
1、某农户现有鸡100只，设年增长率为10％，编写程序，计算多少年后增加到1000只。
程序如下：private sub form_click()
dim c as double
dim r as single
dim n as integer
c = 100
r = 0.1
while c < 1000
c = c + c * r
n = n + 1
wend5分）
2019VB练习卷
满分 252分。姓名 1 单项选择题 本题共计100分 1 单击command1按钮，输出的第二行是。private sub command1 click dim a as integer,k as integer a 2k fun a a fun a,a print k k end sub pri...
2019级C语言 B卷答案
天津工业大学2010 2011学年第 2 学期。高级语言程序设计 c语言 试卷 b卷答案 一 单项选择题 每题 1 分，共 40 分 二 阅读程序题 每题 3 分，共 30 分 三 程序改错题 每题 6 分，共 12 分 四 程序填空题 每空2分，共18分 1 以下c语言的运算符中，要求参加运算的必...
C语言期末试题A卷答案
7.若有int a 3,b 4,c 5 则表达式！a b c 1的值。8.已知char str hello 则strlen str 的值为。9.c语言中数组元素的下标最小值为。语言的基本数据类型有。二 选择题 每题2分，共20分 1.c语言程序的基本单位是 a.程序行 b.字符 c.函数 d.语句。...