form1.frm

来自「四）练习该实验的目的和思路： 程序开始变得复杂起来」· FRM 代码 · 共 47 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "第一次实验"
   ClientHeight    =   4680
   ClientLeft      =   60
   ClientTop       =   435
   ClientWidth     =   6945
   LinkTopic       =   "Form1"
   ScaleHeight     =   4680
   ScaleWidth      =   6945
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "输入10个数排序"
      Height          =   375
      Left            =   3120
      TabIndex        =   0
      Top             =   3960
      Width           =   3015
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
  a(i) = Int(InputBox("依次输入10个数"))
Next i
  For j = 1 To 9
    k = j
    For l = j + 1 To 10
       If a(l) < a(k) Then k = l
    Next l
     If k <> l Then
     tmp = a(k)
     a(k) = a(j)
     a(j) = tmp
     End If
  Next j
For n = 1 To 10
Print a(n);
Next n
End Sub