我想編程，但是不知怎樣編，我下載了壹個VB，如果我想要編壹個計算器軟件，該怎樣編，是不是會有很多代碼

VB是Visual?Basic的簡稱

Basic是壹種計算機語言，是初學者通用指令代碼的簡稱，可以說是為初學者設計的語言

代碼當然是在學VB才知道的，代碼雖是英文，但還是比較簡單的，畢竟這個語言是為初學者設計的

下面是壹個計算器的程序代碼，只能進行加減乘除，整除，求余的運算，我就不詳細解釋了

Option?Explicit

Private?Sub?Command1_Click()

Text2.Text?=?Text1.Text

Text3.Text?=?"+"

Text1.Text?=?""

Text1.SetFocus

End?Sub

Private?Sub?Command2_Click()

Text2.Text?=?Text1.Text

Text3.Text?=?"-"

Text1.Text?=?""

Text1.SetFocus

End?Sub

Private?Sub?Command3_Click()

Text2.Text?=?Text1.Text

Text3.Text?=?"*"

Text1.Text?=?""

Text1.SetFocus

End?Sub

Private?Sub?Command4_Click()

Text2.Text?=?Text1.Text?'文本2內的文本等於文本1內的文本

Text3.Text?=?"/"?'文本3的內容改為“/”

Text1.Text?=?""?'清空文本1

Text1.SetFocus'文本壹獲得焦點

End?Sub

Private?Sub?Command5_Click()

Dim?a?As?Double'定義a為雙精度型

Select?Case?Text3.Text?'對文本3的內容進行判斷

Case?"+"'如果是“+”

a?=?Val(Text2.Text)?+?Val(Text1.Text)?'則文本1加上文本2，其值賦給a

Text1.Text?=?a?'將a賦給文本1

Case?"-"'如果是“-”

a?=?Val(Text2.Text)?-?Val(Text1.Text)?'則文本1減去文本2，其值賦給a

Text1.Text?=?a?'將a賦給文本1

Case?"*"'如果是“*”

a?=?Val(Text2.Text)?*?Val(Text1.Text)?'則文本1乘以文本2，其值賦給a

Text1.Text?=?a?'

Case?"/"'如果是“/”

a?=?Val(Text2.Text)?/?Val(Text1.Text)?'則文本1除以文本2，其值賦給a

Text1.Text?=?a?'

Case?"\"'如果是“\”

a?=?Val(Text2.Text)?\?Val(Text1.Text)?'則文本1整除文本2，其值賦給a

Text1.Text?=?a?'

Case?"Mod"?'如果是“Mod”

a?=?Val(Text2.Text)?Mod?Val(Text1.Text)?'則文本1除以文本2求余數，其值賦給a

Text1.Text?=?a?'

End?Select?'結束判斷

End?Sub

Private?Sub?Command6_Click()

Text2.Text?=?Text1.Text

Text3.Text?=?"\"

Text1.Text?=?""

Text1.SetFocus

End?Sub

Private?Sub?Command7_Click()

Text2.Text?=?Text1.Text

Text3.Text?=?"Mod"

Text1.Text?=?""

Text1.SetFocus

End?Sub

Private?Sub?CXDM_Click()

Form2.Show

End?Sub

入門的話，我建議妳看?洪恩的開天辟地5之編程入門，裏面有VB的（入門級別）之後妳再去找別的教程吧，開天辟地電驢有下，電驢是個好東西，我很多教程，資料，素材都是在裏面找的……