Question

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

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

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏30（财富值+成长值）

Answer 1

Private Sub Command1_Click()
Dim Stra As String,i as Integer
For i = 1 to Len(Text1.Text)
If (Asc(Mid(Text1.Text,i,1)) < 123) And (Asc(Mid(Text1.Text,i,1)) > 96) Then
Stra = Stra + Mid(Text1.Text,i,1)
End If
Next i
Text2.Text = Stra
End Sub

Answer 2

你在学VB😜

追答

exe文件

追问

恩恩，我在学

亲，我想要代码

可以吗？