帮帮忙,看下这段程序。
Public Class Form1Inherits 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