您的位置：程序门 -> vb ->



求教一个过程的问题


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


求教一个过程的问题[无满意答案结贴,结贴人:starshow0571]
发表于：2007-11-06 21:46:16 楼主
运行下面的程序，当单击窗体时，窗体显示的内容是_________,如果把a语句替换为x=64，b语句替换为r=8，则输出结果为____。分析一下这个程序的功能是什么。

dim   n   as   integer,   k   as   integer,   x   as   integer,   r   as   integer
dim   a（8)   as   integer
private   sub   conv（d   as   integer,   r,   i)
i   =   0
do   while   d   <>   0
i   =   i   +   1
a（i)   =   d   mod   r:   d   =   d   \   r
loop
end   sub
private   sub   form_click（)
x   =   12
r   =   2
print   cstr（x);   "（",   cstr（r);   ")=";
if   x   =   0   then
print   0
else
call   conv（x,   r,   n)
for   k   =   n   to   1   step   -1
print   a（k)
next   k
print
end   if

end   sub

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击