【正确答案】正确答案：【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(100) As Integer, num As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "/in5.dat" For Input As #1 For k = 1 To 100 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(1) Next k Close #1 End Sub Private Sub Command2_Click() Dim b(100) As Integer num = 0 If Len(Text1.Text) = 0 Then MsgBox "请先执行"读数据"功能！" Else '考生编写(功能：生成 b 数组，且按从小到大顺序排序) '注意：请务必将数组 b 的元素个数存入变量 num 中 '以下程序段将已排序的 b 数组显示在Text2中 For i = 1 To num Text2.Text = Text2.Text + Str(b(i)) + Space(2) Next i End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "/out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 n = 0 For k = 1 To 100 If a(k) Mod 3 = 0 Then num = num + 1 b(num) = a(k) End If Next k For i = 1 To num f = True For j = 1 To num - 1 If b(j) > b(j + 1) Then t = b(j) b(j) = b(j + 1) b(j + 1) = t f = False End If Next j If f Then Exit For End If Next i 步骤3：调试并运行程序，关闭程序后按题目要求存盘。