固定高度是.docVIP

预习报告成绩： 指导教师审核（签名）： 年 月 日 实验报告 （一）实验目的 学会综合运用选择结构、循环结构和数组进行程序设计的方法。Windows xp 应用软件VB6.0 (三)实验步骤 1.建立新的vb程序，设置相关控件，进行编码，结果如下 其中各控件属性如下 控件名称 属性 属性值 Picture1 MULILINE TRUE Picture2 MULILINE TRUE Picture3 MULILINE TRUE Command1 Caption 显示随机数 Command2 Caption 显示偶数 Command3 Caption 显示奇数 预编代码如下 Private Sub Command1_Click() Dim a(60) As Integer For i = 1 To 60 a(i) = Int(Rnd * (200 - 100 + 1) + 100) Next i For i = 1 To 59 For j = 1 To 60 If a(i) a(j) Then t = a(j): a(j) = a(i): a(i) = t End If Next j Next i j = 0 For i = 1 To 60 Picture1.Print a(i); j = j + 1 If j = 10 Then j = 0: Picture1.Print Next i End Sub Private Sub Command2_Click() Dim b(60) As Integer For i = 1 To 60 b(i) = Int(Rnd * (200 - 100 + 1) + 100) Next i For i = 1 To 60 If b(i) Mod 2 = 0 Then k = k + 1 b(k) = b(i) End If Next i For i = 1 To k - 1 For j = i + 1 To k If b(i) b(j) Then t = b(j): b(j) = b(i): b(i) = t End If Next j Next i j = 0 For i = 1 To k Picture2.Print b(i); j = j + 1 If j = 10 Then j = 0: Picture2.Print Next i End Sub Private Sub Command3_Click() Dim c(60) As Integer For i = 1 To 60 c(i) = Int(Rnd * (200 - 100 + 1) + 100) Next i For i = 1 To 60 If c(i) Mod 2 = 1 Then k = k + 1 c(k) = c(i) End If Next i For i = 1 To k - 1 For j = i + 1 To k If c(i) c(j) Then t = c(i): c(i) = c(j): c(j) = t End If Next j Next i j = 0 For i = 1 To k Picture3.Print c(i); j = j + 1 If j = 10 Then j = 0: Picture3.Print Next i End Sub 2.运行并调试程序，运行结果如下 (四)实验中遇到的问题及解决