输入一个四位正整数,交换前两位和后两位组成一个数后输出,用VB语言

问题描述:

输入一个四位正整数,交换前两位和后两位组成一个数后输出,用VB语言
例如输入1234,则输出3412

Private Sub Command1_Click()
d = Val(Text1)
Print 100 * (d Mod 100) + Int(d / 100)
End Sub