MSDN里面有现成的。你也可以到
http://www.dapha.net下载

解决方案 »

  1.   

    Private Sub Command1_Click(Index As Integer)
        Text1.Text = Text1.Text & Index
    End Sub
      

  2.   

    e.g, 
    Private Sub cmdNumber_Click(Index As Integer)
        TextBox.Text = TextBox.Text & cmdNumber(i).Caption
    End Sub
      

  3.   

    msdn 里面是否有 对按钮的重复点击记数 的函数 可以调用
      

  4.   

    按钮“1”的click事件text1.text=text1.text&"1"
    就行了吧
    `
      

  5.   

    text1.text=text1.text & "1"
      

  6.   

    控件动态数组    
    Provate Sub Form_load()
    command1.index=0
    End Sub
    ---------------------
    Private Sub Command1_Click(Index As Integer)
        Text1.Text = Text1.Text & Index
    End Sub
      

  7.   

    Private Sub Command1_Click(Index As Integer)
        Text1.Text = Text1.Text & Index
    End Sub
      

  8.   

    Private Sub Command1_Click
    dim a as single   '声明一个变量a(a是另一个加数)
    text1.text=cstr(a+111234)  ’在文本框中显示(cstr是把a+111234转换为 
                                 字符串类型)
    end sub