Dim As Integer ncols = 3, nrows = 4 Dim As Integer col, row Print "" & Chr(10) & "" Print "" & Chr(10) & "" Print "" For row = 0 To nrows If row = 0 Then Print "" ; Else Print "" ; End If For col = 1 To ncols If row = 0 Then Print "" ; Else Print "" ; End If Next col Print "" Next row Print "


" & row & "	" & Chr(87 + col) & "	" & Rnd(9999) & "

" Print "" & Chr(10) & "" Sleep