Question

vb中题目:在文本框text1中输入一串字符,单击ocmmand1时,在label1中显示最大字符

突然遇到的难题，急，看见的网友们！速给我答案！谢谢了哦！

Answer 1

Private Sub Command1_Click()
    If Len(Text1.Text) = 0 Then Exit Sub    '如果内容为空则退出
    Dim I       As Long
    Dim MaxAsc  As Long
    Dim TmpAsc  As Long
    MaxAsc = AscW(Left$(Text1.Text, 1))
    If Len(Text1.Text) > 1 Then
        For I = 2 To Len(Text1.Text)
            TmpAsc = AscW(Mid$(Text1.Text, I, 1))
            If TmpAsc > MaxAsc Then MaxAsc = TmpAsc
        Next
    End If
    Label1.Caption = ChrW(MaxAsc)
End Sub 

Answer 2

private sub command1_click()
max=val(left(text1,1))
for i= 2 to len(text1)
if val(mid(text1,i,1)) > max then max=val(mid(text1,i,1))
next i
end sub

Answer 3

dim a as string
dim b as integer
dim temp as string
a=text1.text
b=len(a)
for i as integer=1 to b
if temp<mid(a,i,1) then
temp=mid(a,i,1)
end if
next
label1.text=temp

Answer 4

建一个数组,把字符串分割成字符,循环比对,找出asc最大的就是了