 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 7636 | 回復(fù): 5 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
gyh930912銀蟲 (小有名氣)
|
[求助]
形成5*5的方陣，分別輸出方陣中個(gè)元素，上三角和下三角元素的vb代碼
|
||
各位高手，小弟急需這個(gè)代碼，如有知道滴，謝謝分享！�。� |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺(tái)，不對(duì)該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識(shí)產(chǎn)權(quán)問(wèn)題，其責(zé)任在于用戶本人，如對(duì)版權(quán)有異議，請(qǐng)聯(lián)系郵箱：xiaomuchong@tal.com - 附件 1 : IMG_20130520_094058.jpg
2013-05-25 21:39:55, 811.08 K
» 猜你喜歡
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑
已經(jīng)有8人回復(fù)
-
349求調(diào)劑
已經(jīng)有6人回復(fù)
-
329求調(diào)劑
已經(jīng)有9人回復(fù)
-
求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601）
已經(jīng)有9人回復(fù)
-
327求調(diào)劑
已經(jīng)有5人回復(fù)
-
求收留
已經(jīng)有5人回復(fù)
-
375求調(diào)劑
已經(jīng)有4人回復(fù)
-
340求調(diào)劑
已經(jīng)有6人回復(fù)
-
298求調(diào)劑
已經(jīng)有3人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有9人回復(fù)
ausir
木蟲 (正式寫手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 2009.2
- 紅花: 4
- 帖子: 500
- 在線: 178.9小時(shí)
- 蟲號(hào): 1939287
- 注冊(cè): 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 = "請(qǐng)輸入第" & 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
魔血奮斗歷史
銀蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 842.5
- 帖子: 261
- 在線: 28.1小時(shí)
- 蟲號(hào): 2473430
- 注冊(cè): 2013-05-20
- 專業(yè): 有機(jī)合成
2樓2013-05-25 22:15:29
魔血奮斗歷史
銀蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 842.5
- 帖子: 261
- 在線: 28.1小時(shí)
- 蟲號(hào): 2473430
- 注冊(cè): 2013-05-20
- 專業(yè): 有機(jī)合成
3樓2013-05-25 22:23:45
ausir
木蟲 (正式寫手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 2009.2
- 紅花: 4
- 帖子: 500
- 在線: 178.9小時(shí)
- 蟲號(hào): 1939287
- 注冊(cè): 2012-08-15
- 性別: GG
- 專業(yè): 集成電路制造與封裝
|
稍作修改。 1. theMat的定義只要1 to 5, 1 to 5 就夠了。 2. 用Debug.print 可以在即時(shí)窗口中顯示結(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 = "請(qǐng)輸入第" & 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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 316求調(diào)劑 +7 | 江辭666 2026-03-26 | 7/350 |
|
|---|---|---|---|---|
|
|
[考研] 071000生物學(xué)求調(diào)劑，初試成績(jī)343 +7 | 小小甜面團(tuán) 2026-03-25 | 7/350 |
|
|
|
[考研] 275求調(diào)劑 +10 | Micky11223 2026-03-25 | 14/700 |
|
|
|
[考研] 283求調(diào)劑 +3 | A child 2026-03-28 | 3/150 |
|
|
[考研] 復(fù)試調(diào)劑 +3 | raojunqi0129 2026-03-28 | 3/150 |
|
|
|
[考研] 304求調(diào)劑 +6 | 曼殊2266 2026-03-27 | 6/300 |
|
|
|
[考研] 0703本科鄭州大學(xué)求調(diào)劑 +3 | nhj_ 2026-03-25 | 3/150 |
|
|
|
[考研] 085602 307分 求調(diào)劑 +7 | 不知道叫什么！ 2026-03-26 | 7/350 |
|
|
|
[考研] 085404求調(diào)劑，總分309，本科經(jīng)歷較為豐富 +4 | 來(lái)財(cái)aa 2026-03-25 | 4/200 |
|
|
|
[考研] 315分求調(diào)劑 +7 | 26考研上岸版26 2026-03-26 | 7/350 |
|
|
|
[考研] 275求調(diào)劑 +10 | jjjjjjjjjjl 2026-03-27 | 10/500 |
|
|
|
[考研] 070300化學(xué)求調(diào)劑 +4 | 起個(gè)名咋這么難 2026-03-27 | 4/200 |
|
|
|
[考研]
材料學(xué)碩，求調(diào)劑
 6+5
|
糖葫蘆888ll 2026-03-22 | 10/500 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +3 | 崔wj 2026-03-26 | 3/150 |
|
|
|
[考研] 281求調(diào)劑 +3 | 亞克西good 2026-03-26 | 5/250 |
|
|
|
[考研] 289求調(diào)劑 +17 | 碩星赴 2026-03-23 | 17/850 |
|
|
|
[考研] 一志愿哈工大，085400，320，求調(diào)劑 +4 | gdlf9999 2026-03-24 | 4/200 |
|
|
|
[考研] 303求調(diào)劑 +6 | 藍(lán)山月 2026-03-25 | 6/300 |
|
|
|
[考研] 材料與化工304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-25 | 3/150 |
|
|
|
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑 +7 | 墨墨漠 2026-03-23 | 8/400 |
|