目前分類:程式實例 (10)

瀏覽方式: 標題列表 簡短摘要

自己平常有興趣偶爾寫寫的小程式
若有寫的不好地方還請見諒啦

Option Explicit

Public dblRunNum As Double '記錄產生的數字

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

顯示結果
*****
*****
*****
*****

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

列出結果
        *
      **
    ***
  ****

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

列示結果
*
**
***
****

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

列印結果
      *
    ***
  *****
*******

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

列印結果
      *
    ***
  *****
*******

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

題目:列出下列結果

*
**
***
****

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

突然想起第一次寫程式所寫的程式,九九乘法表

不過這版本已經修改過了

程式寫多總會進步的嘛~"~

 

Private Sub Form_Activate()

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

using System;
using System.Data;
using System.Web;
using System.Configuration;
using System.Web.Security;

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()

最近在研究別人寫的程式,剛好看到這篇有關抽獎的原始碼,文章的來源不可考了,若有人知道還請告知啦~~


  主要利用VB中的Rnd函數,來實現隨機查找和打亂排序的功能,從而實現隨機抽獎的目的。Rnd函數的語法結構是Rnd[(number)],可選的number參數是 single或任何有效的數值運算式。Rnd函數返回小於1但大於或等於0的值。number 的值決定了 Rnd 生成亂數的方式。為了生成某個範圍內的隨機整數,可使用以下公式:

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()