1樓：孔慶明江蘇
交換：strw=text1.text
text1.text=text2.texttext2.text=strw
合併：text3.text=text1.text+text2.text
vb語言 在窗體上建立三個文字框和兩個命令按鈕。在前兩個文字框輸入文字，單擊「交換」按鈕，將
2樓：
text3.text=text1.text & text2.text
以上寫在「合併」按鈕的click事件過程即可。
vb在窗體新增3個文字框和一個命令按鈕,利用兩個文字框輸入兩個數,單擊計算按鈕時,將兩數的平方和顯
3樓：匿名使用者
private sub command1_click()text3.text = ""
if val(text1.text) = 0 thenmsgbox "第一個數不能為空或包含字元！"
exit sub
end if
if val(text2.text) = 0 thenmsgbox "第二個數不能為空或包含字元！"
exit sub
end if
text3.text = val(text1.text) ^ 2 + val(text2.text) ^ 2
end sub
private sub form_load()command1.caption = "計算"
text1.text = ""
text2.text = ""
text3.text = ""
end sub
4樓：花菜
a=val(text1.text)
b=val(text2.text)
c=a+b
text3.text=str(c)
vb題，求大神！！！已知,在窗體上有三個命令按鈕和兩個文字框
在vb中健個命令按鈕和一個文字框單擊按鈕時文字框消失
5樓：
1、首先，在窗體上面新增一個文字框。
2、單擊文字框，在屬性視窗設定文字框的屬性，清空文字內容。
3、將文字框的enabled屬性設定為false。
4、在窗體上新增一個命令按鈕，如下圖所示。
5、在屬性視窗，設定命令按鈕的caption屬性為「允許輸入」。
6、雙擊命令按鈕，編輯其**。
6樓：匿名使用者
假設按鈕是「command1」，文字框是「text1」，在按鈕單擊事件下輸入以下**：
private sub command1_click（） ——指明過程，單擊按鈕觸發。
text1.visible=false ——指明觸發程式，文字框不可見
end sub ——結束過程。
7樓：俄聯邦
text1.visible=false
8樓：
private sub command1_click()
text1.visible = false
end sub
vb程式中，在窗體上畫兩個文字框和一個命令按鈕，編寫單擊命令按鈕，在窗體上輸出兩個文字框輸入的數字
9樓：聽不清啊
private sub command1_click()dim a as integer, b as integera = text1
b = text2
text3 = a + b
end sub
private sub form_load()text1 = ""
text2 = ""
text3 = ""
end sub
vb:建立一個工程，在窗體上新增一個文字框text1，兩個命令按鈕command1和command2，單擊command1按鈕
10樓：匿名使用者
private sub command1_click()text1.text = "確定"
end sub
private sub command2_click()text1.text = "取消"
end sub
然後設定 command2 的 tabindex 屬性為 0 。command1 的設定為 1.
11樓：難得糊塗
private sub form_load()command1.caption = "確定"
command2.caption = "取消"
command2.tabindex = 0end sub
private sub command1_click()text1 = "確定"
end sub
private sub command2_click()text1 = "取消"
end sub
'請參考採納！謝謝！
在窗體上已經建立了2個文字框和一個命令按鈕，使用者在文字框text1中輸入文字，單擊命令按鈕後。。。
12樓：匿名使用者
dim i as integer dim j as integer for j=0 to 2 if txt(j)>txt(j+1) i=cint(txt(j)) else i=cint(txt(j+1)) end if txt(4)=i
一道vb題——窗體上有text1、text2兩個文字框和一個命令按鈕command1,編寫下列程式：
13樓：匿名使用者
這題其實很容易理解的，關鍵是要理解全域性變數和區域性變數的不同，還有函式引數按地址傳遞的作用。y是個全域性變數，x是個區域性變數，2個函式的引數都是按地址傳遞的。
第1次單擊的時候，y的初值是0，x的初值是2。執行text1.text=fun2(fun1(x),y)時，先是用x作為實參呼叫fun1。
在執行x=x+y:y=x+y後，x的值是2，y的值也是2。函式返回x+y的值4。
然後再把fun1的返回值4和y作為引數呼叫fun2，結果是10。執行text2.text=fun1(x)時，用x作為引數呼叫fun1。
在執行x=x+y:y=x+y後，x的值是4，y的值是6。函式返回x+y的值10。
第2次單擊的時候，y的初值是6，x的初值是2。執行text1.text=fun2(fun1(x),y)時，先是用x作為實參呼叫fun1。
在執行x=x+y:y=x+y後，x的值是8，y的值是14。函式返回x+y的值22。
然後再把fun1的返回值22和y作為引數呼叫fun2，結果是58。執行text2.text=fun1(x)時，用x作為引數呼叫fun1。
在執行x=x+y:y=x+y後，x的值是22，y的值是36。函式返回x+y的值58。
14樓：匿名使用者
第一個是10 text1.text=fun2(fun1(x),y) 中，經過fun1（x）得出為4然後代入fun2 2*4+2=10嘍
第二個看不出來``
15樓：匿名使用者
我算出的第一問的答案是10，第二問是58
用VB語言，單機按鈕，在窗體介面上使用標籤顯示「歡迎來到VB學習課堂」，字型要求，楷體GB
private sub mand1 click label1.fontname 楷體 gb2312 label1.fontbold truelabel1.fontsize 24 label1.caption 歡迎來到vb學習課堂 end sub 2 用vb6.0設計一個程式，在窗體上的標籤 labe...
VB中如何程式設計讓窗體在螢幕上左右來回移動
新增一個定時器，定時器移動，超過螢幕自動回來。如下 dim m as integer 定義變數，確定移動方向private sub form load timer1.interval 200 移動時間 0.2秒移一次 me.left 0 左空初始為0 m 0 預設先向右移 end sub priva...
VB如何移動透明的窗體，窗體透明，控制元件不透明
dim xx as single dim yy as single dim mdown as boolean private sub form mousedown button as integer,shift as integer,x as single,y as single mdown tru...