作业帮（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中（2）单击输入按钮,弹出一个输入对话框,接收用户输入的任意一个整数（3）单击插入按
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/30 13:13:24
（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中（2）单击输入按钮,弹出一个输入对话框,接收用户输入的任意一个整数（3）单击插入按
（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中
（2）单击输入按钮,弹出一个输入对话框,接收用户输入的任意一个整数
（3）单击插入按钮,将输入的数插入A数组中合适的位置,使其仍保持A数组的升序排列,最后将A数组的内容重新显示在Text1中.代码如下：
Dim a(100) As Integer,num As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in4.dat" For Input As #1
For k = 1 To 60
Input #1,a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
num = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To 60
'If num < a(i) Then
Next i
'For j = 60 To i
'a(j + 1)
Next j
= num
Text1 = ""
'以下程序段将插入后的数组A重新显示在Text1中
'For k = 1 To
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End Sub
（1）单击读数据按钮,把考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组A,并显示在text1中（2）单击输入按钮,弹出一个输入对话框,接收用户输入的任意一个整数（3）单击插入按
Dim a(100) As Integer,num As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in4.dat" For Input As #1
For k = 1 To 60
Input #1,a(k)
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
Close #1
End Sub
Private Sub Command2_Click()
num = InputBox("请输入一个数")
End Sub
Private Sub Command3_Click()
For i = 1 To 60
'If num < a(i) Then exit for
Next i
For j = 60 To i step=-1
a(j + 1) =a(j)
Next j
a(i)= num
Text1 = ""
'以下程序段将插入后的数组A重新显示在Text1中
'For k = 1 To 61
Text1 = Text1 + Str(a(k)) + Space(2)
Next k
End Sub
这段程序其实有点问题,它不能实现连续插入数字,只能插入一个数字.