下列事件过程的功能是：建立一个名为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 DimA．..\Data1.txtFor Rando

题目

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

A．..\Data1.txtFor Random As #1 Len=10 Put #1,i,Ksc

B．..\Data1.txtFor Random As #1 Len=10 Put #1,Y,Ksc

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

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

相似考题

1.下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click（）Dim Y As SingleOpen 【14】Y=3.14159 / 180For I=1 To 90Ksc.K=IKsc.Sinx=Sin（I * Y）Ksc.Cosx=Cos（I * Y）【15】Next IClose #2End Sub

2.（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

3.（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

4.（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

参考答案和解析
正确答案：A
解析： 分析程序，程序要将角度值及这些角度的正弦函数值和余弦函数值存入Datal文件中。因此，应先打开Datal文件，应为Datal文件是随机文件，要新建并写入信息，所以应用Random方式打开文件。这里给随机文件指定长度为10，所以第1个空白处应填："..\Dam1.txt"For Random As#1 Len=10。要向随机文件中写入信息，应用Put语句，因此第2空应填：Put#1，i，Ksc。
更多“下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函 ”相关问题

  • 第1题：

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

    B．..\Data1.txtFor Random As #1 Len=10 Put#1,Y,Ksc

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

    D．..\Data1.txtFor 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。

  • 第2题：

    折光率是

    A．折射角的角度

    B．入折射角与折射角角度的比值

    C．折射角与入射角角度的比值

    D．入射角正弦与折射角正弦的比值

    E．入射角余弦与折射角余弦的比值


    正确答案：D
    解析：本题考查折光率的概念。
      折光率指光线入射角正弦与折射角正弦的比值。

  • 第3题：

    折光率是
    A.折射角的角度
    B.入射角与折射角角度的比值
    C.折射角与入射角角度的比值
    D.入射角正弦与折射角正弦的比值
    E.入射角余弦与折射角余弦的比值


    答案：D
    解析：
    D

  • 第4题：

    折光率是（ ）。

    A．折射角的角度

    B．入折射角与折射角角度的比值

    C．折射角与入射角角度的比值

    D．入射角正弦与折射角正弦的比值

    E．入射角余弦与折射角余弦的比值


    正确答案：D
    (本题在2005年考查过)：折光率指光线入射角的正弦与折射角正弦的比值。

  • 第5题：

    光率是
    A .折射角的角度 B .入折射角与折射角角度的比值 C .折射角与入射角角度的比值 D .入射角正弦与折射角正弦的比值 E .入射角余弦与折射角余弦的比值


    答案：D
    解析：
    D
    [解析]本题考查折光率的概念。
    折光率指光线入射角正弦与折射角正弦的比值。

相关内容