编写一个电话号码升位程序。在窗体上建立两个名称分别为L1、L2的标签,标题分别是“原
12345678910111213141516171819Private Sub Form_Load()Dim a As String, b As StringCmd1.Caption = "输入"Cmd2.Caption = "连接"End Sub Private Sub Cmd1_Click()a = InputBox("请输入a的值")b = InputBox("请输入b的值")Cmd1.Tag = aCmd2.Tag = bEnd Sub Private Sub Cmd2_Click()a = Cmd1.Tagb = Cmd2.Taga = a + bMsgBox ("连接后的内容为:" & a)End Sub
热门标签: