找一些大一的vb期末考试问题和答案
一、选择题(***10)
1.在代码中引用控件时，应该使用控件的()属性。
A.标题B .名称C .正文D .索引
2.设变量x = 4，y = -1，a = 7，b = -8，下面表达式()的值为“假”。
a . x+a & lt；= b-y b . x & gt；0和y & lt0
C.a = b或x & gty d . x+y & gt；a+b和NOT(y & lt；b)
3.表达式Int(Rnd*71)+10生成的随机整数的范围是()。
A.(10，80) B.(10，81) C.[10，80] D.[10，81]
4.函数Sgn(3.1416)的返回值是()。
A.-1b.0c.1d。以上都不正确。
5.67890属于()类型数据。
A.整数b .单精度浮点数c .货币d .长整数
6.正确的变量名是()。
A.3S B .打印C .选择我的名字D .选择_1
7.下面的赋值语句()是有效的。
a . sum = sum-sum b . x+2 = x+2 c . x+y = sum d . last = y/0
8.下列具有输入输出双重功能的控件或方法是()。
A.打印文本框选项按钮复选框
9.若要获取列表框中选定列表项的内容，可以访问()属性。
A.名称B .列表索引C .列表计数D .文本
10.下面代码的运行结果是()。
私有子命令1_click()
尺寸m(10)
对于k = 1至10
m(k) = 11 - k
下一个k
x = 5
打印m(2 + m(x))
末端接头
A.2 B.3 C.4 D.5
二、填空(10分)
1.写出整数n能同时被13和17整除的基本表达式。
2.代码窗口中有两个下拉列表框:左侧的列表框和右侧的进程列表框。
3.写一个拦截字符串“Visual Basic 6.0”中“Visual”的基本表达式。
4.函数Len("abcdef ")的返回值是。
5.设a = 2，b = 5，c = -2，d = 100，则A >；b & gt= c和a & ltb & gt= d的值为。
6.若要使标签的大小自动适应显示的文本，可以通过将属性设置为True来实现。
7.如果想在一行中写多条语句，应该在语句之间添加分隔符。Visual Basic中的语句分隔符是。
8.要强制显式声明变量，请使用_ _ _ _ _ _ _ _语句。
9.在VB中，用户定义常量用法语句，声明变量用法语句。
3.将下列数学表达式转换成VB表达式。(6分)
1 . a2+2ab+B2 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
2.__________________________
3.8 exln 10 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
4.2英寸(450英寸)cos(450英寸)_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
5.___________________________________________
6.___________________________________________
四、对错，正确的打“√”，错误的打“×”(10分)。
1.在VB中，控件的事件只能由用户的操作触发。( )
2.双引号用作字符数据的分隔符，输出时双引号本身不会显示在屏幕上。( )
3.保存项目时，表单文件和项目文件的文件名不能相同。( )
4.改变控件的大小，可以用鼠标键盘，也可以修改代码。( )
5.在同一过程中，数组和简单变量可以同名。( )
6.6中的参数。VB函数可以是常量、变量、表达式或其他函数。( )
7.代码常量数字1 = 15:数字1 = 10是合法的。( )
8.允许块If-Then语句结构中的所有语句都写在一行上()
9.将数组语句Dim a(b)定义为整数是正确的()。
10.在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但变量个数必须相等，实参的类型必须与对应形参的类型一致。( )
5.根据题意，完成以下程序。(16分)
1.在[10，100]之间生成20个随机整数，每行输出10个数据。
私有子命令1_click()
Dim a(1到20)为整数
使不规则化
i = 0
当我& lt20
i = i + 1
a(i) = ()
如果()那么
打印a(一)；
如果…就会结束
如果i = 10，则打印a(i)
如果我& gt10然后打印a(I)；
环
末端接头
2.打印99乘法表
私有子命令1_click()
对于i = 1到9
对于j = 1到9
打印( )
下一个j
打印
( )
末端接头
3.判断一个数是否是质数。
私有子命令1_click()
X = InputBox("请输入一个整数")
flag = 1
对于i = 2到( )
如果x Mod i = 0，则
标志= 0
如果…就会结束
接下来我
If()则打印x；“它是一个质数”否则打印x；“不是质数”
末端接头
4.按数组输出斐波那契数列的前15项。
1和这个数列的第二项是1，其余项是前两项之和。
私有子命令1_Click()
( )
f(1)= 1:f(2)= 1
List1。AddItem f(1) : List1。附件f(2)
对于i = 3到15
f(i) = ()
List1。附件f(一)
接下来我
末端接头
六、写出下面程序的输出结果。(每题3分，***18分)
1.私有子命令1_click()
x = inputbox(" enter x ")' x的输入值是-8。
选择案例Sgn(x) + 2
案例1
Print " y =x ^ 2 + 1
案例2
Print " y =x - 4
案例3
Print " y =x ^ 3 + 100
结束选择
末端接头
2.私有子命令1_click()
将a、b、c、d、e标注为字符串
a = "郑州"
b = "中元恭学院"
c = a + " " + b
d =左(a，1) +中(a，7，1)
e =左(b，1) +中(b，12，1)
打印c
打印d；e
末端接头
3.设置子流程:
Private Sub p1(x为整数，ByVal y为整数)
x = 4 :y = 5 :z = 6
末端接头
那么下面程序段的运行结果是:
私有子命令1_Click()
将x标注为整数，y标注为整数
x = 1: y = 2: z = 3
打印x，y，z
调用p1(x，y)
打印x，y，z
末端接头
4.私有子命令1_click()
k = 0
对于i = 1到3
k = k + 1
a = i * i * k
打印a；
接下来我
末端接头
5.私有子命令1_click()
Dim a(5，5)为整数
对于i = 1到5
对于j = 1到5
a(i，j) = i * 2 + j
打印a(i，j)；
下一个j
打印
接下来我
末端接头
6.有一个函数过程:
私有函数f1(b，a)
a = a * a: b = b * b
f1 = a - b
结束功能
下面这个程序段的运行结果是什么？
私有子命令1_click()
a = 4: b = 3
a = f1(a，b)
打印一份
末端接头
七。编程题(***30分)
注:艺术生(环境艺术、装饰、表演、服装设计)做1、2、5、6题；
其他同学做题1，2，3，4。
1.给100%的分数，要求输出分数对应的等级。(7分)
90分以上是“A”，80 ~ 89分是“B”，70 ~ 79分是“C”，60 ~ 69分是“D”，60分以下是“E”。
2.求n！，n由键盘输入。(7分)
3.生成[0，99]之间的20个随机整数，按降序输出。(8分)
4.生成并输出一个6×6的二维数组A: (8点)
(1)两条对角线上元素的值是1，其他元素是小于30的随机整数。
(2)计算每个线元素的平均值，输出平均值最大和平均值最小的行号。
5.输出1+2+的和...+100，求1到100之间能被17整除的数据个数(8分)。
6.从键盘输入数字10，找出最大数、最小数和平均值。(8分)
VB试题答案及评分标准
1.选择题(每题1，***每题10)
1.B 2。A 3。C 4炸药。C 5。D
6.D 7。一个8。B 9。D 10。B
二、填空(每空1分，***10分)
1.n Mod 13=0，n Mod 17=0
1，对象
3.LEFT("Visual Basic 6.0 "，6)
4.6
5.错误的
6.自动调整大小
7.: 8.选项明确9。常量尺寸
三。将以下数学表达式转换成VB表达式(65438+每题0分，***6分)。
1、a^2+2*a*b+b^2
2、x^(1/3)*y^(1/4)
3、8*exp(x)*log(10)
4、2 * sin(3.1416/4)* cos(3.1416/4)
5、x+y+z)/sqr(x^2+y^2+z^2
6、log(1+绝对值((a+b)/(a-b)))
四、是非题(每题1分，***10分)
1.× 2.√ 3.× 4.√ 5.×
6.√ 7.× 8.× 9.× 10.√
五、根据题意，完成以下程序(每格1分，***10分)。
1.(1)int(rnd * 91)+10(2)I & lt；10
2.(1) i*j (2)下一个I
3.(1) int (sqr (x))或x-1 (2) flag=1。
4.(1)dim f(15)作为整数(2)f(I-1)+f(I-2)
六、写出以下程序的输出结果(每题4分，***24分)
1、y=65
2、郑薛原2分
ZZZG 2分
3.1 2 3
4 2 3
4.1 8 27
5.3 4 5 6 7
5 6 7 8 9
7 8 9 10 11
9 10 11 12 13
11 12 13 14 15
6.-7
七、编写程序
1.私有子命令1_click()
Dim x为整数，等级为字符串1。
X=text1.text 1点。
选择案例x 4点
案例90转100
grade="A "
案例80至89
等级="B "
案例70至79
等级="C "
案例60至69
等级="D "
案例是& lt60
grade="E "
其他情况
Msgbox“请重新输入”
结束选择
打印“该学生的成绩是”+成绩1。
末端接头
2.私有子命令1_click()
Dim n为整数，f为长1点。
N=text1.text 1点。
f=1
对于I=1到n 3点
f=f*I
接下来我
Text2.text=f 2点
末端接头
3.私有子命令1_Click()
Dim A (1到20)作为整数' 1。
使不规则化
对于i = 1到20的2个点
a(i) = Int(Rnd * 100)
打印a(一)；
然后
打印
对于i = 1到19 3点。
对于j = i + 1到20
如果a(i)>a(j)那么
t = a(i): a(i) = a(j): a(j) = t
如果…就会结束
下一个j
接下来我
对于i = 1到20的2个点
打印a(一)；
接下来我
末端接头
4.私有子命令1_Click()
dim A(1到6，1到6)为整数' 1。
Dim aver为单个
使不规则化
对于i = 1到6 3点
对于j = 1到6
如果i = j或i + j = 7，则
a(i，j) = 1
其他
a(i，j) = Int(Rnd * 30)
如果…就会结束
打印a(i，j)；
下一个j
打印
接下来我
打印
最大值= 0:最小值= 30±4点
对于i = 1到6
s = 0
对于j = 1到6
s = s + a(i，j)
下一个j
aver = s / 6
If aver & gtMax Then Max = aver: row_max = I
If aver & ltMin Then Min = aver: row_min = i
接下来我
打印row_max，row_min
末端接头
5.私有子命令1_Click()
Dim i为整数，c为整数
将s标注为整数
对于i = 1到100 4点。
s = s + i
如果i Mod 17 = 0，则c = c + 1
接下来我
打印“1+2+...+100=";S 2点
打印“可以是17的整数数据”；c；“一”得2分
末端接头
6.私有子命令1_Click()
将x标注为整数
X = InputBox("x=") 1点。
打印x；
Max = x: Min = x: s = x 2分钟。
对于i = 2到10 3点
x = InputBox(" x = "):Print x；
s = s + x
如果x & gt最大然后最大= x
如果x & lt最小值然后最小值= x
接下来我
打印s/10 1点
打印最大、最小1点
末端接头