VB设计:随机生成100以内的整数30个存入一维数组,按照5个数一行输出
1个回答
展开全部
第一题:
Private Sub Form_Load()
Dim Number(99) As Integer
Dim m,n As Integer
m=0
n=0
Do Until m=100
Number(m)=Int((100 * Rnd) + 0)
m=m+1
Loop
m=0
For n=1 To 20
Print Number(m),Number(m+1),Number(m+2),Number(m+3),Number(m+4)
m=m+5
Next n
End Sub
要把窗体的AutoRedraw属性设置为True才能显示。
另外,“主对角线的元素和”是什么意思?
Private Sub Form_Load()
Dim Number(99) As Integer
Dim m,n As Integer
m=0
n=0
Do Until m=100
Number(m)=Int((100 * Rnd) + 0)
m=m+1
Loop
m=0
For n=1 To 20
Print Number(m),Number(m+1),Number(m+2),Number(m+3),Number(m+4)
m=m+5
Next n
End Sub
要把窗体的AutoRedraw属性设置为True才能显示。
另外,“主对角线的元素和”是什么意思?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |