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

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

        // 題目: 斜紋地磚
        //@--@--@--
        //-@--@--@-
        //--@--@--@
        //@--@--@--

文章標籤

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

        // 題目:陣列排序
        int[] a = { 10, 99, 15, 2, 58, 28, 94 };
        int N = a.Length;
        int t = 0;
        for (int i = 0; i < N - 1; i++)

文章標籤

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

        // 題目:印出由1到200,所有能被13所整除的整數。
        string strPrint = "";
        for (int ii = 1; ii <= 200; ii++)
        {
            if(ii % 13 ==0){

文章標籤

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

        //  題目:計算從1加到100的總和
        int intTotal = 0;
        for (int ii = 1; ii <= 100; ii++)
        {
            intTotal += ii;

文章標籤

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

        // 題目:九九乘法表
        string strPrint = "";
        for (int ii = 1; ii <= 9; ii++)
        {
            for (int jj = 1; jj <= 9; jj++)

文章標籤

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

        // 題目:找出數值陣列中最大值與最小值
        int[] intArray = { 10, 99, 15, 2, 58, 28, 94 };
        int intMax = intArray[0];
        int intMin = intArray[0];

        for (int ii = 0; ii < intArray.Length; ii++)

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

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

Option Explicit

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

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

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

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

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

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

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

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

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

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

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

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

題目:列出下列結果

*
**
***
****

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

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

不過這版本已經修改過了

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

 

Private Sub Form_Activate()

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

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

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

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


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

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