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

题目

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

答案

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