1樓：岔路程式緣
從你發來的**來看，這個程式中沒有使用任何控制元件。
一般這樣的程式都使用private sub form_click()事件編寫，所以，你在視窗的中任意一個地方用滑鼠點一下看有什麼出來了沒有？
如果還沒有，請發程式copy發來幫你看一看。
2樓：匿名使用者
缺少個command1 按鈕
或者你可以這樣寫：
private sub form1_click()dim x as single, x1 as singlex = val(text1.text)
if x <= 0 then
msgbox "請輸入購書書的總**！", 16, "**不能是0或負數！"
exit sub
end if
if x < 100 then x1 = x * 0.8if x >= 100 then x1 = x * 0.7text2.text = x1
end sub
3樓：匿名使用者
這不是已經執行了麼。。。如果打不開，那麼執行時就會提示出錯的啊。
用vb怎麼寫程式
需要控制元件 textbox 和 commandbuttontext屬性如下設定 text1.text text1.multiline truetext1.scrollbars 2 按鈕 private sub command1 click dim mystr as string mystr 123...
求VB程式的寫法，求一個VB程式的寫法
清屏，什麼意思啊，用cls是不能清控制元件的哦，只能清程式執行時輸出到窗體上的資料。可以這樣寫 再加一個退出時顯示的窗體form2，上面就一行字，或者可以裝飾得好看一點，背景放一張 什麼的，謝謝使用！就放在label標籤裡，再加一個按扭，單擊事件裡就一個 end命令。private sub cmde...
vb的sub子程式怎麼用，關於vb的sub子過程的定義問題！
建立sub過程 1 定義sub過程 語句結構如下 static private public sub 過程名 引數列表 語句塊 exit sub 語句塊 endsub 引數列表指明瞭呼叫時傳送給過程的引數的型別和個數，每個引數的格式為 byval 變數名 as 資料型別 如果加上byval則表明該引...