10.2016物电 电气 辛雅松 15050341033

一冒泡排序

Private Sub Command1_Click()

Open "D:\15050341033\temp.txt" For Output As #1

Cls

Dim a(1 To 1000000) As Long

Dim i As Long

Dim j As Long

Dim t As Long

Dim n As Long

n = Me.Text1.Text

For i = 1 To n

a(i) = 10 + Rnd() * 100

Next i

For i = 1 To n

Print #1, a(i);

Next i

Print #1,

For i = 1 To n - 1

For j = 1 To n - i

If a(j) < a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To n

Print #1, a(i);

Next i

Print #1,

Dim x As Long

Dim s As Double

s = 0

For x = 1 To n - 1

s = s + x

Next x

Print #1, "耗时为" & s

Close #1

End Sub

二选择排序

Private Sub Command1_Click()

Open "D:\15050341033\temp.txt" For Output As #1

Cls

Dim a(1 To 1000000) As Long

Dim i As Long

Dim j As Long

Dim t As Long

Dim n As Long

n = Me.Text1.Text

For i = 1 To n

a(i) = 10 + Rnd() * 100

Next i

For i = 1 To n

Print #1, a(i);

Next i

Print #1,

For i = 1 To n - 1

For j = i + 1 To n

If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

For i = 1 To n

Print #1, a(i);

Next i

Print #1,

Dim x As Long

Dim s As Double

s = 0

For x = 1 To n - 1

s = s + x

Next x

Print #1, "耗时为" & s

Close #1

End Sub

三student

Private Type student

name As String

number As Single

sex As String

age As Byte

profession As String

grade As Single

End Type

Private Sub Command1_Click()

Dim X As student

X.name = Me.Text1.Text

X.number = Me.Text1.Text

X.sex = Me.Text1.Text

X.age = Me.Text1.Text

X.profession = Me.Text1.Text

X.grade = Me.Text1.Text

Open "D:\15050341033\MYInformation.txt" For Output As #1

Print #1, X.name;

Print #1, X.number;

Print #1, X.sex;

Print #1, X.age;

Print #1, X.profession;

Print #1, X.grade;

Close #1

End Sub

四冒泡排序

Private Sub Command1_Click()

Me.Timer1.Enabled = True

Me.Command2.Enabled = True

Cls

Dim a(1 To 1000000) As Long

Dim i As Long

Dim j As Long

Dim x As Long

Dim n As Long

n = Me.Text1.Text

For i = 1 To n

a(i) = 10 + Rnd() * 100

Next i

For i = 1 To n

Print a(i);

Next i

Print

Print "排序"

For i = 1 To n - 1

For j = 1 To n - i

If a(j) < a(j + 1) Then

x = a(j): a(j) = a(j + 1): a(j + 1) = x

End If

Next j

Next i

For i = 1 To n

Print a(i);

Next i

Print

Print "OK"

Me.Command2.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim t As Integer, s As Double, v As Integer, time As Integer

If Me.Command2.Enabled = True Then

t = Val(Text2.Text)

s = t * 60

s = s - 1

Else

Print "time=" & s

Me.Timer1.Enabled = False

End If

End Sub