vb期末考试题B.docx

1、vb期末考试题B20062007学年第二学期Visual Basic程序设计期末考试题（B卷）一.单选题(每小题1分，共30分)1 程序运行过程中始终保持不变的是（ ）。 A 数组 B表达式 C常量 D变量一个对象可2 条件表达式的结果是一个（ ）数据。 A数值型 B字符型 C 日期型 D逻辑型3 要使标签控件显示时不覆盖其背景内容，要设置下列哪一个属性( )。 A. BackColor B. BorderStyle C. ForeColor D. BackStyle4 要判断在文本框中是否按了Enter键，应在文本框的什么事件中判断( )。 A. Change B. KeyDown C. G

2、otFocus D. KeyPress5 如果x是一个已声明的整型变量,则执行赋值语句x=”3”+5之后,变量x的值是什么( )。 A. 35 B. 8 C. 2 D. 出错6 引用列表框（List1）最后一个数据项应使用的命令是( )。A. List1.List(list1.listCount) B. List1.List(list1.listCount-1) C. List1.List(listCount) D. List1.List(listCount-1)7 下列程序段运行后，显示的结果是( )。Dim x As Boolean If x Then Print x Else Print

3、 x+1A.1 B.0 C.2 D.错误信息8 下面可作为Visual Basic变量名的是( )。A. $abc B. B#C C. 8abc D. constB9 使用（ ）方法可以向列表框中添加项目。 AAddItem BClear CRemoveItem DSetFocus10 将条件“X是小于100的非负数” 用VB的表达式表示为（ ）。 A0X100 B0= X 100C0=X AND X 100 D0= X OR X 10011 字符串运算符是（ ）。 ANot B& CMod D=将数学表达式12 设有如下变量声明：Dim NowDate As Date,则给变量NowDate

