这个我不会 在线等待解决 急.....

shenguaiguai 2007-12-22 09:18:03
如何把label中随机产生的数字 弄成4*3的矩阵啊!

这是我弄的 谁帮我看看啊 谢谢拉

Private Sub Form_Load()
Dim a(1 To 12) As Integer
Dim s As String
Dim n As Integer


Randomize
For i = 1 To 12
a(i) = Int(Rnd * 90) + 10

Label2.Caption = Label2.Caption & Str(a(i))
Next i




Dim k As Integer
k = 1
For i = 1 To 12
If a(k) < a(i) Then
k = i
End If
Next i
Label4.Caption = a(k)

End Sub
...全文
75 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
rexyudl 2007-12-22
  • 打赏
  • 举报
回复

楼主可以把代码扔VB6里运行一下,让VB6帮你看看有没有问题!
若是有问题且你自己又解决不了的话,那么你可以把问题贴出来,让大家帮你再看看!
  • 打赏
  • 举报
回复
你产生了12个随机数,然后只在Label4里显示最大的一个,这个矩阵有什么关系啊?
东方之珠 2007-12-22
  • 打赏
  • 举报
回复
放到4行3列的2维数组中:dim a(1 to 4,1 to 3) as long

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