windows之家1.VBS显示无效字符,以下是代码;
<p>；大哥，你赋值搞反了，正确代码如下：</p> <p> </p> dim arr(4)
xz=inputbox（"请输入要排序的第一个数！"，"冒泡排序1.0",""）
arr(1)=xz'这里弄反了
b=inputbox（"请输入要排序的第二个数！"，"冒泡排序1.0",""）
arr(2)=b'这里弄反了
c=inputbox（"请输入要排序的第三个数！"，"冒泡排序1.0",""）
arr(3)=c'这里弄反了
for j=1 to 3
for i=1 to 3-j
if arr(i)<arr(i+1) then
t=arr(i)
arr(i)=arr(i+1)
arr(i+1)=t
end if
next
next
for ss=1 to 3
data=data&arr(ss)&vblf
next
msgbox data
2.VBS显示无效字符,以下是代码；
大哥，你赋值搞反了，正确代码如下：
dim arr(4)
xz=inputbox（"请输入要排序的第一个数！"，"冒泡排序1.0",""）
arr(1)=xz'这里弄反了
b=inputbox（"请输入要排序的第二个数！"，"冒泡排序1.0",""）
arr(2)=b'这里弄反了
c=inputbox（"请输入要排序的第三个数！"，"冒泡排序1.0",""）
arr(3)=c'这里弄反了
for j=1 to 3
for i=1 to 3-j
if arr(i)<arr(i+1) then
t=arr(i)
arr(i)=arr(i+1)
arr(i+1)=t
end if
next
next
for ss=1 to 3
data=data&arr(ss)&vblf
next
msgbox data
转载请注明出处windows之家 » win10运行vbs显示无效字符