 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 7634 | 回復(fù): 5 | ||
gyh930912銀蟲 (小有名氣)
|
[求助]
形成5*5的方陣，分別輸出方陣中個元素，上三角和下三角元素的vb代碼
|
各位高手，小弟急需這個代碼，如有知道滴，謝謝分享！��！ |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責(zé)任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com - 附件 1 : IMG_20130520_094058.jpg
2013-05-25 21:39:55, 811.08 K
» 猜你喜歡
309求調(diào)劑
已經(jīng)有3人回復(fù)
-
070300化學(xué)354求調(diào)劑
已經(jīng)有4人回復(fù)
-
330分求調(diào)劑
已經(jīng)有3人回復(fù)
-
299求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑
已經(jīng)有6人回復(fù)
-
300求調(diào)劑，材料科學(xué)英一數(shù)二
已經(jīng)有8人回復(fù)
-
招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑
已經(jīng)有5人回復(fù)
-
070305高分子化學(xué)與物理 304分求調(diào)劑
已經(jīng)有7人回復(fù)
-
289求調(diào)劑
已經(jīng)有13人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有9人回復(fù)
魔血奮斗歷史
銀蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 842.5
- 帖子: 261
- 在線: 28.1小時
- 蟲號: 2473430
- 注冊: 2013-05-20
- 專業(yè): 有機(jī)合成
2樓2013-05-25 22:15:29
魔血奮斗歷史
銀蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 842.5
- 帖子: 261
- 在線: 28.1小時
- 蟲號: 2473430
- 注冊: 2013-05-20
- 專業(yè): 有機(jī)合成
3樓2013-05-25 22:23:45
ausir
木蟲 (正式寫手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 2009.2
- 紅花: 4
- 帖子: 500
- 在線: 178.9小時
- 蟲號: 1939287
- 注冊: 2012-08-15
- 性別: GG
- 專業(yè): 集成電路制造與封裝
【答案】應(yīng)助回帖
感謝參與，應(yīng)助指數(shù) +1
|
在 Excel 的VBA 工程中，添加用戶模塊，按以下方式運(yùn)行： 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) & "列的數(shù)值" 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 運(yùn)行結(jié)果如下： 原始值如下： 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
木蟲 (正式寫手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 2009.2
- 紅花: 4
- 帖子: 500
- 在線: 178.9小時
- 蟲號: 1939287
- 注冊: 2012-08-15
- 性別: GG
- 專業(yè): 集成電路制造與封裝
|
稍作修改。 1. theMat的定義只要1 to 5, 1 to 5 就夠了。 2. 用Debug.print 可以在即時窗口中顯示結(jié)果。 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) & "列的數(shù)值" 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
銀蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 25.5
- 散金: 27
- 帖子: 91
- 在線: 82.6小時
- 蟲號: 2272170
- 注冊: 2013-02-02
- 專業(yè): 有機(jī)合成
6樓2013-05-27 12:51:30
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 gyh930912 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動285求調(diào)劑 +3 | AZMK 2026-03-27 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 320分，材料與化工專業(yè)，求調(diào)劑 +9 | 一定上岸aaa 2026-03-27 | 13/650 |
|
|
|
[考研] 299求調(diào)劑 +7 | 嗯嗯嗯嗯2 2026-03-27 | 7/350 |
|
|
|
[考研] 283求調(diào)劑 +7 | A child 2026-03-28 | 7/350 |
|
|
|
[考研] 0856，材料與化工321分求調(diào)劑 +12 | 大饞小子 2026-03-27 | 13/650 |
|
|
|
[考研] 292求調(diào)劑 +14 | 鵝鵝鵝額額額額?/a> 2026-03-25 | 15/750 |
|
|
|
[考研] 265求調(diào)劑 +8 | 小木蟲085600 2026-03-27 | 8/400 |
|
|
|
[考研] 085600材料與化工調(diào)劑 +10 | A-哆啦Z夢 2026-03-23 | 16/800 |
|
|
|
[考研] 348求調(diào)劑 +4 | 小懶蟲不懶了 2026-03-27 | 5/250 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +4 | 崔wj 2026-03-26 | 4/200 |
|
|
|
[考研] 351求調(diào)劑 +4 | 麥克阿磊 2026-03-24 | 4/200 |
|
|
|
[考研] 材料科學(xué)與工程 317求調(diào)劑 +4 | JKSOIID 2026-03-26 | 4/200 |
|
|
|
[考研] 081700 調(diào)劑 267分 +11 | 迷人的哈哈 2026-03-23 | 11/550 |
|
|
|
[考研] 一志愿哈工大，085400，320，求調(diào)劑 +4 | gdlf9999 2026-03-24 | 4/200 |
|
|
|
[考研] 各位老師您好：本人初試372分 +5 | jj涌77 2026-03-25 | 6/300 |
|
|
|
[考研] 285求調(diào)劑 +3 | AZMK 2026-03-24 | 3/150 |
|
|
|
[考研] B區(qū)考研調(diào)劑 +4 | yqdszhdap－ 2026-03-22 | 5/250 |
|
|
|
[考研] 284求調(diào)劑 +3 | yanzhixue111 2026-03-23 | 6/300 |
|
|
|
[考研] 269求調(diào)劑 +4 | 我想讀研11 2026-03-23 | 4/200 |
|
|
|
[考研] 280分求調(diào)劑 一志愿085802 +4 | PUMPT 2026-03-22 | 7/350 |
|