1樓：彬騰
把三個 check 做成控制項陣列，下標為 0、1、2，然後
在 check1 的 click 事件裡輸入以下**：
text1.text = ""
if check1(0).value then text1.text = text1.text & "音效卡"
if check1(1).value then text1.text = text1.text & "moden"
if check1(2).value then text1.text = text1.text & "網路介面卡"
如果不想做控制項陣列的話，也可以把上面**做成獨立的 子程式，每個 check 的 click 事件都呼叫它。即可。
2樓：匿名使用者
if check1.checked=true thentextbox1.text="音效卡"
end if
if check2.checked=true thentextbox1.text+=iif(textbox1.text="","",vbcrlf+"音效卡")
end if
if check3.checked=true thentextbox1.text+=iif(textbox1.text="","",vbcrlf+"網路介面卡")
end if
3樓：
'把3個checkbox設定成控制項陣列
private sub check_click(index as integer)
select case true
case check(0)
text1.text = text1.text & check(0).caption
case check(1)
text1.text = text1.text & check(1).caption
case check(2)
text1.text = text1.text & check(2).caption
end select
end sub
關於vb的問題！！急急急急急急急急急急急急急急急急
4樓：
逐句檢查找到錯誤出在那一句上。我是做c#的，其中一些命令看著不太喜歡，沒法幫你找到錯誤
vb問題?急急急急!!!!!!!!!!!!
5樓：翰林院裡掃地的
2題：private sub c1_click()
dim c$
c$ = "我的愛好是"
if ch1.value then c$ = c$ + ch1.caption
if ch2.value then c$ = c$ + ch2.caption
if ch3.value then c$ = c$ + ch3.caption
msgbox c$
end sub
3題：private sub cmd1_click()
dim i as integer
dim temp as long
temp = 0
if opt1.value then
for i = 100 to 200
if isprime(i) then
temp = temp + i
end if
next
else
for i = 200 to 400
if isprime(i) then
temp = temp + i
end if
next
end if
text1.text = temp
end sub
private sub cmd2_click()
putdata "\out.txt", ?
end sub
因為閣下沒有列出模組中putdata函式過程的引數定義，因此只能遺留乙個?了
6樓：在世貿天階灌籃的高飛燕草
1題：private sub form_load()list1.additem "item1"
list1.additem "item2"
list1.additem "item3"
list1.additem "item4"
end sub
private sub c1_click()text1.text = list1.textend sub
vb 問題急急急！ 5
7樓：小先
樓上答得沒錯，可能是你做程式的時候用的一些配置檔案，別人的那裡沒有或者過舊，你用vb的package&deployment嚮導打包完了把整個檔案發給他們或許就可以了
8樓：**專賣電動車
你發過來我幫你看一下哦，我幫你看了一下，檢查沒問題哦。也是可以執行的哦。但是你要把防毒軟體都關掉哦
9樓：匿名使用者
把你做的東西用vb附屬自帶的「package & deployment 嚮導」作安裝包，到你發給別人的機器上。
你描述的問題不夠清晰，估計是這個問題。
vb問題，急急急。 10
10樓：匿名使用者
需要製作安裝包，然後到對方機器上安裝，因為vb做的軟體需要支援的庫檔案
11樓：創作者
用setup factory 7.0打包
12樓：匿名使用者
你可以寫乙個註冊相關元件的**在load事件
關於管理班級的問題急急急急急急急急急
呵呵，非常理解，初一的孩子都這樣，杜絕很困難，除非你給大家布置乙個一會兒檢查的任務 只要有事幹，就不會這麼亂了，而且只要能安靜幾分鐘，就肯定沒人會打擾安靜的環境，你也可以說老師讓記名字，你把說話的都記下來，但是一定要說是老師讓記的，而且可以給他們悔過的機會，說安靜多少時間就給你擦掉 等等之類的吧，總...
關於電腦問題 急 急 急
1.qq病毒 我家有時通過qq帶進病毒 2.其他病毒如灰鴿子,長江一號 不要笑哦,真有此病毒 木馬等,還有其他高階病毒,建議使用金山毒霸 如果有,那就快快公升級防毒 3.以上兩條不是我沒讀懂你的意思,而是你的電腦可能防毒軟體不夠級別,殺不死病毒,我家就曾有這種情況,你可以去買最新的卡巴斯基或金山毒霸...
關於笨豬跳的物理問題,急急急急急急急急急急急
分析 設橡皮繩的自然長度為h,小球下落分為以下幾個過程 1 在橡皮繩未伸長到自然長度時,小球只受重力作用，此時加速度為g,即小球做自由落體運動.2 小球下落距離已達到h，再繼續下落則同時受到重力和橡皮繩的彈力。此時動能和勢能相互轉化。但此時重力仍大於拉力，即加速度仍向下。即小球向下加速運動。3 在橡...