繪製字元圖形~

請各位大大幫幫我~我研究了好久還是沒弄出來..(只能說我沒天分-0- 題目：當輸入的整數N為 6 或7 時，TextBox所要顯示的圖形。ps:N的範圍5~49，輸入N時若超出此範圍，需出現訊息視窗提示，並要求重新輸入N。邊寬為2的正方形
＊＊＊＊＊＊＊
＊＊＊＊＊＊＊
＊＊　　　＊＊
＊＊　　　＊＊  
...

瀏覽完整內容，請先 註冊 或 登入會員

最簡單的方法是，將0到9數字的圖形預先做好成字串常數，再依照輸入的值，來組合即可

arthurliuliu

回復

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

皇臾

老師出這種題目，就是要用迴圈搭配 if 來做的...
如果只是用 Console.Write()，這題目還有什麼意義 @@"

請樓主把自己寫的 code 貼上來，而不是伸手要答案。

羕漾

首先作那個第一個一定是先使用巢狀迴圈來作
邊框為2意即你只要判斷外層(假設i)及內層(假設j)他們的迴圈變數是 2 以下及 n-2 以上
詳細的程式碼則你自己想

第二題則是透過除以 2 取整數，一樣詳細的你該自己想

尤其是第二題，其實算是精典題，其實網路上隨便找都有
這種題目作之前要想的就是他們圖形的關聯，有個譜後要作就很快

darkjack

我當初看到題目 第一個想法 是一定雙迴圈
本來還在想是否要用到 三迴圈 外加 if 勒
看我的思考多「複雜」阿

羕漾

其實如果不是作業的話，作的出來就行，管他幾層迴圈，用 Console.Write 直接全印也行
(不過後面那種太不靠譜了，因為完全不能依n不同調整)

有時案子一趕起來根本就沒心思想啥最佳化解，都嘛先求有，不過接下來通常會忘記再求好
(就作出來後就懶得調整了，反正都有了，受不了那演算法的速度時再說XD)
...

瀏覽完整內容，請先 註冊 或 登入會員

ahway9988

第一條太簡單了懶得寫

但第二條有點意思,要認真來還是有難度,程式上面不是問題,而是有用到了一些數學方面的問題

這裡提供一點寫法,看不懂請再發問...
不好意思,小的使用VB6,需自行轉換,請見諒

1. 
   
2. Private Sub Command1_Click()
   
3.     '請自行拉開一個可以容納邊長為49字元的Text1物件大小
   
4.     Dim n As Variant '邊長
   
5.     Dim w As Double  '迴圈-圖形上的橫向位置
   
6.     Dim h As Double  '迴圈-圖形上的直向位置
   
7.     Dim c As Double  '在圖形橫向的菱形頂點的位置
   
8.     'Text1.MultiLine = True  '這行我不會設,請在Text1物件MultiLine屬性上直接改成True (接受多行文字)
   
9.     'Text1.ScrollBars = 2  '這行我不會設,請在Text1物件ScrollBars屬性上直接改成2 (垂直捲軸)
   
10.     Text1.FontSize = 9
    
11.     Text1.MaxLength = 0  'Text1不限字數
    
12.     n = InputBox("請輸入n=?", "InputBox訊息", 5)
    
13.     If n = Cancel Then Exit Sub
    
14.     n = Int(Val(n))
    
15.     If n < 5 Or n > 49 Then MsgBox "輸入的值不符合要求,請重新輸入!", vbOKOnly, "訊息": Exit Sub
    
16.     c = (1 + n) / 2  '求中點位置(菱形頂點):n為單數會是正中間的位置,偶數則會得到一個小數點為0.5並且表示為整數部份與其加1的位置
    
17.     For h = 1 To n
    
18.         For w = 1 To n
    
19.             If h <= c Then  'h(直向)仍在直向的中點位置以上時則...
    
20.                 If Abs(w - c) >= h - 1 Then  'w(橫向)位置與中點的距離如果>=根據由h相對取得的大小(由小變大)
    
21.                     Text1.Text = Text1.Text & "*"
    
22.                 Else
    
23.                     Text1.Text = Text1.Text & "  "
    
24.                 End If
    
25.             Else   'h(直向)如超過直向的中點位置時則...
    
26.                 If Abs(w - c) >= n - h Then  ''w(橫向)位置與中點的距離如果>=根據由h相對取得的大小(由大變小)
    
27.                     Text1.Text = Text1.Text & "*"
    
28.                 Else
    
29.                     Text1.Text = Text1.Text & "  "
    
30.                 End If
    
31.             End If
    
32.         Next
    
33.         Text1.Text = Text1.Text & vbCrLf
    
34.     Next
    
35.     Text1.Text = Text1.Text & vbCrLf  '再輸入一行空格以便可以區開重覆貼上的圖形
    
36. End Sub

複製代碼

我是很想用IIf(),跟With與其它簡化程式的用法,但怕您看不懂,寫得一長串但還請務必(大略)看過,千萬不要不看,我也寫好久了...

瀏覽完整內容，請先 註冊 或 登入會員

[b]回復 [url=http://www.eyny.com/redirect.php?goto=findpost&pid=195980035&ptid=6939145]7#[/url] [i]ahway9988[/i] [/b]

我一定會好好研究..不會白費大大的苦心的