سورس کد تبدیل حروف بزرگ به کوچک با ویژوال بیسیک 6
توسط این سورس کد می توانید حروف را از بزرگ به کوچک تبدیل کنید.
Private Sub ConvertToUpper()
Dim xinput As String
Dim output As String
Dim i As Integer
xinput = "Hello World"
output = ""
For i = 1 To Len(xinput)
If Asc(Mid(xinput, i, 1)) >= 65 And Asc(Mid(xinput, i, 1)) = 90 Then
output = output & Chr(Asc(Mid(xinput, i, 1)) + 32)
Else
output = output & Mid(xinput, i, 1)
End If
Next i
MsgBox output
End Sub
نويسنده :
تاريخ: چهارشنبه دوم اسفند ۱۴۰۲ ساعت: 19:10
برچسب : نویسنده : sys1 بازدید : 13