问题 单项选择题

下列事件过程的功能是:建立一个名为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

A."..\Data1.txt"For Random As #1 Len=10 Put#1,i,Ksc

B."..\Data1.txt"For Random As #1 Len=10 Put#1,Y,Ksc

C."..\Data1.txt"For Random As #1 Put#1,i,Ksc

D."..\Data1.txt"For Random As #1 Put#1,Y,Ksc

答案

参考答案:A

解析:分析程序,程序要将角度值及这些角度的正弦函数值和余弦函数值存入Data1文件中。因此,应先打开Data1文件,因为Data1文件是随机文件,要新建并写入信息,所以使用Random方式打开文件。这里给随机文件指定长度为10,所以第1个空白处应填"..\Data1.txt"For Random As #1 Len=10。要向随机文件中写入信息,应用Put语句,因此第2空应填Put #1,i,Ksc。

单项选择题
判断题