1樓：匿名使用者
已把**放到您的另一個提問，
vb新手求助：vb簡單程式設計問題，敬請vb高手指點！
2樓：匿名使用者
（1）（2）（3）（4）自己做，如果連這個都不會，那你就別學vb了，嘿嘿！
（5）的**給你：很簡單。
private sub command1_click()dim inch as integer, cm as singleinch = text1.text
cm = inch * 2.54
text2.text = cm
end sub
題二：private sub command1_click()dim n as integer, i as integern = text1.text
if n > 100 then
msgbox "輸入的整數不能超過100!"
else
if n mod 2 = 0 then
text2.text = "偶數"
else
text2.text = "奇數"
end if
end if
end sub
vb題，求高手指點，詳細點，謝謝咯。
3樓：平淡季節
private sub form_clickfor i =1 to 3
s=sum(i)
print s
next
end sub
function sum(n as integer )static j as integer
j=j+n+1
sum=j
end function
第一次迴圈i=1,j=0,sum(1) 0+1+1 =2第二次迴圈i=2,j=2,sum(2) 2+2+1 =5第三次迴圈i=3,j=5,sum(3) 5+3+1 =9static j as integer 表示j可以迴圈利用再次呼叫j不會被清0
VB程式設計的問題，求助高手
private sub text1 keypress keyascii as integer timer1.enabled falseif keyascii 48 or keyascii 58 then 判斷是否數字 if keyascii 32 or keyascii 13 then 不是數字的情...
求VB高手解幾道題速度急,求VB高手解幾道題速度急
真的很急哦,樓下的搭把手 求vb高手解答三道題目,急求 拜託各位大神 等 奇數 private sub mand1 click for i 1 to 99 step 2print i next i end sub fibonacci數列 private sub mand1 click dim a a...
求助VB高手 急哦高分懸賞
第一題 建立一個text1,dim r as single dim s 8 as integer private sub form load form1.autoredraw true text1.text 578.62 form1.width 11000 text1.top 1000 end su...