中国地质大学北京研究生vb期末考试

A. vb期末考试试题谁有啊

这有一份
VB期末考试试题 一、 填空题
1、VB程序设计的主要特点是 （1） 和 （2） 。
2、在VB中，最主要的两种对象是 （3） 和 （4） 。
3、工程是构成应用程序文件的 （5） 。
4、方法是VB提供的一种 （6） ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___（7）__数据。
6、事件是窗体或控件对象识别的___（8）____。
7、可用窗体的___（9）_ 方法在窗体中显示文字。
8、 复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的 （11）和 （12） 属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的 （13） 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中，如果缺省title参数，则使用 （14） 作为消息框的标题。
12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是 （15） 。
13、在VB 中，数值型变量的初值为 （16） ，Varant型变量的初值为 （17） ，布尔型变量的初值为 （18） 。
14、设置窗体的 （19） 属性，可在窗体上显示图片。
15、程序运行工程中，清除MP图片框中的图片应使用语句 （20） 。
二、选择题
1、菜单控件只包括一个事件，即 （1） ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocus B、Load C、Click D、KeyDown
2、滚动条控件(如图所示)的Max属性所设置的是 （2） 。

A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、滚动条控件无该属性
3、SQL 语句 Select * Form student 中的 *表示 （3） 。
A、所有记录 B、所有字段 C、所有表 D、都不对
4、以下选项中，不属于标签的属性是 （4） 。
A、Enabled B、Caption C、Default D、Font
5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 （5） 。
A、Caption B、Name C、Text D、Label
6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 （6） 。
A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ （7） 。
A、在标题项中输入&，然后打勾 B、在索引项中打勾
C、在有效项中打勾 D、在复选项中打勾
8、当执行以下过程时，在窗体上将显示 （8） 。
Private Sub Command1_Click( )
Print "VB";
Print "Hello! ";
Print "VB"
End Sub
A、 VBHello!VB B、 VB
Hello!VB

C、 VB D、 VB
Hello! VB Hello!
VB
9、语句Print "The answer is:";20/4-2的结果为 （9） 。
A、The answer is 20/4-2 B、The answer is 3
C、The answer is "20/4-2" D、非法语句
10、下列哪个控件是容器控件 （10） 。
A、Image B、Picture C、ComboBox D、FileListBox
11、若要将窗体从内存中卸载出去，其实现的方法是 （11） 。
A.Show B.Hide C.Load D.UnLoad
12、以下选项中，不是 Visual Basic控件的是 （12） 。
A.窗体 B.定时器 C.单选框 D.命令按钮
13、双击窗体中的对象后，Visual Basic将显示的窗口是 （13） 。
A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口
14、可决定窗体的左上角是否有控制菜单的属性是 （14） 。
A.ControlBox B.MinButton
C.MaxButton D.BorderStyle
15、设有如下语句：
Strl＝InputBox（"输人"，""，"练习"）
从键盘上输人字符 “示例”后，Strl的值是 （15） 。
A．“输入” B．“ ” C．“练习” D．“示例”
16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 （16） 。
A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click
17、窗体的hide属性的含义是 （17） 。
A.隐藏 B.展现 C.装入 D.卸载
18、若要设置定时器控件的定时时间，需设置的属性是 （18） 。
A．Enabled B．Value C．Interval D．Text
19、能够改变复选框中背景颜色的属性是 （19） 。
A．Value B．FontColor C．BackColor D．Font
20、窗体能响应的事件是 （20） 。
A．ActiveForm B．Load C．Drive D．Change
三、判断题(判断下列正确与否，正确的打√，错误的打ⅹ。)
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。
2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。
3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。
4、通过改变属性窗口中的Name属性，来改变窗体的标题。
5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。
6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
7、已知P＝MsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。
10、OptionButton控件没有DblCliek事件。
11、同一条记录中的各数据具有相同的类型。
12、使用Data控件可以直接显示数据库中的数据。
13、ImageList 是一个图像容器控件，可用作工具栏的图像库。
14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。
15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。
16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。
17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。
18、使用数组定义语句：Dim D$（10），则数组D中各元素的值为空。
19、如果在一行中输入多条语句，各语句之间用使用 ；分隔。
20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。
四、读程序题，写出程序运行结果
1、 Private Sub Form_Click()
Static SUM As Integer
I = 1
Do While I<=10
SUM = SUM + I
I = I + 1
Loop
Print SUM
End Sub

