vb中如何在picture中输出 1 12 123 1234 132345

显示全部楼层 · 2011-4-13 12:23:29

是要换行的第一行是1，第二行是12
以此类推，要用到双循环..Picture1.Cls
Dim k As Integer, i As Integer, n As Integer, c As String, s As String
k = 5
For i = 1 To k
For n = 1 To i
Picture
Next n
Next i我做到这步发现输出的不一样..郁闷呐..求大侠们帮帮忙

千问 · 2011-4-13 12:23:29

Private Sub Command1_Click()For i = 1 To 5For j = 1 To iPicture1.Print j;Next jPicture1.PrintNext iEnd SubPrivate Sub Command2_Click()For i = 1 To 5For j = i To 1 Step -1Picture1.Print j;Next jPicture1.PrintNext iEnd Sub

千问 · 2011-4-13 12:23:29

Option ExplicitPrivate Sub Command1_Click()Dim i%, k%For i = 1 To 5
For k = 1 To i
Picture1.Print CStr(k);
Next kPicture1.PrintNext iEnd SubPrivate

千问 · 2011-4-13 12:23:29

Private sub command1_click()Print "1"Print "1" & "2"Print "1" & "2" & "3"Print "1" & "2" & "3" & "4"Print "1" & "2" & "3" & "4" & "5"End sub Private sub command2_clic

千问 · 2011-4-13 12:23:29

dim a=1For a=1 TO 5picture aNEXT a

千问 · 2011-4-13 12:23:29

Picture1.Print " 1 12 123 1234 132345 "