下面VB程序完成将一个四位数的百位和十位交换，个位和千位交换的任务，如输入1954，输出4591.程序运行界面如图所示，在文本框Text1中输入某四位数，单击“切换”按钮Comd1，在文本框Text2中输出转换后的结果。请将程序补充完整。
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
【解答】
【点评】
声明：本试题解析著作权属菁优网所有，未经书面同意，不得复制发布。
发布：2024/4/20 14:35:0组卷：0引用：1难度：0.6