运行程序，第一次单击窗体：

第二次单击窗体：

2、 Private Sub Form_Click()
Print "*"; Tab(6); 2, Tab(15); 5
Print
For I = 15 To 16
Print I;
For j = 2 To 6 Step 3
Print Tab(3 * j); j * I;
Next j
Print
Next I
End Sub

程序运行结果：
五、编程题

（一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。请填空：

Private Sub Form_load( )
（1） =loadPicture(“c:\pic\ball.ico”)
（2） .Interval=200
End Sub

Private Sub Timer1_Timer( )
Static x , y As Integer
x=x+100
y=y+100
Picture1.Move （3）
End Sub

（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：

Private Sub Command1_Click()
Dim x As Integer, N%
Dim Counter As Integer
(1) Timer
For N=1 To 50
X=Rnd()* (2)
If (3) =2 Then
Print x
Counter= (4)
(5)
Next N
Print Counter
End Sub

《VB程序设计与应用》参考答案

一、填空题 1 2 3 4 5
答案 可视化设计 事件驱动编程 窗体（form） 控件 集合
题号 6 7 8 9 10
答案 特殊子程序 双精度 动作 Print 选中
题号 11 12 13 14 15
答案 高度（Height） 宽度(Width) 中央 工程1 34.6
题号 16 17 18 19 20
答案 0 空 False Picture Cls
二、选择题 1 2 3 4 5
答案 C A B C A
题号 6 7 8 9 10
答案 D D A B B
题号 11 12 13 14 15
答案 D A A A D
题号 16 17 18 19 20
答案 C A C C B
三、判断题 1 2 3 4 5 6 7 8 9 10
答案 Х Х Х √ Х √ √ √ √ Х
11 12 13 14 15 16 17 18 19 20
答案 √ Х √ √ Х Х √ Х Х √

四、程序阅读题：
（一） （10分）
1 、 55
2、 110

（二）、 （10分）
* 2 5
15 30 75
16 32 80
五、编程题 （20分）
（一）1、Picture1.Picture
2、 Timer1
3、 x ,y
(二) 1、 Randomize
2、 Rnd()*41+60
3、 x Mod 6
4、 Counter＋1
5 End If

一、单项选择题（共10分）
1．在代码中引用一个控件时，应使用控件的（B）属性。
A．Caption B．Name C．Text D．Index
2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（A）的值为“假”。
A．x+a <= b-y B． x > 0 AND y < 0
C．a = b OR x>y D． x+y > a+b AND NOT (y < b)
3．表达式Int(Rnd*71)+10产生的随机整数范围是（C ）。
A．（10，80） B．（10，81） C．[10，80] D．[10，81]
4．函数Sgn(3.1416)的返回值是（C ）。
A．-1 B．0 C．1 D．以上都不对
5．67890属于（ D ）类型数据。
A．整型 B．单精度浮点数 C．货币型 D．长整型
6．下列变量名中正确的是（D）。
A．3S B．Print C．Select My Name D．Select_1
7．下列赋值语句（ A ）是有效的。
A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0
8．以下的控件或方法具有输入和输出双重功能的为（B）。
A．Print B．Textbox C．Optionbutton D．Checkbox
9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。
A．Name B．ListIndex C．ListCount D．Text
10．下列代码的运行结果为（B ）。
Private Sub command1_click()
Dim m(10)
For k = 1 To 10
m(k) = 11 - k
Next k
x = 5
Print m(2 + m(x))
End Sub
A．2 B．3 C．4 D．5
二、填空题（10分）
1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 。
2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。
3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。
4．函数Len(“abcdef”)的返回值是(6) 。
5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为False 。
三、将下列数学表达式转换为VB表达式。（6分）

