Dim n，a，b，c，sum為整數
n = Int((999-100+1)* Rnd+100)
a = Int(n / 100)
b = Int(Int(n/10)Mod 10)
c = n模100模10
總和= a + b + c
印刷
打印總和
末端接頭