private subtext 1 _ key press(keyascii as integer)' When text 1(在文本框中按下壹個鍵時關閉)
如果keyascii = 13那麽'如果鍵值是13(回車鍵)，判斷如下代碼。
如果是數值型(text1 ),則為。
select case text 1 mod 2 ' select case相當於多個if...然後是判斷。此時的判斷條件是判斷text1中的內容求2的余數，實際上就是判斷是奇數還是偶數。
事例0 '的余數是0，即偶數，因此n的值與text1中的值相加。
n = n + text1
Case 1’的余數是1，是奇數。讓m的值加上text1中的值。
m = m + text1
結束選擇
如果…就會結束
Text1 = " " '清除文本框1的內容。
Text1。設置光標焦點。
如果…就會結束
末端接頭