2个窗体,第一个窗体是输入密码,正确后方可进行一次摇奖;第二个窗体只要一个label标签和一个按钮,按一下按钮,label标签开始滚动,滚动的内容是“餐巾纸”,“再摇一次”,“没有中奖”,3个就可以了,反复滚动,按下“停”后,label停止滚动,并显示中奖(或未中奖)信息(用msgbox),当显示“再摇一次”时,不回到第一个窗口,且仍然可以进行摇奖。当抽中其他奖品时,一旦用户关闭中奖信息,则自动回到输入密码窗口,一个密码只能使用一次,当密码再次正确时,又出现窗口2,然后再次摇奖,3个奖品可以重复摇……谢

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

    2044人对此回答表示赞同

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

    14人对此回答表示赞同

    我做过一个,vb.net的,如果你要用的话,就给你了
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 小心肝

    13人对此回答表示赞同

    理解有误,是我理解有误吗??怎么被你说糊涂了??? 看下下面的代码是不是这个意思?
    窗体1 单击按钮输入密码,一次一换,不正确退出
    Dim y As Integer

    Private Sub Command1_Click()
    x = InputBox("请输入密码")
    If x <> y Then
    MsgBox "密码不正确": Unload Me
    ElseIf x = y
    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 无可何如

    2人对此回答表示赞同

    先在“工程-引用”中选上“Microsoft ActiveX Data Object 2.8 Library”
    然后把下列代码加入到窗体代码中:
    Private Sub Command1_Click()
    Dim lSuccess As Long
    Dim sPath As String
    Dim lFail As Long
    Dim lFailLine() As Long
    Dim sFailText() As String
    Di
    展开
    2
    0回复
    发布于 6年前

    评论(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
扫码咨询

扫码咨询套餐

回到顶部