依辰

首页 » VB语言 » 分享一个储存柜的VB小程序-来自冷眸软件库

软件库说明:

分享一个储存柜的VB小程序

点击存物,放入物品,记住密码。取物,点击红色方块,输入密码,即可取物

VB小程序源码如下::

Dim gzzt(1 To 16) As Integer
Dim gznr(1 To 16) As String
Dim gzmm(1 To 16) As Integer
Private Sub Commandcw_Click()
Dim i As Integer
For i = 1 To 16
If gzzt(i) = True Then Exit For
Next
If i <= 16 Then
Label1(i - 1).BackColor = vbRed
gzzt(i) = False
gzmm(i) = Int(Rnd * 1000) + 1
MsgBox "柜号:" & i & "密码:" & gzmm(i), vbOKOnly, "请记住您申请到得柜子密码"
gznr(i) = InputBox("请输入寄存物品的名称", "寄存物品")
Else
MsgBox "没有空柜"
End If
End Sub
Private Sub Form_Load()
Dim l As Integer
For i = 1 To 16
gzzt(i) = True
gznr(i) = ""
gzmm(i) = -1
Next
For i = 0 To 15
Label1(i).Caption = i + 1
Label1(i).Alignment = 2
Next
End Sub
Private Sub Label1_Click(Index As Integer)
Dim mm As Integer
Dim i As Integer
mm = Val(InputBox("请输入寄存物品的柜子密码"))
If mm = gzmm(Index + 1) Then
MsgBox "您寄存的物品是" + gznr(Index + 1), vbOKOnly, "柜号:" & (Index + 1)
gznr(Index + 1) = ""
gzmm(Index + 1) = -1
gzzt(Index + 1) = True
Label1(Index).BackColor = form1.BackColor
Else
MsgBox "您输入的密码不正确,请重试"
End If
End Sub

文章如无特别注明均为原创! 作者: 中华软件库,依辰QQ:634800394 转载或复制请以 超链接形式 并注明出处 中华软件库-优质资源分享网
原文地址《 分享一个储存柜的VB小程序-来自冷眸软件库》 发布于2019-11-29

评论

切换注册

登录

您也可以使用第三方帐号快捷登录

切换登录

注册