子过程F(n , m , t)对一个四位数n整数判断:已知该整数n,逆向排列获得另一个4位数m是它自身的倍数(2倍以上),则t为True表示满足上述条件。主调程序调用该函数,显示1000-9999中所有满足该条件的数,如图6.13所示。 提示:根据一个数n,逐一分离得到它的反序数m,然后判断m是否是n的倍数。 图6.13运行界面 Sub Button1_Click(...) Handles Button1.Click Dim t As Boolean, i%, k% TextBox1.Text = "" TextBox2.Text = "" For i =1000 To 9999 Callf( ) Ift Then TextBox1.Text &= i &vbCrLf TextBox2.Text &= k &" = " & i & " * " & k \ i & vbCrLf EndIf Next End Sub Sub f(ByVal n%, ByRef m%, ByRef tag As Boolean) Dim i% tag = False m = 0 i = n Do While i > 0 m = ' 求得n的逆序 i = Loop If m Mod n = 0 And m \ n> 1 Then ' 是否是倍数 tag = End If End Sub