初学VB编程，到书店花了60元钱买了一本VB6.0从入门到精通的书来看。
窗体设计和控件使用等方面还讲得清楚，但如何编写代码就什么都没写，书里
面举的列子都只是介绍窗体如何设计控件用那些，窗体设计好后只是叫你依葫
芦画瓢的在代码窗口中输入书上给出的那些代码，程序就算完成了。老老实实
的按书上给的代码一个一个的输进去，也确实能看到和书上写的一样的效果。
      自己想设计一个程序把窗体设计好后，才知道代码怎么写一无所知，把书
翻了几遍都找不到如何写代码的章节，真郁闷。
     自己也想设计一个小程序来提提兴趣，请VB会家帮忙写写完整的代码，也让我这
初入门者参考研究一下代码如何写并且程序如何完成工作的。
程序名：彩票模拟摇奖手工出号器
    1程序界面很简洁：一个出号按钮，一个复位按钮，一个显示彩票开奖号码随机循环
的显示框A（如双色球红球就是1-33这几个号码随机循环转动，数字在代码语句中应该可以
自己随意改吧？），一个显示选出号码的显示框B。
   要求：
1显示框A里面显示转动的效果图。
2点击一次出号按钮出一个号，再点出第二个号，以此类推，出一个少一个。可以点到号出完。
3手工点击出的号依此显示在显示框B里面。
4点击复位按钮后清空显示框B里面选出的号码同时显示框A里面的数据循环回到
初始状态。
实际的界面如附件中的文件：
这个程序编好后大家也可以用来玩一玩彩票，增加一点乐趣。

非常感谢2楼zmh886出手相帮写了代码，辛苦了喝杯
有问题希望再帮解决解决：
1：点击出号按钮有时会同时出两个号码。
2：点击到第七次也就是出到第七个号码时循环停止了再点就是反复出同一个号，需再点复位按钮后才可以再继续。
3：我的思路是不管出了几个号码，只要点击了复位按钮后，清空选出的号码并且数字循环同时恢复到初始状态。
4：出号窗口单行显示满了后能否从第二行接着继续显示号码。

感谢zmh886热情出手，这次更改后就和我想要的效果一模一样了。这真值得我好好学习研究一下，给了我鼓舞，给了我继续学习VB的动力和热情。
    所设定的数字随机循环速度可不可以调节？
   比如用一个滑动条滑动来调节，时间从0.1秒到5秒的范围内调节。或者可以随意拖动滑动条任意调节循环速度。



[ 本帖最后由 d101001000 于 2010-11-3 22:27 编辑 ]

Private Sub Form_Load()
    '设置滚动条点箭头时的变化为100
    HScroll1.SmallChange = 100
    '设置滚动条直接点滚动条空白处时的变化为100
    HScroll1.LargeChange = 100
    '设置滚动条最小值为100 对应100ms即0.1s
    HScroll1.Min = 100
    '设置滚动条最大值为5000 对应5000ms即5s
    HScroll1.Max = 5000
    Timer1.Interval = HScroll1.Value
    Label1.Caption = "当前循环间隔为" & HScroll1.Value / 1000 & "s"
End Sub

Private Sub HScroll1_Change()
    Timer1.Interval = HScroll1.Value
    Label1.Caption = "当前循环间隔为" & HScroll1.Value / 1000 & "s"
End Sub

非常感谢zmh886，高手就是高手，果然出手不凡，有求必应，招招见效。看书自学VB真的不简单，买的那本书就只讲控件和窗体设计，看来还得再买书，网上下载相结合，vb 路上只要能看到你般高手的脚印也就心满意足了。