填空题

假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段：
Dim Rv As Rt
r1=Len(Rv)
Open"Sp.txt" For Random As # 1
x=LOF(1)
n=x\r1
执行上面的程序段后，变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。

【参考答案】

[6]Sp.txt [7]Rt
<上一题 目录 下一题>
热门 试题

填空题
下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。 Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2)) If x Mod 2=0 Then Labe11．Caption=“偶数” Else Labe11．Caption=“奇数” End If Text1．SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 【10】 ThenKeyAscii=0 End Sub
填空题
以下过程用来在w数组中插入x，w数组中的数已按由小到大的／顷序存放，n指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。 Sub fun(w，x，n) Dim i，p p=0 w(n)=x Do While x＞w(p) 【11】 Loop For i=n to p+1 Step-1 w(i)= 【12】 Next i w(p)=x n=n+1 Sub End
相关试题