VB编程随机产生10个30~100(包括30和100)的正整数,选择一个数,将其从数组中删除.

Question

如题所述

Answer 1

Private Sub Form_click()
   Dim a(1 To 10) As Integer, n As Integer
   Randomize
   Cls
   For i = 1 To 10
      a(i) = Int(Rnd * 71 + 30)
      Print a(i);
   Next i
   Print
   n = Val(InputBox("请输入要删除的数的下标！"))
   Select Case n
      Case 1 To 10
         For i = n To 9
            a(i) = a(i + 1)
         Next i
         For i = 1 To 9
            Print a(i);
         Next i
         Print
       Case Else
         MsgBox "输入的数不符合要求！"
    End Select
End Sub