VB 简单的程序。初学者一枚

VB 求一个简单的程序。。菜鸟一枚，在线等
键盘输入方阵行列值N，生成方阵，例如，键盘输入4，生成矩阵：1111222233334444(排起来是正方形的，第一行全是1第二行全是2…），题目（1)生成矩阵并在文本框中输出 (2)术下三角元素之和并在输出对话框输出 (3)界面顶端列出自己的个人信息（如学院专业班级学号姓名等  



[解决办法]
双层循环就可以搞定了
[解决办法]
不需要双层循环：

VB code

Private Sub Command1_Click()Dim n As Byten = InputBox("")Text1 = GetMatrix(n)End SubPublic Function GetMatrix(ByVal n As Byte) As StringDim i As Byte, strTmp As StringIf n > 9 Then Exit FunctionFor i = 1 To n    strTmp = strTmp & IIf(strTmp > "", vbCrLf, "") & String(n, CStr(i))Next iGetMatrix = strTmpEnd Function