应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 形成5*5的方阵，分别输出方阵中个元素，上三角和下三角元素的vb代码
北京石油化工学院2026年研究生招生接收调剂公告
61/1返回列表
查看: 7627  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

gyh930912

银虫 (小有名气)

[求助] 形成5*5的方阵，分别输出方阵中个元素，上三角和下三角元素的vb代码

各位高手，小弟急需这个代码，如有知道滴，谢谢分享！！！
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : IMG_20130520_094058.jpg
    • 2013-05-25 21:39:55, 811.08 K

» 猜你喜欢
1楼 2013-05-25 21:45:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

魔血奋斗历史

银虫 (小有名气)
感谢参与，应助指数 +1
ben_ladeng: 应助指数-1, 非有效应助，收回应助指数。谢谢理解 2013-05-26 20:59:29
简单，你等一会，我给你编一个发过来
赞一下 回复此楼
2楼2013-05-25 22:15:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

魔血奋斗历史

银虫 (小有名气)
不好意思，长时间不玩这个，忘了
赞一下 回复此楼
3楼2013-05-25 22:23:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ausir

木虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ausir

木虫 (正式写手)
稍作修改。 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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gyh930912

银虫 (小有名气)
引用回帖:
5楼: Originally posted by ausir at 2013-05-25 23:34:25
稍作修改。 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, ...

谢谢!!!
回复此楼
6楼2013-05-27 12:51:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 gyh930912 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料求调剂一志愿哈工大324 +6 闫旭东 2026-03-28 7/350 2026-03-28 04:36 by wxiongid
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 283求调剂（080500） +4 A child 2026-03-27 4/200 2026-03-27 15:34 by XPU李庆
[考研] 一志愿北京化工大学材料与化工 264分各科过A区国家线 +10 哈哈157349 2026-03-21 10/500 2026-03-27 13:06 by zzll406
[考研] 316求调剂 +5 Pigcasso 2026-03-24 5/250 2026-03-27 12:10 by zhshch
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
[考研] 材料与化工考研调剂 +16 孅華 2026-03-22 16/800 2026-03-27 11:23 by 王笑宇一定是研�
[考研] 材料调剂 +8 匹克i 2026-03-23 8/400 2026-03-27 08:11 by hypershenger
[考研] 284求调剂 +11 junqihahaha 2026-03-26 12/600 2026-03-27 04:37 by wxiongid
[考研] 一志愿北化求调剂 +3 Jsman 2026-03-22 3/150 2026-03-26 21:06 by ajpv风雷
[考研] 求调剂 +5 芦lty 2026-03-25 6/300 2026-03-26 20:49 by 不吃魚的貓
[考研] 085601求调剂总分293英一数二 +4 钢铁大炮 2026-03-24 4/200 2026-03-26 16:28 by dick_runner
[考研] 一志愿天津大学339材料与化工求调剂 +3 江往卖鱼 2026-03-26 3/150 2026-03-26 09:42 by 王小欠i
[考研] 考研调剂 +6 来好运来来来 2026-03-21 7/350 2026-03-25 22:43 by 418490947
[考研] 求调剂 +3 QiMing7 2026-03-25 3/150 2026-03-25 21:13 by 给你你注意休息
[考研] 26考研-291分-厦门大学（085601）-柔性电子学院材料工程专业求调剂 +3 min3 2026-03-24 4/200 2026-03-25 18:22 by xcjcqu
[考研] 341求调剂(一志愿湖南大学070300) +5 番茄头--- 2026-03-22 6/300 2026-03-23 23:45 by Txy@872106
[考研] 315分，诚求调剂，材料与化工085600 +3 13756423260 2026-03-22 3/150 2026-03-22 20:11 by edmund7
[考研] 求调剂一志愿海大，0703化学学硕304分，有大创项目，四级已过 +6 幸运哩哩 2026-03-22 10/500 2026-03-22 20:10 by edmund7
[考研] 材料与化工（0856）304求 B区 调剂 +3 邱gl 2026-03-21 3/150 2026-03-21 13:47 by lature00
信息提示
关闭
请填处理意见
关闭