匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 1 0 年前

VB設計程式 高手快來幫我

設計一程式以亂數產生1~10的數字

若大於5則執行溫度轉換程式

否則執行成績等第程式

有三種程式

拜託來幫我打程式

3 個解答

評分
  • 1 0 年前
    最佳解答

    我發覺通常問VB的都是為了學校作業.....

    我希望台灣學生能加油點。

    2010-11-07 14:24:02 補充:

    首先先建立3個表單分別為( Form1、Form2、Form3 )

    每個表單內放入一個按鈕物件即可( Command1 )

    第一個表單 ( Form1 ) 為 : 亂數產生至要執行的程式

    第二個表單 ( Form2 ) 為 : 溫度轉換程式

    第三個表單 ( Form3 ) 為 : 成績等第程式

    以下為程式碼 : 複製貼到VB寫程式的地方即可

    以下是Form1內的Command1按紐的程式碼 :

    Private Sub Command1_Click()

    '假設要執行另外一個程式初學者可以採用呼叫表單方式

    '學久了可以使用Shell指令呼叫外部程式

    Dim a As Integer

    Randomize '亂數

    a = Int(Rnd * 10) + 1 '隨機產生1~10的整數數字

    Command1.Caption = "目前亂數產生為 : " & a

    If a > 5 Then

    MsgBox "執行溫度轉換程式", , "提示訊息"

    '建立表單為(Form2)將溫度轉換程式寫在裡面

    Unload Me '關閉目前表單(這行可寫可不寫)

    Form2.Show'呼叫Form2

    Else

    MsgBox "執行成績等第程式", , "提示訊息"

    '建立表單為(Form3)將成績等第程式寫在裡面

    Unload Me'關閉目前表單(這行可寫可不寫)

    Form3.Show '呼叫Form3

    End If

    End Sub

    以下是Form2內的Command1按鈕的程式碼 :

    Private Sub Command1_Click()

    '公式{ F = 1.8 * C + 32 }

    '華氏:F,攝氏:C

    Dim C As Integer, F As Integer

    C = InputBox("請輸入要轉換的攝氏溫度", "攝氏轉華氏")

    F = Val(1.8 * C + 32)

    Print "攝氏 : " & C & " 度轉換華氏為 : " & F & " 度"

    End Sub

    以下是Form3內的Command1按鈕的程式碼 :

    Private Sub Command1_Click()

    Dim s As Integer

    s = Val(InputBox("請輸入一個成績", "成績輸入"))

    Select Case s

    Case Is > 100

    MsgBox "輸入數值超過100,請重新輸入", vbExclamation, "錯誤訊息"

    Case Is >= 90

    Print "分數" & s & "分為優等"

    Case Is >= 80

    Print "分數" & s & "分為甲等"

    Case Is >= 70

    Print "分數" & s & "分為乙等"

    Case Is >= 60

    Print "分數" & s & "分為丙等"

    Case Is >= 0

    Print "分數" & s & "分為丁等"

    Case Else

    MsgBox "輸入低於0,請重新輸入", vbExclamation, "錯誤訊息"

    End Select

    End Sub

    精華文章,請勿刪除 ^ ^

    2010-11-07 14:37:10 補充:

    想要完整檔案在加我奇摩即時 : youandyw

    參考資料: 資處科+程式設計師
  • 1 0 年前

    希望台灣學生能加油點...

    難喔......複製,貼上,直接下載就可以交差

  • 1 0 年前

    同學作業要自己寫~你會發現~你會變強的

    亂數產生1~10的數字, 溫度轉換程式,執行成績等第程式都先寫成子程式

    整體判斷也不過一組IF~ELSE就完成整合了

    如果寫不出來(至少要先爬爬文)TRY & ERROR 才會變強

    加油

還有問題?馬上發問,尋求解答。