Question

如何用VB实现“*”比如输入 数字2 第一行一个 第二行两个星号

越详细越好，

Answer 1

画一个按钮，调用inputbox
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer
n = InputBox("n=", "请输入一个数值n")
For i = 1 To n Step 1
For j = 1 To 2 * i - 1 Step 2
Print "*";
Next j
Print
Next i
End Sub

或者画出一个文本框：
Private Sub Text1_Change()
Dim i As Integer, j As Integer, n As Integer

n = Val(Text1.Text)
For i = 1 To n Step 1
For j = 1 To 2 * i - 1 Step 2
Print "*";
Next j
Print
Next i
End Sub

Answer 2

问题解决了吗？就在这个窗体里面吗？

追答

你把详细的发给我

追问

就是用VB运行出来后输入 2 要实现第一行一个“”*“”第二行是两个“”*“”输入3第一行一个“”1“”第二行是两个“”*“”我这个编程可以实现。但是不会输入在picturebox里面

追答

你加我

追问

不加

追答

嗯，那你别用picture box你用textbox