VB2010试卷B.doc

长江大学试卷 学院 班 级 姓 名 班内序号 密 封 线20102011学年 第一学期VB程序设计课程考试试卷( B卷: 共6页)专业：全校的开课专业统考 考试方式：闭卷 学分：4 考试时间：120分钟注意：1. 姓名、序号必须写密封线内的指定地方； 2. 答案必须填写在随试卷一起提供的专用答题纸上，否则无效。 一、选择题（每题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区间内的正整数的式子为：( )。 A) Int(20+Rnd*99) B) Int(Rnd*20+99) C) Int(20+Rnd*80) D) Int(20+Rnd*79) (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(xy,x,y) B) if(yx) Then m=y else m=xC) m=x : if(my) Then m=y (9) 下面的程序段用于定义一维数组M，不正确的是：( )。A) Dim M%(1 to 20) B) Const N%=20 : Dim M%(N)C) Dim M%(0 to 20) D) Dim N% : N=20 : Dim M%(N) (10) 下面是定义Function过程或Sub过程的第一条语句，正确的是：( )。A) Private sub sub1(ByVal n%()B) Private sub sub2(ByVal n%) as IntegerC) Function fun1%(ByVal n%)D) Function fun2(ByVal fun1%) as Integer二、基本概念填空题( 每空1分，共20分)(1) 在VB的基本数据类型中，基本整数型的关键字为Integer，类型符为%；双精度实数型的关键字为【 1 】，类型符为【 2 】。(2) 文本框对象（如Text1）的KeyPress事件中有一个参数KeyAscii，它是一个【 3 】类型的值；如果用户按下的键为“B”键，则KeyAscii的值为【 4 】(3) 在VB中，文本框控件有两个作用，一是用于【 5 】；二是通过对它的Text属性赋值，将其作为【 6 】的对象。(4) 在VB的赋值语句中，等号左边的数据对象可以有三种形式，它们分别是：【 7 】、【 8 】和【 9 】。(5) 设有整型变量x=7 : y=17 : z=5，试写出下列表达式的值。 Int (z-y/2)= 【 10 】 ； x & y=【 11 】 ； x Mod z+x2y+z=【 12 】 ；Ucase(Mid(This is a book),7,z) =【 13 】 ； Instr(abacdergh,cd)=【 14 】(6) 声明一个值为2.718281828的双精度型常量YI的语句为【 15 】 。(7) 在VB中，用于输出数据的函数名为【 16 】；其第一个参数的类型为【 17 】，第一个参数的含义为【 18 】。(8) 用VB程序段创建一个数据文件的过程通常分为如下三步：首先，打开一个新的用于保存数据的顺序文件，如C:blank9.txt，语句为：【 19 】；然后，向其中写入一行文字，如1234567abcdefg ，语句为：【 20 】；最后，用Close #1语句关闭该文件。三、程序填空题( 每空2分，共14分)(1) 在下面的程序中，gcd为求两个正整数的最大公约数的函数，事件过程Form_Click调用gcd函数求出a和b的最大公约数并将其赋值给c。请在空号【n】处填入适当的内容，用以实现程序的功能。Function gcd% (ByVal m%, ByVal n%)Dim r%r = m Mod nDo While (【 1 】) m = n : n = r : r = 【 2 】Loopgcd = nEnd FunctionPrivate Sub Form_Click()Dim a%,b%,c%a=Val(InputBox(输入一个正整数x:)b=Val(InputBox(输入一个正整数y:)c= 【 3 】Print a & 与 & b & 的最大公约数为: &cEnd Sub(2) 在下面的程序中，Sort是对其形参数组x按降序排序的过程，事件过程Command1_Click调用Sort过程对实参数组B进行排序。请在空号【n】处填入适当的内容，实现程序的功能。Private Sub Sort(x%( ) Dim i%,j%,m%,t%For i=LBound(X() To 【 4 】 m=iFor j = i+1 To UBound(X( ) If X(m)X(j) Then 【 5 】Next j【 7 】=X(i) : X(i)=X(m) : X(m)=tNext iEnd SubPrivate Sub Command1_Click()Const M% = 10 Dim B%(1 To M), i%For i = 1 To M B(i) = Int(Rnd*100) Print B(i);Next i【 7 】 过程调用语句Print 排序后的数组为: For i = 1 To M Print B(i);Next iEnd Sub四、读程序写结果( 每题4分，共16分)(1) 运行程序，在空白的文本框Text1中输入3369四个字符，窗体显示的内容为：Private Sub Text1_change( )Print Text1.textEnd Sub(2) 写出下列代码运行的结果： Prinvate Sub Form_click() Dim n%,s% s=0 For n=1 to 8 s = s + nIf n mod 2=1 ThenPrint n=;n; s=;s End If Next n End 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 char case a to z char=chr(asc(char)+32) case 0 to 9 char=chr(asc(char)+2) case A to Z char=chr(asc(char)-1) End select m= m + char 注意先后顺序If n mod 4=0 Then Print m Next nPrint mEnd Sub (4)程序运行后，单击窗体，输入的数据为7,则输出结果为：Private Sub Form_Click()Dim iA,i%,n%,t%n=Val(inputbox(Enter N=?)iA=array(10,9,8,7,6,5,4,3,2,1)For i=1 to n2 t=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分) 注意：所有代码均写在窗体Form的Click事件中(1)编写程序，从键盘输入一个三位的正整数，计算并输出这个三位数的逆序数，如输入581，输出185。 (2)编写程序，根据从键盘输入的Taxi行驶里程数，计算出相应的收费金额。Taxi的收费标准为：起步价8元（含5公里行程），5公里以上12公里以内，每公里加收1.2元，12公里以上每公里再加收1.5元。(3)编程程序，从键盘输入一个小于7的正整数m，求m!+(m+1)! +(m+2)!.+9!，并输出。长江大学试卷 学院 班 级 姓 名 班内序号 密 封 线2011年1月VB程序设计专用答题纸(A卷)注意：姓名、序号必须写在密封线以内；试题答案必须填写在指定的位置。 题号一二三四五总分评分阅卷人一、选择题（评分标准：每题2分，共20分）1 C2 C3 A4 C5 C6 B7 B8 B9 C10 C二、基本概念填空题(评分标准：每空1分，共20分)题号答案1【1】 bas 【2】 frm 2【3】 【4】 选择结构 循环结构3【5】 % 32767 【6】4【7】nterval 00【8】ictur 【9】e(5【10】on.jpg ” 【11】) 【12】【13】 【14】6【15】3 7【16】 【17】 【18】 8【19】 【20】三、程序填空题(评分标准：每空2分，共14分)题号答案1【1】 bas 【2】 frm 【3】2【4】 【5】 【6】 【7】 四、读程序写结果( 每题4分，共16分)程序(1)的运行结果为： 程序(2)的运行结果为：程序(3)的运行结果为： 程序(4)的运行结果为：五