Question

vb编一个textbox1输入小写点button1在textbox2转换成大写的

用for next写

Answer 1

Private Sub button1_Click()
textbox2.Text = UCase(textbox1.Text)
End Sub
如果用for next 那么就是
Private Sub button1_Click()
For i = 1 To Len(textbox2.Text)
textbox2.Text = textbox2.Text & UCase(Mid(textbox1.Text, i, 1))
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim x(100000) As String, ssv As String
For i = 1 To Len(Text1.Text)
x(i) = Chr(Asc(Mid(Text1.Text, i, 1)) - 32)
ss = ss + x(i)
Text2.Text = ss
Next
End Sub

搞定了

Answer 3

Ucase