大小的比较

一.比较a与b的大小

1点击“Text”文本框图标，再在右侧Form1中空白区域选择大小适宜的区域，画出文本框。

2点击“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“比较”，双击按钮型图标，输入如下内容.

Cls

Me.Text1.Font.Size=50

Dim aAs Integer

Dim bAs Integer

a=Int（Rnd×1000）

b=Int（Rnd×1000）

Ifa<b Then

Me.Text1.Text="a<b"

Else

If a=b Then

Me.Text1.Text="a=b"

Else

Me.Text1.Text="a>b"

End If

End If

 

二.十五个数的排序

1点击“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“排序”，双击按钮型图标，输入如下.

Dim a（15）As Integer

Dim i,jAs Integer

Dim TempAs Integer

Form1.Cls

Randomize

For i =1 To 15

a（i）= Int（Rnd×1000）

Next i

For i =1 To 15

For j =i + 1 To 15

If a（i）>a（j）Then

Temp = a（i）

a（i）= a（j）

a（j）= Temp

End If

Next j

Next i

PrintCls（14）

For i =1 To 15

Print a（i）

Next i