2012骞村害璁＄畻鏈轰簩绾�VB鏁扮粍鍜岃嚜瀹氫箟绫诲瀷缁冧範棰樺拰绛旀�� - 鐧惧害鏂囧簱

棣栭〉

搴撳簱AI

骞垮満

鍘嗗彶

鏀惰棌

浜戠洏

鐭ヨ瘑搴?/div>

 

2012

骞磋�＄畻鏈轰簩绾�

VB

鏁扮粍鍜岃嚜瀹氫箟绫诲瀷缁冧範棰樺強绛旀��

 

璁＄畻鏈虹瓑绾ф祴璇曠綉

 

鏇存柊锛?/p>

2011-12-30 

缂栬緫锛?/p>

evans 

 

 

6.

浠ヤ笅绋嬪簭浠ｇ爜灏嗕换鎰忎竴缁勬暟瀛樺叆鏁扮粍锛屼粠閿�鐩樻帴鏀朵竴鏁版嵁锛屽皢

鍏舵彃鍏ユ暟缁勪腑锛屾彃鍏ョ殑浣嶇疆涔熶粠閿�鐩樻帴鏀躲�?/p>

 

 

 

Dim A( ) 

 

 

Private Sub Form_Click( ) 

 

 

N=InputBox("

鏁版嵁涓�鏁�

:") 

 

 

N=N+1 

 

 

&, nbsp; __

銆?/p>

11

銆?/p>

__ 

 

 

For I=1To N-1 

 

 

A(I)=Val(InputBox("

鍘熸暟鎹?/p>

:")) 

 

 

Next I 

 

 

D=Val(InputBox("

鎻掑叆鐨勬暟鎹?/p>

:")) 

 

 

P=Val(InputBox("

鎻掑叆鐨勪綅缃?/p>

:")) 

 

 

Do While P>N Or P<1 

 

 

MsgBox"

浣嶇疆瓒婄晫

!"