Question

输入10个长度不同的字符串，输出最长的字符串及字符串的字符个数（vb做）

Answer 1

Private Sub Command1_Click()

Dim a(10) As String

n = 0

For i = 1 To 10

  a(i) = InputBox("请输入第 " & i & " 个字符串:")

  If Len(a(i)) > n Then n = Len(a(i)): k = i

Next i

MsgBox "最长的字符串是第 " & k & " 个字符串:" & vbCrLf & a(k)

End Sub

Answer 2

你好，请用len函数。len（字符串）返回字符串长度。

追问

代码给我

我对这个不懂

追答

亲爱的，哪里不懂？
比如，len("亲爱的你在哪")返回6,因为有六个字。你先获得这六个字符串。
然后用逐个比较。