高精度除法

Option Explicit
Z#L Nc+N(L0Dim x As Integer, y As Integer, z As IntegerVBGood社区门户O+P~4Q'q'\RT3Q
Private Sub Command1_Click()VBGood社区门户7R
]mi9r
    On Error GoTo err100VBGood社区门户eZ ]Q]/J![A"Y
    Dim x As Long, y As Long, z As Long, m As Long, n As IntegerVBGood社区门户 TCAB5PF5Bi-z
    x = Val(Text1.Text): y = Val(Text2.Text): z = Val(Text3.Text)VBGood社区门户I4v5iG1{
    Debug.Print CStr(x) & "÷"; CStr(y) & "=";
tT!@EC[y0    If x Mod y = 0 Then Debug.Print x / y;: Exit Sub
*mV%MEhl9o Z0    Debug.Print CStr(x \ y) & ".";
owb%FC t6qw%k0    m = x Mod y
_x8JM9M@ i0    n = 1
d{@/{bph+GM!^*Qv0    Do While n < zVBGood社区门户RS;WN7X[ J
       m = m * 10
-e%Z8rC!k.ha'X0       Debug.Print CStr(m \ y);VBGood社区门户o@a.S W
       m = m Mod y
5p`HH d#o7a)[0       n = n + 1VBGood社区门户:[6}2ms qW0F
    Loop
)F&od!E?"KY6r0N3M5a0    'm四舍五入保留n位小数
K r/ydz jwj3HvJ6Y6c0    Debug.Print CStr(Int(m * 10 ^ n + 0.5) / 10 ^ n)
W,H G i^w0    Exit SubVBGood社区门户3[+W+{ l ym)x
err100:
,\p.@t4z_0    MsgBox "除数不能为零"
p P4S!nt8K8_@0End Sub