vb编程:随机产生10个1到20之间的整数,放在数组A中,然后将A的元素倒序存放,即第一个变为最后
vb编程:随机产生10个1到20之间的整数,放在数组A中,然后将A的元素倒序存放,即第一个变为最后一个,第二个变为倒数第二个。...
vb编程:随机产生10个1到20之间的整数,放在数组A中,然后将A的元素倒序存放,即第一个变为最后一个,第二个变为倒数第二个。
展开
3个回答
展开全部
展开全部
Private Sub Form_click() '单击窗体
Dim a(1 To 10)
Randomize
Print "原数组:";
For i = 1 To 10
a(i) = Int(Rnd * 20 + 1)
Print a(i); " ";
Next
Print
Print "调换后:";
For i = 1 To 5
t = a(i)
a(i) = a(11 - i)
a(11 - i) = t
Next
For i = 1 To 10
Print a(i); " ";
Next
End Sub
双击窗体 打开代码窗口 清楚里面所有内容 复制上面代码进去~ 按F5运行 点击窗体 显示效果
Dim a(1 To 10)
Randomize
Print "原数组:";
For i = 1 To 10
a(i) = Int(Rnd * 20 + 1)
Print a(i); " ";
Next
Print "调换后:";
For i = 1 To 5
t = a(i)
a(i) = a(11 - i)
a(11 - i) = t
Next
For i = 1 To 10
Print a(i); " ";
Next
End Sub
双击窗体 打开代码窗口 清楚里面所有内容 复制上面代码进去~ 按F5运行 点击窗体 显示效果
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Option Base 1
Private Sub Command1_Click()
Dim s(10) As Integer
For i = 1 To 10
s(i) = Rnd() * 10+10
Print s(i)
Next i
Print "以上是初始的10个随机整数"
For a = 10 To 1 Step -1
Print s(a)
Next a
Print "以上逆转顺序后的10个随机整数"
End Sub
Private Sub Command1_Click()
Dim s(10) As Integer
For i = 1 To 10
s(i) = Rnd() * 10+10
Print s(i)
Next i
Print "以上是初始的10个随机整数"
For a = 10 To 1 Step -1
Print s(a)
Next a
Print "以上逆转顺序后的10个随机整数"
End Sub
更多追问追答
追问
请问用vb怎么编程?
追答
你刚学吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询