摘要:VB學習心得1.判斷式
VB判斷式寫法不少種,有if,select等等,個人列出書本的題目並列出個人寫的程式碼
參考書籍:Visual Basic 2008程式設計學習教本
5-30頁
3.建立一個示範程式,可以讓使用者輸入一個整數,判斷其是否為偶數或奇數,並顯示其結果
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim shownumber As String = TextBox1.Text
Dim num2 As Integer = 2
Dim num3 As Integer = CInt(shownumber) Mod num2
If (num3 > 0) Then
label1.Text = "奇數"
Else
label1.Text = "偶數"
End If
End Sub
End Class
4.請撰寫一支程式,要求使用者輸入代表三角形的三個角度的整數,並判斷這三個角度能否構成三角形的三個內角
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num1 As String = TextBox1.Text
Dim num2 As String = TextBox2.Text
Dim num3 As String = TextBox3.Text
If ((CInt(num1) + CInt(num2) + CInt(num3)) = 180) Then
MsgBox("可以成為三角形")
Else
MsgBox("角度應為180")
End If
End Sub
End Class
7.撰寫一支程式,根據使用者輸入年齡來判斷電影分級
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num1 As String = TextBox1.Text
Dim num2 As Integer = CInt(num1)
If (num2 >= 18) Then
label1.Text = "限制級"
ElseIf (num2 > 12 & num2 < 18) Then
label1.Text = "輔導級"
ElseIf (num2 < 12) Then
label1.Text = "普級"
End If
End Sub
End Class
16.讓使用者輸入整數,並且輸出對應的月份
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num1 As String = TextBox1.Text
Dim num2 As Integer = CInt(num1)
Select Case num2
Case 1
num1 = "一月"
Case 2
num1 = "二月"
Case 3
num1 = "三月"
Case 4
num1 = "四月"
Case 5
num1 = "五月"
Case 6
num1 = "六月"
Case 7
num1 = "七月"
Case 8
num1 = "八月"
Case 9
num1 = "九月"
Case 10
num1 = "十月"
Case 11
num1 = "十一月"
Case 12
num1 = "十二月"
Case Else
label1.Text = "請輸入1~12的數字"
End Select
label1.Text = num1
End Sub
End Class