Nextk
'**********FILL**********
ReDimPreservea(n+1)
'数组增加一个元素
Fori=nTokStep-1'数组元素后移一个位置,为插入数留出一个位置
a(i+1)=a(i)
Nexti
a(k)=x'将x插入到空位上
Picture1.PrintvbCrLf+"插入数据后的序列:
"
ForEachvIna
Picture1.Printv;
Nextv
EndSub
PrivateSubCommand1_Click()
End
EndSub
8.利用通用对话框部件,完成文件的打开、保存。
并把打开当前考生文件数据显示在文本框(Text1)中,进行排序,
保存到指定文件中,并且输出到文本框(Text2)中。
'本例排序采用冒泡排序算法,读者可以尝试采用其他算法完成程序。
OptionBase1
DimArr()AsInteger,numAsInteger
PrivateSubCommand4_Click()
End
EndSub
PrivateSubComOpen_Click()
DimiAsInteger
'打开文件之间,应先关闭文件
Close#1
'设置过滤器,只显示文本文件
'**********FILL**********
CommonDialog1.Filter="所有文件(*.*)|*.*|文本文件(.txt)|*.txt|VB程序(.VBP)|*.VBP"
'显示"打开"对话框或使用CommonDialog1.ShowOpen
CommonDialog1.Action=1
IfCommonDialog1.FileName<>""Then
Text1.Text=""
OpenCommonDialog1.FileNameForInputAs#1
'读入文件
DoWhileNotEOF
(1)
i=i+1
ReDimPreserveArr(i)
'**********FILL**********
Input#1,Arr(i)
Text1.Text=Text1.Text&Arr(i)&Space
(2)
Loop
num=i
EndIf
Close#1
EndSub
PrivateSubComSave_Click()
CommonDialog1.Filter="文本文件|*.txt|所有文件|*.*"
'**********FILL**********
CommonDialog1.FilterIndex=2
CommonDialog1.FileName="冒泡排序.txt"'设置默认文件名
CommonDialog1.InitDir=App.Path
CommonDialog1.Action=2'显示"另存为"(SaveAs)对话框
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,Text2'把修改后的Text1文本框内容写到文件中
Close#1
EndSub
PrivateSubCommao_Click()
Text2.Text=""
DimtAsInteger
'冒泡排序
Fori=1Tonum
Forj=i+1Tonum
'**********FILL**********
IfArr(i)>Arr(j)Then
t=Arr(i)
Arr(i)=Arr(j)
Arr(j)=t
EndIf
Nextj
Nexti
Fori=1Tonum
Text2=Text2&Arr(i)&Space
(2)
Next
EndSub
PrivateSubComExit_Click()
End
EndSub
9.将{10,50,23,56,78,50,58,61,