VB程序编写：某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 05:06:42

VB程序编写：某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.
某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.即第1个元素与第20个元素互换,第2个元素与第19个元素互换,…,第10个元素与第11个元素互换.输出数组原来各元素的值和对换后各元素的值.要VB代码!

Private Sub Command1_Click()
Dim a(1 To 20)
For i = 1 To 20
a(i) = Val(InputBox("请你输入第" & i & "个数"))
Next i
Print "交换前的数为"
For i = 1 To 20
Print a(i);
If i Mod 10 = 0 Then Print
Next i
For i = 1 To 10
b = a(i): a(i) = a(21 - i): a(21 - i) = b
Next i
Print "交换后的数为"
For i = 1 To 20
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
再问：一定要这么长才可以？
再答：如果你想短一点也行，当也少不了多少。
再问：麻烦给我一个短点的呗！越短越好~呵呵！多谢了加分了，一会我就采纳！
再答： '记得将窗体的.AutoRedraw 属性设为true,以免数字被遮挡后不显示Private Sub Command1_Click() Dim a(1 To 20) Print "交换前的数为" For i = 1 To 20 a(i) = Val(InputBox("请你输入第" & i & "个数")) Print a(i); If i Mod 10 = 0 Then Print Next i For i = 1 To 10 b = a(i): a(i) = a(21 - i): a(21 - i) = b Next i Print "交换后的数为" For i = 1 To 20 Print a(i); If i Mod 10 = 0 Then Print Next i End Sub

VB程序编写：某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换. VB编程：键盘上输入10个整数,放入一个一维数组中,然后将其5个元素与后5个元素对换,即：第一个元素与第十个元素互换,第 vb题,从键盘上输入10个整数,并放入一个一维数组,将其前5个元素和后5个元素对换,即第一个与第十个,第二 c++从键盘上输入10个整数,并放入一个一维数组中,然后将其前5个元素与后5个元素对换, VB编写程序,生成一个10个元素的随机整数组,数组元素的范围0-100,要求将这个数组的最大值和最小值的位置对调某数组有20个元素,分别为1、2、…、20,用vb将其前十个元素和后十个元素对调,即将第1个元素 vb编写程序：一个具有10个元素的一维数组,下标从1到10,要求用inputbox从键盘上输入其元素值,并找出最小的那个有一个存放10个整数的数组,要求找出最小的数和它的下标.然后把它和数组中的第一个元素对换 VB编程,分别用选择排序法和冒泡排序法实现有N个元素数组的排序.N由键盘输入,数组元素的值在1~200之间,随机产生假定某一个数组有10个元素（下标值从1开始）,各元素的值是在1到100之内的整数,通过随机函数产生.现要求编写程序,对这假定某一个数组有10个元素（下标值从1开始）,各元素的值是在1到100之内的整数,通过随机函数产生.现在要求编写程序,对有一个数组.内放10个整数,要求找出最小的数和它的下标,然后和数组中最前面的元素对换.