Question

2.将文本框Text1中的小写字母复制到文本框Text2中。窗体设计及运行结果如下图，三个控件的名

2.将文本框Text1中的小写字母复制到文本框Text2中。窗体设计及运行结果如下图，三个控件的名称分别为text1、text2、command1。

求助，VB代码是什么？

Answer 1

Private Sub Command1_Click()
Dim l%, i%, str$, st$, sr$
l = Len(Text1.Text)
For i = 1 To l
st = Text1.Text
sr = Mid(st, i, 1)
If Asc(sr) > 91 Then
str = str & sr
End If
Next
Text2 = str
End Sub

追问

谢谢了

Answer 2

Private Sub Command1_Click()
Dim s As String, n As Integer
s = Text1.Text
n = Len(s)
For i = 1 To n
If Mid(s, i, 1) >= "a" And Mid(s, i, 1) <= "z" Then
Text2.Text = Text2.Text & Mid(s, i, 1)
End If
Next
End Sub

Answer 3

自己解决

追问

亲，帮个忙叭。

不待你这样回答的

追答

哈哈

易语言

c++

追问

VB

追答

知道