1樓:卿禕寧
private sub command1_click()'產生randomize 1
text1.text=int(9*rnd)+1text2.text=int(99*rnd)+1text3.text=int(999*rnd)+1end sub
private sub command2_click()'計算dim d as double
d=(val(text1.text)+val(text2.text)+val(text3.text))/3
text4.text=format(d,"0.00")end sub
private sub command3_click()'清除text1.text=""
text2.text=""
text3.text=""
text4.text=""
end sub
2樓:柳飛花落
option explicit
private sub command1_click() '生成
dim rndtxt as control
randomize '置隨機數種子
for each rndtxt in me.controls
if typeof rndtxt is textbox then if rndtxt.name <> "text4" then rndtxt.text = int(rnd * 99) + 1 '生成100以內的隨機數
next rndtxt
end sub
private sub command2_click() '計算
dim sumtxt as control, sumnum as integer, fornum as integer
for each sumtxt in me.controls
if typeof sumtxt is textbox then
if sumtxt.name <> "text4" then
sumnum = sumnum + sumtxt.text '值相加
fornum = fornum + 1
end if
end if
next sumtxt
text4.text = format(sumnum / fornum, "0.00") '求平均值並將結果保留兩位小數
end sub
private sub command3_click() '清除
dim cleartxt as control
for each cleartxt in me.controls
if typeof cleartxt is textbox then cleartxt.text = "" '清除所有當前窗體中text控制項的內容
next cleartxt
end sub
3樓:
'產生text1.text=int(rnd()*10)text2.text=int(rnd()*10)text3.
text=int(rnd()*10)'計算text4.text=0.01*(int(((val(text1.
text)+val(text1.text)+val(text1.text))/3+0.
05)*100)
vb程式設計,vb程式設計
private sub command1 click dim obj as object,mymouse as integer if list1.selcount 0 and list2.selcount 0 then for each obj in me.controlsif obj.name l...
vb程式設計題目,VB程式設計試題
您的第乙個問題 text1.text 輸入的數 就是 變數 在文字框裡不是什麼數都可以輸入麼?這就是常量啊!您的第二個問題 當然是寫50 應為val把50轉化了數值 為了方便你理解 我舉兩個例子吧 if val text1.text 60 thenprint pass else print nopa...
VB程式設計題目,VB程式設計題?
private sub form load text1.fontsize 10 end sub private sub command1 click text1.fontsize 10 int rnd 3 1 end sub private sub command2 click text1.font...
VB程式設計題,Vb程式設計題,
開頭你自己寫 中間過程是這樣的!int s,sum s 0 sum 0 for i 1 to 10 for j i 1 to 10 s j i next j end sum s sum next i end a 1 for i 1 to 10 a a i s s a next i label1.ca...
vb程式語言程式設計序問題),VB程式語言 程式設計序!!(3個問題)
三個問題才給10分,也太少了,呵呵 不過還是幫你解決一下。1 如下 private sub form load dim i as integer dim s,t as single dim n as integer show clss 0 t 1 n val inputbox 請輸入n的值 if n...