题库 题库

【填空题】

有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click()
Dim x As Single, y As Single
Open "NM1.txt" For Input As #1
Open "NM2.txt" For Input As #2
Do While Not EOF(1)
______
Print x
y=x ^ 2
______
Print y
Loop
Close #1, #2
End Sub

参考答案

查看答案

相关试题

单选题 下列程序段的执行结果为
a=1
b=5
Do
a=a + b
b=b + 1
Loop While a < 10
Print a; b
查看答案
单选题 下列各选项说法错误的一项是 查看答案
单选题 下列说法正确的是 查看答案
单选题 用链表表示线性表的优点是 查看答案
单选题 下面的数组声明语句中正确的是 查看答案
单选题 在数据管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是 查看答案
单选题 当滚动条位于最左端或最上端时,Value属性被设置为 查看答案
单选题 应用数据库的主要目的是 查看答案
单选题 单击命令按钮时,下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=50: y=78
Call PPP(x, y)
Print x; y
End Sub
Public Sub PPP(ByVal n As Integer, ByVal m As Integer)
n=n \ 10
m=m \ 10
End Sub
查看答案
单选题 下列可以启动Visual Basic的方法是 查看答案
单选题 单击按钮时,以下程序运行后的输出结果是
Private Sub proc1(x As Integer, y As Integer, z As Integer)
x=3 * z
y=2 * z
z=x + y
End Sub
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x=1: y=2: z=3
Call proc1(x, x, z)
Print x; x; z
Call proc1(x, y, y)
Print x; y; y
End Sub
查看答案
单选题 检查软件产品是否符合需求定义的过程称为 查看答案
单选题 有如下事件过程:
Private Sub Command1_Click()
b=10
Do Until b=-1
a=InputBox("请输入a的值")
a=Val(A)
b=InputBox("请输入b的值")
b=Val(b)
a=a * b
Loop
Print a
End Sub
程序运行后,依次输入数值30,20,10,-1,输出结果为
查看答案
单选题 关于货币型数据的说明,正确的是 查看答案
单选题 在Visual Basic中,组合框是文本框和什么的特性的组合? 查看答案
单选题 根据变量的作用域,可以将变量分为3类,分别为 查看答案
单选题 数据结构中,与所使用的计算机无关的是数据的 查看答案
单选题 算法的空间复杂度是指 查看答案
单选题 如果一个变量未经定义就直接使用,则该变量的类型为 查看答案
单选题 定义过程的格式中,Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字,则 查看答案