比较大小

一.比较a与b的大小

1 打开Text文本框图标,在Form1中空白区域选择区域，画出文本框。

 

2点击CommandButton，在右侧Form1中空白区域选择区域，选中图标，在右下角，将表格中 “Command1”改成“比较”，输入如下内容.

 

Cls

Me.Text1.Font.Size=50

Dim a As Integer

Dim b As Integer

a=Int（Rnd×1000）

b=Int（Rnd×1000）

If a<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中空白区域选择一个区域，出现按钮型图标后，选中图标，在右下角，将表格中Command1改成“排序”，双击按钮型图标，输入如下.

Dim a（15） As Integer

Dim i,j As Integer

Dim Temp As 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

Print Cls（14）

For i = 1 To 15

Print a（i）

Next i