vb编程：单击command1将text1中的选定内容复制到text2的光标处

Dim s As Integer
Private Sub Command1_Click()
Text2.Text = Left(Text2.Text, s) & Text1.Text & Right(Text2.Text, Len(Text2.Text) - s)
End Sub

Private Sub Text2_Click()
s = Text2.SelStart
End Sub

text2.text=text1.text

17298582378 :VB中当先点击command1后,弹出msgbox,当msgbox关闭后,点击command2,关闭f...
师友苛1335 :答：Click()'点击command1判断一下点击前的状态 If x = 0 Then MsgBox "先点command1" End If x = 1End SubPrivate Sub Command2_Click()'点击command1判断一下点击前的状态 If x = 0 Then MsgBox "先点command2" End If If x = 1 Then Unload Me End If ...

17298582378 :...在text1和text2中输入两个整数,单击command1,计算这两个整数的积...
师友苛1335 :答：代码如下：Private Sub command1_click()if isnumeric(text1.text)=Flase or text1.text="" then exit sub '如果不是数字或为空，不继续if isnumeric(text2.text)=Flase or text2.text="" then exit sub '如果不是数字或为空，不继续Text3.Text =CInt(Text1.Text)*CInt(Text2.Text)End ...

17298582378 :求解vb fun 问题 能详解解释一下 单击COMMAND1 在窗体显示变量a的值...
师友苛1335 :答：初始值 B=3 A=4 代入时 fun(A,B+2)=fun(4,5)第一次在函数fun中 N=A=4,K=5 A是窗口级变量A=4,注意这儿N传递的参数是A，所以函数中N的值就是A的值 N=N+A=4+4=8 这时A=N=8 K=N-K=8-5=3 fun=N+K+A=8+3+8=19 第二次函数调用：fun(15,A)=fun(19,8) ，这时候A...

17298582378 :...两个命令按钮Command1和Command2,单击Command1按钮
师友苛1335 :答：Private Sub Form_Load() Command1.Caption = "确定" Command2.Caption = "取消" Command2.TabIndex = 0End SubPrivate Sub Command1_Click() Text1 = "确定"End SubPrivate Sub Command2_Click() Text1 = "取消"End Sub'请参考采纳！谢谢！

17298582378 :vb 中单击command1,label1向窗体右下角移动的代码
师友苛1335 :答：label1.Left = label1.Left +100 ’这里按默认单位 1- twip label1.top = label1.top +100 如果是持续移动，添加一个Timer控件，设置适当的Interval值，把上述代码放到Timer事件中

17298582378 :...输入圆柱体的半径和高,单击按钮command1时输出其体积。
师友苛1335 :答：Private Sub Command1_Click()Const PAI = 3.1415926 r = InputBox("请输入圆柱体半径")h = InputBox("请输入圆柱体高")msg = "圆柱体体积为" & PAI * Val(r) * Val(r) * Val(h)MsgBox msg End Sub

17298582378 :vb代码 command1的
师友苛1335 :答：Private Sub Command1_Click()x = Val(InputBox("请输入x的值（以弧度为单位）："))Cosx = 0 X2 = x * x t = 1 i = 1 Do While Abs(t) >= 1E-16 Cosx = Cosx + t t = -t * X2 / (i * (i + 1))i = i + 2 Loop Print "cos("; x; ")="; Cosx, i End...

17298582378 :如何实现VB的命令按钮command1单击后按钮上的文字变成红色,再单击变 ...
师友苛1335 :答：5妙）enabled设为false(不可用)Dim color as long 在Command1_click加入以下代码 color=command1.backcolor Command1.backcolor=vbred Timer1.enable=true 说明，让按钮颜色变为红色，让时间记可用…双击timer1 在Timer1_timer事件中添加代码 command1.backcolor=color timer1.enabled=false ...

17298582378 :VB题:在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程...
师友苛1335 :答：第一次单击按钮，x=0,开始执行for 循环，i=1 时，执行y=y+x=0+0=0，x=x+2=0+2=2 i=2时，执行y=y+x=0+2=2，x=x+2=2+2=4 i=3时，循环结束。第二次单击按钮，x=4,开始执行for 循环，i=1 时，执行y=y+x=0+4=4，x=x+2=4+2=6 i=2时，执行y=y+x=4+6=10，x...

17298582378 :VB中,怎样点击command1,就在"d:\abc";中创建一个记事本,标题是"123...
师友苛1335 :答：Private Sub Command1_Click()Open "d:\abc\123.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub