VB鍵盤輸入時間計數器，VB Net計算器如何從鍵盤輸入

dim i as integer '定義變數 default i=0private sub form keypress（keyascii as integer）。

if keyascii = 48 or keyascii = 49 then '（48 是 0....）

i = i + 1 '（累計計算）。

end if

按鍵 [.]" & chr(keyascii) &"這是第乙個：" & i & "鍵對鍵操作"

end sub

可以將表單更改為文字。

檢測按鍵事件形式中的按鍵，對應於數字和功能鍵。

兩種方法。 1：直接在程式上註冊鍵盤事件。

2：窗鉤。

你不需要乙個按鈕來輸入乙個號碼，我這裡有乙個，你留下一封電子郵件。

朋友，我不知道你想做什麼樣的效果，我給你乙個簡單的方法去做，你可以做到加減乘除。

請在表單上放置 2 個文字框、4 個命令按鈕和 1 個標籤，然後輸入以下內容：

dim a%, b%, c%

private sub command1_click()a = val(

b = val(

c = a + b

cend sub

private sub command2_click()a = val(

b = val(

c = a * b

cend sub

private sub command3_click()a = val(

b = val(

c = a - b

cend sub

private sub command4_click()a = val(

b = val(

c = a / b

cend sub

這個計算器非常好，而且數字沒有被過濾。 但請遵循您的思路：

因為當你按下符號時，你會清空它一次。 那麼按 = 符號時的值應該是 n2private sub equal click（）if <>then

n2=val(

if c =0 then = str(n1 + n2)if c =1 then = str(n1-n2)if c =2 then = str(n1* n2)if c =3 then = str(n1/n2)endif

end sub

親愛的同志，我是小學生，我不明白你在說什麼。 但是我可以請一位老師告訴我做 **:p rivate sub command1 click（） 的計算器。

val( +val(

end sub

private sub command2_click()= val( -val(

end sub

private sub command3_click()= val( *val(

end sub

private sub command4_click()= val( / val(

end sub

private sub command5_click()= ""

end sub

private sub command6_click()endend sub

如果你不明白，告訴我，我會給你解釋，如果你不喜歡，就不要回覆我。

這是乙個簡單的計算器，最簡單，沒有 if 語句......

如果您想要實物，請告訴我您的電子郵件位址，謝謝您的合作。

我有乙個很好的電腦程式，非常漂亮，房東有興趣聯絡我，我的電子郵件是。

將 t 定義為泛型中的全域性變數，僅此而已。

dim t as integer

private sub timer1_timer()if t >= 3 then

a = 10

elset = t + 1

end if

print t

end sub

這個只會新增一次，t 永遠是 1，對吧？

private sub timer1 timer（）' 可以是按鈕，如果 t > = 3 那麼

a = 10

t = 0 't 設定 o 並重新計算。

elset = t + 1

end if

end sub

最簡單的，只有一句話**，最接近系統的原始計算器。

shell "%windir%\system32\",vbnormalfocus

好吧，我在開玩笑，所以我們就不要看它。