题目内容

下列事件过程的功能是：建立一个名为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(iY) Ksc.Cosx=Cos(iY) 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

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成．名称为Labell的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空：标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。下列为“计算”按钮的事件过程，请为下划线处选择合适的语句()。
Private Sub Commandl_Click() Sum=0 For i=0 To 4 Sum=Sum+ Next =Sum End Sub

A. Labell(i).Caption Label2.Caption
B. Labell(i).Caption Label3.Caption
C. Labell.Caption Label2.Caption
D. Labell.Caption Label3.Caption

下列程序运行时输出的结果是()。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(A)As Integer k=-1 For i=1 To a x(i)=ik k=(-1)k Next i For i=1 To 10 Print x(i) Next i End Sub

A. 1 3 5 7 9 10
B. -1-3-5-7-9
C. -1 2-3 4-5 6-7 8-9 10
D. 1-2 3-4 5-6 7-8 9-10

在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句()。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体 GB2312" End Select Text =a End Sub

A. Option Text
B. Index Text
C. Index Font
D. Option Font

有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是()。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，B)Print x End Sub

A. 0
B. 25
C. 50
D. 100