(瀹屾暣word)鏈�鏂癡B棰樺簱鍙婄瓟妗?鎺ㄨ崘鏂囨。 - 鐧惧害鏂囧簱

棣栭〉

搴撳簱AI

骞垮満

鍘嗗彶

鏀惰棌

浜戠洏

鐭ヨ瘑搴?/div>

 

1 

鏈�鏂?/p>

VB

棰樺簱鍙婄瓟妗?/p>

 

涓�銆侀�夋嫨棰?/p>

 

绗?/p>

1

閮ㄥ垎

 

 

1

銆?/p>

鍦ㄧ獥浣?/p>

锛堝悕绉颁负

Form1

锛?/p>

涓婄敾涓�涓�鍚嶇О涓�

Text1

鐨勬枃鏈�妗嗗拰涓�涓�鍚嶇О涓�

Command1

鐨勫懡浠ゆ寜閽�锛岀劧鍚庣紪鍐欎竴涓�浜嬩欢杩囩▼銆傜▼搴忚繍琛屽悗锛屽�傛灉鍦ㄦ枃鏈�妗嗕腑杈撳叆涓�涓�瀛�

绗︼紝

鍒欐妸鍛戒护鎸夐挳鐨勬爣棰樿�剧疆涓�

鈥?/p>

璁＄畻鏈虹瓑绾ц�冭瘯

鈥?/p>

銆?/p>

浠ヤ笅鑳藉疄鐜颁笂杩版搷浣滅殑浜嬩欢杩?/p>

绋嬫槸

 

 

A

銆?/p>

Private Sub Text1_Change() 

Command1.Caption = "

璁＄畻鏈虹瓑绾ц�冭瘯

" 

End Sub 

B

銆?/p>

Private Sub Command1_Click() 

Caption = "

璁＄畻鏈虹瓑绾ц�冭瘯

" 

End Sub 

C

銆?/p>

Private Sub Form_Click() 

Text1.Caption = "

璁＄畻鏈虹瓑绾ц�冭瘯

" 

End Sub 

D

銆?/p>

Private Sub Command1_Click() 

Text1.Text = "

璁＄畻鏈虹瓑绾ц�冭瘯

" 

End Sub 

 

2

銆佸湪涓�琛屽唴鍐欏�氭潯璇�鍙ユ椂锛屾瘡涓�璇�鍙ヤ箣闂寸敤锛?/p>

      

锛夌�﹀彿鍒嗛殧銆?/p>

 

A

銆?/p>

 

, 

  

 

 

 

 

B

銆?/p>

锛?/p>

 

  

 

 

 

 

 

 

C

銆?/p>

. 

  

 

 

D

銆?/p>

锛?/p>

 

 

3

銆佷笅闈�锛�

      

锛夋槸鍚堟硶鐨勫彉閲忓悕銆?/p>

 

A

銆?/p>

X_YZ

 

  

B

銆?/p>

123ABC 

  

C

銆?/p>

INTEGER 

  

D

銆?/p>

X-Y 

 

4

銆佷笅闈�锛�

      

锛夋槸鍚堟硶鐨勫瓧绗﹀父閲忋�?/p>

 

A

銆?/p>

 

ABC$ 

  

B

銆?/p>

 

鈥淎BC鈥?/p>

 

  

C

銆?/p>

 

鈥楢BC鈥?nbsp;

  

D

銆?/p>

 

ABC 

 

5

銆佽〃杈惧紡

16/4 - 2^5*8 MOD 5\2

鐨勫�间负锛?/p>

      

锛?/p>

銆?/p>

 

A

銆?/p>

14 

  

 

B

銆?/p>

 

4 

  

 

C

銆?/p>

20 

  

 

D

銆?/p>

2 

 

6

銆佽��

a=鈥滿icrosoftVisualBasic鈥?/p>

锛屽垯浠ヤ笅浣垮彉閲忕殑

b

鍊间负

鈥漋isualBasic鈥?/p>

鐨勮��鍙ユ槸

 

A

銆?/p>

b=Left(a,10) 

 

 

 

 

 

 

 

 

 

B

銆?/p>

b=Mid(a,10)

 

C

銆?/p>

b=Right(a,10) 

 

 

 

 

 

 

 

 

D

銆?/p>

b=Mid(a,11,10) 

 

7

銆佽��

a="a"

锛?/p>

b="b"

锛?/p>

c="c"

锛?/p>

d="d"

锛屾墽琛岃��鍙?/p>

x = IIf((a < b) Or (c > d), "A", "B")

鍚庯紝

x

鐨勫�间负

 

A

銆?/p>

"a" 

 

 

 

 

B

銆?/p>

"b" 

 

 

 

C

銆?/p>

"B" 

 

 

 

D

銆?/p>

"A" 

 

8

銆佸湪绐椾綋涓婄敾涓�涓�鏂囨湰妗嗭紝鐒跺悗缂栧啓濡備笅浜嬩欢杩囩▼锛�

 

Private Sub Form_Click() 

 

x = InputBox("

璇疯緭鍏ヤ竴涓�鏁存�?/p>

")