1樓：扈明鈺
private sub command1_click()dim a, b as long
a = val(text1.text)
b = val(text2.text)
text3.text = str(a + b)end sub
雙擊command1
2樓：匿名使用者
private sub command1_click()
text3.text = val(text1.text) + val(text2.text)
end sub
3樓：
'定義變數
dim a as single
dim b as single
dim s as single
private sub command1_click()s = a + b
text3.text = s
end sub
private sub text1_change()a = val(text1.text)
end sub
private sub text2_change()b = val(text2.text)
end sub
'很久沒用vb了，手都生了……
vb60程式設計作業，VB6 0程式設計作業
第一題 dim i as integer do i i 1 if i mod 2 1 and i mod 3 2 and i mod 4 3 and i mod 5 4 and i mod 6 5 and i mod 7 0 then exit do loop msgbox 共有 i 階 vb6.0...
在VB6 0中的SetWindowTextA DLL過程只能作用於自身的物件嗎，能設定其它應用程式嗎
public declare function getforegroundwindow lib user32 alias getforegroundwindow as long 獲得當前操作的視窗控制代碼 public declare function enumwindows lib user32 ...
vb6 0製作科學計算器
這是我很久以前編的了 你看下吧 先宣告 完全白痴的程式設計 private sub command1 click if label5 and label5 text1 then text1 label1 label2 label3 label4 label5 end if 上面作用是為了在運算完一個...