1樓：
我也沒環境，這個確實簡單，設text1 放原工資，text2放調整後的工資,大概寫一下
sub text1_change()
dim c1 as single,c2 as singlec1 = val(text1.text)
if c1>=4000 then
c2=c1*0.1
elseif c1>=3000 then
c2 = c1*0.15
else
c2 = c1*0.2
end if
text2.text = trim(c2)end sub
未做錯誤捕獲、數字格式化等處理，僅供參考
2樓：匿名使用者
private sub command1_click()aaa = val(text1.text)bbb = 1.1
if aaa >= 3000 and aaa < 4000 then bbb = 1.15
if aaa < 3000 then bbb = 1.2text2.text = aaa * bbbend sub
3樓：匿名使用者
、private sub command1_click()dim x!, y!
x = val(text1.text)
if x >= 4000 then
y= x* (1 + 0.1)
elseif x >= 3000 theny = x * (1 + 0.15)
else
y = x * (1 + 0.2)
end if
text2.text = y
end sub
4樓：匿名使用者
單擊事件
dim a!
text1.text=a
if a≥4000 then
text2.text=a*1.1
end if
if 3000≤a<4000 then
text2.text=a*1.15
end if
if a<3000 then
text2.text=a*1.2
end sub
5樓：匿名使用者
我沒環境，這個真是太簡單，就放個按鈕，裡面寫一段判斷的語句就可以了。
幫幫忙，求答案
1.今生沒有真愛情，不想恨你，好在我忍過，為快樂活一世。2.在今生沒有快樂過，真不想為情忍恨活一世，我好愛你.3.我為愛情沒有活好,真不忍恨你一生,想在今世過快樂！4.我好恨你，生活沒有快樂，今世真不想為愛情忍過一生！5.恨你在今生沒有愛過我，為情活，真不忍，好想快樂一世！6.恨你在今生沒有愛過我，...
化學高手幫幫忙 急求 微笑ing
1.檢驗深井內的二氧化碳濃度是否過高，因為在地窖深井這樣的地方空氣不流通，氧氣含量較低，而二氧化碳是不支援燃燒的，蠟燭點燃後如二氧化碳含量過少蠟燭會自動熄滅。如果不做燭火試驗，井內二氧化碳含量過高會導致人窒息。5.石蠟燃燒產生碳黑吸附空氣異味 碳具有疏鬆多孔的性質，並且有很好的吸附能力 所以味道會消...
養花高手進來幫幫忙急，養花高手幫幫忙 請問這是什麼植物啊？
林晗 水大了 不通風 造成嫩芽落蕾 盆土一定要乾透再澆 讓根有休息的時間 不要給花葉噴水 花不喜歡 洗澡淋浴 我認為主要是磷 鉀肥不夠造成的。先到花市買點應急。以後自己漚點肥，魚頭 魚腸 青蛙皮都可以漚。幾個月後，兌幾十倍的水澆，只能澆在土中。其次是陽光的問題，太缺光了不行，現在每天烈日下暴曬，也不...