4、赋值正确的表达式是( )。A. NowDate=6/6/2003 B. NowDate=6/6/2003C.NowDate=Date(6/6/2003) D. NowDate=Format(m/d/yy,6/6/2003)13 表达式 33 MOD 17-103*Sgn(10) 的值是( )。A. -14 B. 13 C. 12 D. 014 下面的运算符中优先级最高的是( )。 A. And B. = C. * D. &15 如果x是一个正实数，对x的第二位小数四舍五入的表达式是( )。 A. Int(x+0.05) B. 0.1*Int(10*(x+0.05) C. 0.01*Int(10

5、0*(x+0.5) D. Int(x+0.5)16 以下声明变量的语句中错误的是( )。 A. Dim Var1=AB C B. Const Var2=123C. Dim Var3 As Integer D. Static Var4 As Integer17 窗体模块保存在一个扩展名为( )的文件中。 Abas Bcls Cfrm Dbmp 18 当文本框的( )属性为True时，该文本框能够显示多行文字。A.Value B.TabIndex C.Index D.MultiLine 19 下列控件中不能改变大小的是( )。A. Text1Box B. Label C. Timer D. Pic

6、tureBox20 执行以下程序段输出结果为( )。a$=abbacddcbaFor i=6 To 2 Step -2 X=Mid(a, i, i) Y=Right (a, i) z=UCase(X & Y)Next iPrint z A.ABA B.BBBA C.ABBABA D.AABAAB21 下面哪一项不是结构化程序设计的基本结构( )。A. 过程结构 B. 顺序结构 C. 选择结构 D. 循环结构22 下列数组声明语句中正确的是( )。 A. Dim a3,4 As integer B. Dim a(3,4) As Integer C. Dim a(n,n) As integer D

7、. Dim a(3 4) As Integer 23 VB的应用程序中，决定程序流向的是( )。A对象 B方法 C属性 D事件24 在窗体模块的通用变量声明区中通过Dim声明的变量（ ）。 A.可以在不同窗体的过程中使用。B.可以在工程之间使用。C.只能在该窗体模块的某一个过程中使用。D.在该窗体模块的所有过程中都可以使用。25 VB采用（ ）的编程方法。A面向对象 B面向过程 C面向问题 D面向用户26 执行下面的程序段后，x 的值为( )。x=5For i=10 To 1 Step -2x=x+int(i/5)Next iA. 6 B. 7 C. 8 D. 1027 在列表框中当前被选中的

8、列表项的内容由下列那一个属性得到（ ）。 AList BText CListIndex DIndex28 设有以下循环结构： DO 循环体 loop while 条件则以下叙述中错误的是( )。 A.若“条件”是一个为0的常数，则一次也不执行循环体 B.“条件”可以是关系表达式、逻辑表达式或常数 C.循环体中可以使用Exit Do语句 D.如果“条件”总是为True，则不停地执行循环体29 下列( )属性是文本框控件的默认属性。 A.Caption B. Value C. Name D. Text 30 当条件为真（True）时，执行循环体的循环语句是（ ）。 ADo WhileLoop BD

9、o UntilLoop CDoUntil Loop DForNext二.写出程序运行结果(每题4分，共20分)1写出下列代码运行后窗体上显示的结果是( )。Private Sub Form_Activate()Dim i As IntegerFor i = 1 To 3 testNext iEnd SubSub test ()Dim x As Integer, m As StringStatic y, nx = x + 1y = y + 1m = m & *n = n & *Print x=; x, y=; y, m=; m, n=; nEnd Sub2.下面的程序段执行后，单击窗体，窗体上显

10、示结果是( )。Private Sub Form_Click()Dim a()ReDim a(1 To 3)For i = 1 To 3 a(i) = iNext iReDim Preserve a(1 To 5)For i = 4 To 5a(i) = 2 * iNext iFor i = 1 To 5 Print a(i);Next iEnd Sub3在窗体上有一命令按钮Command1，下面的程序段执行后，单击命令按钮，输出结果是( )。Private Sub Command1_Click()Dim k As IntegerFor i = 1 To 2 For j = 1 To 3 k

11、= k + 1 Next jNext iPrint kEnd Sub4. 在窗体上画一个Command1命令按钮，命令按钮Command1的Click事件代码如下所示,程序运行后单击命令按钮,则窗体上显示的是（ ）。Private Sub Command1_Click()Dim a As Integera=Int(Rnd)+5Select Case a Case 5 Print 优秀 Case 4 Print 良好 Case 3 Print 通过 Case Else Print 未通过End Select End Sub5.运行下面的程序，单击命令按钮COMMAND1后，窗体上显示结果是( )

12、。Private Sub Form_Click()fstr = abcdefs = l = Len(fstr)For i = 1 To l 2s = s & Mid(fstr, i, 1) & Mid(fstr, l - i + 1, 1)NextPrint sEnd Sub三. 程序填空(每空2分，共20分)1. X, Y, Z是输入的三个大小互不相同的数,完成下列程序,求出大小居中者输出到文本框上。Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = Val(Text1.Text) y =

13、 Val(Text2.Text) z = Val(Text3.Text) If x y Then t = x: x = y: y = ( ) End If If y z Then m = x Else m = ( ) End If Print 中间数是：; mEnd Sub2. 假定建立了一个工程，该工程包括两个窗体Form1、Form2，启动窗体为Form1。要求当单击Form1中的命令按钮Command1时，判断在文本框中输入密码是否正确。若密码输入正确Form1窗体卸载，显示窗体Form2，否则重新输入密码，请将程序补充完整。Private Sub Command1_Click() If

14、 Lcase(Trim(Text1.Text) = abcd Then ( ) Form1 Form2. ( ) Else MsgBox 密码错误，请重新输入！ Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End IfEnd Sub3. 下面程序的功能是：生成20个1099之间的随机数，首先将它们每行5个数输出，然后查找并输出该数组中元素的最大值。请将程序填写完整。Option Base 1Private Sub Command1_Click() Dim a(20) As Integer Dim max

15、 As Integer Randomize For i = 1 To 20 a(i) = ( ) Print a(i);If I mod 5=0 Then Print If a(i) max Then ( ) Next Print 最大值是：; maxEnd Sub4. 以下程序用于计算1!+2!+3!+10!，请将程序填写完整。Private Sub Command1_Click() t = 1： n = 1： Sum = 0 Do Until n ( ) t = t * ( ) Sum = Sum + ( ) n = n + 1 Loop Print sum=; SumEnd Sub四.编

16、写程序(每题10分，共30分)1、计算奖金。企业利润I低于5000元的，奖金为利润的1，当5000=I20000，超过5000元部分奖金为1.5；当20000=I=50000元时，超过50000元部分按3.5计算奖金。I由键盘输入，要求输出相应的奖金数。Private Sub Form_Click()End Sub2、 下列程序的功能是:用函数调用求e=1+1/1!+1/2!+1/n!的值,直到最后一项小于10-6为止。要求：（1）阶乘的计算用自定义函数jc过程来做。（2）结果输出到窗体上。Private Sub Command1_Click()End SubFunction jc(X As

17、Integer) End Function3、设计一个100分钟倒计时器，用户界面见左图。窗体FORM1上添加一个文本框控件Text1和时钟控件Timer1，两个命令按钮Command1和Command2,各控件的在设计阶段的属性设置见下表:控件名称属性名称属性值Form1Caption倒计时Text1Text01:40:00Command1Caption倒计时Command2Caption暂停Timer1EnableFalseInterval1000 编写时钟Timer事件和两个命令按钮Command1、Command2的Click事件代码。要求： 当单击Command1时，在文本框控件Te

18、xt1中显示100分钟到计时的时、分、秒，显示格式如图所示；且Command1不可用。 单击Command2时，计时暂停，同时Command2上显示“继续”；再次单击Command2，接着上次结果继续到计时。 倒计时结束时，出现信息框“时间到！”的提示。Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Timer1_Timer()End Sub答案表：系别_班级_学号（最后两位）_姓名_一单选题（每题1分）12345678910分 数阅卷人1112131415161718192021222324252627282930二写出程序运行结果（每题4分）12345三程序填空（每空2分）