1樓：
有個**自己去看吧，都是考試的。
2樓：
編一個求圓周長的程式。輸入半徑，得到周長和麵積。試試看。
3樓：匿名使用者
建議你不要光學vb,畢竟它有太多缺點，很多事做不了…如果是對basic語言感興趣的話，到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大…freebasic甚至可以寫作業系統…不過後面這三種都相對難學，要有心理準備
4樓：匿名使用者
www.gougou.com
搜vb題目 試題 什麼的
vb程式設計中的迴圈問題
5樓：du知道君
2個timer 就行了，想怎麼做就怎麼做 再問得清楚點吧，下面是可能你要的回答 private sub timer1_timer() '這裡加你要的** ，然後下一次就是執行timer2中的 timer1.enabled = false timer2.enabled = true end sub private sub timer2_timer() '這裡加你要的** ，然後下一次就是執行timer1中的 timer2.
enabled = false timer1.enabled = true end sub
vb程式設計學習中的問題
6樓：匿名使用者
兩個其實是一模一樣的。它說子函式或函式未定域應該是說你沒有給a和b賦值吧。還有，你這個程式沒有子函式，就不存在呼叫問題，你在前面給它們賦值就行了。
7樓：匿名使用者
private sub command1_click()dim a, b as string
a = form1.text1.text
b = form1.text2.text
msgbox "兩數和為" & str(val(a) + val(b))
end sub
第一個讀form1的內容，第二個讀當前窗體的內容，如果當前窗體就是form1，那就沒什麼區別了。
8樓：匿名使用者
差不多。第一個「form1.」是因為這可能是在別的窗體中的。
還有，應該是「msgbox」，而不是msgbos。
private sub command1_click()dim a, b as double
a = form1.text1.text
b = form1.text2.text
msgbox "兩數和為" & val(a) + val(b)end sub
9樓：匿名使用者
關鍵的問題是這裡
dim a, b as double
這個定義為
dim a as double, b as double就ok了
小問題總是讓人鬱悶阿
因為你那樣的a=（form1.）text1.text是字元型別，沒有被成功申明成double型別
10樓：匿名使用者
原因非常的簡單
你字母打錯了
原理上沒什麼區別
你應該使用 msgbox 而不是你現在使用的什麼 msgbos
vb程式設計的問題
11樓：匿名使用者
那是兩個函式，函式是有一個返回值的。
vb裡，如果你不需要返回值就可以直接msgbox "aaa"
如果需要返回值r = msgbox("aaa")按規範的寫法來說，函式後面必須寫括號，原因很簡單，假設呼叫一個自己寫的函式，不寫括號的話，別人在看你的程式的時候，就要去查這裡寫的是一個變數，還是一個函式，加上括號，一眼就可以看出來這是呼叫一個函式。。 所以規範的寫法
如果不需要返回值則：
call msgbox("aaa")
需要返回值則：
r = msgbox("aaa")
你的程式在msgbox那一句時有錯誤。 字串連線有明顯的錯誤改為：msgbox "西瓜重" & w & "公斤,單價" & p & "元,應收瓜款" & m & "元,計算西瓜款"
注意「,」 逗號的地方， 我給你改的和你自己的程式對比一下
vb程式設計問題，用vb來寫**
12樓：
private sub command1_click()const n = 4 '列印4行
for i = 1 to n
print tab(n - i + 1);
for j = 1 to 2 * i - 1if j <= i then
print j & "";
else
print 2 * i - j & "";
end if
next j
next i
end sub
private sub command2_click()const n = 4 '列印4行
for i = 1 to n
print tab(n - i + 1);
for j = 1 to 2 * i - 1print chr(asc("a") + i - 1);
next j
next i
end sub
private sub command3_click()const n = 4 '列印4行
stri = "+*"
for i = 1 to n
print tab(n - i + 1);
for j = 1 to 2 * i - 1print mid(stri, j mod 2 + 1, 1);
next j
next i
end sub
vb程式設計問題
private sub command1 click dim i,j as integer,s as double,n as double for i 1 to 100 n 1 for j 1 to i n n j next j s s n next i print 1 2 100 send sub...
VB程式設計題目，vb程式設計題目
private sub command1 click dim k sum sum 0 k val trim inputbox 請輸入正整數k的值 for i 1 to len str k sum sum val mid str k i,1 next i msgbox sum end subpriva...
VB程式設計陣列問題，VB程式設計陣列遇到問題，剛開始學vb跪求大神幫忙解惑
開啟vb後，在窗體中設定兩個標籤，三個文字框和一個按鈕，如圖所示。其餘的都在 中 dim a 20 as integer,x as integer private sub command1 click x text2 p binfind a,15,x if p 1 then text3 x 為陣列的...