VB上机题:输入一个正整数n,再定义一个有n个元素的一维数组实在不会做,有赏币的~输入一个正整数n,再定义一个有n个元素的一维数组,生成n个-50~50范围内的随机整数,保存到数组中,然后将数

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 04:32:20

VB上机题:输入一个正整数n,再定义一个有n个元素的一维数组实在不会做,有赏币的~输入一个正整数n,再定义一个有n个元素的一维数组,生成n个-50~50范围内的随机整数,保存到数组中,然后将数
VB上机题:输入一个正整数n,再定义一个有n个元素的一维数组
实在不会做,有赏币的~输入一个正整数n,再定义一个有n个元素的一维数组,生成n个-50~50范围内的随机整数,保存到数组中,然后将数组两端的元素对调,即将第一个元素与第n个元素对调,将第二个元素与第n-1个元素对调.,分别输出对调后前后的数组元素.

VB上机题:输入一个正整数n,再定义一个有n个元素的一维数组实在不会做,有赏币的~输入一个正整数n,再定义一个有n个元素的一维数组,生成n个-50~50范围内的随机整数,保存到数组中,然后将数
Private Sub Command1_Click()
Dim a() As Integer
n = Val(InputBox("N="))
ReDim a(n)
Print "Before:"
For i = 1 To n
  a(i) = Int(101 * Rnd) - 50
  Print a(i);
  If i Mod 10 = 0 Then Print
Next i
i = 1:j = n
While i < j
  t = a(i):a(i) = a(j):a(j) = t
  i = i + 1:j = j - 1
Wend
Print "After:"
For i = 1 To n
  Print a(i);
  If i Mod 10 = 0 Then Print
Next i
End Sub