1．a2+2ab+b2 ： a^2+2*a*b+b^2
2．8exln10 ：8*exp(x)*log(10)
3．2sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4)

6．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。

B. VB期末考试怎么不挂科，明天就要考试了。也不愿意学，求作弊手段

机试笔试?>
机试开共享传答案就好了 笔试嘛,手段大把大把的

C. 求一些大一的vb期末考试题和答案

我在郑州上学，这是我们的试卷，中原工学院经管院大一的试题希望对你有用！
一、单项选择题（共10分）

1．在代码中引用一个控件时，应使用控件的（ ）属性。

A．Caption B．Name C．Text D．Index

2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ ）的值为“假”。

A．x+a <= b-y B． x > 0 AND y < 0

C．a = b OR x>y D． x+y > a+b AND NOT (y < b)

3．表达式Int(Rnd*71)+10产生的随机整数范围是（ ）。

A．（10，80） B．（10，81） C．[10，80] D．[10，81]

4．函数Sgn(3.1416)的返回值是（ ）。

A．-1 B．0 C．1 D．以上都不对

5．67890属于（ ）类型数据。

A．整型 B．单精度浮点数 C．货币型 D．长整型

6．下列变量名中正确的是（ ）。

A．3S B．Print C．Select My Name D．Select_1

7．下列赋值语句（ ）是有效的。

A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0

8．以下的控件或方法具有输入和输出双重功能的为（ ）。

A．Print B．Textbox C．Optionbutton D．Checkbox

9．若要获得列表框中被选中的列表项的内容，可以通过访问（ ）属性来实现。

A．Name B．ListIndex C．ListCount D．Text

10．下列代码的运行结果为（ ）。

Private Sub command1_click()

Dim m(10)

For k = 1 To 10

m(k) = 11 - k

Next k

x = 5

Print m(2 + m(x))

End Sub

A．2 B．3 C．4 D．5

二、填空题（10分）

1．写出整数n能同时被13和17整除的Basic表达式 。

2．代码窗口中有两个下拉列表框：左侧是 列表框，右侧是过程列表框。

3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式 。

4．函数Len(“abcdef”)的返回值是 。

5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d的值为 。

6．要使标签的大小自动与所显示的文本相适应，可以通过设置 属性为True来实现。

7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为 。

8．要强制显式声明变量，使用__________语句完成。

9．在VB中，用户定义常量使用 语句，声明变量使用 语句。

三、将下列数学表达式转换为VB表达式。（6分）

1．a2+2ab+b2 __________________________

2． __________________________

3．8exln10 __________________________

4．2sin(450)cos(450) _______________________________

5． ___________________________________________

6． ___________________________________________

四、判断题，正确打“√”，错误打“×”（10分）

1．在VB中，控件的事件只能通过用户的操作触发。（ ）

2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（ ）

3．保存工程时，窗体文件和工程文件的文件名不能相同。（ ）

4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（ ）

5．同一过程中，数组和简单变量可以同名。（ ）

6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（ ）

7．代码Const Number1=15：Number1=10合法。（ ）

8．允许将块If-Then语句结构中的所有语句都写在一行上（ ）

9．定义数组语句Dim a(b) As Integer 是正确的（ ）

10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（ ）

五、根据题意，将下列程序补充完整。（16分）

1． 产生20个[10，100] 之间的随机整数，每行输出10个数据。

Private Sub command1_click()

Dim a(1 To 20) As Integer

Randomize

i = 0

Do While i < 20

i = i + 1

a(i) = ( )

If （ ）Then

Print a(i);

End If

If i = 10 Then Print a(i)

If i > 10 Then Print a(i);

Loop

End Sub
2．打印九九乘法表

Private Sub command1_click()

For i = 1 To 9

For j = 1 To 9

Print （ ）

Next j

Print

（ ）

End Sub
3．判断一个数是否素数

Private Sub command1_click()

x = InputBox("请输入一个整数")

flag = 1

For i = 2 To （ )

If x Mod i = 0 Then

flag = 0

End If

Next i

