Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/01 08:59:52

Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As Integer,j As Integer,t As Integer
n = 6
For i = 1 To n - 1
imin = i
For j = i + 1 To n
If ia(j) < ia(imin) Then imin = j
Next j
t = ia(i)
ia(i) = ia(imin)
ia(imin) = t
Next i
这谁编的,数组里都是0有什么好比的,逗我们玩啊还问什么意思
再问：本人刚刚学，不要介意哟！

Dim ia(1 To 10) As Integer,imin As Integer,n As Integer,i As vb程序Dim a(1 To 20) As Integer,i As Integer,j As Integer Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R Dim a(1 To 10) As Integer Dim i As Integer a(1) = 1 For i = VB dim x as integer dim i as integer x = 100 for i = 1 to 10 Function fun(a As Integer,n As Integer) As Integer Dim i As Integer,n As Integer For i = 0 To 50 i = i + 3 n = Private Sub Command1_Click() Dim i As Integer,s As Integer,n dim i as integer dim sum as integer sum=0 for i=0 to 5 sum=s 英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max VB中的Dim sum As Integer语句 dim a(3,2) as integer