1樓：浪花飄零
按要求在窗體上新增乙個標籤和乙個文字框以及乙個命令按鈕，雙擊命令按鈕，刪除所有**，複製如下**到程式中private sub ***mand1_click()if val(text1) mod 2 = 0 thenlabel1 = "偶數"
else
label1 = "奇數"
end if
end sub
private sub text1_keypress(keyascii as integer) '判字元
if keyascii < 48 or keyascii > 57 then keyascii = 0 '0-9字元之外遮蔽
end sub
若滿意請及時採納，謝謝
2、用vb6.0設計乙個程式，在窗體上的標籤（label）中顯示一行文字，文字內容為「歡迎進入vb的程式設計世界」
2樓：veket的小號
private sub form_load()label1.caption = "歡迎進入vb的程式設計世界"
label1.font = "文泉驛等寬正黑" '不要意思咱機子上沒有"楷體"
label1.fontsize = 14.25label1.fontbold = truelabel1.backcolor = vbredend sub
3樓：匿名使用者
首先：選中標籤，在它的屬性裡面找到font （後面一半預設是宋體），點一下font，「宋體」後面出現省略號，點省略號，在彈出的對話方塊裡改。
然後：再雙擊窗體，輸入
private sub form_load()label1.backcolor = vbredend sub
然後點執行，就可以了
4樓：宇智波東東東
好狠，這是計算機應用職專的課程吧。。。。
如何讓VB6 0儲存我剛剛做的程式？
點檔案 生成工程，這樣就生成乙個可執行的exe檔案，就可以在其他電腦 沒vb也行 中執行。名字可以改，如果你的程式使用的控制項和 等不是電腦自帶的，需要一同複製。檔案選單 生成工程確定。命名什麼的順便。首先必須生成。exe檔案，然後用vb自帶的打包功能打包成乙個安裝包，拿到沒安裝vb的電腦上基本可以...
vb6 0中已知三邊畫影象
if a b c and a c b and c b a then 能夠構成三角形 else 不能構成三角形 end if 繪圖，純數學計算，太較煩，自己算吧 先畫乙個水平線段a，再以a的兩個端點做圓，計算出兩個圓的交點，取其中乙個交點與線段a的兩個端點畫線，就成了三角形 因為南韓和朝鮮的延坪島事件...
VB6 0中如何使得字串中的某字元選中高亮並使這個字元字型變大
使用richtextbox控制項 private sub command1 click richtextbox1.selstart 3 要高亮的起始字元數 richtextbox1.sellength 5 要高亮的字元數 richtextbox1.selcolor vbred 顏色richtextb...