系統公告
自我簡介
個人圖檔
ID:alice1p
暱稱:阿妮子

贊助商連結
人氣指數
當日人次:
累積人次:
我推推推
輕旅行
推推推我
歡迎觀看
好時光貼曆
贊助商連結
其它資訊
本部落所刊登之內容,皆由作者個人所提供,不代表 yam天空部落 本身立場。
POWERED BY
POWERED BY
會員登入免費註冊
December 25, 2007
以下請用決策判斷+迴圈



 

 


1.

找出1500之間,所有可被13整除的數,全部顯示出來。

一.  找出1500之間,所有被13整除的數

Private Sub C1_Click()

    Dim a As Integer

    Dim s As Integer

   

    For a = 1 To 500

        If a Mod 13 = 0 Then

            Print a

        End If

    Next a

   

End Sub

 

Private Sub Form_Load()

    C1.Caption = "計算"

    Form1.Caption = "1500之間,被13整除的數"

End Sub

 


2.

雞兔同籠,只知共有100隻腳,求出每一種情況的雞、兔之數量及共有幾種可能的情況。


2.雞兔同籠()

 

Private Sub C1_Click()

    Dim x As Integer

    Dim y As Integer

   

    For x = 0 To 50

   

        For y = 0 To 50

            If (4 * x) + (2 * y) = 100 Then

                Print "兔子有"; x; ""; "      "; "雞有"; y; ""

            End If

        Next y

    Next x

   

    Print "共有26種可能"

End Sub

 

Private Sub Form_Load()

    C1.Caption = "計算"

    Form1.Caption = "雞兔同籠二"

End Sub



以下題目請用陣列


3.

設計一程式,輸入數字1~12能印出相對月份之英文字,若超出範圍則印出錯誤訊息。

例如:

輸入:

1

2

3

……

12

輸出:

JANUARY

FEBRUARY

MARCH

……

DECEMBER

3.輸入數字 1~12 ,印出相對月之英文字

 

Private Sub C1_Click()

    Dim a(1 To 12) As String

        a(1) = " 1JAUNARY"

        a(2) = " 2FEBRUARY"

        a(3) = " 3MARCH"

        a(4) = " 4APRIL"

        a(5) = " 5MAY"

        a(6) = " 6JUNE"

        a(7) = " 7JULY"

        a(8) = " 8AGUEST"

        a(9) = " 9SEPTEMBER"

        a(10) = " 10OCTOBER"

        a(11) = "11NOVEMBER"

        a(12) = "12DECEMBER"

    L1.Caption = a(Val(T1.Text))

End Sub

 

Private Sub Form_Load()

    L1.Caption = ""

    T1.Text = ""

    C1.Caption = "對應"

    Form1.Caption = "輸入數字 1~12 ,印出相對月之英文字"

End Sub

 4.

輸入員工的薪水,求員工薪餉袋內應包括若干千元鈔、五百元鈔、百元鈔、五十元硬幣、十元硬幣、五元硬幣、一元硬幣?

Private Sub C1_Click()

    Dim a(1 To 3)

    Dim s As Integer

   

    a(1) = Val(T1.Text)

    If a(1) \ 10 < 10 Then

        a(2) = a(1) - (a(1) \ 10) * 10

        Print a(1) \ 10&; "10"

            If a(2) \ 5 < 10 Then

                a(3) = a(2) - (a(2) \ 5) * 5

                Print a(2) \ 5&; "5"

            End If

                If a(3) \ 1 < 10 Then

                    Print a(3) \ 1&; "1"

                End If

    Else

        Print "請輸入2位數"

    End If

End Sub

 

Private Sub Form_Load()

    T1.Text = ""

    Form1.Caption = "硬幣2位數"

    C1.Caption = "計算"

End Sub


5.

寫一程式模擬樂透開獎機。(使用亂數函數)

1~49的數字中,隨機選出6個號碼和1個特別號。

Private Sub Command1_Click()

    Dim a(1 To 7)

    Randomize

    Print "----樂透開獎機----"

    For z = 1 To 7

        a(z) = Fix(Rnd * 49) + 1

        Do While a(z) = 50

            a(z) = Fix(Rnd * 49) + 1

        Loop

       

        If a(7) Then

        Print "特別號"; a(7)

        Else

        Print ""; z; "個號碼是"; a(z)

        End If

       

    Next z

   

End Sub

 

Private Sub Form_Load()

    Form1.Caption = "樂透開獎機"

    Command1.Caption = "開獎"

   

End Sub





終 於 都 做 了,真 是 感 動 !!

 

 

 



引用 (你可以針對此文寫一篇屬於自己的blog/想法,並給作者一個通告)
引用
留言 (1筆)
1.
既然來了,看來,就要推
>快去這里Lvmiss。com我每次都是去這里看
力僢傺剳
 
o5v518p55 於 Jan 14, 2014 留言 |
發表你的留言 (字數限制 最多 2000 個中文字)
私密留言:
Name:




內容:
檢視行動版網頁  |  檢視正常版網頁