【正文】
End SelectEnd Subl 倒數(shù)、平方、開方、對(duì)數(shù)、階乘代碼Private Sub Command4_Click(index As Integer) Dim re As Long Dim temp As Long temp = Val() Select Case index Case 2 If temp 0 Or temp = 0 Then = Str(Sqr(Val())) Else MsgBox ( 負(fù)數(shù)不能開根) End If Case 0 temp = Val() If temp 0 Then = Str(1 / temp) Else MsgBox ( ILLEGAL DIVIDE 0 ) End If Case 1 = * Case 3 Dim nn As Long nn = InputBox(輸入底數(shù), 對(duì)數(shù), 10) If Val() 0 Then = Str((Log(Val()) / Log(nn))) Else MsgBox ( ILLEGAL. LOG NON POSITIVE ) End If Case 4 = Str(fact(Val())) End SelectEnd Subl 正負(fù)號(hào)代碼Private Sub Command5_Click() = End Subl 退格鍵代碼Private Sub Command6_Click()If Then = Mid(, 1, Len() 1)End IfEnd Subl 清零代碼Private Sub Command7_Click() = 0dflag = 0ind = 4End Subl 隱藏/顯示界面按鈕代碼Private Sub Command8_Click()If 5000 Then = TrueElse = TrueEnd IfEnd Subl 顯示界面代碼Private Sub Timer1_Timer()If 6160 Then = + 80Else = FalseEnd IfEnd Subl 隱藏界面代碼Private Sub Timer2_Timer()If 4360 Then = 80Else = FalseEnd IfEnd Subl 功能模塊Function fact(num As Long) As Long If (num 0 Or num = 0) Then MsgBox (ILLEGAL NEAGETIVE FACTORIAL) fact = num Else If (num 12) Then MsgBox (數(shù)值太大) fact = num Else re = 1 While (num 0) re = re * num num = num 1 Wend fact = re End If End If End Function178。 4 調(diào)試運(yùn)行單擊工具欄上的啟動(dòng)按鈕，或單擊“運(yùn)行” —“啟動(dòng)”命令，或者按F5鍵，單擊F5，運(yùn)行結(jié)果如圖36所示，圖36 運(yùn)行界面當(dāng)單擊圖36運(yùn)行界面中下面的按鈕時(shí)，會(huì)顯示如圖37所示的界面。 圖37 整個(gè)運(yùn)行界面178。 5 保存工程及生成可執(zhí)行文件創(chuàng)建Visual （.exe）。保存工程 保存工程可以單擊“文件”—“保存工程”命令，或者在工具欄單擊“保存工程”按鈕。如果是第一次保存工程文件，將出現(xiàn)“文件另存為”對(duì)話框，如圖38所示，可以選擇文件要保存的位置以及各文件的名字，依提示保存即可。圖38 “文件另存為”對(duì)話框 生成可執(zhí)行文件當(dāng)生成可執(zhí)行文件之后，就可以在操作系統(tǒng)中直接運(yùn)行該可執(zhí)行文件，而不必每次都要到Visual 。要注意的是，此時(shí)該文件還不能在沒有安裝Visual Basic 。生成可執(zhí)行文件的方法為：單擊“文件”—“生成***.exe”(這里是“”)。此時(shí)打開“生成工程”對(duì)話框，如圖39所示，可以選擇工程存放位置以及工程名。若想添加一些版本信息、版本號(hào)等內(nèi)容，單擊“生成工程”對(duì)話框的“選項(xiàng)”按鈕，輸入相應(yīng)的內(nèi)容即可。 圖39 “生成工程”對(duì)話框216。 第四章 總結(jié)216。 參考文獻(xiàn)[1]田啟明,張焰林,曹月芹,陳武.《Visual Basic 程序設(shè)計(jì)》.北京：國防工業(yè)出版社，[2]鄭有增,孫洪峰.《VisualBasic 程序設(shè)計(jì)與實(shí)訓(xùn)教程》.北京：中國水利水電出版社，2008[3]催華陽.《Visual Basic 實(shí)例精選》.北京：電子工業(yè)出版社，2001年6月（第一版）[4]王彬華,李建華.《Visual Basic 精彩編程五十例》.四川：電子科技大學(xué)出版社，2004年4月（第一版）[5]羅朝盛.《Visual Basic 程序設(shè)計(jì)基礎(chǔ)教程》.北京：人民郵電出版社，2005年6月（第一版）216。