欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

Dim a() As Integer, i As Integer, j As Integer, k As Integer

Private Sub Command1_Click()
Dim k As Integer
k = Val(Text1.Text)
For i = 1 To 6
   If k < a(i) Then
      Exit For
   End If
Next i
For j = 6 To i Step -1
   a(j + 1) = a(j)
Next j
a(i) = k
For i = 1 To 7
   Print a(i);
Next i
Print
End Sub

Private Sub Command2_Click()
Dim k1 As Integer
k1 = Val(Text1.Text)
For i = 1 To 7
If k1 = a(i) Then Exit For
Next i
For j = i + 1 To 7
   a(j - 1) = a(j)
Next j
For i = 1 To 6
   Print a(i);
Next i
End Sub

Private Sub Command3_Click()
ReDim a(1 To 7) As Integer
For i = 1 To 6
   a(i) = Int(Rnd * 101)
Next i
For i = 6 To 2 Step -1
   For j = 1 To i - 1
      If a(j) > a(j + 1) Then
         t = a(j)
         a(j) = a(j + 1)
         a(j + 1) = t
      End If
   Next j
Next i
For i = 1 To 6
   Print a(i);
Next i
Print
End Sub

Private Sub Form_Load()
Label1.Caption = "請輸入要刪除或插入的數"
Text1 = ""
Command1.Caption = "插入"
Command2.Caption = "刪除"
Command3.Caption = "生成隨機序數"
End Sub