21、函數值和余弦函數值，角度為1，2，3，…，90。請在空白處填入適當的內容，將程序補充完整。

　　Private Type Ang

　　K As Integer

　　Si nx As Si ngle

　　Cosx As Si ngle

　　End Type

　　Private Sub Form_Click()

　　Di m Y As Si ngle

　　Di mi As Integer

　　Di m Ksc As Ang

　　Open ____________

　　Y =3.14159/180

　　For i =1To 90

　　Ksc .K =i

　　Ksc .Si nx=Si n(i*Y)

　　Ksc .Cosx=Cos(i +Y)

　　________

　　Next i

　　Close #2

　　Elld Stub

　　A."..\Datal .txt"For Rando mAs #1Len =10 Put #1，i ，Ksc

　　B."..\Datal .txt"For Rando m As #1Len =10 Put #1，Y ，Ksc

　　C."..\Datal .txt"For Rando m As #1 Put #1，i ，Ksc

　　D."..\Datal .txt"For Rando m As #1 Put #1，Y ，Ksc

　　22、下列程序運行時輸出的結果是(　　)。

　　Option Base 1

　　Const a=10

　　Private Sub Form_Click0

　　Di mx(a)As Integer

　　k =-1

　　For i =1To a

　　x(i)=i*k

　　k =(-1)*k

　　Next i

　　For i =1To 10

　　Print x(i)

　　Next i

　　End Sub

　　A.1 3 5 7 9 10

　　B.-1-3-5-7-9

　　C.-1 2-3 4-5 6-7 8-9 10

　　D.1-2 3-4 5-6 7-8 9-10

　　23、某人為計算n!(O

　　Private Function fun(n As Integer)As Long

　　Di m P As Long

　　P=l

　　For k =n -1To 2Step -1

　　p =p*k

　　Next k

　　fun =p

　　End Function

　　在調試時發現該函數過程產生的結果是錯誤的，程序需要修改。下面的修改方案中有3種是正確的，錯誤的方案是(　　)。

　　A.把p =1改為p =11

　　B.把For k =n -1To 2Step -1改為For k =1To n -1

　　C.把For k =n -1To 2Step -1改為For k =1To n

　　D.把Fo rk --n -1To 2Step -1改為For k =2To n

　　24、要設置窗體為固定對話框，并包含控制菜單欄和標題欄，但沒有最大化和最小化按鈕，設置的操作是(　　)。

　　A.設置BorderStyle 的值為Fi xed Tool Wi ndow

　　B.設置BorderStyle 的值為Sizable Tool Wi ndow

　　C.設置BorderStyle 的值為Fi xed Dialog

　　D.設置BorderStyle 的值為Sizable

　　25、設在窗體上有一個文本框，然后編寫如下的事件過程：

　　Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)

　　Const Alt =4

　　Const Key_F2=&H71

　　altdown %=(Shift And Alt)>0

　　f2down %=(KeyCode =Key_F2)

　　If altdown %And f2down %Then

　　Text1.Text ="abl"

　　End If

　　End Sub

　　程序運行后，清除文本框中原有內容，如果按Shift +F2鍵，則在文本框中顯示的是( )。

　　A.Alt +F2

　　B.abl

　　C.隨機出幾個數

　　D.不發生變化

　　26、在窗體上畫兩個文本框(名稱分別為Text1和Text2)和一個命令按鈕(名稱為Co mmand1)，然后編寫下列事件過程：

　　Private Sub Co mmand1_Click()

　　x=0

　　DO While x<50

　　x=(x+2)*(x+3)

　　n =n +l

　　Loop

　　Text1.Text =Str(n)

　　Text2.Text =Str(x)

　　End Sub

　　程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為(　　)。

　　A.1和0

　　B.2和72

　　C.3和50

　　D.4和168

　　27、下列敘述中錯誤的是(　　)。

　　A.軟件測試的目的是發現錯誤并改正錯誤

　　B.對被調試的程序進行"錯誤定位"是程序調試的必要步驟

　　C.程序調試通常也稱為Debug

　　D.軟件測試應嚴格執行測試計劃，排除測試的隨意性

　　28、一個工程必須包含的文件的類型是( )。

　　A.*.vbp*.frm*.frx

　　B.*.vbp*.cls*.bas

　　C.*.bas*.ocx*.res

　　D.*.frm*.cls*.bas

　　29、在文本框中輸入字符時，通過( )事件過程可以得到字符的ASCII 碼值。

　　A.Change

　　B.GotFocus

　　C.KeyPress

　　D.LostFocus

　　30、在下列關系運算中，不改變關系表中的屬性個數但能減少元組個數的是(　　)。

　　A.并

　　B.交

　　C.投影

　　D.笛卡兒乘積