31、對長度為n 的線性表進(jìn)行順序查找，在最壞情況下所需要的比較次數(shù)為(　　)。

　　A.log2n

　　B.n/2

　　C.n

　　D.n+1

　　32、下列程序要求用戶輸入一個(gè)年份，并能夠判斷用戶輸入的年份是否是閏年，橫線處應(yīng)填(　　)。

　　Sub EnSure(　　)

　　Di myear As Integer

　　year =Val(InputBox("請輸入年份："))

　　If(year Mod 4=0_________year Mod 100<>0)

　　________(year Mod 400=0)Then

　　Print "您輸入的是閏年"

　　Else

　　Print "不是閏年，是普通年份"

　　End If

　　End Sub

　　A.And And

　　B.And Or

　　C.Or Or

　　D.Or Or

　　33、設(shè)有下列程序

　　Private Sub Form_Click()

　　x=50

　　For i =1To 4

　　y =InputBox("請輸入一個(gè)整數(shù)")

　　y =Val(y)

　　If y Mod 5=0Then

　　a=a+y

　　x=y

　　Else

　　a=a+x

　　End If

　　Next i

　　Print a

　　End Sub

　　程序運(yùn)行后，單擊窗體，在輸入對話框中依次輸入15、24、35、46，輸出結(jié)果為(　　)。

　　A.100

　　B.50

　　C.120

　　D.70

　　34、要清除已經(jīng)在圖片框Picturel 中打印的字符串而不清除圖片框中的圖像，應(yīng)使用語句(　　)。

　　A.Picture 1.Cls

　　B.Picture 1.Picture =LoadPicture("")

　　C.Picture 1.Pi nt""

　　D.Picture 1.Picture""

　　35、下列選項(xiàng)中不符合良好程序設(shè)計(jì)風(fēng)格的是(　　)。

　　A.源程序要文檔化

　　B.數(shù)據(jù)說明的次序要規(guī)范化

　　C.避免濫用goto語句

　　D.模塊設(shè)計(jì)要保證高耦合、高內(nèi)聚

　　36、下列說法錯(cuò)誤的是(　　)。

　　A.窗體文件的擴(kuò)展名為".frm"

　　B.一個(gè)窗體對應(yīng)一個(gè)窗體文件

　　C.Visual Basic 中的一個(gè)工程只包含一個(gè)窗體

　　D.Visual Basic 中一個(gè)工程最多可以包含255個(gè)窗體

　　37、兩個(gè)或兩個(gè)以上模塊之間關(guān)聯(lián)的緊密程度稱為(　　)。

　　A.耦合度

　　B.內(nèi)聚度

　　C.復(fù)雜度

　　D.數(shù)據(jù)傳輸特性

　　38、假定在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型：

　　Type Books

　　Name As Stri ng*10

　　TelNum As Stri ng*20

　　End Type

　　要求在執(zhí)行事件過程Co mmand1_Click 時(shí)，在順序文件Person .txt 中寫入一條記錄。下列能夠完成該操作的事件過程是(　　)。

　　A.Private Sub Co mmand1_Click()

　　Di nt BAs Books

　　Open "c ：\Person .txt"For Output As #1

　　B .Name =InputBox("輸入姓名")

　　B .TelNum=InputBox("輸入電話號(hào)碼")

　　Write #1，B.Name ，B.TelNum

　　Close #1

　　End Sub

　　B.Private Sub Co mmand1_Click()

　　Di m BAs Books

　　Open "c ：\Person .txt"For Input As #1

　　B .Name =InputBox("輸入姓名")

　　B .TelNum=InputBox("輸入電話號(hào)碼")

　　Print #1，B.Name ，B.TelNum

　　Close #1

　　End Sub

　　C.Private Sub Co mmand1_Click()

　　Di m BAs Books

　　Open "c ：\Person .txt"For Output As #1

　　Name =InputBox("輸入姓名")

　　TelNo m=InputBox("輸入電話號(hào)碼")

　　Write #1，B

　　Close #1

　　End Sub

　　D.Private Sub Co mmand1_Click()

　　Di m BAs Book

　　Open "c ：\Person .txt"For Input As #1

　　Name =InputBox("輸入姓名")

　　TelNum-InputBox("輸入電話號(hào)碼")

　　Print #1，B.Name .B.TelNum

　　Close #1

　　End Sub

　　39、窗體上有兩個(gè)文本框Textl、Text2以及一個(gè)命令按鈕Commandl ，編寫下列程序：

　　Di mY As Integer

　　Private Sub Commandl_Click()

　　Di m X As Integer

　　x=2

　　Textl .Text =p2(p1(X)，Y)

　　Text2.Text =pl(x)

　　End Sub

　　Private Function pl(X As Integer)As Integer

　　x+x+y∶y =x+y

　　pl =x+y

　　End Function

　　Private Function p2(X As Integer ，Y As Integer)As Integer

　　p2=2*x+y

　　End Function

　　當(dāng)單擊1次和單擊2次命令按鈕后，文本框Text1和Text2內(nèi)的值分別為(　　)。

　　A.2 4

　　2 4

　　B.2 4

　　4 8

　　C.4 4

　　8 8

　　D.10 10

　　58 58

　　40、窗體文件的擴(kuò)展名是(　　)。

　　A.bas

　　B.cls

　　C.frm

　　D.res