Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

VB程式幾個問題

1.怎麼使用VB拉物件的方式寫加減乘除程式,

書上的看不懂,想很久寫不出來......

2.VB程式有無線上教學的地方......

3.VB If的用法可以舉例一下嗎......

請幫忙一下 謝謝 ^^

2 Answers

Rating
  • Favorite Answer

    這是VB計算機的原始碼

    Dim op1 As String

    Dim op2 As String

    Dim numsw, preop, numok As Integer

    Private Sub Command1_Click(Index As Integer)

    num = Index

    If numok = 1 Then

    Text1.Text = "0"

    numok = 0

    End If

    If Text1.Text = "0" Then

    Text1.Text = Val(num)

    Else

    Text1.Text = Val(Text1.Text & Str(num))

    End If

    End Sub

    Private Sub Command2_Click(Index As Integer)

    numsw = numsw + 1

    If numsw = 1 Then

    op1 = Text1.Text

    Else

    op2 = Text1.Text

    Select Case preop

    Case 0

    op1 = Val(op1) + Val(op2)

    Case 1

    op1 = Val(op1) - Val(op2)

    Case 2

    op1 = Val(op1) * Val(op2)

    Case 3

    If Val(op2) = 0 Then

    MsgBox "除數不可為0"

    Else

    op1 = Val(op1) / Val(op2)

    End If

    Case Else

    op1 = op2

    End Select

    Text1.Text = op1

    numsw = 1

    End If

    preop = Index

    numok = 1

    End Sub

    Private Sub Command3_Click()

    op1 = ""

    op2 = 0

    Text1.Text = op2

    End Sub

    Private Sub Form_Load()

    numsw = 0

    End Sub

    您是初學VB的吧,我建議要先把VB的識別字、保留字、特殊符號、還有迴圈......等。意義、用法先了解比較好,先從最簡單的開始學習,基礎才會穩固,不然以後寫程式很容易遇到瓶頸。

    這個教學網不錯 http://vb.ncis.com.tw/

    http://www.cccl.com.hk/chinesesite/cn-study_04.htm

    IF用法:

    IF有分兩種用法,第一種就是單向選擇(If....Then 敘述)

    第二種就是(If....Then...Else 敘述)

    這兩種其實了解它的意思就很簡單了

    例如:

    單行敘述,當敘述區段很少的時候,可以用單行敘述

    格式: If <條件> Then 敘述區段

    範例:求數值a的絕對值

    If a < 0 Then a= -a

    這段是在說,如果a小於0 所以a就會等於-a

    多行敘述,如果敘述區段超過一行的時候,就採用多行敘述,最後結尾要加上End If。

    格式:If <條件> Then

    敘述區段

    End If <-----這代表結束的意思

    例如:學生成績如果不及格,就設定等級為不及格,並且不及格人數加1人。

    If 成績 < 60 Then

    等級 = "不及格"

    不及格人數 += 1

    End If

    我範例是用中文來命名的,VB是可以用中文命名,雖然通常是用英文,不過想讓您比較好理解,所以用中文。

    以上是單向選擇。

    下面我就來說雙向選擇的用法:

    If....Then....Else 敘述 (中文意思:假如...就...否則....)

    格式:

    If <條件> Then

    敘述區段A

    Else

    敘述區段B

    End If

    範例:如果性別為"男",就稱呼為先生,反之為小姐

    If 性別 ="男" Then

    稱呼 = "先生"

    Else

    稱呼 = "小姐"

    End If

    ---------------------------------

    If sex ="Male" Then

    name= "Sir"

    Else

    name="Miss"

    End If

    Source(s): 計算機是網路,下面教學是自己
  • 1 decade ago

    你是VB6嗎??

    線上教學是指怎樣?

    如果是VB6我可以教你啦!

Still have questions? Get your answers by asking now.