题目内容

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

查看答案
更多问题

已知变量boo1Var是一个布尔型的变量,如果要给其赋值为True,则正确的赋值语句是______。

怎样培养学生的良好性格

论述掌握知识与发展智力相统一的教学规律。

下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。清选择正确的程序段( ),完成程序。 Pnvae Sub Command1_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)______ Text1.Text=Text1.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X______ IfX>50 Then Print Tab(20);X Sum=Sum+X End If Next X Print Tab(20);"Sum=";Sum End Sub

A. Int(Rnd*99+1) In arr
B. Int(Rn In arr
C. Int(Rnd*99+1) In arr()
D. Int(Rn In arr()

答案查题题库