小柯的文章貼簿

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim id$ = "jack"        Dim pw$ = "luck007"        If TextBox1.Text = id And TextBox2.Text = pw Then            MsgBox("歡迎進入圖書資訊系統", , "系統提示")        Else            MsgBox("帳號或密碼輸入錯誤，請重新輸入", , "系統提示")        End If

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim id, pw As String
        id = TextBox1.Text
        pw = TextBox2.Text
        If id = "jack" And pw = "luck007" Then

Visual basic

Visual C#

Visual C++

Visual J#

Visual studio

共同語言規範(CLS)

ASP.NET

Windows Forms

ADO.NET及XML

.NET Framework類別庫(FCL)

共同語言執行環境(CLR)

作業平台

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load            End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim h, s As Single        h = InputBox("請輸入華氏溫度", "華氏轉攝氏")        s = 5 / 9 * (h - 32)        MsgBox("攝氏溫度為" & s, , "華氏轉攝氏")    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Dim h, s As Single        s = InputBox("請輸入攝氏溫度", "攝氏轉華氏")        h = 9 * s / 5 + 32        MsgBox("華氏溫度為" & h, , "攝氏轉華氏")    End SubEnd Class