vb编程往datagrid控件输结果

来源：百度知道 编辑：UC知道 时间：2024/06/24 05:13:40
点击按钮后，自动出现100个随机数（50-60之间），这100个数是用datagrid显示出来的，5列20行，谢谢了

DataGrid控件不借助数据库无法实现,但可用MSFlexGrid控件实现.
Option Explicit
Dim i As Integer
Dim j As Integer
Dim sjs(1 To 100) As Single
Private Sub Command1_Click()
For i = 1 To 100
sjs(i) = Rnd * 10 + 50
Next
For i = 1 To 20
For j = 1 To 5
MSFlexGrid1.TextMatrix(i, j) = sjs((i - 1) * 5 + j)
Next j
Next i
End Sub

Private Sub Form_Load()
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 21
Randomize
End Sub