If （ ）Then Print x; "是素数" Else Print x; "不是素数"

End Sub
4．利用数组输出Fibonacci数列的前15项。

该数列的第1项和第2项为1，其余各项均为其前两项之和。

Private Sub Command1_Click()

（ ）

f(1) = 1 : f(2) = 1

List1.AddItem f(1) : List1.AddItem f(2)

For i = 3 To 15

f(i) = （ )

List1.AddItem f(i)

Next i

End Sub
六、写出下面程序的输出结果。（每题3分，共18分）

1． Private Sub command1_click()

x = InputBox("enter x") ' x 的输入值为-8

Select Case Sgn(x) + 2

Case 1

Print "y="; x ^ 2 + 1

Case 2

Print "y="; x - 4

Case 3

Print "y="; x ^ 3 + 100

End Select

End Sub

2． Private Sub command1_click()

Dim a, b, c, d, e As String

a = "Zheng Zhou"

b = "Zhong Yuan Gong Xue Yuan"

c = a + " " + b

d = Left(a, 1) + Mid(a, 7, 1)

e = Left(b, 1) + Mid(b, 12, 1)

Print c

Print d; e

End Sub

3．设有Sub过程：

Private Sub p1(x As Integer, ByVal y As Integer)

x = 4 ：y = 5 ：z = 6

End Sub

则如下程序段的运行结果是:

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 1: y = 2: z = 3

Print x, y, z

Call p1(x, y)

Print x, y, z

End Sub

4． Private Sub command1_click()

k = 0

For i = 1 To 3

k = k + 1

a = i * i * k

Print a;

Next i

End Sub

5． Private Sub command1_click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 5

a(i, j) = i * 2 + j

Print a(i, j);

Next j

Print

Next i

End Sub

6．设有Function过程:

Private Function f1(b, a)

a = a * a: b = b * b

f1 = a - b

End Function

则如下程序段的运行结果是什么？

Private Sub command1_click()

a = 4: b = 3

a = f1(a, b)

Print a

End Sub

七．编程题（共30分）

注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；

其他学生做 第1、2、3、4 小题。

1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分）

90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。

2．求n!,n由键盘输入。（7分）

3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。（8分）

4．产生并输出一个6×6的二维数组A：（8分）

（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。

（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。

5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）

6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）

VB试题答案及评分标准

一、 单项选择题（每题1分，共10分）

1．B 2．A 3．C 4．C 5．D

6．D 7．A 8．B 9．D 10．B

二、 填空题（每空1分，共10分）

1．n Mod 13=0 And n Mod 17=0

1、 对象

3．LEFT(“Visual Basic 6.0”,6)

4．6

5．False

6．Autosize

7． ： 8．Option Explict 9．Const Dim

