VB程式設計的問題，高手幫我

1樓：老牛帶你看奇聞

窗體上有三個命令按鈕，command1,command2,command3和乙個text1

**如下：

dim ys as single

private sub command1_click()text1.fontsize = text1.fontsize + (int(rnd * 3 + 1))

command1.enabled = falsecommand2.enabled = trueend sub

private sub command2_click()text1.fontsize = text1.fontsize - (int(rnd * 3 + 1))

command2.enabled = falsecommand1.enabled = trueend sub

private sub command3_click()command1.enabled = truecommand2.enabled = truetext1.

fontsize = ys

end sub

private sub form_load()ys = text1.fontsize

command1.caption = "放大"

command2.caption = "縮小"

command3.caption = "還原"

end sub

2樓：小屁屁紅豆

dim ss

ss=text1.fontsize '記錄當前大小大:text1.

fontsize=ss*int(rnd*3+1)小:text1.fontsize=ss/int(rnd*3+1)還原:

text1.fontsize=ss

放大和縮小只是一次操作,不需要關閉其他按鈕

請高手幫我編寫VB程式，什麼是VB程式設計

private sub command1 click 按鈕響應。if 1 then loadpicture e end if if 2 then loadpicture e end if end sub private sub text1 change 文字框內容變化響應。if 1 then loa...

VB程式設計高手進， 急 VB程式設計高手進

很簡單的 只告訴你方法思路，現在沒有vb環境所以沒法寫你在text1的keypress時間裡，寫上校驗方法，利用acciss碼來判斷，數字的acciss碼是連續的，你可以查到，除此之外的acciss碼你都不予接受，這樣使用者就無法輸入除了0 9之外的任何內容，如何輸入了，你還可以彈出提示框。思路就這...

vb程式設計高手請進！！急急急，vb程式設計高手請進！！急急急

第一題 編寫過程計算1 1 2 1 3 1 100private function sum dim i as integer for i 1 to 100 sum sum 1 i next end function 2 編寫過程列印如下圖形 private sub printstr dim i as...