解答VB程序试题

来源：百度知道 编辑：UC知道 时间：2024/06/15 06:20:23
老师出了一道VB编程的填空题，请各位帮忙看“请填空”那里要填什么，谢了！

编写程序：将一维数组中元素向右循环移位，移位次数键盘输入（如：数组各元素的值依次为0，1，2，3，4，5，6，7，8，9；位移3次后得7，8，9，0，1，2，3，4，5，6）

Dim a(9)As Integer,n As Integer
Dim i As Integer, t As Integer
Rem 打印输出移位前的顺序
Print“移位前：”
For i= 请填空
a(i)=i
Print a(i)
Next i
Rem 移位的过程
n=Val (Input Box (“请输入移位次数”))
For i=1 To 请填空
请填空
For j=8 to 0 Step -1
请填空
Next j
请填空=t
Next i
Rem 打印输出移位后的顺序
Print
Print “移位后：“
For i=0 To 9
Print a(i)
Next i
End Sub

Private Sub Form_click()
Dim a(9) As Integer, n As Integer
Dim i As Integer, t As Integer
Rem 打印输出移位前的顺序

For i = 0 To 9
a(i) = i
Print a(i)
Next i
Rem 移位的过程
n = Val(InputBox("请输入移位次数"))

For i = 1 To n
t = a(9)
For j = 8 To 0 Step -1
a(j + 1) = a(j)
Next j
a(0) = t
Next i
Rem 打印输出移位后的顺序
Print

For i = 0 To 9
Print a(i)
Next i

End Sub

试试吧~

Dim a(9)As Integer,n As Integer
Dim i As Integer, t As Integer
Rem 打印输出移位前的顺序
Print“移位前：”
For i=0 to 9
a(i)=i
Print a(i)
Next i
Rem 移位的过程
n=Val (Input Box (“请输入移位次数”))
For i=1 To n
t=a(9)
For j=8 to 0 Step -1
a(j+1)=a(j)
Next j
a(0)=t
Next i
Rem 打印输出移位后的顺序
Print
Print “移位后：“
For i=0 To 9
Print a(i)
Next i
End Sub

南亚

有点难！！