三、 将下列数学表达式转换成VB表达式（每题1分，共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+abs((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<10

2．（1） i*j （2） next i

3．（1）int(sqr(x))或者x-1 （2） flag=1

4．（1）dim f(15) as integer （2）f(I-1)+f(I-2)

六、 写出下面程序的输出结果（每题4分，共24分）

1、 y=65

2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 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. private sub command1_click()

dim x as integer,grade as string 1分

x=text1.text 1分

select case x 4分

case 90 to 100

grade=”A”

case 80 to 89

grade=”B”

case 70 to 79

grade=”C”

case 60 to 69

grade=”D”

case is<60

grade=”E”

case else

msgbox “请重新输入”

end select

print “该学生成绩为”+grade 1分

end sub

2．Private Sub command1_click()

Dim n as integer,f as long 1分

n=text1.text 1分

f=1

for I=1 to n 3分

f=f*I

next I

text2.text=f 2分

end sub

3． Private Sub Command1_Click()

Dim a(1 To 20) As Integer ' 1分

Randomize

For i = 1 To 20 2分

a(i) = Int(Rnd * 100)

Print a(i);

Next

Print

For i = 1 To 19 3分

For j = i + 1 To 20

If a(i) > a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

For i = 1 To 20 2分

Print a(i);

Next i

End Sub

4． Private Sub Command1_Click()

Dim a(1 To 6, 1 To 6) As Integer ' 1分

Dim aver As Single

Randomize

For i = 1 To 6 3分

For j = 1 To 6

If i = j Or i + j = 7 Then

a(i, j) = 1

Else

a(i, j) = Int(Rnd * 30)

End If

Print a(i, j);

Next j

Print

Next i

Print

Max = 0: Min = 30 4分

For i = 1 To 6

s = 0

For j = 1 To 6

s = s + a(i, j)

Next j

aver = s / 6

If aver > Max Then Max = aver: row_max = I

If aver < Min Then Min = aver: row_min = i

Next i

Print row_max, row_min

End Sub

5． Private Sub Command1_Click()

Dim i As Integer, c As Integer

Dim s As Integer

For i = 1 To 100 4分

s = s + i

If i Mod 17 = 0 Then c = c + 1

Next i

Print "1+2+...+100="; s 2分

Print "能被17整数的数据有"; c; "个" 2分

End Sub

6． Private Sub Command1_Click()

Dim x As Integer

x = InputBox("x=") 1分

Print x;

Max = x: Min = x: s = x 2分

For i = 2 To 10 3分

x = InputBox("x=") ：Print x;

s = s + x

If x > Max Then Max = x

If x < Min Then Min = x

Next i

Print s / 10 1分

Print Max, Min 1分

End Sub

D. 求大一VB期末考试测试题及答案(北京)

??30、形参表中的各个变量之间用( )分隔。（1分）
A、. B、、
C、, D、;

?31、引用列表框（List1）最后一个数据项应使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)

?32、在下面关于常用的ActiveX控件的说法中，正确的是( )。（1分）
A、在Animation控件中，当用Open方法打开AVI文件后直接自动播放 B、Slider控件有Scroll和Change事件
C、UpDown不能与Slider“捆绑” D、选项卡只可以出现在控件的项端

？1、激活Visual Basic集成环境主菜单的按键是( )。（1分）
A、Alt 或 F10 B、F1
C、F9 D、F5
15、下列关于声明变量的说法中，错误的是( )。（1分）
A、用显示声明变量的关键字Dim,Private,Static或Public来声明变量的类型 B、用类型说明符标记变量类型，类型说明符有：%,&,!,@,$
C、用DefType语句声明变量的类型，其中Type是类型标志 D、用Type<数据类型名>/End Type语句声明记录类型变量
？18、表达式1.5+3\2>2 Or 7 Mod 3<4 And Not 1的运算结果是( )。（1分）
A、-1 B、0
C、1 D、其他
28、关于过程级过程参数的描述中，错误的描述是( )。（1分）
A、过程的参数可以是控件名称 B、用数组作为过程的参数时，使用的是“传地址”方式
C、只用函数过程能够将过程中处理的信息传回到调用的程序中 D、窗体可以作为过程的参数
30、形参表中的各个变量之间用( )分隔。（1分）
A、. B、、
C、, D、;
31、引用列表框（List1）最后一个数据项应使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)

