填空题

下列程序的功能是：将数据1,2,..,8写入顺序文件Num. txt中请补充完整。 Private Sub Form_Click ( ) Dim i As Integer Open "Num. txt" For Output As #1 For i = 1 To 8 【13】 Next Close #1 End Sub

【参考答案】

Print #1，i
<上一题 目录 下一题>
热门 试题

填空题
下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,Private Sub Command1_Click()Dim x As Singlex = InputBox( 请输入x的值 )Select Case xCase Is＜50y=0.8 * xCase 50 To 100y=0.7 * x【12】 Print 输入数据出界! End SelectPrint x, yEnd Sub
填空题
下列事件过程的功能是：建立一个名为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 【15】 Y=3. 14159 180For i=1 To 90Ksc. K=iKsc. Sinx = Sin ( i * Y)Ksc. Cosx = Cos ( i * Y)Put #2, i, KscNext iClose #2End Sub
相关试题