vb试卷合集

2010─2011学年第一学期《VB程序设计》课程考试试卷( A卷: 共6页)专业：全校的开课专业统考考试方式：闭卷学分：4 考试时间：120分钟注意：1. 姓名、序号必须写密封线内的指定地方；2. 答案必须填写在随试卷一起提供的专用答题纸上，否则无效。

一、选择题（每题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=3C) 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-1A) 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=xC) m=x : if(m<y) Then m=y D) m=x : if(m>y) 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 IntegerC) Function fun1(ByVal fun1%) as IntegerD) 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。

请在空号【n】处填入适当的内容，用以实现程序的功能。

Function gcd% (ByV al m%, ByV al n%)Dim r%r = 【1 】Do While (r <> 0)m = n : n = r : r = m Mod nLoopgcd = 【2 】End FunctionPrivate Sub Form_Click()Dim x%,y%,z%x=V al(InputBox("输入一个正整数x:"))y=V al(InputBox("输入一个正整数y:"))z= 【3 】Print x & "与" & y & "的最大公约数为:" & zEnd Sub(2) 在下面的程序中，Sort是对其形参数组x按降序排序的过程，事件过程Command1_Click 调用Sort过程对实参数组A进行排序。

请在空号【n】处填入适当的内容，实现程序的功能。

Private Sub Sort(x%( ))Dim i%,j%,m%,t%For i=LBound(X()) To UBound(X( ))-1m=iFor j = i+1 To UBound(X( ))If 【4 】Then m=jNext jt=X(i) : X(i)=X(m) : X(m)= 【5 】Next iEnd SubPrivate Sub Command1_Click()Const M% = 10Dim A%(1 To M), i%For i = 1 To MA(i) = Int(Rnd*100)Print A(i);Next i【 6 】' 过程调用语句Print "排序后的数组为:"For i = 1 To 【7 】Print A(i);Next iEnd Sub四、读程序写结果( 每题4分，共16分)(1) 运行程序，在空白的文本框Text1中输入7758四个字符，窗体显示的内容为：Private Sub Text1_change( )Print Text1.textEnd Sub(2) 写出下列代码运行的结果：Prinvate Sub Form_click()Dim n%,s%s=0For n=1 to 8s = s + nIf n mod 2=0 ThenPrint "n=";n; "s=";sEnd IfNext nEnd Sub(3) 写出下列程序运行的结果：Prinvate Sub Form_click()Dim n%,char$,a$,m$a="a1B2c3D4e5F6!"m=""For n=1 to len(a)char=Mid(a,n,1)select case charcase "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 selectm= m + char ' 注意先后顺序If n mod 4=0 Then Print mNext nPrint mEnd 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\2t=iA(i) : iA(i)= iA(n-i+1): iA(n-i+1)=tNext iFor i=0 to Ubound(iA)Print iA(i);Next iEnd 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!，并输出。

2010─2011学年第一学期《VB程序设计》课程考试试卷( B卷: 共6页)一、选择题（每题2分，共20分）(1) 在以下VB窗口中，可以用来调试简单程序的窗口为：( )。

A) 属性窗口 B) 代码窗口C)立即窗口D) 工程管理器窗口(2) 若要使某个命令按钮不可见，应将其( )属性的值设置为False。

A) Name B) Caption C) Enabled D) Visible(3) 当程序运行时，系统自动执行启动窗体的（）事件过程。

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

A) x=5,y=15,z=13 B) x=5:y=15:z=13C) x=5;y=15;z=13 D) x=5 y=15 z=13(5) VB中的四种运算符的优先级由高到低的排列顺序是：（）A) 算术运算、字符连接运算、关系运算、逻辑运算B) 算术运算、关系运算、字符连接运算、逻辑运算C) 算术运算、关系运算、逻辑运算、字符连接运算D) 算术运算、逻辑运算、关系运算、字符连接运算(6) 利用随机函数产生一个[20,99]区间内的正整数的式子为：( )。