Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim strmiddle() As String = {"0", "0", "0"}
    Dim calmethod1 As String = "0"
    Dim calmethod2 As String = "0"
    Dim strdot As Boolean = False
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If strmiddle(0) = "0" Then
            strmiddle(0) = "7"
            TextBox1.Text = strmiddle(0) & "."
        ElseIf strdot = False Then
            strmiddle(0) = strmiddle(0) & "7"
            TextBox1.Text = strmiddle(0) & "."
        Else
            strmiddle(0) = strmiddle(0) & "7"
            TextBox1.Text = strmiddle(0)
        End If

希望大家能帮助我详细的解读下这个程序，谢谢了。我头疼有段日子了，因为是初学者，什么都不会。难受啊