小？问题（送分题）

Question

Private Sub Command1_Click() '复制
    Clipboard.Clear ' 清除剪贴板。
    Clipboard.SetText Text1.SelText  ' 将正文放置在剪贴板上。
End SubPrivate Sub Command2_Click() '粘贴
    Text1.SelText = Clipboard.GetText(vbCFText) ' 取得剪贴板正文。
End SubPrivate Sub Command3_Click() '剪贴
    Clipboard.Clear ' 清除剪贴板。
    Clipboard.SetText Text1.SelText  ' 将正文放置在剪贴板上。
    Text1.SelText = ""
End Sub

Answer 1

Private Sub Command1_Click() '复制
    Clipboard.Clear ' 清除剪贴板。
    Clipboard.SetText Text1.SelText  ' 将正文放置在剪贴板上。
End SubPrivate Sub Command2_Click() '粘贴
    Text1.SelText = Clipboard.GetText(vbCFText) ' 取得剪贴板正文。
End SubPrivate Sub Command3_Click() '剪贴
    Clipboard.Clear ' 清除剪贴板。
    Clipboard.SetText Text1.SelText  ' 将正文放置在剪贴板上。
    Text1.SelText = ""
End Sub