下面这张图的VB代码是什么啊？谢谢各位大侠高手美女帅哥了！！！！！！！！！

这是什么树叶啊，各位美女帅哥！~

桑树叶

我是一卡通生产厂家的。但我不是做研发的。这个行业每个厂家的产品都加密，我想不会有给这个的。

如果数字间没有空格就用这个代码：
Private Sub Command1_Click()
Dim I As Integer, J As Integer
Dim S As String
For I = 1 To 9
S = CStr(I)
For J = I - 1 To 1 Step -1
S = CStr(J) & S & CStr(J)
Next J
S = String(9 - I, " ") & S
Print S
Next I
End Sub

如果比较稀疏的数字间有空格的，就用这个代码：

Private Sub Command1_Click()
Dim I As Integer, J As Integer
Dim S As String
For I = 1 To 9
S = Str(I)
For J = I - 1 To 1 Step -1
S = Str(J) & S & Str(J)
Next J
S = String((9 - I) * 2, " ") & S
Print S
Next I
End Sub

Private Sub Command1_Click()
For I = 1 To 9
Print Spc((9 - I) * 2);
For J = 1 To I * 2 - 1
Print CStr(J - IIf(J <= I, 0, (J - I) * 2)); " ";
Next
Print
Next
End Sub

Private Sub Command1_Click()

For i = 1 To 9
For T = 1 To i
Print Tab(10 - i);
Next
For j = 1 To i
Print Trim(j);
Next
For k = j - 2 To 1 Step -1
Print Trim(k);
Next
Print
Next

End Sub

相关视频

下面这张图的VB代码是什么啊?谢谢各位大侠高手美女帅哥了!!!
如果比较稀疏的数字间有空格的，就用这个代码：Private Sub Command1_Click()Dim I As Integer, J As Integer Dim S As String For I = 1 To 9 S = Str(I)For J = I - 1 To 1 Step -1 S = Str(J) & S & Str(J)Next J S = String((9 - I) * 2, " ") & S Print S Next I End Sub

关于VB代码的,如下图,要编辑确定键位什么代码
Private Sub Command1_Click() '确定（保存）Open App.Path & "\\" & "AddMach9.mach" For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Close #1 End Sub '=== '另送一个“读取”按钮代码给你：'窗体添加Command3作为读取按钮 Private Sub Command3_Click() '读取 Text1....

用VB做下面的这个图,点击输入\/查看读者信息就会出现第二个图的登陆界...
比如说第二个窗口叫Form2。点击第一个窗口的按钮，代码里写 me.Hide Form2.show

vb调用图片代码,详细
Picture1.Picture = LoadPicture("e:\\tmp\\1.jpg")VB调用图片步骤如下：1、建立一个图像框，名字改为p1,建立一个命令按钮。2、双击命令按钮，进入代码编辑器，p1.Picture = LoadPicture("D:\\My Documents\\新建文件夹 (2)\\1.jpg")3、点击运行 4、点击命令按钮，图片显示出来了。

VB中用滚动条浏览图片的代码是什么?
窗体上添加两个同样大小的Picture控件Picture1、Picture2，再添加HScrollBar滚动条，ID为HScroll1 ，添加VScrollBar滚动条，ID为VScroll1\\x0d\\x0a添加如下代码\\x0d\\x0aPrivate Sub Form_Load()\\x0d\\x0aPicture2.AutoSize = True\\x0d\\x0aPicture2.BorderStyle = 0\\x0d\\x0aPicture1....