ALL the new life
關於部落格
開心就好 ,生活就是要活的自在快樂 。 

  • 1355

    累積人氣

  • 0

    今日人氣

    0

    訂閱人氣

寒假作業VB39題

一.

Private Sub C1_Click()
    Q = InputBox("請輸入英吋", "英吋", "")
    W = MsgBox(Q * 2.54 & "公分", , "英吋轉公分")
End Sub

Private Sub C2_Click()
    A = InputBox("請輸入攝氏", "攝氏", "")
    S = MsgBox(A * (9 / 5) + 32 & "華氏", , "攝氏轉華氏")
End Sub

Private Sub Form_Load()
    C2.Caption = " 1-1 計算攝氏轉華氏"
    C1.Caption = " 1 計算英吋轉公分"
    Form1.Caption = "34號【潘思妤】--●原版●--"
End Sub



十.

Private Sub Command1_Click()
    x = Val(InputBox("請輸入X", "X值", ""))
    y = Val(InputBox("請輸入Y", "Y值", ""))
    Z = Val(InputBox("請輸入Z", "Z值", ""))
    E = MsgBox("(X^2+1)^3+(Y^2+1)^3+(Z^2+1)^3 =  " & (x ^ 2 + 1) ^ 3 + (y ^ 2 + 1) ^ 3 + (Z ^ 2 + 1) ^ 3, , "值")
End Sub

Private Sub Form_Load()
    Command1.Caption = "x y z 值"
    Form10.Caption = "34號【潘思妤】--●原版●--"
End Sub



二十.

Private Sub Command1_Click()
    N = Val(InputBox("正整數n值", "n值", ""))
   
    Print "n"; Tab(20); "2^n"
    Print "__"; Tab(19); "____"
   
    For a = 0 To N
        Print a; Tab(20); 2 ^ a
    Next a
End Sub

Private Sub Form_Load()
    Command1.Caption = "計算"
    Form20.Caption = "34號【潘思妤】--●原版●--"
End Sub



以上僅供參考,    我可不確定正確與否。

其他題,想參考者,請及時密我OK?

=ˇ= 希望大家作業愉快~~~~~~~


相簿設定
標籤設定
相簿狀態