請問各位大大,我要如何才能將下列的程式輸出呢?煩請各位大大幫幫忙~~~感激不盡

1
23
456 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

[Basic][求助] VB印數字
請問各位大大,我要如何才能將下列的程式輸出呢?煩請各位大大幫幫忙~~~感激不盡
ans.程式輸出??你連基本的迴圈與控制都沒有寫出來，不是嗎??
    你只是寫了一堆數字的排列，要人幫你寫!!

下面是引用三仙於2008-07-04 00:31發表的 :
[Basic][求助] VB印數字
請問各位大大,我要如何才能將下列的程式輸出呢?煩請各位大大幫幫忙~~~感激不盡
ans.程式輸出??你連基本的迴圈與控制都沒有寫出來，不是嗎??
    你只是寫了一堆數字的排列，要人幫你寫!!

是有寫啦!!只是~~~

Dim i As Long
Dim j As Long

For i =10 To 1 Step -1
  For j = i To 1 Step -1
    Print i;
  Next j
Print
Next i


寫很爛= =

圖 1.

基本上你的程式與執行結果如上
所以解題分析有問題

下面是引用pk01749276於2008-07-04 00:38發表的 :

是有寫啦!!只是~~~

Dim i As Long
Dim j As Long

For i =10 To 1 Step -1
For j = i To 1 Step -1
  Print i;
Next j
Print
Next i


寫很爛= =

下面是引用三仙於2008-07-04 01:16發表的 :
基本上你的程式與執行結果如上
所以解題分析有問題

那請問大大我應該如何分析呢

下面是引用pk01749276於2008-07-04 01:27發表的 :

那請問大大我應該如何分析呢

大大我打這樣以後便成
1
12
123
1234

藥如讓他是連續ㄉㄋ

Public Class Form1

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim I, J As Integer
    TextBox1.Text = ""
    For I = 1 To 10

        For J = 1 To I
          TextBox1.SelectedText = J
        Next

        TextBox1.SelectedText = vbNewLine '換行字元
    Next
    TextBox1.SelectionLength = 0
  End Sub
End Class

圖 1.

1.要跑數字 1 - 10
2.控制條件一次一階印出的數量
3.用 do loop 或 for next 時，判斷條件

幫你解第一題，後面的自己改

下面是引用pk01749276於2008-07-04 01:27發表的 :

那請問大大我應該如何分析呢

下面是引用三仙於2008-07-04 23:15(6樓)發表的 :
1.要跑數字 1 - 10
2.控制條件一次一階印出的數量
3.用 do loop 或 for next 時，判斷條件

幫你解第一題，後面的自己改

關於你寫的程式碼裡頭的 Dim i, j, k, l As Integer
其中的 i j k 這三個變數並不會被宣告成整數而是被宣告成Variant(之前看區域變數視窗發現的= =)
(可是在VB.net裡頭都會被宣告成整數=       =，在某本書中看到的..)

下面是引用s3748679於2008-12-02 22:49(7樓)發表的 :
關於你寫的程式碼裡頭的 Dim i, j, k, l As Integer
其中的 i j k 這三個變數並不會被宣告成整數而是被宣告成Variant(之前看區域變數視窗發現的= =)
(可是在VB.net裡頭都會被宣告成整數=       =，在某本書中看到的..)

因為提問樓主
在發問作業時很草率
所以我就簡單回一下程式而已

草率提問=簡單回答

還是謝謝你