VB語法問題

alumic

284分

11樓

alumic

個人積分：284分

文章編號：36126021

littlewbot wrote:
請問要不要加入AI呢?

也就是說加上感應器的偵測判定，要什麼樣的解法.

圖形排列?敝人想應該也有兩種以上的解法.

哈哈!..有趣..真的有趣!恕刪)

這是一道至少 20年以上歷史的老掉牙 Basic 基礎練習題.

為何單純一道問題, 要去扯到什麼 AI ?! 感應器 ?!

證明您比別人更聰明 ?! 更優秀 ?!

CCC9503

368分

樓主

CCC9503

個人積分：368分

文章編號：36126045

先謝謝您的提示

今天有跟某位大大討論
結果是這樣

有點不對稱
語法是
Dim i, j as integer
Dim n As Integer
n = 5
For i = 1 To n
For j = 1 To n + (i - 1)
If (j < n - (i - 1)) Then
Label1.Text &= (" ")
Else
Label1.Text &= ("*")
End If
Next j
Label1.Text &= vbCrLf
Next i

自己試了很久怎麼讓他對稱
都沒辦法

sjcmankimo

436分

13樓

sjcmankimo

個人積分：436分

文章編號：36126759

CCC9503 wrote:
先謝謝您的提示今天有...(恕刪)

你要用等寬的字型
如細明體(不是新細明體哦) 或 Consolas ... 等等

littlewbot

8分

14樓

littlewbot

個人積分：8分

文章編號：36128281

alumic wrote:
這是一道至少 20...(恕刪)

噯呦!先報歉.

敝人想高階程式語言及低階組合語言可以完成的圖形列表.

有著如大巫見小巫般!

有趣!真的有趣.不是嗎?

如果說使用者能得到非常的禮遇，譬如說:

顯示前會要求使用者要顯示嗎?Y/N

又顯示時會有一些效果，這就是敝人說的AI.

而不是如閃電般的立即顯示.

至於感應器，不說了.神經!

祝身體健康萬事如意董慶先敬上

glaclal

0分

15樓

glaclal

個人積分：0分

文章編號：36132951

阿德Sky wrote:
這樣好了，給你一些提...(恕刪)

這位大大有對這張圖形說明了很詳細的分析，
而你也成功撰寫出這圖形的程式碼，恭喜你^^

之所以希望你能自我思考及更進一步的寫出最佳的程式碼，才給你這些建議。
如果程式碼是別人給你的，你永遠不知道他為什麼要用這樣子的邏輯，你只
是按照他教你的撰寫(現行的教育大都是如此)。經過了自已的思考，再參考
別人的程式碼，你才會發現你程式碼的優缺點。
而我也提供我的想法，當然這不是最佳的答案：

Dim n As Byte
n = 5
For i = 1 To n
　　Print Space(n - i) & String(2 * i - 1, "*") & vbCrLf
Next i

抱歉，原來你是用VB.NET，上面的範例是VB6的，我再補貼.NET語法：

Dim n As Byte
n = 5
For i = 1 To n
　　　Label1.Text = Label1.Text & Space(n - i) & StrDup(2 * i - 1, "*") & vbCrLf
Next i