vb書面報告

VB程式設計書面報告

指導老師：陳世芳

學生姓名：廖紫如

學生學號：511301

班級：303

座號：39

完成日期：97/11/18

目錄

封面 0

目錄 1

兩數相加 2

使用物件 （需要說明） 2
執行畫面（執行前、後） 3
程式碼 4

字型變化 5

使用物件 （需要說明） 5
執行畫面（執行前、後） 6
程式碼 7

溫度轉換 9

使用物件 （需要說明） 9
執行畫面（執行前、後） 10
程式碼 11

題目：兩數相加

設計一畫面如圖所示，顯示現在時刻。

使用物件

使用物件	變數名稱	標題
表單	Form1	現在時刻-班級座號姓名
功能紐	Command1	現在時刻T
功能紐	Command2	清除C
功能紐	Command3	結束E

執行畫面

程式碼

Private Sub Command1_Click()

Print Time '顯示時間

End Sub

Private Sub Command2_Click()

Cls '清除畫面

End Sub

Private Sub Command3_Click()

End '結束表單執行畫面

End Sub

Private Sub Command4_Click()

End

End Sub

題目：字型變化

設計一組文字如圖所示，使用四個功能鈕使其變化。

使用物件

使用物件	變數名稱	標題
表單	Form1	字型變化-班級座號姓名
功能紐	Command1	粗體
功能紐	Command2	斜體
功能紐	Command3	底線
功能紐	Command4	刪除線
功能紐	Command5	還原
功能紐	Command6	結束

執行畫面

程式碼

Private Sub Command1_Click()

Label1.FontBold = True

Label1.FontItalic = False

Label1.FontUnderline = False

Label1.FontStrikethru = False

End Sub

Private Sub Command2_Click()

Label1.FontBold = False

Label1.FontItalic = True

Label1.FontUnderline = False

Label1.FontStrikethru = False

End Sub

Private Sub Command3_Click()

Label1.FontBold = False

Label1.FontItalic = False

Label1.FontUnderline = True

Label1.FontStrikethru = False

End Sub

Private Sub Command4_Click()

Label1.FontBold = False

Label1.FontItalic = False

Label1.FontUnderline = False

Label1.FontStrikethru = True

End Sub

Private Sub Command5_Click()

Label1.FontBold = False

Label1.FontItalic = False

Label1.FontUnderline = False

Label1.FontStrikethru = False

End Sub

Private Sub Command6_Click()

End

End Sub

題目：溫度轉換

設計一畫面如圖所示，在第一個文字盒中輸入攝氏溫度，隨即於第二個文字盒’ 輸出華氏溫度。

華氏溫度 = ( 攝氏溫度 * 9 / 5 ) + 32

使用物件

使用物件	變數名稱	標題
表單	Form1	溫度轉換-班級座號姓名
標籤	Label 2	華氏溫度
文字盒	Text2	（空白）
功能紐	Command1	重設數據
功能紐	Command2	結束

執行畫面

程式碼

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Text1_Change()

If Text1.Text <> "" Then

Text2 = Text1 * 9 / 5 + 32

End If

End Sub

--

囤著。