作業參考講義2

檢覈項目：

1.      □已經會使用變數、常數的宣告及命名

2.      □已經會使用InputBox、MsgBox

3.      □完成隨堂練習  □完成綜合練習  □完成進階題

4.      我有話要說：

資料型別(P.40 & P.49)

1. 數值資料型別：短整數(     )、整數(      )、長整數(      )、單精度(     )、倍精度(     )

2. 文字資料型別：字串(      )、字元。

變數 VS. 常數 (P.44 & P.49)

        變數宣告： 將 r 宣告為整數型別變數    ________________________

                                                                                ________________________

        常數宣告： 將 pi 宣告為代表圓周率的常數 ______________________

                                                                              ______________________

命名規則(P.46)

n  長度必須在1023個字元以內

n  不可與Visual Basic的保留字相同

n  必須以英文字母（大小寫皆可）、底線或中文字開頭

n  名稱中不能有句點或者是型別字元

問題：下列命名何者正確(請勾選)

□F4    □5566   □Hi!Baby  □旋渦鳴人 □瑤瑤! □Integer □Dim

運算式(P.52)

1.          ?  (1+2) * 3  à ____                   2.     ?   2^3 à __________ 

3.         ?  123 + 456 à __________      4.    ?  “123” + “456” à _________

5.       ?  “Hi!” & 183  à _________    6.    ?   “Hi!” + 183 à __________

內建函數—輸出入函數

InputBox(P.75)  à   變數 = InputBox("訊息文字"[, "標題文字"][, "輸入欄位預設值"])

MsgBox(P.76) à [變數 =] MsgBox("訊息文字"[, 訊息交談窗樣式及狀態設定值][, "標題文字"])

隨堂練習(參考P.75~79)

1.      表單：＿＿＿＿　事件：＿＿＿＿＿

2.      變數型別：　UserIDà_________,  Replyà__________

3.      使用函數：＿＿＿＿＿＿＿、＿＿＿＿＿＿＿＿＿

Public Class Form1

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        Dim UserID As String

        Dim Reply As Short

        UserID = InputBox("請輸入帳號", "海角七億帳戶")

　　　　If UserID = "A_Ben" Then

            Reply = MsgBox("密碼正確", 64 + 1, "海角七億帳戶密碼檢核系統")

        Else

            Reply = MsgBox("密碼錯誤", 16 + 0, "海角七億帳戶密碼檢核系統")

        End If

        If Reply = 1 Then

            End

        End If

    End Sub

End Class

綜合練習(P.80)-- 趣味問答程式

1. 表單：＿＿＿＿＿＿＿　　事件：＿＿＿＿、_____________

2. 使用變數名稱及宣告型別　nà_______, ià_______, là_______

3.使用函數：＿＿＿、＿＿＿＿、 ＿＿＿＿、___________、____________、____________

註：Int(), Randomize(), Rnd()àP.69    Mid()àP.65

Public Class Form1

    Const n As String = "SHE"

    Dim i As Short

    Dim l As Char

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Randomize()

        i = Int(Rnd() * 3) + 1

        l = Mid(n, i, 1)

    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Dim ans As String

        ans = InputBox("流行合唱團SHE，" + vbCrLf + "其中" & l & "指的是誰?", "猜一猜")

        MsgBox("S：Selina, H:Hebe, E: Ella", MsgBoxStyle.Information, "解答參考")

        MessageBox.Show("你輸入的是" & ans & ":你答對了嗎?", "答案核對", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    End Sub

End Class

進階練習(P.84) – Ex02-3b.sln