1樓：匿名使用者
兄弟，接招！
private sub c1_click() true
end sub
private sub form_load() false
= 開始計數"
end sub
private sub t1_timer() 1end sub
2樓：網友
dim aq as boolean, am as long'模組級變數。
private sub command1_click()'開始計數過程。
= 1000aq = true
end sub
private sub command2_click()'結束計數過程。
aq = false
= false' =0 '如果要在結束計數時清零，加這一句end sub
private sub form_load() 0
= 開始計數"
= 結束計數"
am = 0
end sub
private sub timer1_timer()'計數器if aq = true then
am = am + 1
end if
= amend sub
vb計數器問題
3樓：網海1書生
i要設為靜態變數才行：
private sub command1_click()static i as integer '加這行！！！
i = i + 1
print i
end sub
或者把i設為全域性變數也行。
dim i as integer '這行要放到所有**的最前面private sub command1_click()i = i + 1
print i
end sub
如何用vb製作計數器
4樓：匿名使用者
使用陣列 和 結構體。
相應的資料型別自己看看哪個最合適就用哪個，下面的例子全部用long，初始資料用100個隨機數。
option explicit
private type dd
d1 as long '儲存出現的數。
d2 as long '儲存出現次數。
end type
private sub form_load() true
dim aa() as dd
dim bb() as long '原始數字的陣列dim i, j, k, l, m as longredim aa(0)
k = 100 '隨機數個數。
l = 500 '最大隨機數。
m = 100 '最小隨機數。
redim bb(k) as long
'生成隨機數，儲存在bb裡面。
randomize
for i = 0 to k - 1
bb(i) =int(((l - m) *rnd) +m)next i
'統計bb裡面各個數字出現次數。
for i = 0 to ubound(bb) -1for j = 0 to ubound(aa) -1if aa(j).d1 = bb(i) thenaa(j).d2 = aa(j).
d2 + 1exit for
end if
next j
if j >=ubound(aa) thenredim preserve aa(j + 1) as ddaa(j).d1 = bb(i)
aa(j).d2 = 1
end if
next i
'輸出出現數字及次數。
"數字", 出現次數", 數字", 出現次數", 數字", 出現次數", 數字", 出現次數"
for i = 0 to ubound(aa) aa(i).d1, aa(i).
d2,if i mod 4 = 3 then '設定輸出格式。
next i
end sub
直接新建exe，複製黏貼就可以執行了。
如何用vb做一個計數器
5樓：庹菲類靜恬
畫command1
text1在通用中定義s,假設初值為23
滑鼠左鍵為1,右鍵為2
dimsasinteger
private
subcommand1_mousedown(buttonasinteger,shift
asinteger,xas
single,yas
single)
ifbutton=2
thens=
s-1ifbutton=1
thens=
s+endsub
private
subform_load()s=
endsub
6樓：匿名使用者
很簡單一for就可以了。!
怎麼用vb做一個計算器
怎樣用vb製作一個計算器
7樓：伈雨
對著文字框和輸出結果右鍵可以彈出相關選單。
8樓：網友
郵箱多少，我直接給你 ，做個計算器，10分鐘搞定，複雜點的，30分鐘。
9樓：一念春風十里不如你
win自帶的多好用啊。
都會用系統自帶的計算器！
10樓：渾語詩
都是一些公式，沒有難度。
11樓：王嘎嘎
最後顯示結果：25
親試一下這樣可以嗎。
提問vb程式**。
親親這樣可以嗎。
提問具體怎麼操作呢。
回答用兩個label控制元件，把它們的字號設得大一些，比如72，然後一個的caption屬性輸入為｛，另一個是｝，把位置擺好，就可以了，了。
vb怎麼做計算器教程
12樓：這個人冬天有點冷
我做了一個，留下郵箱發給你。
如何用vb製作一個計數器
13樓：匿名使用者
畫command1 text1
在通用中定義s,假設初值為23
滑鼠左鍵為1,右鍵為2
dim s as integer
private sub command1_mousedown(button as integer, shift as integer, x as single, y as single)
if button = 2 then s = s - 1if button = 1 then s = s + s
end sub
private sub form_load()s = 23
= send sub
14樓：匿名使用者
用滑鼠的事件就完成了。
如何選購「液體顆粒計數器」，「顆粒計數器 如何選型
恆新國儀科技 首先了解 液體顆粒計數器 的作用 是用於檢測油液中的固體顆粒的數量和大小，其次要了解 液壓油清潔度檢測儀 適用於那些油品 適用於航空煤油 礦物油 合成油 磷酸脂油 液壓油 潤滑油 變壓器油 汽輪機油 透平油 齒輪油 發動機油等。我以 gykld b 液體顆粒計數器 為例，舉例說明 選購...
51微控制器計數器怎麼用，51微控制器計數器怎麼用
51微控制器是基礎入門的一個微控制器，還是應用最廣泛的。51微控制器的定時 計數器的概念 微控制器中，脈衝計數與時間之間的關係十分密切，每輸入一個脈衝，計數器的值就會自動累加1，只要相鄰兩個計數脈衝之間的時間間隔相等，則計數值就代表了時間的流逝，因此，微控制器中的定時器和計數器其實是同一個物理的電子...
微控制器計數器問題，有關微控制器計數器的問題
採用中斷，多工查詢，好好協調，不至於有59ms的。請問怎麼讀定時器0的數值？使用傳送指令即可。但是，如果定時器0處於 計數中 數值的準確讀取，就比較困難。外部計數最好用計數中斷來做，要不很容易會漏掉脈衝的 你用中斷就好了 還有就是，如果你用的18b20測溫的話，你就不能一直測了，過段時間採集一次吧 ...