Question

vb问题求助

1
222
33333
4444444
要这个结果！
代码：private sub form_load()
for i =1 to 4
print tab(6-i);string(2*i-1,i)
next i
end sub
实际结果：形状一样，但不是数字，是符号（ps:不是i)
求大虾解
因为输入原因，形状应该是正三角形！

Answer 1

print tab(6-i);string(2*i-1,i)

这句有问题！

可改成
print tab(6-i);string(2*i-1,format(i))
把i转换成字符串才行！

或者
print tab(6-i);string(2*i-1,trim(str(i)))

或者
print tab(6-i);string(2*i-1,chr(i+48))

Answer 2

也好啊

Answer 3

Private Sub Form_Load()
Show'先要显示窗体
For i = 1 To 4
For j = 1 To i * 2 - 1
Print Trim(Str(i));
Next j
Print
Next i
End Sub