本程式由小宇編寫，供給那些想學程式設計，而有感覺無從下手的 初學者。希望學者能從本軟體中學到自己想要的東西。
為了使初學者更加方便理解，在多處核心位置新增注釋。
ps:1.在程式設計之初，就要做好程式錯誤的捕獲工作，想全面程式可能發生的錯誤，並給與相應的處理，否則會給程式帶來致命錯誤，導致程式退出，影響使用。
2.在程式設計的過程中，要多考慮人性化的設計，要知道，使用者想要的是更加靈活和有活力的程式，適當的加強與使用者的互動是必要的。比如，在適當的位置新增提示彈窗，詢問彈窗等，都是軟體和使用者最好的互動，但是要知道，過多的彈窗等提示會使使用者感到厭煩。應該適當新增，達到理想的效果。
核心源**：
程式**：
option explicit
dim opt as string '定義乙個字串型變數opt
private sub about_click() 'about按鈕的click事件（即單擊事件）
formabout.show '調出另一新的"formabout"窗體
end sub
private sub add_click() 'add（加）的單擊事件
opt = "+"
end sub
private sub calculationcommand_click() '計算按鈕的單擊事件
on error goto wrong '設計乙個錯誤捕獲程式，用來捕獲程式的未知錯誤
dim no1 as double, no2 as double, result as double '定義no1，no2,result均為雙精度型
no1 = no1text.text '將no1文字框中的文字賦值給no1
no2 = no2text.text '將no2文字框中的文字賦值給no2
select case opt '運用select case語句判斷
case "+" '如果是"+"，也就是opt="+"
result = no1 + no2 '那麼將no1+no2的值賦給result，簡單的說就是結果=no1+no2
case "-" '依次類推
result = no1 - no2
case "*"
result = no1 * no2
case "/"
if no2 <> 0 then '用if語句來判斷，如果no2(被除數)大於小於0（即不等於0）才執行下一行**。
result = no1 / no2 '將no1/no2的值賦給result
else '如果不滿足no2<>0，也就是在no2=0的情況下執行
end if
end select
resulttext.text = result '最後將result賦值給result文字框
if err.number = 13 then '用if語句判斷，如果錯誤**是13，那麼執行下一行**
end if
end sub
private sub division_click()
opt = "/"
end sub
private sub emptycommand_click()
no1text.text = "" '將no1文字框中的內容清空。
no2text.text = "" '將no2文字框中的內容清空。
resulttext.text = "" '將result文字框中的內容清空。
add.value = false '將所有的單選框初始化。
subtract.value = false
multiplicat.value = false
division.value = false
end sub
private sub exitcommand_click()
unload me '解除安裝本窗體。
end sub
private sub exittheprogram_click()
unload me '解除安裝本窗體。
end sub
private sub multiplicat_click()
opt = "*"
end sub
private sub operationadd_click()
add.value = true
calculationcommand_click
end sub
private sub operationdivision_click()
division.value = true
calculationcommand_click
end sub
private sub operationempty_click()
no1text.text = "" '將no1文字框中的內容清空。
no2text.text = "" '將no2文字框中的內容清空。
resulttext.text = "" '將result文字框中的內容清空。
add.value = false
subtract.value = false
multiplicat.value = false
division.value = false
end sub
private sub operationmultiplicat_click()
multiplicat.value = true
calculationcommand_click
end sub
private sub operationsubtract_click()
subtract.value = true
calculationcommand_click
end sub
private sub subtract_click()
opt = "-"
end sub
private sub timer1_timer()
label3.caption = time
end sub
private sub userhelp_click()
formuserhelp.show
end sub
給初學者的建議
一名初學者，首先要找一本好的入門書籍 平台裡有推薦 把程式結構 資料型別，陣列 函式和結構體 這幾個部分了解 了之後，就可以 寫 程式了。千萬不要把書看的太細緻，那樣的話會覺得程式設計太繁瑣，不要背參考書式的學習。就像乙個小孩要學說話，他需要模仿和試錯，不斷的矯正，最終會很好的表達，如果一開始讓他把...
給初學者的建議
在網上看到一篇很好的文章。對於一些初學者，我覺得它很有幫助。現在把它 過來。希望大家都能從中體會到什麼。如果作者看到，原諒我把它 過來，因為它很經典。2.初學者請不要看太多太多的書那會誤人子弟的，先找本系統的學，很多人用了很久都是只對部分功能熟悉而已，不系統還是不夠的。3.看幫助,不要因為很難而自己...
給ios初學者的建議
不管你是培訓的還是在上學的或者是自學的！你選擇了這條路就要認真的對待你所學的，別出來找工作什麼都不會！首先，第一點 把你的obj c語言基礎打好，在學習obj c之前最好學一下c c 除此之外最好各課都要設計了解些，xml，json，mysql，html，js！我碰到乙個連json和xml是什麼都不...