爱问知识人 爱问教育 医院库

随即生成十个三位数,由大到小排列

首页

随即生成十个三位数,由大到小排列

编写一vb程序随即生成十个三位数,由大到小排列

提交回答
好评回答
  • 2010-08-11 07:59:15
    Private Sub Command1_Click()
        Dim iIndex As Byte
        Dim Rs As Object
        Set Rs = CreateObject("Adodb.Recordset")
         elds.append "A", 200, 8
        Rs.open
        For iIndex = 1 To 10
             dnew
             elds("A") = 100 + Int(Rnd * 900)
        Next
         rt = "A DESC"
        MsgBox  tstring
    End Sub

    一***

    2010-08-11 07:59:15

类似问题

换一换

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):