【正文】 e Else方法是VB提供的一種 （6） ，用來完成一定的操作。 復(fù)選框控件Value屬性指示復(fù)選框處于____（10）___或禁止?fàn)顟B(tài)(暗淡的)中的某一種。1設(shè)x＝，語句Print Format(x,“”)的輸出結(jié)果是 （15） 。二、選擇題菜單控件只包括一個事件，即 （1） ，當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵時觸發(fā)該事件，除分隔條以外的所有菜單控件都能識別該事件。A、Enabled B、Caption C、Default D、Font要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是 （5） 。然后打勾 B、在索引項中打勾 C、在有效項中打勾 D、在復(fù)選項中打勾 當(dāng)執(zhí)行以下過程時，在窗體上將顯示 （8） 。20/42的結(jié)果為 （9） ?！?　　 　　 　 　 1雙擊窗體中的對象后，Visual Basic將顯示的窗口是 （13） 。 A．ActiveForm B．Load C．Drive D．Change三、判斷題(判斷下列正確與否，正確的打√，錯誤的打ⅹ。通過改變屬性窗口中的Name屬性，來改變窗體的標(biāo)題。工程文件的擴展名是 .vbg 。1使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。1如果列表框的ListConut的屬性為10，則列表框最后一項的ListIndex值為10。在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有語法錯誤。 5PrintFor I = 15 To 16Print I。請?zhí)羁眨? Private Sub Form_load( ) （1） =loadPicture(“c:\pic\”) （2） .Interval=200 End Sub Private Sub Timer1_Timer( ) Static x , y As Integer x=x+100 y=y+100 （3） End Sub （二）有一個單擊按鈕過程，其作用是產(chǎn)生50個60～100的隨機數(shù)，統(tǒng)計其中被6整除余2的個數(shù)，并將這些數(shù)輸出。 A．（10，80） B．（10，81） C．[10，80] D．[10，81]4．函數(shù)Sgn()的返回值是（C ）。A．sum = sum sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有輸入和輸出雙重功能的為（B）。2．代碼窗口中有兩個下拉列表框：左側(cè)是(對象)列表框，右側(cè)是過程列表框。三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式。A) 代碼窗口B) 窗體設(shè)計窗口C) 屬性窗口D) 工程資源管理器窗口3．設(shè)有變量定義語句Dim a%，則變量a的數(shù)據(jù)類型是 A 。Private Sub Form_Click()Dim a As Integer, b As Integera = 3b = 5Print a + b。 bEnd SubA) 4 3B) 7 3C) 3 7D) 10 7 8．下面程序段所表示的數(shù)學(xué)關(guān)系式是 C 。 k。 Next kA) 8B) 20C) 2 8D) 2 6 12 2013．設(shè)有如下的用戶自定義類型Private Type Stu name As String * 10 age As IntegerEnd Type則以下正確引用該類型成員的代碼是 B 。A) 屬性B) 方法C) 事件D) 名稱17．在VB ，要判斷復(fù)選框是否為選中狀態(tài)，使用的屬性是 D 。A) StyleB) FillStyleC) BackStyleD) BorderStyle20．用戶單擊滾動條的空白處（滑塊與兩端滾動箭頭之間的區(qū)域）時，Value屬性所增加或減少的值，是由 D 屬性決定的。A) LoadB) ClickC) ChangeD) Timer24．要使命令按鈕處于無效狀態(tài)，可以設(shè)置按鈕的 B 屬性值為False。A) =TrueB) =TrueC) =FalseD) =False27．使用“菜單編輯器”建立菜單項之間的分隔線時，在菜單項的“標(biāo)題”中輸入的符號是 A 。A) 1B) 2C) 3D) 4 30．獲取文件的長度（字節(jié)數(shù)），可以使用的函數(shù)是 B 。ABC 的功能是 【3】 。答案：True 6．在窗體上放置一個標(biāo)簽，名稱為Label1，使用語句 【6】 可以把標(biāo)簽的前景色設(shè)置為藍(lán)色。 答案：Filter10．設(shè)磁盤上已存在順序文件“”，為了從文件中順序讀取數(shù)據(jù)而打開該文件，正確的語句是 Open For 【10】 As 1。答案：7Private Sub Form_Click() m = 0 For k = 1 To 4 Select Case k Case 1, 2 m = m + 1 Case Is 3 m = m + 2 Case 1 To 4 m = m + 3 End Select Next k Print mEnd Sub3．下列程序運行后，單擊窗體，輸出結(jié)果是 【4】 。 答案：1 5 1 Private Sub Form_Click() Dim a(1 To 3, 1 To 3) For i = 1 To 3 For k = 1 To 3 If k = 1 Or i = k Then a(i, k) = 1 Else a(i, k) = i + k End If Next k Next i Print a(1, 1)。 n。 Print fun1(k)。Dim s As StringPrivate Sub Text1_KeyPress(KeyAscii As Integer) s = s + Chr(KeyAscii) Print s。程序中有一處錯誤，請更正。請更正。下列程序的功能是：（1） 在窗體的Load事件中，產(chǎn)生10個20~30（含20和30）之間的隨機整數(shù)，并作為列表項逐個添加到列表框List1中。產(chǎn)生一個[20,30]之間的隨機整數(shù) 【2】 39。Private Sub Form_Click() Dim e As Single, n As Integer, p As Single 39。Private Sub Command1_Click() Dim fn As String 39。Option Base 1Private Sub Form_Click() Dim a(10) As Single For i = 1 To 10 a(i) = Val(InputBox(輸入一個數(shù)值)) Next i Print 平均值=。 max 最小數(shù)為：。 i amp。 k End If Next: Next: Next MsgBox 共有組合： amp。取a的末位數(shù) sum=sum+b:39。輸出 end （dim n as string input n for i = 1 to len(n) sum=sum+val(mid(n,i,1)) next i print sum） Private Sub Form_Load() = True Dim n1%, m1%, m%, n%, r% n1 = InputBox(輸入n1) m1 = InputBox(輸入m1) If m1 n1 Then 39。 的最大公約數(shù)為。 A(i) Netx i End Sub Private Sub Command_Click() End End Sub 第二大題 1. 判定素數(shù)過程 Function isprime(Num As Long) As Boolean If Num 2 Then isprime = False: Exit Function Dim i As Long For i = 2 To Sqr(Num) If (Num Mod i) = 0 Then isprime = False Exit Function End If Next i isprime = True End Function Private Sub Command1_Click() Dim i As Long For i = 1 To 1000 If isprime(i) Then Print i End If Next i End Sub ； Function Max公約數(shù)(A As Long, B As Long) 39。輾轉(zhuǎn)相除法 K = X Mod Y: If K = 0 Then Exit Do X = Y: Y = K Loop Max公約數(shù) = Y End Function Private Sub Command1_Click() Dim a(9) As Integer Dim i As Integer For i = 0 To 9 a(i) = InputBox(輸入整數(shù)) Next Sort a For i = 0 To 9 Print a(i) Next End Sub Private Sub Sort(ByRef a() As Integer) Dim i As Integer Dim j As Integer Dim t As Integer For i = LBound(a) + 1 To UBound(a) For j = UBound(a) To i Step 1 If a(j 1) a(j) Then t = a(j 1) a(j 1) = a(j) a(j) = t End If Next Next End Sub 4順序查找過程 Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint 原數(shù)組:For i = 1 To 10 a(i) = Int(Rnd * 10) Print a( amp。 Space(2), If i Mod 2 = 0 Then PrintEnd IfNext iPrintFor i = 1 To 9 For j = i + 1 To 10 If a(j) a(i) Then t = a(i) End If Next jNext iEnd Sub 《VB期末范圍題總匯》 1． 求隨機10個整數(shù)的最大值、最小值、平均值以及和； Dim a(1 To 10) Private Sub Command1_Click() Randomize 產(chǎn)生的隨機數(shù)為： For i = 1 To 10 a(i) = Int(Rnd * 99 + 1) a(i)。 ave End Sub Private Sub Form_Click() Dim a, b, c As Integer 39。 j amp。求完數(shù)的過程 Private Sub Form_Click() Dim i, j As Integer For i = 4 To 100 temp = 1 For j = 2 To i / 2 If i Mod j = 0 Then temp = temp + j End If Next j If temp = i Then Print i End If Next i End Sub input a:39。去掉末位數(shù) lo