Question

求小型酒店管理系统VB代码?

大概100-150行左右
只要代码..最好控件能用代码实现,不用去FORM那边拉...谢谢

Answer 1

Dim arr(9) As Integer
Dim temp As Integer
' 初始化随机数生成器
Randomize()
' 产生随机数放入数组
For index As Integer = 0 To 9
arr(index) = Int(Rnd() * (99 - 10) + 1 + 10)
Next
'从大到小的排序（冒泡法）
For i As Integer = 0 To 9 - 1

For j As Integer = 0 To 9 - 1
If arr(j + 1) > arr(j) Then
temp = arr(j + 1)
arr(j + 1) = arr(j)
arr(j) = temp
End If
Next

Next

For k As Integer = 0 To 9
' 输出arr数组
Next