VB6如何使用MSFlexGrid表格產生亂數

拉一個Command1和MSFlexGrid1貼上以下程式碼並執行即可


Private Sub Command1_Click() ' 取亂數
Dim i As Integer, j As Integer
Randomize
For j = 1 To 3
For i = 1 To 5
MSFlexGrid1.Col = i
MSFlexGrid1.Row = j
MSFlexGrid1.Text = Round(Rnd, 2)
Next i
Next j

End Sub

Private Sub Form_Load() ' 初始表格大小,以您上述的執行結果為例
Dim c As Integer
Dim r As Integer
Command1.Caption = "取亂數"
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 4

MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.ColAlignment(0) = 3
MSFlexGrid1.Text = "試題"
For c = 1 To 5
MSFlexGrid1.Col = c
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "V" & c
Next c

For r = 1 To 3
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = r
MSFlexGrid1.Text = "00" & r & ":"
Next r
End Sub

產生亂數填入 textbox

和

產生亂數填入 msflexgrid

差別只是填入的目的地不同吧