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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 形成5*5的方阵，分别输出方阵中个元素，上三角和下三角元素的vb代码
北京石油化工学院2026年研究生招生接收调剂公告
51/1返回列表
查看: 7628  |  回复: 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的回帖

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的回帖
查看全部 6 个回答

魔血奋斗历史

银虫 (小有名气)
感谢参与，应助指数 +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的回帖
查看全部 6 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 285求调剂 +4 AZMK 2026-03-27 7/350 2026-03-27 20:59 by AZMK
[考研] 266分求材料化工冶金矿业等专业的调剂 +4 哇呼哼呼哼 2026-03-26 4/200 2026-03-27 17:02 by zhyzzh
[考研] 298调剂 +3 jiyingjie123 2026-03-27 3/150 2026-03-27 11:57 by wxiongid
[考研] 315调剂 +4 0860求调剂 2026-03-26 5/250 2026-03-27 11:23 by wangjy2002
[考研] 292求调剂 +4 求求了收下我吧� 2026-03-26 4/200 2026-03-27 10:37 by zhshch
[考研] 359求调剂 +4 王了个楠 2026-03-25 4/200 2026-03-27 08:43 by 不吃魚的貓
[考研] 342求调剂 +3 加油a李zs 2026-03-26 3/150 2026-03-27 00:29 by wxiongid
[考研] 调剂 +4 柚柚yoyo 2026-03-26 4/200 2026-03-26 20:43 by fmesaito
[考研] 329求调剂 +5 1() 2026-03-22 5/250 2026-03-26 20:40 by fmesaito
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[考研] 297求调剂 +6 田洪有 2026-03-26 6/300 2026-03-26 15:55 by 不吃魚的貓
[考研] 寻找调剂 +5 倔强芒? 2026-03-21 8/400 2026-03-26 13:25 by 0906ljy
[考研] 调剂310 +3 温柔的晚安 2026-03-25 4/200 2026-03-25 23:16 by peike
[考研] 各位老师您好：本人初试372分 +5 jj涌77 2026-03-25 6/300 2026-03-25 14:15 by mapenggao
[考研] 347求调剂 +4 L when 2026-03-25 4/200 2026-03-25 13:37 by cocolv
[考研] 一志愿北化315 求调剂 +3 akrrain 2026-03-24 3/150 2026-03-24 19:35 by 了了了了。。
[考研] 085404电子信息284分求调剂 +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
[考研] 070300，一志愿北航320求调剂 +3 Jerry0216 2026-03-22 5/250 2026-03-23 09:16 by 。。堂堂
[考研] 293求调剂 +3 涛涛Wjt 2026-03-22 5/250 2026-03-22 22:21 by jiangpengfei
[考研] 一志愿东华大学控制学硕320求调剂 +3 Grand777 2026-03-21 3/150 2026-03-21 19:23 by 简之-
信息提示
关闭
请填处理意见
关闭