（34）下列事件过程的功能是：建立一个名为Data1的随机文件，

（34）下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为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

Dim i As Integer

Dim Ksc As Ang

Open

Y=3.14159/180

For i=1 To 90

Ksc.K=i

Ksc.Sinx=Sin(i*Y)

Ksc.Cosx=Cos(i*Y)

___________

Next i

Close #2

End Sub

参考答案

: （11）下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
     Private Sub Command1_Click()
         Text1.Text=""
         For n=3 To 100
       k=Int(Sqr(n))
       i=2
       Flag=0
       Do While i<= And Flag=0
          If n Mod i=0 Then
         Flag=1
          Else
         i=i+1
          End If
       Loop
       If       Then
          Text1.Text=Text1.Text&Str(n)&Chr(13)&Chr(10)
       End If
         Next n
     End Sub

: （8）执行下列语句后，输出结果是。
    s$="ABCDEFG"
    Print InStr(s$,"efg")
    Print Lcase$(s$)

: （10）在窗体上画一个文本框和一个图片框，然后编写下列两个事件过程：
    Private Sub Form_Click()
        Text1.Text="VB Programming"
    End Sub
    Private Sub Text1_Change()
        Picture1.Print"VB程序设计"
    End Sub
    程序运行后，单击窗体，则在文本框中显示的内容是，而在图片框中显示的内容是     。

: （35）有下列程序代码实现生成20个0-100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段，完成程序。
                  Private Sub Commandl_Click()
        Dim arr(1 To 20)
      For i=1 To 20