VB程序設(shè)計試卷十

1、 VB程序設(shè)計試卷十學(xué)號姓名得分題號一二三四五六總分分值101020181824100得分一、單選題（每小題1 分，共 10 分）以下關(guān)于 vb 語言的說法中，正確的是（1 ）a vb是一種面向過程的語言b. vb是一種面向?qū)ο笳Z言c.vb是一種低級語言d. vb是一種機(jī)器語言下列的邏輯表達(dá)式中不正確的是(2 )a. AB AND C=Db. XY2 AND 31d. XY AND 1=23. vb中的坐標(biāo)系最小刻度為( 3 )a.緹b.象素c.厘米d.一個標(biāo)準(zhǔn)字符寬度運行下面的程序 :CLSLINE (100,100)-(200,50)LINE - (150,150)LINE -(100,1

2、00)屏幕上顯示的是(4) .a.三條放射形直線b.四條放射形直線c.矩形d.三角形5.在中斷狀態(tài)下可以運行代碼，也可以在運行狀態(tài)中作為輸出結(jié)果的窗口稱為（ 5）A本地窗口B.立即窗口C觀察窗口D.棧窗口6欲使標(biāo)簽的內(nèi)容自動換行，必須設(shè)置屬性（6）。A AutoSizeB. AlignmentC. left7.當(dāng)用戶改變滾動條的value屬性時將激發(fā)滾動條的( 7 )事件a. changeb. scrollc. change和scrolld. gotfocusvb 應(yīng)用程序是分層管理的 , 其最高的層次為 ( 8 )a.工程b.類模塊c.窗體d.過程9.下列（ 9）是窗體的擴(kuò)展名10能改變當(dāng)前

3、磁盤驅(qū)動器的是下列的哪個命令（ 10）A. ChDirB. ChDriveD. CurDir$二、判斷題：（每小題 1 分，共 10 分）1 MsgBox() 函數(shù)建立的消息框能顯示信息也能輸入信息。（11 ）2 對象的屬性或事件過程都可以重新設(shè)置或修改，但是“方法”的內(nèi)容卻是固定、不能修改的，而且是看不見的。（ 12）3 在 Visual Basic中 Dim a ,b,c as integer和 Dim a as integer, b asinteger,c as integer相同。（ 13 ）4 當(dāng)需要在同一窗體中建立幾組相互獨立的單選鈕時，就要用框架將每一組單選鈕框起來。 ( 14

4、)5 ActiveX控件是擴(kuò)展名為*.ocx的獨立文件，使用時需用“工程”/ “部件”載入或移去。（ 15）6 由變量名對變量的內(nèi)容進(jìn)行使用或修改，則使用變量就是引用變量的內(nèi)容。( 16)7 可以用“ &”，“+”合并字符串，但是用在變異變量時，“ +”可能會將兩個數(shù)值加起來。（ 17 ）8 在命令按鈕的Click事件過程中， exit與 end 等效。（ 18）9 “菜單編輯器”中至少要填“名稱”和“標(biāo)題”這兩個框，才能真確完成菜單欄的設(shè)計。（ 19）10所有的對象都有caption屬性。 ( 20 )三、填空題（每空2 分，共 20 分）1 變量 min&表示 _（ 21） _類型的變量。

5、2 VB 表達(dá)式 log(x)+1/(1+exp(a*x-b)對應(yīng)的數(shù)學(xué)表達(dá)式為_（ 22）_3 X=2： Y=8： PRINT X+Y=10 的結(jié)果是 _（ 23） _4 如果： I=12 ： J=3： I=int+IJ+13/3 MOD 5，則 I 值是 _ （24） _5 請寫出滿足以下條件的VB 表達(dá)式：若 a,b,c是三角形的三邊，判斷是否為直角三角形_（ 25） _。X為 100-200之間的數(shù)，能被2 整除，但不能被5 整除 _（ 26） _。6 Visual Basic中的文本框中要使該框不允許多行輸入，應(yīng)設(shè)置（ 27）屬性為 false.7 聲明單精度常量PI 代表的語句為（

6、 28）。8 Val()的值是多少 _（29）9 Option Base 1的作用是確定數(shù)組的下界為（ 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寫出程序運行后，單擊窗體后，F(xiàn)orm1 上輸出結(jié)果為（ 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寫出程序運行時單擊窗體后，F(xiàn)orm1 上的輸出結(jié)果。(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結(jié)果：（ 33）五、程序填空題：（每小題 9 分，共 18 分）1、 下列程序進(jìn)行 -n 階乘運算，當(dāng)階乘的值超過-648 溢出報錯，并將結(jié)果輸出為-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 中輸入若干個任意字符，單擊“顛倒”按鈕，將這些字符按相反的順序顯示在標(biāo)簽Lable1 中。例如：輸入abcabc2 ：顯示為2cbabc2 的組成字符數(shù)為4。試編寫有關(guān)事件的程序代碼。cmdShowcmdCount2求解一元二次方程的實根。 VB程序設(shè)計試卷十一、選擇題：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(“ 請輸入系數(shù)a 的值