vb新手求高手帮忙.~~

来源：百度知道 编辑：UC知道 时间：2024/05/25 18:23:37
我在vb上侑一个问题..
请vb高手门帮忙一下..
+QQ:327853660

在下面回答..解决问题后我会给分.~!~
请各位高手帮忙帮忙..
谢谢.

把
List1.AddItem Str(x(i)) / 100 & "元" & Str(k) & "张"
这句改为如下代码：
if x(i)>=100 then
List1.AddItem Str(x(i)) / 100 & "元" & Str(k) & "张"
elseif x(i)>=10 then
List1.AddItem Str(x(i)) / 10 & "角" & Str(k) & "张"
elseif x(i)>=0 then
List1.AddItem Str(x(i)) & "分" & Str(k) & "张"
end if

如果没问题的话，楼主记得加分啊。

问题呢？？？？？