32、在下面关于常用的ActiveX控件的说法中，正确的是( )。（1分）
A、在Animation控件中，当用Open方法打开AVI文件后直接自动播放 B、Slider控件有Scroll和Change事件
C、UpDown不能与Slider“捆绑” D、选项卡只可以出现在控件的项端
问题补充：36、若菜单项前面没有内缩符号“...”表示该菜单项是(
A、主菜单项 B、子菜单项
C、下拉式菜单 D、弹出式菜单
37、下列语句向顺序文件中写入数据，不正确的是( )。（1分）
A、print #1 "this is a test" B、print #1,"this is a test"
C、print #1,spc(5),"this is a test" D、print #1,tab(10),"this is a test"
38、line input #1,str1的意思是( )。（1分）
A、将str1写入打开的1号文件 B、从1号文件中读出一行数据赋予str1
C、将str1作为一行写入1号文件 D、从1号文件中读出一个变量赋予str1
39、在顺序文件中，写入一条记录的正确语句是( )。（1分）
A、put #1,a B、print #1,a
C、write line #1,a D、print line #1,a
40、打开一个新的顺序文件SeqOld.dat，供用户写入数据，指定文件号为2，正确的语句为( )。（1分）
A、open "seqNew.dat" for Input as #2 B、open "seqNew.dat" for Output as #2
C、open seqNew.dat for Input as #2 D、open seqNew.dat for Output as #2

答案1.A 15.D 18.A 28.B 30.C 31.B 32.B36.A 37.A 38.C 39.B 40.A

看哈子,看对你有没有帮助.

E. vb期末考试题

第一套
一、判断题
1、Visual Basic程序开发的特点是面向对象的事件驱动。 （√）
2、Print_Text是一个不合法的变量名。 （×）
3、窗体的AutoRedraw属性实现了屏幕图像的重建。 （√）
4、设置字体大小应使用Font属性 （×）
5、Sub过程可以实现嵌套调用 （√）
6、IIF函数中的三个参数都不能省略。 （√）
7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√）
8、当终值小于初值时，步长为负数。 （√）
9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也
不会执行。（√）
10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用 (√)

二、单项选择题
1．Print Format（123，”####”）执行之后的结果为
A）＃123 B）123 C）123＃ D）＃＃＃＃
【答案】B

2．下面可以表示注释语句开头的为
A）Re B）R C）Rem D）dim
【答案】C

3．下列选项中窗体载入事件为
A）Load事件 B）Click事件 C）DblClick事件 D）Unload事件
【答案】A

4．Timer控件可以使用下列哪种事件
A）Click事件 B）Timer事件 C）Dblclick事件 D）Change事件
【答案】B

5．在InputBox函数中哪一个参数是必须的
A）Prompt B）Buttons C）Title D）Context
【答案】A

6．以下叙述中错误的是：
A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B）Sub过程中不能嵌套定义Sub过程
C）Sub过程可以嵌套调用Sub过程
D）事件过程可以像通用过程一样由用户定义过程名
【答案】C

7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。
A）文件 B）视图 C）工程 D）工具
【答案】 C

8．在块结构条件语句If-Then / Endif中
(A) 必须至少有一个Elseif语句
(B ) 可以有任意多个ElseIf-Then语句
(C) 如果没有Else语句，运行时将出现错误
(D ) 给定的条件只能是关系表达式或逻辑表达式
【答案】B

9．以下Case语句中错误的是
(A) Case 10 To 1
(B) Case Is>10
(C)Case Is>10 , Is<50
(D) Case 3,5,Is>10
【答案】A

10．对Do Until…Loop循环，正确的是( )。
A．如果循环条件为常数0，则一次循环也不执行
B．如果循环条件为常数0，则至少执行一次循环
C．如果循环条件是不为0的常数，则至少执行一次循环
D．无论循环条件是否为"True"，则至少执行一次循环
【答案】B

11．语句Dim arr(-3 To 5, 2 To 6) As Integer定义的数组元素有_______个。
A) 45 B) 40 C) 11 D) 54
【答案】A

12．下列关于Option Base语句说法错误的是______D
A) Option Base语句只能出现在窗体层或模块层
B) Option Base语句不能出现在过程中
C) Option Base语句必须位于数组的定义之前
D) Option Base语句只对一维数组有效
【答案】D

13、Visual Basic的特点不包括下面的（A）
A 不需编程 B 面向豆象的程序设计
C 可视化程序设计 D 时间驱动的程序设计

14、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（D）
A Left B Mid
C String D Instr

15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（B）
A 0 B -1
C True D false

16、下列符号常量的声明中，（C）是不合法的。
A Const a As Single = 1.1 B Const a As Integer = “12”
C Const a As Double = Sin(1) D Const a =”OK”

17、四个字符“E”,“y”,“B”,“8”的ASCII码值最大的是（B）
A “E” B “y”
C “B” D “8”

18、将变量k四舍五入保留2位小数的表达式是（C）
A Int((k+0.5)*100)/100 B Int((k*100)/100)+0.5
C Int(k*100+0.5)/100 D Int(k*(100+0.5))/100”

