问题 单项选择题

下列事件过程的功能是:建立一个名为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
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 = 10Put #1, i, Ksc

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

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

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

答案

参考答案:A

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

选择题
单项选择题