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。