1樓：設計營地
把sum的值賦給這個標籤，在窗體上顯示出來。
= sum
2樓：難得糊塗
在lbloutput控鍵上顯示函式 sum 的值。
關於乙個vb程式設計的問題 20
3樓：匿名使用者
給你信函式你自己設計窗體的吧，很簡單的：
datepart("y",##)比如你設定三個文字框，分別用來接收年月日，第四個檔案框用來接收最終結果，用乙個命令按鈕來執行，那麼命令按鈕的單擊事件中加入如下**就可以了。
= datepart("y",
關於vb程式設計的問題！！**求助！！
4樓：
這是乙個遞迴呼叫，滑鼠點選時執行第一次text函式，把2作為引數傳入函式中，在函式中先執行x=x*2+1,此時x的值改為5,然後判斷x的值是不是<6(if x < 6 then),如果<6,則執行第二次text函式，此時把第一次執行函式的時所得的5做為引數，傳入第二次執行的text函式中，在每二次的text函式執行時，同樣先執行x=x*2+1,得到結果11,再判斷x的值是不是＜6(if x < 6 then),因為x=11,所以不再繼續執行第三次text函式，if語句結束，再執行if語句後面的語句，此時仍然是第二次呼叫的text函式，再執行x=x*2+1,x的值變為23,然後列印x的值，第二次的text函式結束，返回到第一次的text函式中。
因為是遞迴執行，所以x的還是23
因為第一次的text函式是在if語句中呼叫的第二次text函式，所以第二次text函式執行完後，第一次的text函式的if語句就結束了，再執行第一次text函式中if語句後面的語句。
因為此時的x=23,所以執行x=x*2+1後，x的值就為47了此時列印出來的值就是47
5樓：匿名使用者
用逐語句執行一下就會明白了，因為vb是按行執行的。
vb程式設計問題？
6樓：安全大師
vb會自動初始化變數值，如果是數值型則為0，布林型則為false
vb程式設計問題 急急急啊！！！
7樓：匿名使用者
第一題：
答案a:的第乙個元素下標是：a(-2,0),因為使用了option base 0,所以它是錯的。
答案c:a(4,3)表示a(0 to 4,0 to 3)它有5*4個元素，所以錯誤。
答案d:同a,也是錯的。
只有答案b正確 它有4*3個元素。
第二題：呼叫fun過程。
stlen=len(st)=7
for k=1 to
temp = temp + mid(st,k,1) +mid(st,stlen - k+1,1)'這裡應該是你寫錯了少個逗號，不然k1就是未定義變數。
第一次迴圈。
mid(st,k,1)="a"
mid(st,7,1)="g"
第一次迴圈結束時，temp="ag"
第二次迴圈。
mid(st,2,1)="b"
mid(st,7-2+1,1)="f"
第三次迴圈。
mid(st,3,1)="c"
mid(st,7-3+1,1)="e"
最後把他們連線起來就是temp="agbfce"
vb程式設計問題!
8樓：匿名使用者
程式說明：點form1的時候form1關閉開啟form2,這樣form2在執行form1關了，點form2的時候開啟form1關閉form2道理也一樣，你可以把form click事件換成commad事件都可以**也一樣。
form1事件：
private sub form_click()
unload me
end sub
form2事件：
private sub form_click()
unload me
end sub
如果你想執行form2時候form1仍然看的到則輸入以下**：
form1事件：
private sub form_click()
所有控制項enabled屬性 = falseend sub
form2事件：
private sub form_click()unload me
end sub
9樓：匿名使用者
有的，你在程式呼叫就可以了。
10樓：匿名使用者
在form2裡定義你需要的傳值public變數，form2關閉用unload me
vbmodal
使用form2內的變數。
使用完以後執行。
set form2=nothing
vb程式設計問題 10
11樓：漆豆鄂雅彤
窗體的load事件是在窗體駐入記憶體的時候產生的，這個時侯窗體還沒有顯示，所以你的輸出當然看不到了。
可以把**放到按鈕事件或resize事件（resize事件有可能被多次執行）中。如果非要在load事件中，可以把窗體的autoredraw屬性設定為true。
12樓：聽不清啊
原程式多處單詞拼寫錯誤。現已糾正，並執行通過：
private sub command1_click() truetext1.
visible = truecommand3.
visible = 同學你好，祝你學好vb程式設計！
" =黑體"
end sub
private sub command2_click() true
end sub
private sub command3_click()endend sub
private sub form_load() true
= trueend sub
13樓：匿名使用者
一般標籤都是label，你怎麼用的是laber
private sub command2_click()
= true 應為。
關於乙個vb程式設計
14樓：狼與花椒
程式介面如上圖所示：乙個標籤（名稱為label1)，三個核取方塊（名稱分別為check1、check2和check3,caption屬性分別為紅、綠和藍）乙個命令按鈕（名稱為command1,caption屬性為結束）,完成程式功能的**如下：
dim red as integer
dim green as integer
dim blue as integer
private sub check1_click()
if = 1 then
red = 255
elsered = 0
end if
= rgb(red, green, blue)
end sub
private sub check2_click()
if = 1 then
green = 255
elsegreen = 0
end if
= rgb(red, green, blue)
end sub
private sub check3_click()
if = 1 then
blue = 255
elseblue = 0
end if
= rgb(red, green, blue)
end sub
private sub command1_click()
endend sub
private sub form_load()
red = 0
green = 0
blue = 0
= rgb(red, green, blue)
end sub
vb程式設計問題！（急）
15樓：
公共：dim a '關0開1 form load:a = 1 開關按鈕：
if a = 1 then a = 0 = false =
end if
if a = 0 then
a = 1 = true = 0" end if
關於VB程式設計的問題（見補充），乙個關於VB程式設計的問題（見補充）
在模組中定義兩個變數不就完了？模組 public a1,a2 as integer sub main a1 5040 a2 5021 end sub 窗體l private sub command3 click if text1 a1 and text2 a2 then command3.enabl...
關於C語言程式設計的問題，乙個關於C語言程式設計的問題
我用vc 6.0執行，兩次都一樣啊，都是位址 恭喜你發現某個編譯器的bug了,不知道你用的是哪個編譯器?不應該有什麼問題，你用什麼編譯的？變數的位址是執行時分配的，你編譯的程式在不同的電腦上運作結果都有可能不同 你有引用stdio.h包嗎?include stdio.h 再來,lx格式符是輸出長整型...
困惑我一長時間的VB程式設計問題，乙個困惑我一長時間的VB程式設計問題？
定義模組 declare function findwindow lib user32 alias findwindowa byval lpclassname as string,byval lpwindowname as string as long 在視窗中建立一timer,然後在 視窗輸入如下...
vb超基礎的問題，vb 乙個超基礎的問題
private sub command1 click if text1 潘安 then msgbox 當然 elseif text1 劉德華 thenmsgbox 當然 else msgbox 扯蛋吧你 end if end sub 如果可選項比較多的時候，建議使用 select case 語句。當...
VB倒計時程式設計，如何用VB設計乙個倒計時的程式
public i as integer 用於儲存時間 private sub form load timer1.interval 1000 設定timer1控制項間隔為1秒 if timer1.enabled false then timer1.enabled true 設定timer1可用 cmd...