Question

VB 的函数书写格式

Private Sub Form_Load()
Dim a As String
a = "abcdefghijklmnopq"
Text1.Text = a
Text2.Text = LCase$(Mid(a, 8, 5))
End Sub

有没有人帮帮我，把text1.text的字符串的第8个字符串起算的5个字符穿传送到text2 并用LCase$函数转换成大写 能用一行代码实现吗？

Answer 1

Private Sub Form_Load()
Dim a As String
a = "abcdefghijklmnopq"
Text1.Text = a
Text2.Text = UCase$(Mid(a, 8, 5))
End Sub