dim a$,b$,c$
a=“Visual Basic Programming”
b=“Quick Learning”
c=Left(b,5) & UCase(Mid(a,7,6)) & Right (a,12)
debug.print c
Dim a As String, b As String
Private Sub Form_Load()
a = "Visual Basic Programming"
b = "Quick Learning"
c = Left(b, 5) & UCase(Mid(a, 7, 6)) & Right(a, 12)
Debug.Print c
End Sub
这个能用,自己试试
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024