VB的函数书写格式,vb文件操作函数大全

Private Sub Form_Load()

Dim a As String

a = "abcdefghijklmnopq"

Text1.Text = a

Text2.Text = UCase$(Mid(a, 8, 5))

End Sub