鍏ㄥ浗璁＄畻鏈虹瓑绾ц�冭瘯浜岀骇VB涓婃満棰樺簱浠ュ強瑙ｆ瀽.doc - 鐧惧害鏂囧簱

棣栭〉

搴撳簱AI

骞垮満

鍘嗗彶

鏀惰棌

浜戠洏

鐭ヨ瘑搴?/div>

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

鏅ㄦ洣鍒朵綔

 

绗?/p>

 

1 

椤?/p>

 

鍏?/p>

 

10 

椤?/p>

 

鍏ㄥ浗璁＄畻鏈虹瓑绾ц�冭瘯浜岀骇

VB

涓婃満棰樺簱

(

涓�

) 

      

 

鍥?/p>

1                                 

鍥?/p>

2 

T1.width=T1.width+1400 

T1.Height=T1.Height+400 

T1.fontsize=T1.fontsize*3 

鏈�鍚庡崟鍑讳繚瀛樻寜閽�锛屽伐绋嬪懡鍚嶄�?/p>

sjt1.vbp,

绐椾綋鍛藉悕涓?/p>

sjt1.frm

銆?/p>

 

 

 

    Text1.text=LCase(Text1.text) 

    Text2.text=UCase(Text1.text) 

涓�銆?/p>

 

绠�鍗曞簲鐢ㄩ�橈�?/p>

2

灏忛�橈紝姣忓皬棰�

20

鍒嗭紝鍏辫��

40

鍒嗭級

 

1.

鍦ㄨ�冪敓鐩�褰曚笅鏈変竴涓�宸ョ▼鏂囦�?/p>

sjt3.vbp

锛岀浉搴旂殑绐椾綋鏂囦欢涓?/p>

sjt3.frm

銆傚寘鍚?/p>

鎵�鏈夋帶浠跺拰閮ㄥ垎绋嬪簭锛屽�傚浘鎵�绀恒�?/p>

 

瑕佹眰锛?/p>

 

1)

鍒╃敤灞炴�х獥鍙ｅ悜鍒楄〃妗嗘坊鍔犲洓涓�椤圭洰锛�

Visual Basic,Turbo C,C++,Java; 

2)

璇风紪鍐欓�傚綋鐨勭▼搴忓畬鎴愪互涓嬪姛鑳斤細

褰撻�夋嫨鍒楄〃妗嗕腑鐨勪竴椤瑰拰鍗曢�夋寜閽?/p>

Option1,

鐒跺悗鍗曞嚮鈥滅‘瀹氣�濆懡浠ゆ寜閽�锛屽垯鏂囨湰妗嗕腑鏄剧ず鈥?/p>

XXX

绗旇瘯鈥?/p>

锛涘綋閫夋嫨鍒楄〃妗嗕腑鐨?/p>

涓�椤瑰拰鍗曢�夋寜閽?/p>

Option2

锛岀劧鍚庡崟鍑烩�滅‘瀹氣�濆懡浠ゆ寜閽�锛屽垯鏂囨湰妗嗕腑鐨勪竴椤瑰拰鍗?/p>

閫夋寜閽?/p>

Option2

锛岀劧鍚庡崟鍑烩�滅‘瀹氣�濆懡浠ゆ寜閽�锛屽垯鏂囨湰妗嗕腑鏄剧ず鈥?/p>

XXX

涓婃満鈥?/p>

銆傚叾

涓�鈥?/p>

XXX

鈥濇槸鍦ㄥ垪琛ㄦ�嗕腑鎵�閫夋嫨鐨勯」鐩�銆?/p>

 

 

If Option1.Value=True then  

  Text1.Text=List1.List(List1.ListIndex)+Option1.Caption