2009年9月计算机等考二级VB模拟题及解析(11)

　　(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)