2009年上半年等級考試二級VB筆試精選試題(2)

　　1.結(jié)構(gòu)化程序設(shè)計的三種基本邏輯結(jié)構(gòu)為順序、選擇和【1】。

　　2.冒泡排序算法在最好的情況下的元素交換次數(shù)為【2】。

　　3.軟件結(jié)構(gòu)是以【3】為基礎(chǔ)而組成的一種控制層次結(jié)構(gòu)。

　　4.在面向?qū)ο蟮脑O(shè)計中，用來請求對象執(zhí)行某一處理或回答某些信息的要求稱為【4】。

　　5.關(guān)系數(shù)據(jù)庫的關(guān)系演算語言是以【5】為基礎(chǔ)的DML語言。

　　6.要使工具欄控件的某按鈕呈按鈕菜單的樣式，可以在其屬性頁中設(shè)置其【6】選項(xiàng)為5-tbrDropDown。

　　7.在窗體上畫兩個文本框和一個命令按鈕，然后在代碼窗口中編寫如下事件過程：

　　Private Sub Command1_Click()

　　Text1.Text="VB Programming"

　　Text2.Text=Text1.Text

　　Text1.Text="ABCD"

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，兩個文本框中顯示的內(nèi)容分別為【7】和【8】。

　　8.下面的程序代碼實(shí)現(xiàn)將一個一維數(shù)組中元素向右循環(huán)移動，移動次數(shù)由文本框Text1輸入。例如數(shù)組各元素的值依次為0，1，2，3，4，5，6，7，8，9，10;移動三次后，各元素的值依次為8，9，10，0，1，2，3，4，5，6，7。

　　Private Sub MoveRight(x()As Integer)

　　Dim i As Integer

　　Dim j As Integer

　　Dim k As Integer

　　i=UBound(x)

　　j=x(i)

　　For k=i To【9】Step-1

　　【10】

　　Next k

　　x(LBound(x))=j

　　End Sub

　　Private Sub Command1_Click()

　　Dim a(10) As Integer

　　Dim i As Integer

　　Dim j As Integer

　　Dim k As Integer

　　For i=0 To 10

　　a(i)=i

　　Next i

　　j=Val(Text1.Text)

　　k=0

　　Do

　　k=k+1

　　Call MoveRight(a)

　　Loop Until k=j

　　For i=0 To 10

　　Print a(i);

　　Next i

　　End Sub

　　9.下面程序是用來打印九九乘法表的，請?zhí)羁铡?/P>

　　Private Sub Form_Click()

　　Dim flag As Integer,i As Integer,j As Integer,Str1 $

　　Str1=“”

　　For i=1 To 9

　　【11】

　　For j=1 To 9

　　If 【12】Then

　　str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j))

　　Else

　　str1=str1 & Chr(13)

　　Exit For

　　End If

　　Next j

　　Next i

　　Print str1

　　End Sub

　　10.把一個磁盤文件的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入另一個磁盤文件，請?zhí)羁胀瓿沙绦颉?/P>

　　在窗體上建立一個文本框，在屬性窗口中把該文本框的MultiLine屬性設(shè)置為True，然后編寫如下的事件過程：

　　Private Sub Form_Click()

　　Open“D：\ test1.txt”For Input As # 1

　　Text1.FontSize=14

　　Text1.FontName=“幼圓”

　　Do While Not EOF(1)

　　【13】

　　whole$=whole$+aspect$+Chr$(13)+Chr$(10)

　　Loop

　　Text1.Text=【14】

　　Close

　　Open“D：\ test2.txt”For Output As # 1

　　Print # 1,【15】

　　Close

　　End Sub

　　答案：

　　1.【1】重復(fù)(或循環(huán))

　　2.【2】0

　　3.【3】模塊

　　4.【4】消息

　　5.【5】謂詞演算

　　6.【6】樣式

　　7.【7】ABCD 【8】VB Programming

　　8.【9】LBound(x)+1 【10】x(k)=x(k-1)

　　9.【11】Flag=i 【12】j

　　10.【13】Line Input # 1,aspect$ 【14】Whole$ 【15】Text1.text