2019年06月25日第七節電子計算機概論期末測驗說明

一、請檢視四月、五月、六月的部落格資料。
二、請複習第一次及第二次段考內容。
三、測驗重點有：
　　A.結構化程式：
　　　i.循序結構
　　　ii.選擇結構
　　　　if than else endif
　　　　select case end select
　　　iii.重複結構
　　　　for next
　　　　do loop

　　B.流程圖：
　　　i.循序結構
　　　　處理程序
　　　　輸入、輸出
　　　ii.選擇結構
　　　　決策、判斷
　　　iii.重複結構
　　　　
　　C.演算法：
　　　有限性。
　　　明確性。
　　　有效性。
　　　輸入資料。
　　　輸出資料。

　　D.資料處理基本觀念

　　E.變數宣告：Integer、Date、Single、String……

　　F.Random

　　G.常用函數：
　　　Randomize()
　　　Math.Round(Single,1)
　　　Color.FromArgb(R,G, B)
　　　Int(Single)
　　　Rnd()
　　　DateTime.Today.ToString("yyyy/MM/dd")

　　　DateTime.Today.Now
　　　DateTime.Today.Now.AddDays()

　　H.資料結構
　　　Stack堆疊
　　　Queue佇列

　　I.參數傳遞
　　　Call By Value
　　　Call By Reference
　　　Call By Adress
　　　Call by value of pointer

　　J.DeBug
　　　執行階段錯誤
　　　語意錯誤(邏輯錯誤)
　　　語法錯誤

　　K.SubProgram

　　L.撰寫程式的程序

Bread麵包餅乾配方計算

APK檔下載點

日期格式轉換

Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Now_time As String = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") 
　　　　'宣告日期變數，設定日期格式
        Dim d1 As Date = DateTime.Today
　　　　 '宣告日期變數
        Dim d2 As Date
        Label1.Text = d1.ToString("yyyy/MM/dd")
　　　　 '顯示(現在日期),DateTime.Now
        Label2.Text = d1.Now
　　　　 '顯示(現在日期、時間),DateTime.Now
        Label3.Text = d1.Now.AddDays(6)
　　　　 '顯示(現在日期+6天、時間),DateTime.Now.AddDays(6)
        d2 = "#" & TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox3.Text & "#"
　　　　 '字串轉換成日期格式
        Label4.Text = d2
　　　　 '顯示d2的日期，#2019/06/10#
    End Sub
End Class

隨機抽籤--程式示範

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ans As Integer
        Randomize()
        ans = Int(Rnd() * 12) + 1
        Select Case ans
            Case 1
                TextBox1.Text = "第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支第一支"
            Case 2
                TextBox1.Text = "第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支第二支"
            Case 3
                TextBox1.Text = "第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支第三支"
            Case 4
                TextBox1.Text = "第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支第四支"
            Case 5
                TextBox1.Text = "第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支第五支"
            Case 6
                TextBox1.Text = "第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支第六支"
            Case 7
                TextBox1.Text = "第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支第七支"
            Case 8
                TextBox1.Text = "第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支第八支"
            Case 9
                TextBox1.Text = "第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支第九支"
            Case 10
                TextBox1.Text = "第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支第十支"
            Case 11
                TextBox1.Text = "第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支第十一支"
            Case 12
                TextBox1.Text = "第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支第十二支"
        End Select
    End Sub
End Class

Car_Oil汽車油耗

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim kilo, liter, price, total, kiloPerliter, literPerkilo, kiloPermoney, moneyPerkilo As Single
        kilo = Val(TextBox1.Text)
        liter = Val(TextBox2.Text)
        price = Val(TextBox5.Text)
        total = price * liter
        kiloPerliter = Math.Round(kilo / liter, 2)
        literPerkilo = Math.Round(liter / kilo, 2)
        kiloPermoney = Math.Round(kiloPerliter / price, 2)
        moneyPerkilo = Math.Round(literPerkilo * price, 2)
        TextBox3.Text = kiloPerliter
        TextBox4.Text = literPerkilo
        TextBox6.Text = kiloPermoney
        TextBox7.Text = moneyPerkilo
        TextBox8.Text = total
    End Sub
End Class