vb redim preserve50

发布网友发布时间：2023-10-24 23:35

共2个回答

热心网友时间：2024-03-28 14:45

如果在录入之前知道所有同学的个数，这样可以定义个固定的数组，
比如我要录入30个那么就定义为：
Dim studname(30) As String*4
这里可以定义更大一点,以防止后来变化
Dim studname(100) As String*4 ，用不到的就放在那里好了，

录入的时候
For i=1 to 100
temp$=InputBox$(“Enter Name:”)
if trim(temp$)="" then
if msgbox("输入为空，是否结束录入？",vbokcancel)=vbok then exit for
else
studname(i)=temp$
end if
Next i
if i>100 then
msgbox "已经录入了100条记录，结束录入！"
end if

使用的时候判断一下
for i=1 to 100
if studname(i)<>"" then
...
...
end if
next

如果不能确定录入的数量，最好使用动态数组
Dim studname() As String, temp As String
Dim i As Integer
Dim inputOK As Boolean
i = 1
ReDim studname(1)
Do
temp$ = InputBox$("输入姓名（输入空内容结束）:")
If Trim(temp$) = "" Then
inputOK = (MsgBox("输入为空，是否结束录入？", vbOkCancel) = vbOK)
Else
ReDim Preserve studname(i)
studname(i) = temp$
i = i + 1
End If
Loop While Not inputOK

热心网友时间：2024-03-28 14:45

如果使用了
Preserve
关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。例如，如果数组就是一维的，则可以重定义该维的大小，因为它是最末维，也是仅有的一维。不过，如果数组是二维或更*时，则只有改变其最末维才能同时仍保留数组中的内容。