1樓:匿名使用者
option explicit
private sub check1_click(index as integer)
'check1(index) = 1 - check1(index)
dim i%, j%
text1.text = "": j = 0
for i = 0 to 34
if check1(i) = 1 then text1.text = text1.text & left((check1(i).
caption & " "), 4): j = j + 1
next i
text1.text = text1.text & "共有" & j & "個選擇"
end sub
private sub form_load()
dim i%
for i = 1 to 34
load check1(i)
check1(i).visible = true: check1(i).move (i mod 7) * 1000 + 100, int(i / 7) * 500 + 300
check1(i).caption = i + 1
next i
i = 0: check1(i).move (i mod 7) * 1000 + 100, int(i / 7) * 500 + 300
end sub
2樓:沙慧月
給個最簡單的
private sub command1_click()for i = 1 to 4
if controls(check & i).value = 1 then
m = m & space(1) & i
n = n + 1
end if
next
print m & space(1) & "選中個數為" & nend sub
3樓:匿名使用者
聽不懂 請補充說明
vb高手幫忙看下這段程式哪裡有問題?提示編譯錯誤ByRef引數型別不符
yuanlin8510的回答是正確的,但提到的兩點只是邏輯錯誤,雖然會導致結果不正確,但是編譯可能並不會出錯。導致出錯的原因是這幾句 call panduan x 呼叫函式時不用call,call一般用於呼叫過程 if panduan true then print x 是水仙花數 上面這一句錯了,...
怎樣用VB做個編寫程式,在文字框中顯示當前系統時間,並隨時間進行變化
你新增一個timer控制元件 interval屬性 100 新增事件 private sub timer1 timer text1.text format now,hh mm ss end sub private sub form load timer1.enabled trueend sub pr...
求c語言高手幫忙編個程式,求C語言高手幫忙編個程式!
include include unsigned char weizhi 10000 int currentstep 0 unsigned char zuoanlang 32 unsigned char zuoanyang 16 unsigned char zuoanbaicai 8 unsigne...