是64-126号之间的抽屉之间随机的分配哪些是空的哪些是已经被使用了的,例如编一组数组来表示64-126号之间的抽屉,数组里面的赋值为0和1,0表示这个抽屉式空的,在用户申请时A可以把这个赋值为0 的抽屉分配出去,1表示这个抽屉已被使用,在用户向A发起申请时,A不可以把赋值为1的抽屉分配出去,
在用户向A申请分配抽屉(TEI)的时候,A判断之间的抽屉那个是空的可以首有63个抽屉,有用户去申请抽屉使用,先从64开始,查看64内的值是0还是1,0则可以分配给用户,1则不可以,若是1,在判断65是否

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 钱可为

    20人对此回答表示赞同

    Dim Drawer(64 To 126) '抽屉数组
    Private Sub Form_Load()
    For i = 64 To 126
    Drawer(i) = 0 '初始化为0
    Next i
    End Sub
    Private Function Application() As Integer '自定义函数,分配抽屉,成功时返回抽屉号,失败时显示对话框
    For i = 64
    展开
    20
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Danny

    18人对此回答表示赞同

    按照你说的,何必需要数组呢,一个变量就搞定

    Dim i As Integer
    Private Sub Command1_Click() '按钮用于检测函数
    If i <= 126 Then
    MsgBox "分配的抽屉是:" & i
    i = i + 1
    Else
    MsgBox "无抽屉可分"
    展开
    18
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • 吴世之

    4人对此回答表示赞同

    Set fso = createobject("scripting.filesystemobject")
    txtpath = "a.txt"
    set fs = fso.createtextfile(txtpath,true)

    dim intAry(201)
    For i= 1 To 201
    intAry(i) = i
    Next

    Int cnt
    cnt=201
    展开
    4
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Sally1

    3人对此回答表示赞同

    如果是 C语言的话 我可以的
    展开
    3
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部