玺亚诠社:输出1/137的小数点的后的30位

来源:百度文库 编辑:高考问答 时间:2024/05/10 22:09:56

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x As Int32 = 10
Dim y As Byte
Dim m As Byte
Dim i As Byte
TextBox1.Text = "0."
For i = 1 To 30
If x > 137 Then
m = Int(x / 137)
x = (x Mod 137) * 10
Else
m = 0
x = x * 10
End If
TextBox1.Text = TextBox1.Text & m
Next
End Sub
End Class

需要在窗体上建立一个文本框textbox1

vb.net中测试通过

0.0072992700729927007299270072992701