vb程式設計check選擇設計

1樓：匿名使用者

private sub command1_click()dim s as string

if check1.value = vbchecked thens = check1.caption

end if

if check2.value = vbchecked thens = s & " " & check2.captionend if

if check3.value = vbchecked thens = s & " " & check3.captionend if

if check4.value = vbchecked thens = s & " " & check4.captionend if

label1.caption = "你的興趣愛好是" & vbcrlf & trim(s)

end sub

private sub form_load()check1.caption = "唱歌"

check2.caption = "跳舞"

check3.caption = "朗誦"

check4.caption = "手工"

label1.caption = "你的興趣愛好是"

command1.caption = "確" & vbcrlf & "定"

end sub

2樓：匿名使用者

雙擊確定按鈕，將下面**放入按鈕事件中。

label1="你的興趣愛好是：" & iif(check1,check1.caption,"") & iif(check2,check2.

caption,"") & iif(check3,check3.caption,"")

3樓：十年故事

推薦你到飯客網路去學習

vb程式設計題設計程式求VB程式設計題設計程式求s1234n1n的值並輸出，其中n是從鍵盤輸入大於1的正整數

照樓主的題目，n不是大於1的正整數，應該是大於回1的正偶數才對答吧？private sub mand1 click n val inputbox n if n mod 2 1 then exit subt 1 2 s t for i 3 to n 1 step 2t t i i 1 i 1 i 1 ...

vb程式設計計算VB程式設計計算

第一種 對比計算privatesub mand1 click timer1.enabled truetimer1.interval 1 計算一次用時量endsubprivatesubform load text2.text 0 計算方法初始化text3.text 0 計算開始初始化text4.tex...

vb程式設計題目，VB程式設計題目

private sub mand1 click if len text1 2 thentext1 left text1,2 end if end sub private sub mand2 click text1 end sub private sub form load label1.captio...