| 查看: 7984 | 回复: 5 | ||
[求助]
形成5*5的方阵，分别输出方阵中个元素，上三角和下三角元素的vb代码
|
各位高手，小弟急需这个代码，如有知道滴，谢谢分享！！！ |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : IMG_20130520_094058.jpg
2013-05-25 21:39:55, 811.08 K
» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有8人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有8人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有7人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有10人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有11人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有8人回复
2楼2013-05-25 22:15:29
3楼2013-05-25 22:23:45
ausir
木虫 (正式写手)
- 应助: 18 (小学生)
- 金币: 2009.2
- 红花: 4
- 帖子: 500
- 在线: 178.9小时
- 虫号: 1939287
- 注册: 2012-08-15
- 性别: GG
- 专业: 集成电路制造与封装
【答案】应助回帖
感谢参与，应助指数 +1
|
在 Excel 的VBA 工程中，添加用户模块，按以下方式运行： Sub Matrix() Dim theMat(0 To 5, 1 To 5) As Single Dim s As String, s1 As String, s2 As String, s3 As String, s10 As String, s20 As String, s30 As String Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 's = "请输入第" & CStr(i) & "行第" & CStr(j) & "列的数值" theMat(i, j) = (i - 1) * 5 + j 'Val(InputBox(s, ""  )Next j Next i 'MsgBox ("输入完成，按确定后显示输入的阵列。" s1 = "" s2 = "" s3 = "" For i = 1 To 5 s10 = "" s20 = "" s30 = "" For j = 1 To 5 s10 = s10 & Format(theMat(i, j), "0000" & " "If i <= j Then s20 = s20 & Format(theMat(i, j), "0000" & " " Else s20 = s20 & Format(0, "0000" & " "If i >= j Then s30 = s30 & Format(theMat(i, j), "0000" & " " Else s30 = s30 & Format(0, "0000" & " "Next j s1 = s1 & s10 & vbCr & vbLf s2 = s2 & s20 & vbCr & vbLf s3 = s3 & s30 & vbCr & vbLf Next i MsgBox ("原始值如下：" & vbCrLf & s1 & vbCrLf & "上三角矩阵如下：" & vbCrLf & s2 & vbCrLf & "下三角矩阵为：" & vbCrLf & s3) End Sub 运行结果如下： 原始值如下： 0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 0016 0017 0018 0019 0020 0021 0022 0023 0024 0025 上三角矩阵如下： 0001 0002 0003 0004 0005 0000 0007 0008 0009 0010 0000 0000 0013 0014 0015 0000 0000 0000 0019 0020 0000 0000 0000 0000 0025 下三角矩阵为： 0001 0000 0000 0000 0000 0006 0007 0000 0000 0000 0011 0012 0013 0000 0000 0016 0017 0018 0019 0000 0021 0022 0023 0024 0025 |
4楼2013-05-25 23:31:22
ausir
木虫 (正式写手)
- 应助: 18 (小学生)
- 金币: 2009.2
- 红花: 4
- 帖子: 500
- 在线: 178.9小时
- 虫号: 1939287
- 注册: 2012-08-15
- 性别: GG
- 专业: 集成电路制造与封装
|
稍作修改。 1. theMat的定义只要1 to 5, 1 to 5 就够了。 2. 用Debug.print 可以在即时窗口中显示结果。 Sub Matrix() Dim theMat(1 To 5, 1 To 5) As Single Dim s As String, s1 As String, s2 As String, s3 As String, s10 As String, s20 As String, s30 As String Dim i As Integer, j As Integer For i = 1 To 5 For j = 1 To 5 's = "请输入第" & CStr(i) & "行第" & CStr(j) & "列的数值" theMat(i, j) = (i - 1) * 5 + j 'Val(InputBox(s, "" )Next j Next i 'MsgBox ("输入完成，按确定后显示输入的阵列。" s1 = "" s2 = "" s3 = "" For i = 1 To 5 s10 = "" s20 = "" s30 = "" For j = 1 To 5 s10 = s10 & Format(theMat(i, j), "0000" & " "If i <= j Then s20 = s20 & Format(theMat(i, j), "0000" & " " Else s20 = s20 & Format(0, "0000" & " "If i >= j Then s30 = s30 & Format(theMat(i, j), "0000" & " " Else s30 = s30 & Format(0, "0000" & " "Next j s1 = s1 & s10 & vbCr & vbLf s2 = s2 & s20 & vbCr & vbLf s3 = s3 & s30 & vbCr & vbLf Next i s = "原始值如下：" & vbCrLf & s1 & vbCrLf & "上三角矩阵如下：" & vbCrLf & s2 & vbCrLf & "下三角矩阵为：" & vbCrLf & s3 MsgBox (s) Debug.Print s End Sub |
5楼2013-05-25 23:34:25
6楼2013-05-27 12:51:30
50