下面VB程序完成將一個四位數(shù)的百位和十位交換，個位和千位交換的任務(wù)，如輸入1954，輸出4591.程序運行界面如圖所示，在文本框Text1中輸入某四位數(shù)，單擊“切換”按鈕Comd1，在文本框Text2中輸出轉(zhuǎn)換后的結(jié)果。請將程序補充完整。
PrivateSubComd1_Click（ ）
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
【解答】
【點評】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：0引用：1難度：0.6
把好題分享給你的好友吧~~