19、30．将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是（A）
A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2)
C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2)

20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是（B）
A Output和Input B Output和Append
C Output D Append

三、程序分析题
1．以下语句的输出结果是（注：■表示一个空格）
a = 123
b = 456
Print a; b
A）123■456 B）■123■456 C）■123■456■ D）■123■■456
【答案】D

2．下列程序执行的结果为
x = -6 ^ 2
Print Sgn(x) + Abs(x) + Int(x)
A）－36 B）1 C）－1 D）－72
【答案】C

3．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label1.Caption = s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容为
A）1 B）5 C）27 D）45
【答案】B

4．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A）10 10 10 B）30 30 30 C）30 30 10 D）10 30
【答案】C

5．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：
Private x As Integer
Private Sub Command1_Click()
x = 5: y = 3
Call Proc(x, y)
Label1.Caption = x
Label2.Caption = y
End Sub

Private Sub Proc(ByVal a As Integer, ByVal b As Integer)
x = a * a
y = b + b
End Sub
运行程序后，则两个标签中显示的内容分别是
A）5和3 B）25和3 C）25和6 D）5和6
【答案】B

6.下面程序段求两个数中的大数，不正确的是
（A）If x＞y Then Max=x Else Max=y
（B） Max=IIf(x＞y,x,y)
（C）If y＞=x Then Max=y
Max=x
(D)If y＞x Then Max=y
Max=x
【答案】D

7．如果x的值大于或等于y的立方，则打印“OK”，表示这个条件的单行格式的If语句是
A）If x>=y^3 Print “OK”
B）If x>=y*y*y Then “OK”
C）If x>=y^3 Then Print “OK”
D）If x>=y*y*y Then Print “OK” End If
【答案】C

8．下列程序段执行结果为
x = 5
y = -6
If Not x < 0 Then x = y - 3 Else y = x + 3
Print y - x; x - y
A) 3 －3
B) －9 5
C) －3 3
D) 5 －6
【答案】A

9．已知x的值，计算分段函数f(x)，下面选项不正确的是
当 x＞=1， f(x)= ；
当x＜1 ，f(x)= x2+3
(A) Select Case x
Case Is<1
f= x^2+3
Case else
f=sqr(x+1 )
End Select
(B) Select Case x
Case x>=1
f=sqr(x+1 )
Case x<1
f= x^2+3
End Select
(C ) Select Case x
Case Is>=1
f=sqr(x+1 )
Case Is<1
f= x^2+3
End Select
(D) IF x>=1 then f=sqr(x+1 ) else f= x^2+3
【答案】B

10．执行完下面的程序段后，循环执行了( )次。
For i = 1.7 To 5.9 Step 0.9
a = a + 1
Print a
Next I
A．3 B．4 C．5 D．6
【答案】C

11．下列程序段的执行结果为( )。
n = 0
j = 1
Do Until n > 2
n = n + 1
j = j + n * (n + 1)
Loop
Print n; j
A．0 1 B．3 7 C．3 21 D．3 13
【答案】C

12．以下正确的For…Next结构是
（A） For x=1 To 10
for y=1 to 10
…
Next
（B）For x=1 To 10
for y=1 to 10
…
Next y , x
（C）For x=1 To 10
for y=1 to 10
Next x
Next y
（D）For x=1 To 10
for y=1 to 10
…
Next x , y
【答案】B

13．下列程序中，第一个Do语句共执行了( )次循环。
Dim i As Integer, j As Integer
i = 1
Do
j = 1
Do
Sum = Sum + j
j = j + 2
Print j;
Loop Until j > 3
i = i + 2
Loop Until i > 10
Print Sum
A．10 B．20 C．5 D．7
【答案】A

14．下列语句中，a是一个数组，则使用正确的是______
A) Option Base 2
B) Redim a
C) Erase a
D) a = Array()
【答案】C

15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______
A) 12 B) 13 C) 14 D) 15
【答案】A

