1、Private Sub Command1_ClickDim x As Single, y As Single x = ValText1TextIf x lt 10 Then y = x 1 ElseIf x = 10 And x lt 20 Then y = 2 * x 1 ElseIf x = 20 Then y = 3;Private Sub Command2_Click #39粘贴 Dim i, s As String Text2SelText = quotquoti = Text2SelStart Text2Text = LeftText2Text, i ClipboardGetText MidText2Text, i + 1End Sub Private。