(11) 下面程序的功能是統計字符串中"i"的個數，請填空。

　　Sub COU()

　　a$="Beijing University of Technology"

　　Dim n As Integer

　　n=Len(a$)

　　For i=1 To n

　　b$= 【12】

　　If 【13】 Then x=x + 1

　　Next i

　　Print "x="; x

　　End Sub

　　正確答案: 1.(Mid$(a$, i, 1) ) 2.(b$ = "i")

　　(12) 下列事件過程的功能是：建立一個名為Datal的隨機文件，存放角度值及這些角度的正弦函數值和余弦函數值，角度為1，2，3，…，90。請在空白處填入適當的內容，將程序補充完整。

　　Private Type Ang

　　K As Integer

　　Sinx As Single

　　Cosx As Single

　　End Type

　　Dim Ksc As Ang

　　Private Sub Form_Click()

　　Dim Y As Single

　　Open 【14】

　　Y=3.14159 / 180

　　For I=1 To 90

　　Ksc.K=I

　　Ksc.Sinx=Sin(I * Y)

　　Ksc.Cosx=Cos(I * Y)

　　【15】

　　Next I

　　Close #2

　　End Sub

　　正確答案: 1.("c:\Data1.txt" For Random As #2 Len = 10) 2.(Put #2, I)