百家乐,百家乐官方网站,百家乐APP下载,百家乐游戏平台,百家乐网址,百家乐试玩,百家乐的玩法,百家乐技巧,百家乐公式,百家乐打法,百家乐电子,21点,德州扑克,快三,pk10,时时彩,北京赛车

　　通过语言编程一般来说对事物的认识是很确定的了，是一就是一，是二就是二，还有一个

　　问题，有一些不该那么确定的事情该如何处理，象我们的彩票抽奖，如果是确定的了，那

　　对于这一类的事情，语言中提供了随机数，也就是说通过他得到的一个值将是不能确定的

　　这个函数是非常有用的，他可能是计算机语言中唯一没有理性的东东了。正因为这个唯一

　　随机函数RND的取什范围是0-1之间的任意数，不包括0也不包括1，要想做到从1-100

　　之间进行取数，必须扩大100倍才行。不难计算RND*100的范围却不是1-100，而是0-100,

　　不包括0和100，怎样就是1-100了呢？加上一就有了再取整，这个数只要这样表达就出来

　　程序中最核心的部分我们可以做一个子程序，这一部分将实现如何从1-30这30个整数中

　　为了便于应用循环，我们可将(2)-(8)步通通改成(8)标准，这样我们的子程序就有了：

　　在其他的程序中，我们只要调用上面的函数，就能产生1-30中的互不相同的七个数。程序

　　我们的彩票游戏基本完成了,运行界面如图pic1示.只要在窗体上用左键点一下，就会出现

　　一组数据，那就是机器为我们提供的彩票投注，但我们从它的身上也不难看到，这个程序

　　为了让制做的程序更加漂亮生动，我们可能对其输出数据进行综合规范，使用VB中提供

　　在窗体上加上八个文本框，可要注意啦，为了便于组织她们，可以用数组的形式，数组形

　　式怎样产生呢？请建立一个文本框,并将其名称（Name）属性改为TxtNum，然后通过复制

　　后的七次粘贴就搞定,这样名称为TxtNum(0)-TxtNum(7)的八个文本框就建好了。其中前7个

　　只有文本框还是不行的，再加上几个标签来对各控件的作用加以说明，放上本个命令按钮

　　还有一个问题，有时我们投注会加上个人成分，好了，人们分成人机结合和机选两种情况

　　因为二者必须选择一种状态，我们选择使用单选按钮（OptionButton）。

　　7值按不相同的原则取好后，再增加一个对体育彩票特殊号的预测。这就和上面选择一个时

　　为了实现自选和机选相结合，需对Judge（）函数进行一些改动以适合两种条件。即通过

　　为了让显示效果更加生动活泼，动画效果是不可少的，数字动画实现是通过一Timer 控件

　　来控制间隔时间输出实现，可将其Interval 属性，1 代表1 毫秒即1/1000 秒来完成。这也提

　　示我们在建立窗体后再在上面加一个时间控件，并设好其interval 值。

　　扩充，它使得Visual Basic 能够直接控制和处理计算机的系统参数和硬件资源。借助于API

　　性。说他是Windows 直通车一点也不为过，并且语言为我们提供了API 文本浏览器，我们

　　(1)用Declare 语句声明所要调用的API 函数，若该函数无返回值，可声明为Sub 过程；若

　　(2)一旦声明了某一个API 函数后，就可以象调用Visual Basic 的函数一样方便。在本程序中

　　下面我们接着上一讲的例子，再将程序的界面美化一下。我们知道，应用程序的窗口一般

　　都是方方正正的，我们能不能做一个另类一点的窗口呢？当然可以，要做出这种窗口，

　　上面的函数的做用是生成椭圆区域窗体，如果我们画出一个椭圆并用一个长方形将它框起

　　来，几个参数中x1,y1 决定了正文方形的左上角，x2,y2 决定了正方形的右上角，所以划一

　　个圆形的窗体最重要的是让x1 与y1 相等，x2 与y2 相等，大小则看x1 与y1 的差了。只有

　　上面的函数和(1)结合，将实现窗体的形状，第一个参数是要变形的窗体，在我们的程序中

　　就是当前窗体，可使用Me.hwnd,第二个参数是将要变成的形状，这里自然就是上面的函数

　　我们只要执行一下我们的程序，原先的方方正正的窗口就成了圆形的了（如图pic2 所示）！

　　当然关于函数、子程序和他们之间发生的故事还有很多，我们仅仅列举了其中奇妙的几点

　　通过上面程序，圆形的彩票投注软件就完成了，并且可以通过机选或手选选投,所选数字实

　　现动态显示，其实,通过您的想象，窗体也可能变成别的样子，当然，发挥您聪明的DIY精