【答案】应助回帖

» 本帖附件资源列表

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

2013-05-25 21:39:55, 811.08 K

» 猜你喜欢

AI论文写作工具：是科研加速器还是学术作弊器？已经有5人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有8人回复
寻求一种能扛住强氧化性腐蚀性的容器密封件已经有7人回复
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有8人回复
申请2026年博士已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有5人回复
2025冷门绝学什么时候出结果已经有7人回复

1楼2013-05-25 21:45:17

魔血奋斗历史

银虫 (小有名气)

应助: 1 (幼儿园)
金币: 842.5
帖子: 261
在线: 28.1小时
虫号: 2473430
注册: 2013-05-20
专业: 有机合成

感谢参与，应助指数 +1
ben_ladeng: 应助指数-1, 非有效应助，收回应助指数。谢谢理解 2013-05-26 20:59:29

简单，你等一会，我给你编一个发过来

2楼2013-05-25 22:15:29

魔血奋斗历史

银虫 (小有名气)

应助: 1 (幼儿园)
金币: 842.5
帖子: 261
在线: 28.1小时
虫号: 2473430
注册: 2013-05-20
专业: 有机合成

不好意思，长时间不玩这个，忘了

3楼2013-05-25 22:23:45

ausir

木虫 (正式写手)

应助: 18 (小学生)
金币: 2008.2
红花: 4
帖子: 500
在线: 178.5小时
虫号: 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 (小学生)
金币: 2008.2
红花: 4
帖子: 500
在线: 178.5小时
虫号: 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

gyh930912

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 25.5
散金: 27
帖子: 91
在线: 82.5小时
虫号: 2272170
注册: 2013-02-02
专业: 有机合成

引用回帖:

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