题目内容（请给出正确答案）

[主观题]

下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函

数值，角度为1，2，3，…，90。空白处应填入的内容是（）。

Private Type Ang

K As Integer

Sinx As Single

Cosx As Single

End Type

Private Sub Form_Click（）

Dim Y As Single

Dim i As Integer

Dim Ksc As Ang

Open_______

Y=3．14159／180

For i-1 T0 90

KSC．K-i

KSC．Sinx=Sin(i*Y)

KSC．Cosx=Cos(i+Y)

________

Next i

Close#2

Elld Stub

A."．．＼Data1．txt"For RandomAs#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

提问人：网友qxf1547 发布时间：2022-01-07

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“下列事件过程的功能是：建立一个名为Data1的随机文件，存放…”相关的问题

第1题

下列事件过程的功能是：建立一个名为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=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．..\Datal.txtFor Random As #1 Len=10 Put #1，i，Ksc

B．..\Datal.txtFor Random As #1 Len=10 Put #1，Y，Ksc

C．..\Datal.txtFor Random As #1 Put #1，i，Ksc

D．..\Datal.txtFor Random As #1 Put #1，Y，Ksc

点击查看答案

第2题

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

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

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

点击查看答案

第3题

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

点击查看答案

第4题

（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 SubA."‥\Datal.txt"For Random As#1 Len=10 Put#1,i,KscB."‥\Datal.txt"For Random As#1 Len=10 Put#1,Y,Ksc C."‥\Datal.txt"For Random As#1 Put#1,i,KscD."‥\Datal.txt"For Random As#1 Put#1,Y,Ksc

点击查看答案

第5题

（35）下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正炫函数值和余弦函数值，角度为1,2,3…,90。请在空白处填入适当的内容，将程序补充完整 Pivate 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.Sin=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Next i Close#1 End SubA."‥\Datal.txt"For Random As#1 Len=10 Put#1,i,KscB."‥\Datal.txt"For Random As#1 Len=10 Put#1,Y,KscC."‥\Datal.txt"For Random As#1 Put#1,i,KscD."‥\Datal.txt"For Random As#1 Put#1,Y,Ksc

点击查看答案

第6题

（12）下列事件过程的功能是：建立一个名为Datal的随机文件，存放在角度值及这些角度的正炫函数值和余弦函数值，角度为1,2,3···，90.请在空白处填上合适的代码，将程序补充完整。 Pivate Type Ang K As Integer Sinx As Single Cosx As Single End Type 定义Ang类型的变量Ksc Pivate Sub Form_Click() Dim Y As Single Open "C:\Datal.txt"For Random As#1 Len=10 Put#1,1,Ksc Y=3.14159/180 For i=1 To 90 Ksc.K=i _______=Sin(i*Y)给变量Ksc的正弦函数值赋值 Ksc.Cosx=Cos(i*Y) Next i Close#1 End Sub

点击查看答案

第7题

如果要打开E盘上user子目录下名为test.txt的文本文件进行读、写操作，下面符合要求的函数调用是（）。

A、fopen("E:\user\test.txt","r");

B、fopen("E:\\user\\test.txt", "r+");

C、fopen("E:\user\test.txt","rb");

D、fopen("E:\\user\\test.txt", "w");

点击查看答案

第8题

将E—R图转换为关系模式时，实体和联系都可以表示为（）。

A.属性

B.键