Private Sub Form_Click() Cls '清除屏幕 Dim a As Integer '定义 a 为整形 a = Val(InputBox("请决定需要排多少组组数值?", "排序数值数")) 'a的等于输入框所返回的数值,决定排序数组的个数 Dim i(100) '定义i 为数组 ,100个元素 (每个元素都是整形的变量) For j = 1 To a i(j) = Val(InputBox("请输入第" & j & "组数值", "输入数据")) '为每个数组赋值 Print i(j) ' 打印每组数组的值 Next j '结束for循环 Print " -----------------排序结...