VB程序设计试卷试题十

1、VB程序设计试卷十学号 姓名 得分题号一二三四五六总分分值101020181824100得分一、 单选题（每小题1分，共10分）1. 以下关于vb 语言的说法中，正确的是（ 1 ）a vb 是一种面向过程的语言 b. vb 是一种面向对象语言c. vb是一种低级语言 d. vb 是一种机器语言2. 下列的逻辑表达式中不正确的是 (2 ) a. 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. 运行下面的程

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

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

4、在Visual Basic 中Dim a ,b,c as integer和Dim a as integer, b as integer, c as integer相同。（ 13）4 当需要在同一窗体中建立几组相互独立的单选钮时，就要用框架将每一组单选钮框起来。( 14 ) 5 ActiveX控件是扩展名为*.ocx的独立文件，使用时需用“工程”/“部件”载入或移去。（15）6 由变量名对变量的内容进行使用或修改，则使用变量就是引用变量的内容。( 16 ) 7 可以用“&”，“+”合并字符串，但是用在变异变量时，“+”可能会将两个数值加起来。（17 ）8 在命令按钮的Click事件过程中

5、，exit与end等效。（ 18 ）9 “菜单编辑器”中至少要填“名称”和“标题”这两个框，才能真确完成菜单栏的设计。（ 19 ）10 所有的对象都有caption 属性。( 20 ) 三、填空题（每空2分，共20分）1 变量min&表示_（21）_类型的变量。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(-8.6)+IJ+13/3 MOD 5，则I值是_（24）_5 请写出满足以下条件的 VB表达式：若a,b,c是三角形的三边，判断是否为直

6、角三角形_（25）_。X为100-200之间的数，能被2整除，但不能被5整除_（26）_。6 Visual Basic 中的文本框中要使该框不允许多行输入，应设置 （27） 属性为false.7 声明单精度常量PI代表3.14159 的语句为 （28） 。8 Val("123.55ab456")的值是多少_（29） 9 Option Base 1的作用是确定数组的下界为 （30） 四、程序阅读题：（每小题6分，共18分） 1程序1：Private Sub Form_Click() Dim i As Integer ,j As Integer Dim star As Stri

7、ng star="#" For i=1 To 6 For j=i To 6 Form1.Print star； Next j Form1.Print Next iEnd Sub写出程序运行后，单击窗体后，Form1上输出结果为 （31） 。2 程序2 Private Sub Form_Click()Dim x As StringDim i As Integer, n As IntegerForm1.Clsx = "ABCDEFGHKL"n = Len(x)For i = n To 1 Step -2 Form1.Print Tab(20 - i); Mi

8、d(x, i, 1)Next iEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。 (32) 3. 程序3：Private Sub Command1_Click ( )N = 3Dim A(3，3) As IntegerFor I = I To N For J = I To N A(I, J) = (J l) * N + I Next JNext IFor I = 2 To N For J = 1 To I 1TEMP = A(I, J)A(I, J) =A(J, I)A(J, I) = TEMP Next JNext IFor X = 1 To N Print X, A(X,

9、N X + I), A(X, X)Next X End 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)_then Result=result*I Elselblerr.caption=”溢出“ _(37)_ _(38)_ EndifLoop_(39)_End function2

10、、 以下程序为求行列式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 integer dim k as integerresult = 0for I = to 5 _(40)_ for j = 1 to 5 if I+j>6 then k=(1+j)mod 5 else k=1 endif temp=temp*x(k,j) _(41)_ result=_(42)_(43)_(44)_End fun

11、cion六、综合编程：（每小题12分，共24分）1、字符组合：程序界面如图示，在文本框Text1中输入若干个任意字符，单击“颠倒”按钮，将这些字符按相反的顺序显示在标签Lable1中。例如：输入abcabc2：显示为2cbabc2的组成字符数为4。试编写有关事件的程序代码。 cmdCountcmdShow2求解一元二次方程的实根。 VB程序设计试卷十一、 选择题：1B 2B 3A 4D 5B6D 7A 8A 9A 10.B二、 判断题：11.F 12.T 13.F 14.T 15T16.T 17.T 18.F 19.T 20.F三、 填空题：21 长整型 22. 23. True 24. -1

12、 25. 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<>0 27. MultiLine 28. const pi=3.1415929. 123.55 30 . 1四、 程序阅读题：31 32. L HF D B33. 1 3 1 2 5 5 3 7 9五、 程序填空题：34: as long35: I<=n36: result<48/I37: jc=-I/result=-138: cxit function/exit for3

13、9: jc=result40: temp=141: next I42: result+temp43: next I44: col=result六、 综合编程：1Private Sub cmdshow_Click()Dim n As IntegerDim I As IntegerDim str1 As StringN=Len(Text1.Text)For I =n To Step-1 Str1=Str1&Mid$(Text1.Text,I,1)Next ILabel1.Caption=Str1End SubPrivate Sub cmdcount_Click() Dim n As Int

14、eger Dim m As Integer Dim i As Integer Dim j As Integer Dim flag As Integer Dim str1 As Integer Dim str2 As Integer N=Len(Text1.Text) Str1=Mid$(Text1.Text,i.1) For I =2 To n Str2=mid$(Text1,Text,I,1) M=Len(str1) Flag=0 For j=1 To m If str2=Mid$(str1,j,1) Then flag=1;Exit For Next j If flag<>1 then str1=str1&str2 Next I Lable2.Caption=Str$(Len(str1)End Sub 2程序如下：Private Sub Form_Load() Dim a,b,c,root1,root2,work As Double A=Val(InputBox(“ 请输入系数a的值”) B=Va