产生100个20~100之间的随机整数,赋予A数组。在图形框中每10个输出该数组,在标签框中输出数组元素中的最大值、最小值。 现在可以算出来。但它显示就是100个数挤一行去了😭
图形框,这里我用的是Picture,每一列显示10个数字,逢10换行
题主可以参考一下
代码
Option Base 1
Option Explicit
Private Sub Command1_Click()
Dim a(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
a(i, j) = Int(Rnd * 80) + 20
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
End Sub
代码效果
若回答解决了问题,还请题主予以采纳
计算好图形框的宽度,数字之间打印空格。
你每隔10个,就用vbNewLine换一下行就可以了。
您好,我是有问必答小助手,您的问题已经有小伙伴解答了,您看下是否解决,可以追评进行沟通哦~
如果有您比较满意的答案 / 帮您提供解决思路的答案,可以点击【采纳】按钮,给回答的小伙伴一些鼓励哦~~
ps:问答VIP仅需29元,即可享受5次/月 有问必答服务,了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632