2014計(jì)算機(jī)軟件基礎(chǔ)Visual-Basic-考試大綱

1、計(jì)算機(jī)軟件技術(shù)基礎(chǔ)-1大綱一、判斷題1、框架控件和形狀控件都不能響應(yīng)用戶的鼠標(biāo)單擊事件。（ f ）2、當(dāng)定時(shí)器控件的Interval屬性值為0時(shí)，會(huì)連續(xù)不斷地發(fā)送Timer事件。（ f ）3、一個(gè)菜單項(xiàng)是不是分隔條，由Caption屬性決定。（ t ）4、可以通過語(yǔ)句代碼使一個(gè)單選框組中的所有單選框均為不選定狀態(tài)。（ t ）5、Windows下窗體的子菜單最多有5級(jí)。（ t ）6、一個(gè)變量在剛被聲明尚未被賦值之前沒有值。（ f ）7、對(duì)英文字母的比較，默認(rèn)情況下是區(qū)分大小寫的。（ t ）8、兩個(gè)日期時(shí)間值可以做減法，但不能做加法。（ f ）9、表達(dá)式 NOT x3是等價(jià)。（ f ）10、注釋行

2、也能使用續(xù)行符。（ f ）二、單向選擇題多個(gè)語(yǔ)句可以書寫在同一行上，但它們之間要加 b ： B）； C) ， D）、 在窗體Form1的Click事件過程中有以下語(yǔ)句：Label1.Caption=”Visual BASIC”，設(shè)標(biāo)簽的原Caption屬性值為默認(rèn)值，則該語(yǔ)句執(zhí)行之后該標(biāo)簽控件Name屬性和Caption屬性的值分別為 a A）“Label1”、“Visual BASIC” B）“Label1”、“Caption”C）“Label”、“VisualBASIC” D）“Label”、“Label1”下面幾對(duì)數(shù)據(jù)類型中，哪一對(duì)所占的內(nèi)存大小一致： b A）Integer、Singl

3、e B) Integer、Boolean C) Date、Single D) Long、Variant 下面哪條語(yǔ)句可以正確地聲明一個(gè)動(dòng)態(tài)數(shù)組： c A) Dim A(n) As Integer B) Dim A(1 To n) As IntegerC) Dim A() As Integer D) Dim A( , ) As Integer 如果在模塊的聲明段中有Option Base 0語(yǔ)句，則在該模塊中使用Dim a(7,3 To 5)聲明的數(shù)組有 個(gè)元素 A) 21 B) 28 C) 24 D)32 c 要使一個(gè)圖片框控件自動(dòng)地附在窗體的一條邊上，應(yīng)該設(shè)置它的 b 屬性A)Picture

4、 B）Align C）Left D）AutoSize下列控件中，不具備Caption屬性的是： d A)ListBox B）CheckBox C）Frame D）正三角形下面哪類控件不支持Change事件： d A)TextBox B）Label C）PictureBox D）ListBox下面各類型對(duì)象中，沒有Move方法的是： a A)Line B）Image C）Form D）Shape在列表框中添加一個(gè)條目，應(yīng)使用列表框的什么方法： b A)InsertItem B）AddItem C）AppendItem D）RemoveItem三、讀程序，寫結(jié)果執(zhí)行下面程序，單擊窗體后，窗體上顯示

5、的第一行結(jié)果是 ，第二行結(jié)果是 。 1答案：BbBbCcEePrivate Sub Form_Click() Dim Mystr As String Dim Mystr1 As String Dim Mystr2 As String Mystr1 = B For i = 1 To 3 Mystr2 = LCase(Mystr1) Mystr1 = Mystr1 & Mystr2 Mystr = Mystr & Mystr1 Print Mystr Mystr1 = Chr(Asc(Mystr1) + i) NextEnd Sub2、執(zhí)行下面程序，窗體上顯示的結(jié)果是什么？ 2答案：1 2 3 4

6、 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 0 41Dim m As Integer, n As Integer, k As Integern=20:k=1For m=1 to n Step k Print m n=n-1 k=k+2NextPrint n,k3、下面程序段執(zhí)行完畢，窗體上顯示的結(jié)果是什么？ 3答案：7，15Dim b As Integer,k As Integerb=1For k=1 To 6 b=b*k If b=20 Then Exit For Else k=k+1 End IfNext kPrint k,b4、對(duì)下面程序，單擊

7、窗體后，在文本框Text1和Text2中顯示的內(nèi)容分別是什么？ Provate Sub Form_Click() 4答案：15，54Dim x As Integer, y As IntegerX = 1 : Y =5Do While x 200 Print p,n對(duì)下面程序，單擊窗體后，窗體上顯示什么內(nèi)容？ 6答案：6 2 9 9 3 9 15 5 15Private Sub Form_Click() Dim x As Integer,y As Integer,z As Integer X=1:y=2:z=3 Call sub1(x,y,z) Call sub1(y,z,x)Call sub1

8、(y,y,z)End SubPrivate Sub sub1(byVal x As Integer, y As Integer, z As Integer) Dim I As Integer X=2*z Y=3*z Z=x+y Print x,y,zEnd Sub下面程序段在窗體上輸出的是什么？ 7答案：12 6 6Dim i As Integer, j As IntegerDim k As IntegerFor i=1 To 10 Step 3 For j=0 to 10 If j=5 Then i=i+4:Exit For j=j+1 k=k+1 Next If i8 Then Exit

9、ForNextPrint i,j,k下面程序段在窗體上輸出的是什么？ 8答案：5 0 0Dim a(4,4) As IntegerDim nc As Integer,nr As IntegerDim I as Integer,j As Integer ,k As IntegerNc=4:nr=1:I=1:j=1For k=1 To 16 A(I,j)=k If Inc And j=nr Then I=I+1 ElseIf I=nc And jnr And j=nc Then I=I-1 ElseIf I=nr And jnr+1 Then Nc=nc-1 Nr=nr+1 End IfNextP

10、rint a(4,2),a(3,3),a(2,2) 9、對(duì)下面程序，單擊窗體后，窗體上顯示什么內(nèi)容？ 9答案：4，6，10 6，9，15Private Sub Form_Click() Dim x As Integer,y As Integer,z As Integer X=1:y=2:z=3 Call sub1(x,y,y) Call sub1(x,x,z)End SubPrivate Sub sub1(x As Integer,byVal y As Integer, z As Integer) Dim I As Integer X=2*z Y=3*z Z=x+y Print x,y,zEn

11、d Sub四、程序設(shè)計(jì)題編寫遞歸函數(shù)求1+2+3+m的值。 1.答案：Private Function Add(n As Integer) As Integer If n = 1 Then Add = 1 Exit Function End If Add = m + Add(m - 1)End Function編程計(jì)算100100000之間，共有多少個(gè)整數(shù)，滿足它的各位數(shù)字之和為5。 2.答案：Private Sub Command1_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer

12、 intNum = 0 For lng1 = 100 To 100000 int2 = 0 For int1 = 0 To 4 int2 = int2 + (lng1 / (10 int1) Mod 10 Next If int2 = 5 Then intNum = intNum + 13、編程計(jì)算20212223210的值。3.答案：2047Private Sub Form_Click() Dim x As Integer, sum As Integer x = 1: y = 1 For I = 1 To 10 x = x * 2 sum = sum + x Next Print sumEn

13、d Sub 4、編程計(jì)算100100000之間，共有多少個(gè)整數(shù)，滿足它的各位數(shù)字之和可被3整除。4.答案：31Private Sub Form_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer intNum = 0 For lng1 = 100 To 100000 int2 = 0 For int1 = 0 To 4 int2 = int2 + (lng1 / (10 int1) Mod 10 Next If int2 = 3 Then intNum = intNum + 1 Nex

14、t Print intNumEnd Sub答案：一、FFTTTFTFFF二、BABCCBDDAB三、1答案：BbBbCcEe 2答案：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 0 413答案：7，15 4答案：15，54 5答案：207.36 4 6答案：6 2 9 9 3 9 15 5 15 7答案：12 6 6 8答案：5 0 09答案：4，6，10 6，9，15四、1.答案：Private Function Add(n As Integer) As Integer If n = 1 Then Add = 1 Exit Funct

15、ion End If Add = m + Add(m - 1)End Function2.答案：Private Sub Command1_Click() Dim lng1 As Long Dim int1 As Integer, int2 As Integer, intNum As Integer intNum = 0 For lng1 = 100 To 100000 int2 = 0 For int1 = 0 To 4 int2 = int2 + (lng1 / (10 int1) Mod 10 Next If int2 = 5 Then intNum = intNum + 1 NextEnd Sub3.答案：2047Private Sub Form_Click() Dim x As Integer, sum As Integer x = 1: y = 1 For I = 1 To 10 x = x * 2 sum = sum + x Next Print sumEnd Sub4.答案：31Private Sub Form_Click() Dim lng1 As Long Dim int1 As Integer, int2