CCC9503

368分

樓主

CCC9503

個人積分：368分

文章編號：36108637

VB語法問題

最近計概課上到VB迴圈敘述
有一題要顯示下面的圖形
VB語法問題

除了知道要用Debug.Print與字串函數Space之外
就不知道怎麼寫了

拜託各位大大幫我解答 orz

2012-05-25 18:21 #1

文章關鍵字

VB 語法問題

柚子味的豆花

5分

2樓

柚子味的豆花

個人積分：5分

文章編號：36110466

CCC9503 wrote:
最近計概課上到VB迴...(恕刪)

還需要兩層的巢狀迴圈

跟if else敘述

既然是作業就應該跟同學討論阿 ^++^

沒事多摸摸Google大神的底，有事多抱抱Google大神的腳。

glaclal

0分

3樓

glaclal

個人積分：0分

文章編號：36112022

提示：只要一個For迴圈、一個String函數、兩個Space函數，
然後再分析這個圖形的邏輯，即可寫出答案(最多三行程式碼)

這是我想的到最簡短的邏輯

CCC9503

368分

樓主

CCC9503

個人積分：368分

文章編號：36112580

還有一點糢糊

因為老師只有指派我做這題
沒有同學可以討論 orz

glaclal

0分

5樓

glaclal

個人積分：0分

文章編號：36113582

你可試著想想，如果要完成這樣的題目，該如何設計程式碼。
(一開始要想到最完美的邏輯，是有難度。所以先以能完成的方式設計，
再來再針對程式碼的部份做優化，將效率最佳化。)
舉例來說，要撰寫1+2+3+4+5+6+......100值等於多少?
想法一、
dim num as long
num = 0
for i = 1 to 100
num = num + i
next i

PS.這樣子的寫法可達成題目所要求的結果(需執行100次)，但這是很沒效率的作法
(雖然現在的電腦運算速度很快)

想法二、
dim num as long
num = (100 + 1) * (100 / 2)

PS.這樣子的寫法，執行效率上會比第一個好

同理而言，印出這個圖形該怎麼做(請先說出你的想法，否則只求答案，我是不可能給你的)

CCC9503

368分

樓主

CCC9503

個人積分：368分

文章編號：36117576

目前寫到這裡
Dim i As Integer
For i =
Label1.Text &= vbCrLf
Space(4) ' 1)
Next

是了好久String跟For不能連用

要讓i等於圖形*一直出現錯誤訊息...
Space部分感覺也有些問題

謝謝指教

cooper_wan

29分

7樓

cooper_wan

個人積分：29分

文章編號：36119600

1.
至少要可以印出N個空白或 N個星星
2.
圖形可以看成
4個空白 1個星星
3個空白 3個星星
2個空白 5個星星
1個空白 7個星星
0個空白 9個星星
3.
共計要印出5行圖形
用迴圈控制印出5行圖形

每一行先印空白 + 再印星星 + 跳行

4.
找出每行空白數, 星星數和迴圈index的規律
index :1 2 3 4 5
空白數:4 3 2 1 0
星星數:1 3 5 7 9
利用index印出相對應數目的空白及星星

阿德Sky

553分

8樓

阿德Sky

個人積分：553分

文章編號：36123823

這樣好了，給你一些提示
先從頂到底的星星共有5層，所以總共要Run5次迴圈
在來假想把原來的圖補上星星讓它成為矩形，補的地方就是要填空白的地方
試著看看是不是補的地方兩邊都有規律，這些規律就是你要寫的方法了
這樣在推不出來我也沒辦法了

借用你的圖把剩下空白補上，你應該看得懂了吧...
紅色星星代表是要補上空白的位置