UC知道vb：有一个已排好序的数组，向该数组中插入三个数，要求按原来排序的规则将它插入到数组中
来源：百度知道 编辑：UC知道 时间：2024/06/25 10:11:26
vb：有一个已排好序的数组，向该数组中插入三个数，要求按原来排序的规则将它插入到数组中
Private Sub Command2_Click()
Dim a(10) As Integer, i%, m%, t%, n%
Dim b(11) As Integer
For i = 0 To 9 '模拟一组数 0-9的
a(i) = i
Print a(i) & ",";
Next i
Print ""
m = CInt(InputBox("输入要插入的数:"))
For i = 0 To 10
If m < a(i) And n = 0 Then
b(i) = m
n = n + 1
Else
b(i) = a(i - n)
End If
Next i
If n = 0 Then b(i - 1) = m
For i = 0 To 10
Print b(i) & ",";
Next i
End Sub
这段代码只能插入1个数,如果要插入3个数,该如何修改?
在线等,谁能帮帮忙啊?急!!!
Private Sub Command2_Click()
Dim a(10) As Integer, i%, m%, t%, n%
Dim b(11) As Integer
For i = 0 To 9 '模拟一组数 0-9的
a(i) = i
Print a(i) & ",";
Next i
Print ""
m = CInt(InputBox("输入要插入的数:"))
For i = 0 To 10
If m < a(i) And n = 0 Then
b(i) = m
n = n + 1
Else
b(i) = a(i - n)
End If
Next i
If n = 0 Then b(i - 1) = m
For i = 0 To 10
Print b(i) & ",";
Next i
End Sub
这段代码只能插入1个数,如果要插入3个数,该如何修改?
在线等,谁能帮帮忙啊?急!!!
Dim a() As Integer
dim i as integer
dim j as integer
dim k as integer
dim m as integer
dim ss as integer
dim var1 as integer
k=5 '要插入5个数字
ss=10'素组原始大小
ReDim a(ss) '重新定义数组大小不保留数据
For i = 0 To ss-1 '模拟一组数 0-9的
a(i) = i
Print a(i) & ",";
Next i
ReDim Preserve a(ss+k) '重新定义数组大小保留原有数据
for k1=0 to k-1 '重复插入数据
m = CInt(InputBox("输入要插入的数:"))
a(ss+k1)=m ‘重复插入数据
next k1
'调整循序
for i=0 to ss+k-1
for j=i to ss+k-1
if a(i)>=a(j) then
var1=a(i)
a(i)=a(j)
a(j)=var1
end if
next j
next i
For i = 0 To ss+k-1
Print a(i) & ",";
Next i