有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读出数据的平

方值，将该数据及其平方值存入新的顺序文件NMtxt中。请填空。 Private Sub Form_Click() Dim x As Single，y As Single Open "NMl.txt" For Input As 1 Open "NMtxt" For Input As 2 Do While Not EOF(1) 【】 Print x y=x^2 【】 Print x Loop Close 1，2 End Sub

查看答案

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

您可能会需要：

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

安装上学吧APP，拍照搜题省时又省心！

更多“有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．…”相关的问题

第1题

以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。 Sub RecArea(L，W) Dim S As Double S=L*W MsgBox"Total Area is"& Str(S) End Sub Private Sub Command1_Click() Dim M，N M=InputBox("What is the L?") M=Val(M) 【】 N=Val(N) 【】 End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第2题

下列程序的输出结果为【】。 num=2 While num<=3 num=num+1 Print num Wend

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第3题

以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。 Dim x，amax,amin As Single x=InputBox("Enter a score") amax=x amin=x Do While【】 If x>amax Then amax=x End If If【】Then amin=x End If x=InputBox("enter a score") Loop Print"max="；amax，"min="；amin

请帮忙给出正确答案和分析，谢谢！

点击查看答案

第4题

执行下面的程序段，x的值为【】。 Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub

请帮忙给出正确答案和分析，谢谢！

点击查看答案