 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 7635 | 回復(fù): 5 | ||
gyh930912銀蟲(chóng) (小有名氣)
|
[求助]
形成5*5的方陣，分別輸出方陣中個(gè)元素，上三角和下三角元素的vb代碼
|
各位高手，小弟急需這個(gè)代碼，如有知道滴，謝謝分享�。�！ |
回復(fù)此樓» 本帖附件資源列表
-
歡迎監(jiān)督和反饋：小木蟲(chóng)僅提供交流平臺(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
» 猜你喜歡
考研調(diào)劑
已經(jīng)有3人回復(fù)
-
317分 一志愿南理工材料工程 本科湖工大 求調(diào)劑
已經(jīng)有9人回復(fù)
-
297求調(diào)劑
已經(jīng)有10人回復(fù)
-
一志愿武漢理工，總分321，英一數(shù)二，求老師收留。
已經(jīng)有10人回復(fù)
-
343求調(diào)劑
已經(jīng)有5人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有7人回復(fù)
-
求調(diào)劑，一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分
已經(jīng)有6人回復(fù)
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷
已經(jīng)有5人回復(fù)
-
340求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿北化求調(diào)劑
已經(jīng)有4人回復(fù)
魔血奮斗歷史
銀蟲(chóng) (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 842.5
- 帖子: 261
- 在線: 28.1小時(shí)
- 蟲(chóng)號(hào): 2473430
- 注冊(cè): 2013-05-20
- 專業(yè): 有機(jī)合成
2樓2013-05-25 22:15:29
魔血奮斗歷史
銀蟲(chóng) (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 842.5
- 帖子: 261
- 在線: 28.1小時(shí)
- 蟲(chóng)號(hào): 2473430
- 注冊(cè): 2013-05-20
- 專業(yè): 有機(jī)合成
3樓2013-05-25 22:23:45
ausir
木蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 2009.2
- 紅花: 4
- 帖子: 500
- 在線: 178.9小時(shí)
- 蟲(chóng)號(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
ausir
木蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 18 (小學(xué)生)
- 金幣: 2009.2
- 紅花: 4
- 帖子: 500
- 在線: 178.9小時(shí)
- 蟲(chóng)號(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
gyh930912
銀蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 25.5
- 散金: 27
- 帖子: 91
- 在線: 82.6小時(shí)
- 蟲(chóng)號(hào): 2272170
- 注冊(cè): 2013-02-02
- 專業(yè): 有機(jī)合成
6樓2013-05-27 12:51:30
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 gyh930912 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 348求調(diào)劑 +5 | 小懶蟲(chóng)不懶了 2026-03-28 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 311求調(diào)劑 +5 | 冬十三 2026-03-24 | 5/250 |
|
|
[考研] 壓國(guó)家一區(qū)線，求導(dǎo)師收留，有恩必謝！ +7 | 迷人的哈哈 2026-03-28 | 7/350 |
|
|
|
[考研] 291求調(diào)劑 +15 | hhhhxn.. 2026-03-23 | 21/1050 |
|
|
|
[考研] 【求調(diào)劑】085601材料工程專碩 | 總分272 | +6 | 腳滑的守法公民 2026-03-27 | 6/300 |
|
|
|
[考研] 求調(diào)劑 +8 | 張zz111 2026-03-27 | 9/450 |
|
|
|
[考研] 一志愿南師大0703化學(xué) 275求調(diào)劑 +4 | Ripcord上岸 2026-03-27 | 4/200 |
|
|
|
[考研] 考研化學(xué)308分求調(diào)劑 +10 | 你好明天你好 2026-03-23 | 12/600 |
|
|
|
[考研] 333求調(diào)劑 +3 | question挽風(fēng) 2026-03-23 | 3/150 |
|
|
|
[考研] 359求調(diào)劑 +4 | 王了個(gè)楠 2026-03-25 | 4/200 |
|
|
|
[考研] 343求調(diào)劑 +4 | 贈(zèng)我一本書(shū) 2026-03-23 | 4/200 |
|
|
|
[考研] 總分322求生物學(xué)/生化與分子/生物信息學(xué)相關(guān)調(diào)劑 +5 | 星沉uu 2026-03-26 | 6/300 |
|
|
|
[考研] 機(jī)械學(xué)碩310分，數(shù)一英一，一志愿211本科雙非找調(diào)劑信息 +3 | @357 2026-03-25 | 3/150 |
|
|
|
[考研] 334分 一志愿武理-080500 材料求調(diào)劑 +4 | 李李不服輸 2026-03-25 | 4/200 |
|
|
|
[考研] 機(jī)械學(xué)碩總分317求調(diào)劑�。。�！ +4 | Acaciad 2026-03-25 | 4/200 |
|
|
|
[考研] 材料與化工304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-25 | 3/150 |
|
|
|
[考研] 一志愿北化315 求調(diào)劑 +3 | akrrain 2026-03-24 | 3/150 |
|
|
|
[考研]
 材料考研調(diào)劑生
+3
|
黃粱一夢(mèng)千年 2026-03-24 | 3/150 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|
|
|
[考研] 335求調(diào)劑 +4 | yuyu宇 2026-03-23 | 5/250 |
|