16.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a (10,10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 1 To 3
a (i, j) = (i – 1) * 3 + j
Print a(i, j );
next j
Print
next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是______
A) 1 2 3
2 4 6
3 6 9
B) 2 3 4
3 4 5
4 5 6
C) 1 4 7
2 5 8
3 6 9
D) 1 2 3
4 5 6
7 8 9
【答案】D

17.设有如下程序：
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a = Array(1,2,3,4,5,6,7,8,9)
For i = 0 To 3
Print a(5 – i);
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是______
A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4
【答案】C

18．执行以下Command1的Click事件过程在窗体上显示_______。
Private Sub Command1_Click()
Dim a
a = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)
Print a(1); a(3); a(5)
End Sub
A) a b c B) b d f C) a c e D) 出错
【答案】B

19、设有语句
Open"c:\Test.Dat"For Output As#1
则以下错误的叙述是（B）
A）该语句打开C盘根目录下一个已存在的文件Test.Dat
B）该语句在C盘根目录下建立一个名为Test.Dat的文件
C）该语句建立的文件的文件号为1
D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息

20、 以下代码完成对顺序文件test1.txt追加打开的是（C）
A）Open test1.txt For Input As #1
B）Open test1.txt For Output As #1
C）Open test1.txt For Append As #1
D）Open test1.txt For Redom As #1

四、上机题

1．小王有存款A元，年利率为P,存储时间为T年.请编写一个程序计算本利合计。（A 、P、 T均使用Inputbox输入）
2．求100以内的素数，素数是指一个数x除了1和它本身，不能被其他任何整数整除。要求每行输出10个素数。
单击窗体，运行结果如图所示：

答案
在单击窗体的事件过程中添加代码，程序代码如下：
Private Sub Form_click()
Const N = 100
Dim i, j, Line, a(N) As Integer
For i = 0 To N - l ' 置初值
a(i) = i
Next i
For i = 2 To Sqr(N)
For j = i + 1 To N
If a(i) <> 0 And a(j) <> 0 Then
If a(j) Mod a(i) = 0 Then a(j) = 0 ' 能整除就赋0
End If
Next j
Next i
Print "显示出100以内的素数"
For i = 2 To N - 1
If a(i) <> 0 Then
Print a(i); Spc(1);
Line = Line + 1
End If
If Line <> 0 And Line Mod 10 = 0 Then Print ' 每行显示10个数
Next i
End Sub
评分标准：
1、正确给数组赋值 （2分）
2、正确判断素数 （3分）
3、正确输出显示结果 （2分）
4、文件存盘 （2分）
5、程序结构合理、清晰 （1分）

F. VB期末考试的重点和解析

基本概念 常用内部函数 常、变量 常用控件（文本框 图片框 下拉框 列表框 按钮） 顺序文件读写 数据库

G. VB期末考试题,跪求答案

For i = 0 To 20
For j = 0 To 33
If i * 5 + j * 3 + (100 - i - j) / 3 = 100 Then
Print "公鸡:"; i; "只，回母鸡:"; j; "只，小鸡:"; 100 - i - j; "只。答"
End If
Next j
Next i

H. vb期末考试是怎么考的

请问你需要什么帮助？我对vb比较熟悉<pre t="code" l="vb">Dim a()
Private Sub Form_Click()
Dim m As Integer, n As Integer
m = Val(InputBox("请输入行数"))
n = Val(InputBox("请输入列数"))
ReDim a(m, n)
Randomize
Text1.Text = ""
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 100 + 1)
Text1.Text = Text1.Text Format(a(i, j), "!@@@@")
Next j
Text1.Text = Text1.Text vbCrLf
Next i
find = 0
For i = 1 To m
big = a(i, 1)
col = 1
For j = 1 To n
If big < a(i, j) Then
big = a(i, j)
col = j
End If
Next j
flag = 1
For k = 1 To m
If big > a(k, col) Then
flag = 0
Exit For
End If
Next k
If flag = 1 Then
find = 1
Text2.Text = "鞍点在" i "行" col "列"
End If
Next i
If find = 0 Then MsgBox "无鞍点"
End Sub

I. 大学VB期末考试题

啥要求啊，可以HI我，或者联系一五零零三三一五六四