VB复习题

VB期末复习

一、选择题（每题2分，共20分）

(1) 在以下VB窗口中，可以用来调试简单程序的窗口为：( )。

A) 属性窗口 B) 代码窗口 C) 工程管理器窗口 D)立即窗口

(2) 若要使某个命令按钮不可操作，应将其( )属性的值设置为False。

A) Enabled B) Visible C) Name D) Caption

(3) 当程序运行时，系统自动执行启动窗体的（）事件过程。

A) Load B) Click C) CLS D) Print

(4) 设整型变量x,y,z的初始值均为0,下列哪个选项可以在程序中作为一个语句行，并使x 的值变为5 ,y的值变为15，z的值变为3。

A) x=5,y=15,z=3 B) x=5;y=15;z=3

C) x=5:y=15:z=3 D) x=5 y=15 z=3

(5) VB中的四种运算符的优先级由高到低的排列顺序是：（）

A) 算术运算、关系运算、字符连接运算、逻辑运算

B) 算术运算、字符连接运算、关系运算、逻辑运算

C) 算术运算、关系运算、逻辑运算、字符连接运算

D) 算术运算、逻辑运算、关系运算、字符连接运算

(6) 利用随机函数产生一个[10,99]区间内的正整数的式子为：( )。

A) Int(10+Rnd*99) B)Int(Rnd*10+99)

C)Int(10+Rnd*89) D)Int(10+Rnd*90)

(7)下面程序段运行后，显示的结果是：( )。

Dim x% : x=1 : If x Then Print x+1 else Print x-1

A) 0 B) 1 C) 2 D) 程序出错

(8)下面的程序段用于求变量x和y中的大者m，不正确的是：( )。

A) m=IIf(x>y,x,y) B) if(y>x) Then m=y else m=x

C) m=x : if(my) Then m=y

(9) 下面的程序段用于定义一维数组M，不正确的是：( )。

A) Dim M%(1 to 10) B) Dim N% : N=10 : Dim M%(N)

C) Dim M%(0 to 10) D) Const N%=10 : Dim M%(N)

(10) 下面是定义Function过程或Sub过程的第一条语句，正确的是：( )。

A) Private sub sub1(ByVal n%())

B) Private sub sub2(ByVal n%) as Integer

C) Function fun1(ByVal fun1%) as Integer

D) Function fun2%(ByVal n%)

二、基本概念填空题( 每空1分，共20分)

(1) 在VB的基本数据类型中，基本整数型的关键字为Integer，类型符为%；单精度实数

型的关键字为【1 】，类型符为【 2 】。

(2) 在VB中，文本框控件有两个作用，一是用于【3 】；二是通过对它的Text属性赋值，

将其作为【4 】的对象。

(3) 文本框对象（如Text1）的KeyPress事件中有一个参数KeyAscii，它是一个【5 】

类型的值；如果用户按下的键为“A”键，则KeyAscii的值为【 6 】

(4) 在VB中，用于输入数据的函数名为【7 】；其第一个参数的类型为【8 】，第一个

参数的含义为【9 】。

(5) 设有整型变量x=5 : y=15 : z=3，试写出下列表达式的值。

Int (z-y/2)= 【10 】；x & y=【11 】；x Mod z+x^2\y+z=【12 】；

Ucase(Mid("This is a book",2*z,x-1) ) =【13 】；Instr("abacdergh","ac")=【14 】

(6) 声明一个值为3.1415926的双精度型常量PI的语句为【15 】。

(7) 在VB的赋值语句中，等号左边的数据对象可以有三种形式，它们分别是：【16 】、

【17 】和【18 】。

(8) 用VB程序段创建一个数据文件的过程通常分为如下三步：首先，打开一个新的用于

保存数据的顺序文件，如"C:\blank8.txt"，语句为：【19 】；然后，向其中写入一行文字，如"abcdefg1234567"，语句为：【20 】；最后，用Close #1语句关闭该文件。

三、程序填空题( 每空2分，共14分)

(1) 在下面的程序中，gcd为求两个正整数的最大公约数的函数，事件过程Form_Click 调用gcd函数求出x和y的最大公约数并将其赋值给z。请在空号【1】--【3】处填入适当的内容，用以实现程序的功能。

Function gcd% (ByVal m%, ByVal n%)

Dim r%

r = 【1 】

Do While (r <> 0)

m = n : n = r : r = m Mod n

Loop

gcd = 【2 】

End Function

Private Sub Form_Click()

Dim x%,y%,z%

x=Val(InputBox("输入一个正整数x:"))

y=Val(InputBox("输入一个正整数y:"))

z= 【3 】

Print x & "与" & y & "的最大公约数为:" & z

End Sub

(2) 在下面的程序中，Sort是对其形参数组x按降序排序的过程，事件过程Command1_Click调用Sort过程对实参数组A进行排序。请在空号【4】--【7】处填入适当的内容，实现程序的功能。

Private Sub Sort(x%( ))

Dim i%,j%,m%,t%

For i=LBound(X) To UBound(X)-1

m=i

For j = i+1 To UBound(X)

If 【4 】Then m=j

Next j

t=X(i) : X(i)=X(m) : X(m)= 【5 】

Next i

End Sub

Private Sub Command1_Click()

Const M% = 10

Dim A%(1 To M), i%

For i = 1 To M

A(i) = Int(Rnd*100)

Print A(i);

Next i

【6 】' 过程调用语句

Print "排序后的数组为:"

For i = 1 To 【7 】

Print A(i);

Next i

End Sub

四、读程序写结果( 每题4分，共16分)

(1) 运行程序，在空白的文本框Text1中输入7758四个字符，窗体显示的内容为：

Private Sub Text1_change( )

Print Text1.text

End Sub

(2) 写出下列代码运行的结果：

Prinvate Sub Form_click()

Dim n%,s%

s=0

For n=1 to 8

s = s + n

If n mod 2=0 Then

Print "n=";n; "s=";s

End If

Next n

End Sub

(3) 写出下列程序运行的结果：

Prinvate Sub Form_click()

Dim n%,char$,a$,m$

a="a1B2c3!"

m=""

For n=1 to len(a)

char=Mid(a,n,1)

select case char

case "a" to "z"

char=chr(asc(char)+1)

case "0" to "9"

char=chr(asc(char)+2)

case "A" to "Z"

char=chr(asc(char)+32)

End select

m= m + char ' 注意先后顺序

If n mod 2=0 Then Print m

Next n

Print m

End Sub

(4)程序运行后，单击窗体，输入的数据为6,则输出结果为：

Private Sub Form_Click()

Dim iA,i%,n%,t%

n=V al(inputbox("Enter N=?"))

iA=array(1,2,3,4,5,6,7,8,9,10)

For i=1 to n\2

t=iA(i) : iA(i)= iA(n-i+1): iA(n-i+1)=t

Next i

For i=0 to Ubound(iA)

Print iA(i);

Next i

End Sub

五、编程题( 每小题10分，共30分)

注意

．．．

．．．．．事件中

．．：所有代码均写在窗体

．．．．的．Click

．．．．．．．．．Form

(1)编写程序，从键盘输入一个三位的正整数，计算并输出这个三位数的逆序数，如输入851，输出158。

(2)编写程序，根据从键盘输入的Taxi行驶里程数，计算出相应的收费金额。Taxi的收费标准为：起步价5元（含3公里行程），3公里以上10公里以内，每公里加收1.2元，10公里以上每公里再加收1.5元。

(3)编程程序，从键盘输入一个小于8的正整数n，求n!+(n+1)! +(n+2)!...+9!，并输出。