數(shù)組元素說明書(編輯修改稿)
2025-08-31 00:07 本頁面
【文章內(nèi)容簡介】 a(i) = Int(Rnd() * 32768 + 1) = + Str(a(i)) Next i = True = True = False = FalseEnd SubPrivate Sub OrderA11_Click(Index As Integer) For i = LBound(a) To UBound(a) 1 For j = i + 1 To UBound(a) If a(i) a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next i For i = 1 To n = + Str(a(i)) Next i = True = TrueEnd SubPrivate Sub OrderD11_Click(Index As Integer) For i = LBound(a) + 1 To UBound(a) 1 For j = i + 1 To UBound(a) If a(i) a(j) Then temp = a(i) a(i) = a(j) a(j) = temp End If Next j Next i For i = 1 To n = + Str(a(i)) Next i = True = TrueEnd SubPrivate Sub In1_Click() = S = Val(InputBox(請輸入要插入的數(shù)據(jù))) ReDim Preserve a(n + 1) If a(1) a(2) Then For i = 1 To n If S a(i) Then For j = n To i Step 1 a(j + 1) = a(j) Next j a(i) = S Exit For End If Next i End If If S a(n) Then a(n + 1) = S End If If a(1) a(2) Then For i = 1 To n If S a(i) Then For j = n To i Step 1
外語相關(guān)推薦
鄂ICP備17016276號-1