这个程序提示我缺少表达式，怎么回事啊

Public Sub name()
Dim icount As Integer
Dim sname() As String
Dim ires As Integer
ires = vbYes
Do While ires = vbYes
icount = icount + 1
ReDim Preserve sname(icount) As String
sname(icount) = imputbox("pelese enter your name")
If sname(icount) = "" Then
ires = MsgBox("do you wish continou? vbyesno")
If ires = vbYes Then
sname(icount) = imputbox("pelese enter your name:")
End If
End If
Loop
Dim i As Integer
For i = 1 To icount - 1
MsgBox ("name" & i & "is" & sname(i))
Next
End Sub

缺少表达式的原因是你的子程序名取得不合规范，name为VB保留关键字。
另外第九行的函数名错误，第十一行参数写法不对；第十二、三行没必要。我改了一下，供参考。
Public Sub sname()
Dim icount As Integer
Dim sname() As String
Dim ires As Integer
ires = vbYes
Do While ires = vbYes
ReDim Preserve sname(icount) As String
sname(icount) = InputBox("please enter your name")
If sname(icount) = "" Then
ires = MsgBox("Do you wish continue?", vbYesNo)
Else
icount = icount + 1
End If
Loop

Dim i As Integer
For i = 0 To icount - 1
MsgBox ("name" & i & " is " & sname(i))
Next
End Sub

大小写字母

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息