Question

编一简单文本编辑器程序 两个文本框（1）当在文本框Text1输入内容“欢迎同学们学习VB课程！”，

编一简单文本编辑器程序 两个文本框（1）当在文本框Text1输入内容“欢迎同学们学习VB课程！”，单击窗体会复制8个字符在文本框Text2中显示。（2）当在文本框Text1中输入内容“欢迎同学们学习VB课程！”，用鼠标选定任意内容，单击窗体时会显示在文本框Text2中

Answer 1

用鼠标选定任意内容，具体呢？有哪几种情况

追问

你看一下，谢谢咯

追答

第一题
Private Sub Form_Click()
Text2 = Left(Text1, 8)
End Sub
第二题
Private Sub Form_Click()
If Text1.SelLength > 0 Then Text2.Text = Text1.SelText
End Sub

追问

谢谢

还有这一题的编写代码

追答

你这个π 等于多少。我好定义

追问

没说啊

应该是3.14

追答

那个窗体名称，你自己改下。from1.caption=圆的周长和面积

追问

请问你编完了没

追答

Dim r, l, s As String
Const π = 3.14
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请您输入半径值"
Else
r = Val(Text1.Text)
l = 2 * π * r
s = π * r ^ 2
Text2.Text = l
Text3.Text = s
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) '锁定text1的格式为数字
If (InStr(Text1.Text, ".") = 0 And KeyAscii = 46) Or (KeyAscii >= 48 And KeyAscii <= 57) Or (InStr(1, Text1, ",") = 0 And KeyAscii = 8) Then
Else
KeyAscii = 0
End If
End Sub
早就做好传上去了。你不下载。硬要写在网页上

追问

没看见啊

追答

看到了吧

Answer 2

我是做任务随便答的。。。