使用qbasic编程

Private Sub Command1_Click()
Dim s(1 To 3) As Integer, str As String, Max As Integer, Min As Integer
Randomize
Min = 10
For i = 1 To 3
s(i) = Int(Rnd * 10 + 1)
str = str & s(i) & ","
If s(i) > Max Then Max = s(i)
If s(i) < Min Then Min = s(i)
Next
str = "随机的3个数字为：" & str & vbCrLf

For i = 1 To 3
If s(i) <> Max And s(i) <> Min Then str = str & Max & ">" & s(i) & ">" & Min
Next
MsgBox str
End Sub

10 input a
20 input b
30 input c
40 if a<b then t=a:a=b:b=t
50 if a<c then t=a:a=c:c=t
60 if b<c then t=b:b=c:c=t
70 print a,b,c
80 end

1.用顺序结构
CLS
INPUT A
INPUT B
INPUT C
IF A<B THEN SWAP A,B
IF A<C THEN SWAP A,C
IF B<C THEN SWAP B,C
PRINT A;B;C
END
2.用数组和循环结构
CLS
INPUT A
INPUT B
INPUT C
A(1)=A:A(2