85问答库 > 用vb程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Tex

用vb程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Tex

2025-06-27 15:55:00

推荐回答（1个）

回答1：

建一个Command1，单击按钮即可。如果你想检验结果，请把3句开头是'的语句的'去掉。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim a(10)
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Single
For i = 1 To Text1.Text
t = a(10)
For j = 10 To 1 Step -1
a(j) = a(j - 1)
Next
a(0) = t
Next
'For i = 0 To 10
'Print a(i)
'Next
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
a(i) = i
Next
End Sub