vb绋嬪簭璁捐�″疄渚� - 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

______________________________________________________________________________________________________________ 

-

鍙�缂栬緫淇�鏀?/p>

- 

vb

绋嬪簭璁捐�″疄渚�

 

 

2009-5-22 15:37 

 

鎻愰棶鑰咃細娣樻窐鐨勬煇鍦?/p>

 

| 

鎮�璧忓垎锛�

20 | 

娴忚�堟�℃暟锛?/p>

1688

娆?/p>

 

缂栧啓绋嬪簭锛岃�鹃摱琛屽畾鏈熷瓨娆剧殑骞村埄鐜囦负锛�

1

骞存湡

2.25%

锛?/p>

2

骞存湡

2.43%

锛?/p>

3

骞存湡涓?/p>

2.70%

锛?/p>

5

骞存湡涓?/p>

2.88%

锛堜笉璁板�嶅埄锛夈�備粖鏈?/p>

X

鍏冿紝

5

骞翠互鍚庝娇鐢�锛屽叡鏈夊�備笅

6

涓?/p>

瀛樻硶锛?/p>

 

鈶犲瓨涓�娆?/p>

5

骞存湡锛?/p>

 

鈶″瓨涓�娆?/p>

3

骞存湡锛屼竴娆?/p>

2

骞存湡锛?/p>

 

鈶㈠瓨涓�娆?/p>

3

骞存湡锛屼袱娆?/p>

1

骞存湡锛?/p>

 

鈶ｅ瓨涓ゆ��

2

骞存湡锛屼竴娆?/p>

1

骞存湡锛?/p>

 

鈶ゅ瓨涓�娆?/p>

2

骞存湡锛屼笁娆?/p>

1

骞存湡锛?/p>

 

鈶ュ瓨浜旀��

1

骞存湡

. 

鍒嗗埆璁＄畻鍚勭�嶅瓨娉�

5

骞村悗鍒版湡鐨勬湰鎭�鍚堣�★紝濡傚浘鎵�绀?/p>

 

 

2009-5-22 17:06 

 

鏈�浣崇瓟妗?/p>

 

 

Private Sub Form_Activate() 

'1

骞存湡

2.25%

锛?/p>

2

骞存湡

2.43%

锛?/p>

3

骞存湡涓?/p>

2.70%

锛?/p>

5

骞存湡涓?/p>

2.88%

锛堜笉璁板�嶅埄锛夈�備粖

鏈?/p>

X

鍏冿紝

5

骞翠互鍚庝娇鐢�锛屽叡鏈夊�備笅

6

涓�瀛樻硶锛�

 

Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As 

Double = 0.0288 

Dim x As Double 

x = Val(InputBox(""))