运行下面程序，窗体上显示的结果为什么？ 运行程序时系统自动执行窗体的
求几道VB题目的解答
dim i as integer,s as integer
for i =1 to 10
s=s+i
if s>10 then
print s
s=0
end if
next i
end sub
当s=1+2+3+4+5=15 s>10 显示15，赋予s=0
当s=6+7=13 s>10 显示13，s=0
当s=8+9=17 s>10 显示17，s=0
total =0
for m= 1 to 3
if m>=1 then
part=1
elseif m>=2 then
part=2
elseif m>=3 then
part=3
else
part=4
end if
print part
total=total+part
next m
print total
i=1 part=1 total=1 显示1
i=2 part=1 total=2 显示1
i=3 part=1 total=3 显示1 循环结束 显示total，3
if语句中其实条件是包含关系，所以满足第一个条件后就结束了
所以一般分支语句的条件应该是互斥的，要不会得到错误的结果
dim mst as string,mst1 as string,mst2 as string
dim i as integer
mst1="CeBbAd"
for i=len(mst1)to 1 step -2
mst2=mid(mst1,i-1,2)
mst=mst&mst2
print mst
next i
end sub
i的取数是6 to 1 -2，循环即为i=6，4，2
i=6 mst2=mid("CeBbAd",5,2)="Ad",mst="Ad"
i=4 mst2=mid("CeBbAd",3,2)="Bd",mst="AdBd"
i=2 mst2=mid("CeBbAd",1,2)="Ce",mst="AdBdCe"
我觉得答案是AdAdBbAdBbCe 错了？请高手指正吧
private sub command1_click ()
dim s as string,i as integer
const ch as string="0123456789"
s="2L0A08U.1SI0V.11"
text1=""
text2=""
for i =1 to len(s)
if instr(ch,mid(s,i,1))=0 then
text1=mid(s,i,1)&text1
else
text2=text2&mid(s,i,1)
end if
next i
end sub
i=1 to 16
i=1 instr(ch,mid(s,1,1))<>0 text2=mid(s,1,1)="2"
i=2 instr(ch,mid(s,2,1))=0 text1="L"
i=3 instr(ch,mid(s,3,1))<>0 text2="2" & mis(s,3,1)="20"
i=4 instr(ch,mid(s,4,1))=0 text1=mid(s,4,1) & "L"="AL"
…………
提一下，好像const ch as string="0123456789" 里面应该包含一个小数点
vb运行时四次单击复选框check1，写出窗体上显示的结果。为什么？
窗体结果是 ：
15 15 5
45 30 5
90 45 5
150 60 5
整个过程用文字描述比较繁琐，这里主要了解几个关键点：
1、s 和 n 是全局变量，不管在哪个子程序中数值改变了它的值也随着改变（除非子程序里的定义了同名的变量，或参数名与其相同）。
2、子程序 f2的参数n是传值参数，所以子程序里的n不是全局变量的n，所以n的值改变不会影响全局变量n。所以f2里的s值为5+4+3+2+1 =15
3、静态变量ss，在离开子程序后重新调用时，它的值会保留，不会清零。