Question

编写程序，界面如下。点击"OK"按钮在右面文本框中输出下列三角形（要求用双循环实现）：

m
m n
m n o
m n o p
望哪位编程高手不吝赐教
用vb编写

Answer 1

我分三个步骤来说：
1、界面，在窗体上新建一个按钮（如Command1），一个文本框(如Text1)
2、非常重要，也容易忽略的是，必须将新建的文本框的MultiLine属性在属性栏中设为True。由于该属性为只读（Read-Only），故不能在代码中设置。
3、界面弄好后，打开代码窗口，输入代码，如下面所示（可直接复制粘贴）：

Private Sub Command1_Click()
For i = 1 To 4 '第一层循环控制竖行
For j = 0 To i - 1 '第二层循环控制横行

Text1.Text = Text1.Text & " " & Chr(Asc("m") + j)
'上式中，首先反求m的Asc值，再用Chr得出字母
Next

Text1.Text = Text1.Text & Chr(13) & Chr(10)
'上式中，chr(13)表示回车,chr(10)表示换行，二者共用
'就能实现换行了
Next

End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Text1.Text = ""
If Text1.MultiLine = False Then
MsgBox "请在属性栏中将文本框的MultiLine属性设为True！"
End
End If
End Sub

好了，点击运行就可以了。