从键盘读入两个字符串分别保存在一维字符数中，比较两个字符串大小（不用strcmp函数），输出较大的

Question

如题所述

Answer 1

Private Sub Form_Load()
  Me.AutoRedraw = True
  Dim a(1 To 2) As String
  For i = 1 To 2
    a(i) = InputBox("No_" & i & "=")
    Print a(i) + Space(2)
  Next i
  Print
  Print IIf(a(1) > a(2), a(1), a(2))
End Sub