100以内正整数十位数大于个位数的数字之和

问题描述:

100以内正整数十位数大于个位数的数字之和

Private Sub Form_Click()
For i = 0 To 8
For j = i + 1 To 9
Sum = Sum + 10 * j + i
Next
Next
Print "和是" & Sum
End Sub
结果是2970