全球未来十大超级工程:高手请进 帮个小忙VB的

来源：百度文库 编辑：查人人中国名人网 时间：2024/05/12 18:33:54
编程如下;
1
222
33333
4444444
555555555
依此类推到9 谁帮我解决问题, 写出代码 一定要VB的 C语言不算.

记得上次我用C写了这个,汗,竟然说不行,把c改成VB也不会吗,真晕啊
Dim I As Integer
Dim N As Integer
TextBox1
TextBox1.Text = ""
For I = 1 To 9
For N = 1 To I * 2 - 1
TextBox1.Text = TextBox1.Text & I
Next
TextBox1.Text = TextBox1.Text + vbCrLf
Next
上面的代码写在窗体的load事件中,记得在窗体上添加一个文本框,把.Multiline属性设置为 True,然后把文本框拖长点
VB.net测试通过
你可别告诉我是要用6.0写,我就真的倒了

For i =1 to 9
t=""
for j=1 to i
t=t & cstr(i)
next j
print t
next i

Dim I As Integer
Dim N As Integer
Private Sub Main()
For I = 1 To 9
For N = 1 To I*2-1
Print I
Next'N
Print Chr(13)
Next'I
End Sub

For i = 1 To 9
t = ""
For j = 1 To 2 * i - 1
Print i;
Next j
Print
Next i
如果你要上面排序的整齐就是 居中排序的话那还要更改下

高手请进 帮个小忙VB的 懂VB的高手请进 关于VB的问题。高手请进 vb的一个问题 ：（高手请进） 问问vb的编程问题，高手请进 急急急！！！！VB的高手请进 计算机高手请进：关于VB的补丁 vb高手请进，问一个有关vb的问题。 急!VB高手请进,有关VB代码的问题!!! vb高手请进！！！！！！！！！！！！！！1