例020：输出学生信息

1. 本程序演示了随机数和记录体的使用。
2. 建立一个控制台工程，输入程序：

   Type newStudents
       XH As String      '表示姓名
       XB As String      '表示性别
       NL As Integer     '表示年龄
    End Type
    Const MAX_STU = 2
    Dim arrayXS(MAX_STU) As newStudents
    Dim I As Integer
    Randomize
    dim J as FLOAT
    For I = 0 To MAX_STU
       arrayXS(I).XH = "00" & Str(I+1)
       J = Rnd()
       If J>0.5  Then
          arrayXS(I).XB = "男"
       Else
          arrayXS(I).XB = "女"
       End If
       arrayXS(I).NL = CInt(100*J)
    Next
    For I = 0 To MAX_STU
       Print(arrayXS(I).XH & Space(4))  ;
       Print(arrayXS(I).xb & Space(4))  ;
       Print(arrayXS(I).nl & Space(4))  
    Next
    sleep'本行的作用是让控制台在退出前暂停