基礎程式設計 - 李帆老師說:讓工作持續保有知識上的挑戰性 - 優仕網部落格

優仕網部落格優質部落格精選文章
教育部落格大賽
官方推薦優質Blog!
御宅族+上班族
部落格分類
字體大小:  
基礎程式設計

VBA 上課範例下載區

鑑於本校為家事類學校其實程式設計並不是重點課程
但還是希望各位同學能夠接觸、認識這一塊領域
我不希望同學另外去尋找工具程式
因此採用Excel內建的VBA來練習
其程式碼如下,直接複製貼上便可以執行

輸出輸入函數I P.4-42
 

  N = InputBox("請問貴姓大名?","綜合練習") 

  MsgBox "早安," +N+ "小姐祝您旅途平安愉快" ,, "溫馨祝福"

 _____________________________________________________________________
輸出輸入函數II P.4-43
 

  Chi = Val(InputBox(“請輸入國文成績:”,”計算總分”))

  Eng = Val(InputBox(“請輸入英文成績:”,”計算總分”))

  Mat = Val(InputBox(“請輸入數學成績:”,”計算總分”))

  Sum = Chi + Eng + Mat

  MsgBox "您這次月考國、英、數三科總分為" & Sum ,, "總分輸出"

 _____________________________________________________________________
循序結構 P.4-46
 

  a = Val(InputBox(“請輸入三角形第一邊之邊長:”,”計算面積”))

  b = Val(InputBox(“請輸入三角形第二邊之邊長:”,”計算面積”))

  c = Val(InputBox(“請輸入三角形第三邊之邊長:”,”計算面積”))

  s = ( a + b + c ) / 2

  area = ( s * (s-a) * (s-b) * (s-c) ) ^ 0.5

  MsgBox "三角形的面積 = " & area ,, "計算面積"

 _____________________________________________________________________
選擇結構 P.4-50
 

  Score = Val( InputBox( “請輸入檢定成績:” , ”成績判別” ) )

  If score >= 60 Then

    MsgBox "及格!" ,vbInformation, "恭喜!"

  Else

    MsgBox "不及格!再加油!" ,vbExclamation, "再努力!"

  End If

  _____________________________________________________________________
重複結構 P.4-56
 

  Dim i As Integer

  Sum = 0

  For i = 1 To 10 Step 1

    Sum = Sum + i

  Next i

  MsgBox "1+2+…+50 = " & Sum ,vbExclamation, "累加結果"

  Range("B2").Value = Sum

  _____________________________________________________________________
簡易計算機 P.4-61
 

Private Sub CommandButton1_Click()

  Range("D13").Value = Range("D6").Value + Range("D8").Value

End Sub

 

Private Sub CommandButton2_Click()

  Range("D13").Value = Range("D6").Value - Range("D8").Value

End Sub

 

Private Sub CommandButton3_Click()

  Range("D13").Value = Range("D6").Value * Range("D8").Value

End Sub

 

Private Sub CommandButton4_Click()

  Range("D13").Value = Range("D6").Value / Range("D8").Value

End Sub

 Private Sub CommandButton5_Click()  Range("D13").Value = "=AVERAGE(D6,D8)"End Sub

※利用Excel函數求解

瀏覽次數:2956|回應簽到列印

分享:


 《上一篇 - 社團第七週上課內容
 《下一篇 - 社團第六週上課內容
0
延伸閱讀
(0)
回 應
共有 0 則回應
你是否想要回應?
註冊以獲得一個免費帳戶,或登入(如果你已經是會員)

站長

Lio
♂ 40 台北市
行事曆
S M T W T F S
          12
3456789
10111213141516
17181920212223
24252627282930
31           
常用標籤
最新發表
Updates occur every 60 minutes.
最新回應
Updates occur every 60 minutes.
瀏覽統計