作业帮VB程序编写：某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.即第1个元素与第20个元素
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 13:11:02
VB程序编写：某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.即第1个元素与第20个元素
VB程序编写：某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.
某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.即第1个元素与第20个元素互换,第2个元素与第19个元素互换,…,第10个元素与第11个元素互换.输出数组原来各元素的值和对换后各元素的值.要VB代码!
VB程序编写：某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.某数组有20个元素,元素的值由键盘输入,要求将前10个元素与后10个元素对换.即第1个元素与第20个元素
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