VB程序设计试卷十

1、 VB程序设计试卷十学号姓名得分题号一二三四五六总分分值101020181824100得分一、单选题（每小题1 分，共 10 分）以下关于 vb 语言的说法中，正确的是（1 ）a vb是一种面向过程的语言b. vb是一种面向对象语言c.vb是一种低级语言d. vb是一种机器语言下列的逻辑表达式中不正确的是(2 )a. AB AND C=Db. XY2 AND 31d. XY AND 1=23. vb中的坐标系最小刻度为( 3 )a.缇b.象素c.厘米d.一个标准字符宽度运行下面的程序 :CLSLINE (100,100)-(200,50)LINE - (150,150)LINE -(100,1

2、00)屏幕上显示的是(4) .a.三条放射形直线b.四条放射形直线c.矩形d.三角形5.在中断状态下可以运行代码，也可以在运行状态中作为输出结果的窗口称为（ 5）A本地窗口B.立即窗口C观察窗口D.栈窗口6欲使标签的内容自动换行，必须设置属性（6）。A AutoSizeB. AlignmentC. left7.当用户改变滚动条的value属性时将激发滚动条的( 7 )事件a. changeb. scrollc. change和scrolld. gotfocusvb 应用程序是分层管理的 , 其最高的层次为 ( 8 )a.工程b.类模块c.窗体d.过程9.下列（ 9）是窗体的扩展名10能改变当前

3、磁盘驱动器的是下列的哪个命令（ 10）A. ChDirB. ChDriveD. CurDir$二、判断题：（每小题 1 分，共 10 分）1 MsgBox() 函数建立的消息框能显示信息也能输入信息。（11 ）2 对象的属性或事件过程都可以重新设置或修改，但是“方法”的内容却是固定、不能修改的，而且是看不见的。（ 12）3 在 Visual Basic中 Dim a ,b,c as integer和 Dim a as integer, b asinteger,c as integer相同。（ 13 ）4 当需要在同一窗体中建立几组相互独立的单选钮时，就要用框架将每一组单选钮框起来。 ( 14

4、)5 ActiveX控件是扩展名为*.ocx的独立文件，使用时需用“工程”/ “部件”载入或移去。（ 15）6 由变量名对变量的内容进行使用或修改，则使用变量就是引用变量的内容。( 16)7 可以用“ &”，“+”合并字符串，但是用在变异变量时，“ +”可能会将两个数值加起来。（ 17 ）8 在命令按钮的Click事件过程中， exit与 end 等效。（ 18）9 “菜单编辑器”中至少要填“名称”和“标题”这两个框，才能真确完成菜单栏的设计。（ 19）10所有的对象都有caption属性。 ( 20 )三、填空题（每空2 分，共 20 分）1 变量 min&表示 _（ 21） _类型的变量。

5、2 VB 表达式 log(x)+1/(1+exp(a*x-b)对应的数学表达式为_（ 22）_3 X=2： Y=8： PRINT X+Y=10 的结果是 _（ 23） _4 如果： I=12 ： J=3： I=int+IJ+13/3 MOD 5，则 I 值是 _ （24） _5 请写出满足以下条件的VB 表达式：若 a,b,c是三角形的三边，判断是否为直角三角形_（ 25） _。X为 100-200之间的数，能被2 整除，但不能被5 整除 _（ 26） _。6 Visual Basic中的文本框中要使该框不允许多行输入，应设置（ 27）属性为 false.7 声明单精度常量PI 代表的语句为（

6、 28）。8 Val()的值是多少 _（29）9 Option Base 1的作用是确定数组的下界为（ 30）四、程序阅读题：（每小题 6 分，共 18 分）程序 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写出程序运行后，单击窗体后，Form1 上输出结果为（ 31）。2程序2Private Sub Form_Click()Dim x As StringDim i As Intege

7、r, n As Integerx = ABCDEFGHKLn = Len(x)For i = n To 1 Step -2Tab(20 - i); Mid(x, i, 1)Next iEnd Sub写出程序运行时单击窗体后，Form1 上的输出结果。(32)程序 3：Private Sub Command1_Click ( )N = 3Dim A(3 ， 3) As IntegerFor I = I To NFor J = I To NA(I, J) = (J l) * N + INext JNext IFor I = 2 To NFor J = 1 To I 1TEMP = A(I, J)A

8、(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 as integerDim result as longresult = 1I = 1Do while _(35)_If_(36)_thenResult=re

9、sult*IElse=”溢出“_(37)_(38)_EndifLoop_(39)_End function2、 以下程序为求行列式X（ 5， 5）的值 SPrivate Function col(byval x(5,5) as integer )as longdim fesult as longdim temp as longdim I as integerdim j as integerdim k as integerresult = 0for I = to 5_(40)_for j = 1 to 5if I+j6 thenk=(1+j)mod 5elsek=1endiftemp=temp*

10、x(k,j)_(41)_result=_(42)_(43)_(44)_End funcion六、综合编程：（每小题 12 分，共 24 分）1、字符组合：程序界面如图示，在文本框Text1 中输入若干个任意字符，单击“颠倒”按钮，将这些字符按相反的顺序显示在标签Lable1 中。例如：输入abcabc2 ：显示为2cbabc2 的组成字符数为4。试编写有关事件的程序代码。cmdShowcmdCount2求解一元二次方程的实根。 VB程序设计试卷十一、选择题：1B 2 B3 A4D5B6D 7 A8 A9 A二、判断题：15T三、填空题：21 长整型22.ln x11eax b23. True2

11、4. -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 5027. MultiLine28. const pi=29.30. 1四、程序阅读题：31LHFDB33.131255379五、程序填空题：as longI=nresult48/Ijc=-I/result=-1cxit function/exit forjc=resulttemp=1next Iresult+tempnext Icol=result六、综合编程：1Private Sub cmdshow_Cl

12、ick()Dim n As IntegerDim I As IntegerDim str1 As StringN=LenFor I =n To Step-1Str1=Str1&Mid$,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 flag1 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 的值