https://www.myziyuan.com/
- 551108330
- 我有一个用VB写的“酒店收费管理系统”需要的话请留邮箱
- 2021-02-15 21:30:01
- 外网
- 您的位置: 下载首页 >> .NET源码 >> 其他类别 >> 酒店管理系统(ExtJs)源码 http://www.fwvv.net/Software/View-Software-13321.shtml
- 2021-02-11 13:59:30
- 网站模板素材下载
- 求小型酒店管理系统VB代码,Dim arr(9) As IntegerDim temp As Integer' 初始化随机数生成器Randomize()' 产生随机数放入数组For index As Integer = 0 To 9arr(index) = Int(Rnd() * (99 - 10) + 1 + 10)Next'从大到小的排序（冒泡法）For i As Integer = 0 To 9 - 1For j As Integer = 0 To 9 - 1If arr(j + 1) > arr(j) Thentemp = arr(j + 1)arr(j + 1) = arr(j)arr(j) = tempEnd IfNextNextFor k As Integer = 0 To 9' 输出arr数组Next
- 2021-02-11 13:59:30
开通会员