请问各位大大,我要如何才能将下列的程式输出呢?烦请各位大大帮帮忙~~~感激不尽

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里头都会被宣告成整数=       =，在某本书中看到的..)

因为提问楼主
在发问作业时很草率
所以我就简单回一下程式而已

草率提问=简单回答

还是谢谢你