作业帮 > 综合 > 作业

随机产生10个0至100的整数,将前五个数字与后五个数字对调,VB程序题

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 23:59:21
随机产生10个0至100的整数,将前五个数字与后五个数字对调,VB程序题
Private Sub Command1_Click()
   Dim a(1 To 10) As Integer, b As Integer
   Randomize
   Print "对调前的数组为:"
   For i = 1 To 10
      a(i) = Int(Rnd * 101)
      Print a(i);
   Next i
   Print
   For i = 1 To 5
      b = a(i): a(i) = a(11 - i): a(11 - i) = b
   Next i
   Print "对调后的数组为:"
   For i = 1 To 10
      Print a(i);
   Next i
End Su