请问在VB里怎样才能使文本框能显示多个数据,并且分行显示
请问在VB里怎样才能使文本框能显示多个数据,并且分行显示(如图所示,就像文本框里的矩阵)原题:使用随机函数产生0到9之间的随机整数形成一个5阶矩阵的元素,并把该矩阵存放到...
请问在VB里怎样才能使文本框能显示多个数据,并且分行显示
(如图所示,就像文本框里的矩阵)
原题:使用随机函数产生0到9之间的随机整数形成一个5阶矩阵的元素,并把该矩阵存放到一个二维数组a和在一个文本框中显示出来。
谢谢啦~ 最好直接在这里说,不要用Hi 展开
(如图所示,就像文本框里的矩阵)
原题:使用随机函数产生0到9之间的随机整数形成一个5阶矩阵的元素,并把该矩阵存放到一个二维数组a和在一个文本框中显示出来。
谢谢啦~ 最好直接在这里说,不要用Hi 展开
2个回答
展开全部
文本框的MultiLine属性设置为True,程序代码如下:
Private Sub Form_Activate()
Dim a(1 To 5, 1 To 5) As Integer
Dim s As String
Randomize
s = ""
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(10 * Rnd)
s = s & a(i, j) & " "
Next
s = s & vbCrLf '为数据分行
Next
Text1.Text = s
End Sub
Private Sub Form_Activate()
Dim a(1 To 5, 1 To 5) As Integer
Dim s As String
Randomize
s = ""
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(10 * Rnd)
s = s & a(i, j) & " "
Next
s = s & vbCrLf '为数据分行
Next
Text1.Text = s
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2009-05-15
展开全部
Dim i As Integer
Dim j As Integer
Dim s As String
For i = 1 To 5
For j = 1 To 5
s = s & a(i, j) & " "
Next j
s = s & vbCrLf
Next i
Text1.Text = s
Dim j As Integer
Dim s As String
For i = 1 To 5
For j = 1 To 5
s = s & a(i, j) & " "
Next j
s = s & vbCrLf
Next i
Text1.Text = s
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询