用VB排序的问题

earphone 2000-07-18 03:06:00
各位VB高手,我在学习VB排序中看到这样一段程序总是调试不正确请大家
指点,每在运行到shellsort strarrays(),linecount就显示ByRef参数类
型不符,小弟找不到原因请高手指点,
源程序如下:
Private Sub MnuItemSort_Click()
Dim Linecount, Curline, i, sharsinfile As Integer
Dim letter, Ins As String
ReDim Strarrays(Linecount)
Curline = 1
Ins = ""
For i = i To sharsinfile
letter = Mid(TxtNote.Text, i, 1)
If letter = Chr$(13) Then
Curline = Curline + 1
i = i + 1
Ins = ""
Else
Strarrays(Curline) = Ins
End If
Next i
Shellsort Strarrays$, Linecount
End Sub
--------------------------------------------------------------------
Option Explicit
Public Strarrays$()
Public sort, temp As String

Sub Shellsort(sort, numofelements)
Dim numofelements, span, i, j As Integer
span = numofelements / 2
Do While span > 0
For i = span To numofelements - 1
j = i - span + 1
For j = (i - span + 1) To 1 Step -span
If sort(j) <= sort(j + span) Then Exit For
'swap array elements that are out of order
temp = sort(j)
sort(j) = sort(j + span)
sort(j + span) = temp
Next j
Next i
span = span \ 2
Loop
End Sub
...全文
176 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Un1 2000-07-21
  • 打赏
  • 举报
回复
把Public sort, temp As String行去掉。
Mike_sun 2000-07-21
  • 打赏
  • 举报
回复
去掉 Public sort, temp as string 试一下!!
diahou 2000-07-18
  • 打赏
  • 举报
回复


看看Public Strarrays$()和ReDim Strarrays(Linecount)的名字就知的啦。
diahou 2000-07-18
  • 打赏
  • 举报
回复
看看Public Strarrays$()和ReDim Strarrays(Linecount)的名字就知的啦。
diahou 2000-07-18
  • 打赏
  • 举报
回复
看看Public Strarrays$()和ReDim Strarrays(Linecount)的名字就知的啦。

mafangsan 2000-07-18
  • 打赏
  • 举报
回复
问题很简单,不过10分太少,不吸引人,打打字也值20分。

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