1.計算機程式--- Print 語法練習

Private Sub Command1_Click( )
    Rem 班級:機一乙   學號: 10014****   姓名: ***
    Rem
    Rem *** Print 基本語法練習 ***
    Rem *** InputBox 語法練習 ***
Rem
    Dim a  As  Integer
    Dim b As  Integer
Dim c As Integer
    a = InputBox("請輸入一個整數a= ", , 56)
    b = InputBox("請輸入一個整數b= ", , 80)
c = InputBox("請輸入一個整數c= ", , 60)
  ' a = 56
  ' b = 80
  ' c = 60
    d = a + b + c
    e = d / 3#
    Print Spc(5) ; "原來的三個數字為 " ; Spc(3); a; Spc(3); b; Spc(3); c
    Print Spc(5); "總和為 "; Spc(13); d
  ' Print Spc(5); "平均值為 "; Spc(12); e
    Print Spc(5); "平均值為 " ; Spc(12) ; Format(e, "#####.##")
End Sub

全部共 3則留言

12-14 08:42:

讚+1

12-14 14:49:

讚+1

12-21 14:15:

讚喔老師辛苦了~

登入帳號密碼代表遵守學術網路規範

文章分類 Labels

最新文章 Top10

中華科技大學數位化學習歷程 - 意見反應