填空题
下列程序实现的功能是:从键盘上输入10个整数,并把它们写到“D:”盘“a1.dat”文件中,然后从中读出第5个数并输出。
Private Sub Form_Click()
Dim k As Integer
Dim n As Integer,i As Integer
n=Len(k)
Open
【13】
As#10 Len=n
For i=1 To 10
k=InputBox("请输入一个整数")
【14】
Next i
【15】
Get #10,,k
Print k
End Sub
【参考答案】
[AC]"D:\aA.dat"For Random[AD]Put #A0,i,k[AE]Seek #A0,E
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
以下程序的执行结果是 【8】 。 a=15.5635 b=Int(a*100+0.5) 100 Print b
点击查看答案&解析
填空题
下列程序的功能是:单击窗体时将随机生成10个0~99之间的随机数,并赋值给数组A,然后利用选择法排序;并把排序后的结果输出。 Private Sub Form_Click() Dim A(9) As Integer,i As Integer Dim j As Integer,k As Integer Randomize For i=0 To 9 A(i)=Int(100*Rnd) Next i For i=0 To 8 k= 【9】 For j=i To 9 If(A(k)>A(j))Then 【10】 End If Next j If k<>i Then t=A(k):A(k)=A(i):A(i)=t End If Next i For i=0 To 9 Print A(i), Next i Print End Sub
点击查看答案&解析
相关试题
在窗体上建立名称为了ext1、Text2和Text...