下面VB程序完成將一個四位數的百位和十位交換，個位和千位交換的任務，如輸入1954，輸出4591.程序運行界面如圖所示，在文本框Text1中輸入某四位數，單擊“切換”按鈕Comd1，在文本框Text2中輸出轉換后的結果。請將程序補充完整。
PrivateSubComd1_Click（ ?。?br />DimkAsInteger,nAsInteger
Dima,b,c,dAsInteger
k=Val（Text1.Text）
a=k\1000
b=（k mod 1000）\10（k mod 1000）\10
c=（k mod 100）\10（k mod 100）\10
d=kMod10
n=d*1000+c*100+b*10+a
Text2.Text=Str（n）
EndSub
【考點】賦值語句．
【答案】（k mod 1000）\10；（k mod 100）\10
【解答】
【點評】
聲明：本試題解析著作權屬菁優網所有，未經書面同意，不得復制發布。
發布：2024/4/20 14:35:0組卷：0引用：1難度：0.6
