填空题

下列程序实现的功能是：从键盘上输入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
<上一题 目录 下一题>
热门 试题

填空题
在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。Private Function digit(ByVal m As Integer，ByVal n As Integer)As IntegerDim i As IntegerFor i=1 To n-1m=m 10Next idigit= 【11】 End FunctionPrivate Sub Command1_Click()Dim m As Integer，n As Integer，k As Integerm=Val(Text1.Text)n=Val(Text2.Text)k= 【12】 Text3.Text=Str(k)End Sub
填空题
下列程序的功能是：单击窗体时将随机生成10个0～99之间的随机数，并赋值给数组A，然后利用选择法排序；并把排序后的结果输出。Private Sub Form_Click()Dim A(9) As Integer,i As IntegerDim j As Integer,k As IntegerRandomizeFor i=0 To 9A(i)=Int(100*Rnd)Next iFor i=0 To 8k= 【9】 For j=i To 9If(A(k)＞A(j))Then【10】 End IfNext jIf k＜＞i Thent=A(k)：A(k)=A(i)：A(i)=tEnd IfNext iFor i=0 To 9Print A(i)，Next iPrintEnd Sub
相关试题