鞍点
来源:互联网 发布:网络电视盒推荐 编辑:程序博客网 时间:2024/05/06 00:00
Option Base 1
Dim anma() As Integer
Dim m As Integer
Private Sub Command1_Click()
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
Print anma(i, j); Spc(3)
Next j
Print
Next i
End Sub
Private Sub form_load()
Dim m As Byte, n As Byte
m = 5: n = 6
ReDim anma(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
anma(i, j) = 10 + Int(Rnd * 90)
Print anma(i, j); Spc(3)
Next j
Print
Next i
End Sub
Private Sub form_load1()
Dim m As Byte, n As Byte
m = 5: n = 6
ReDim anma(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
anma(i, j) = 10 * Int(Rnd * 90)
Print anma(i, j); Spc(3)
Next j
Next i
End Sub
Dim anma() As Integer
Dim m As Integer
Private Sub Command1_Click()
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
Print anma(i, j); Spc(3)
Next j
Next i
End Sub
Private Sub form_load()
Dim m As Byte, n As Byte
m = 5: n = 6
ReDim anma(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
anma(i, j) = 10 + Int(Rnd * 90)
Print anma(i, j); Spc(3)
Next j
Next i
End Sub
Private Sub form_load1()
Dim m As Byte, n As Byte
m = 5: n = 6
ReDim anma(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
anma(i, j) = 10 * Int(Rnd * 90)
Print anma(i, j); Spc(3)
Next j
Next i
End Sub
0 0