程式設計VB題目

Question

Ａ：請顯示以下圖是在表單中

－－－＊－－－
－－＊＊＊－－
－＊＊＊＊＊－
＊＊＊＊＊＊＊




這是老師今天問的問題
他要我們用ＦＯＲ　ＮＥＸＴ迴圈和ＩＦ敘述來做
我想很久都做不出來
請高手幫幫忙

愁痕飄絮：

不好意思
我ㄇ老師要求
不能用DIM
不能用Abs()

＂只用＂ＦＯＲ　ＮＥＸＴ迴圈和ＩＦ敘述還有print來做

麻煩ㄌ

謝謝!

我想我們老師怕我們看不懂吧ˊˋ
因為他第一次上我們班的課
他出了一題超簡單的題目
顯示:
1
2
3
4
5
我三行做出來
他說我錯ㄌ= ="
要我用很笨很複雜的方式做

全班也只有我會用宣告
老師說這樣他們不懂
要我全部省略
用他教過的來做就好了ˊˋ

Answer 1

'沒IF 推薦使用
Private Sub Command1_Click()
Dim nsp As Integer, i As Integer
nsp = 3
For i = 1 To 7 Step 2
Print String(nsp, "　"); String(i, "＊")
nsp = nsp - 1
Next
End Sub

'有IF
Private Sub Command2_Click()
Dim i As Integer, j As Integer
For i = 0 To 3
For j = -3 To 3
If Abs(j) <= i Then Print "＊"; Else Print "　";
Next
Print
Next
End Sub



2007-03-03 22:55:32 補充：
我還是第一次聽有老師叫學生不可以用Dim的，還強迫用If的
可以不用IF的程式偏偏要強迫用
難怪現在高中職資訊資處學生素質越來越差了
交作業的時候，記得建議你的老師別再誤人子弟，上程式設計了。
For i = 1 To 7 Step 2
Print Tab(8 - i);
For j = 1 To i
If (True) Then Print "＊";
Next
Print
Next

Answer 2

其他要求我都覺得還可以接受..
最誇張的就是不能用Dim,實在讓人傻眼...