VB程序设计试卷十

1、VB程序设计试卷4学号 姓名 得分题号一一二四五六总分分值r ior io20181824100 得分单选题(每小题1分，共10分)是一种面向对象语言是一种机器语言1 .以下关于vb语言的说法中，正确的是(1 )a. vb是一种面向过程的语言b. vbc. vb 是一种低级语言d. vb2 .下列的逻辑表达式中不正确的是(2Ja. A<B AND C=D b. X<Y<Zc. 1>2 AND 3>1 d. X>Y AND 1=23 . vb中的坐标系最小刻度为(3 )a.提 b. 象素 c. 厘米 d.一个标准字符宽度4 .运行下面的程序：CLSLINE (

2、100,100)-(200,50)LINE - (150,150)LINE -(100,100)屏幕上显示的是(4 ).a.三条放射形直线b.四条放射形直线c.矩形d.三角形5.在中断状态下可以运行代码，A.本地窗口B.C.观察窗口D.(5)也可以在运行状态中作为输出结果的窗口称为 立即窗口栈窗口6 .欲使标签的内容自动换行，必须设置属性(6)。A AutoSize B. Alignment C. left7 .当用户改变滚动条的value属性时将激发滚动条的(7 ) 事件a. change b. scroll c. change和 scroll d. gotfocus8 . vb应用程序是分

3、层管理的，其最高的层次为(8 )a.工程 b. 类模块 c. 窗体 d. 过程9 . 下列 (9)是窗体的扩展名10.能改变当前磁盘驱动器的是下列的哪个命令(10)A. ChDir B. ChDriveD. CurDir$、判断题：(每小题1分，共10分)1 . MsgBox()函数建立的消息框能显示信息也能输入信息。(11 )2 .对象的属性或事件过程都可以重新设置或修改，但是“方法”的内容却是固定、不能修改的，而且是看不见的。(12)3 . 在 Visual Basic 中 Dim a ,b,c as integer 和 Dim a as integer, b as integer, c

4、as integer 相同。(13 )4 .当需要在同一窗体中建立几组相互独立的单选钮时，就要用框架将每一组单选钮 框起来。(14 )5 . ActiveX控件是扩展名为*.ocx的独立文件，使用时需用“工程”/“部件”载入或移去。(15)6 .由变量名对变量的内容进行使用或修改，则使用变量就是引用变量的内容。(16)7 .可以用“ &',"+”合并字符串，但是用在变异变量时，“+”可能会将两个数值加起来。(17 )8 .在命令按钮的 Click事件过程中，exit与end等效。(18)9 .“菜单编辑器”中至少要填“名称”和“标题”这两个框，才能真确完成菜单栏的设计

5、。(19)10 .所有的对象都有 caption 属性。(20 )三、填空题(每空2分，共20分)11 变量min&示 (21)类型的变量。12 VB表达式10g(x)+1/(1+exp(a*x-b)对应的数学表达式为 (22) 13 X=2: Y=8: PRINT X+Y=10的结果是(23) 14 如果：I=12 : J=3: I=int+IJ+13/3 MOD 5,贝U I 值是(24)15 请写出满足以下条件的VB表达式：若a,b,c是三角形的三边，判断是否为直角三角形(25)。X为100-200之间的数，能被 2整除，但不能被 5整除(26)。16 Visual Basic中

6、的文本框中要使该框不允许多行输入，应设置(27)属性为false.17 声明单精度常量 PI代表 的语句为(28)。18 Val("") 的值是多少(29)19 Option Base 1的作用是确定数组的下界为(30)四、程序阅读题：(每小题6分，共18分)1 .程序1 ：Private Sub Form_Click()Dim i As Integer ,j As IntegerDim star As Stringstar="#"For i=1 To 6For j=i To 6star ;Next jNext iEnd Sub写出程序运行后，单击窗体后

7、，Form1上输出结果为 (31)。2 .程序2Private Sub Form_Click()Dim x As StringDim i As Integer, n As Integerx = "ABCDEFGHKL”n = Len(x)For i = n To 1 Step -2 Tab(20 - i); Mid(x, i, 1) Next iEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。(32)3 .程序3:Private Sub Command1_Click ()N = 3Dim A(3 , 3) As IntegerFor I = I To NFor J =

8、 I To NA(I, J) = (J- l) * N + INext JNext IFor I = 2 To NFor J = 1 To I - 1TEMP = A(I, J)A(I, J) =A(J, I)A(J, I) = TEMPNext JNext IFor X = 1 To NPrint X, A(X, N- X + I), A(X, X)Next XEnd Sub结果：(33)五、程序填空题：(每小题9分，共18分)1、下列程序进行-n阶乘运算，当阶乘的值超过 -648溢出报错，并将结果输出为-1。Private bjc(byval n as integer)(34)Dim I

9、as integerDim result as longresult = 1I = 1Do while(35)If(36)then Result=result*IElse=”溢出“(37)(38)EndifLoop(39)End function2、以下程序为求行列式 X (5, 5)的值SPrivate Function col(byval x(5,5) as integer )as long dim fesult as long dim temp as long dim I as integer dim j as integer dim k as integer result = 0 fo

10、r I = to 5(40)_for j = 1 to 5if I+j>6 thenk=(1+j)mod 5 elsek=1endiftemp=temp*x(k,j)(41)_result=(42)(43)(44)End funcion六、综合编程：(每小题12分，共24分)1、字符组合：程序界面如图示，在文本框Text1中输入若干个任意字符，单击“颠倒”按钮，将这些字符按相反的顺序显示在标签Lable1中。例如：输入 abcabc2 ：显示为2cbabc2的组成字符数为4。试编写有关事件的程序代码。cmdShowcmdCount次方程的实根。VB程序设计试卷4、选择题:1. B 2 .

11、 B36. D 7 . A8、判断题：15TA4. D5. BA9. A三、填空题：21. 长整型22. In x 17T1eax b23. True24. -125. a*a+b*b=c*c or a*a+c*c=b*b or a*a=b*b+c*c26. x>=100 and x<=200 and x mod 2=0 and x mod 5<>027. MultiLine28. const pi=29.30. . 1四、程序阅读题：31.A .IL i-i .11. uII Jp JU Jr l II u II iifeiM II 32. LHFDB33. 1 31

12、2 553 79五、程序填空题：34: as long35: I<=n36: result<48/I37: jc=-I/result=-138: exit function/exit for39: jc=result40: temp=141: next I42: result+temp43: next I44: col=result六、综合编程：1 Private Sub cmdshow_Click()Dim n As IntegerDim I As IntegerDim str1 As StringN=LenFor I =n To Step-1Str1=Str1&Mid$

13、,I,1)Next I=Str1End SubPrivate Sub cmdcount_Click()Dim n As IntegerDim m As IntegerDim i As IntegerDim j As IntegerDim flag As IntegerDim str1 As IntegerDim str2 As IntegerN=LenStr1=Mid$,For I =2 To nStr2=mid$(Text1,Text,I,1)M=Len(str1)Flag=0For j=1 To mIf str2=Mid$(str1,j,1) Then flag=1;Exit ForNext jIf flag<>1 then str1=str1&str2Next I=Str$(Len(str1)End Sub2 程序如下：Private Sub Form_Load()Dim a,b,c,root1,root2,work As DoubleA=Val(InputBox(“请输入系数a 的值