| 查看: 7629 | 回复: 5 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
形成5*5的方阵，分别输出方阵中个元素，上三角和下三角元素的vb代码
|
|||
各位高手，小弟急需这个代码，如有知道滴，谢谢分享！！！ |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : IMG_20130520_094058.jpg
2013-05-25 21:39:55, 811.08 K
» 猜你喜欢
086502化学工程342求调剂
已经有5人回复
-
材料求调剂 一志愿哈工大总分298分，前三科223分
已经有5人回复
-
085600 286分 材料求调剂
已经有6人回复
-
材料求调剂一志愿哈工大324
已经有7人回复
-
328求调剂
已经有7人回复
-
340求调剂
已经有5人回复
-
一志愿南昌大学324求调剂
已经有4人回复
-
求调剂推荐 材料 304
已经有15人回复
-
291求调剂
已经有19人回复
-
331环境科学与工程求调剂
已经有3人回复
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
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. 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
