谁帮我写一个VB程序

来源：百度知道 编辑：UC知道 时间：2024/04/29 23:58:27
打开程序后,在文本框中输入文本.一个按钮单击事件把文本发送到别的地方.如:记事本
要求:可以设置发送次数,并帮我解释一下各语句的意思

Private Sub Command1_Click()
'弹出一个输入框要求输入发送次数
p$ = InputBox("发送几次", , 1)
'把输入内容转成一个整数
t& = CLng(Val(p))
'如果次数大于0
If t > 0 Then
'运行一个记事本程序
Shell "notepad", 1
'按发送次数循环
For i& = 1 To t
'发送Text1内容到记事本
SendKeys Text1.Text
Next
End If
End Sub