UC知道求两道VB题目的解答
来源：百度知道 编辑：UC知道 时间：2024/06/13 22:24:12
第一题
执行下面程序，单击command1,则窗体上显示的第123行分别是什么（答案C CW 8）
private sub command1_click()
dim s as string,t as string
dim k as integer,m as integer
s="BASICY"
k=1:m=k
for k=1 to len(s) step m+1
t=t&chr(asc(mid(s,m,1))+k)
k=k+1
if mid(s,k,1)="Y" then exit for
m=m+k
print t
next k
print m
end sub
第二题
执行下面的程序，在窗体上显示的输出结果的第12行分别是什么（答案this is a book This Is A Book）
option explicit
private sub form_click()
dim s as string ,i as integer,flag as boolean
s="THIS IS A BOOK"
s=LCase(s)
print s
flag=true
for i=1 to len(s)
if mid(s,i,1)=""then
flag=true
else flag then
s=left(s,i-1)&UCase(mid(s,i,1))&right(s,len(s)-i)
flag=false
end if
next i
print s
end sub
这一题我觉得第二个答案有问题，哪位能帮我，告诉我这两道题的解答，特别是第一题
哪位能说得详细点啊！！！第一题
执行下面程序，单击command1,则窗体上显示的第123行分别是什么（答案C CW 8）
private sub command1_click()
dim s as string,t as string
dim k as integer,m as integer
s="BASICY"
k=1:m=k
for k=1 to len(s) step m+1
t=t&chr(asc(mid(s,m,1))+k)
k=k+1
if mid(s,k,1)="Y" then exit for
m=m+k
print t
next k
print m
end sub
第二题
执行下面的程序，在窗体上显示的输出结果的第12行分别是什么（答案this is a book This Is A Book）
option explicit
private sub form_click()
dim s as string ,i as integer,flag as boolean
s="THIS IS A BOOK"
s=LCase(s)
print s
flag=true
for i=1 to len(s)
if mid(s,i,1)=""then
flag=true
else flag then
s=left(s,i-1)&UCase(mid(s,i,1))&right(s,len(s)-i)
flag=false
end if
next i
print s
end sub
这一题我觉得第二个答案有问题，哪位能帮我，告诉我这两道题的解答，特别是第一题
哪位能说得详细点啊！！！第一题
for k=1 to len(s) step m+1
t=t&chr(asc(mid(s,m,1))+k)
k=k+1
你记下ASC和MID用法。
我机上没有VB6.0，复制下来的这部分我觉得有个陷阱，你可以一步步监测看看
K＝1时 STEP 2 第二行K＝1 第三行K＝2
可是for回来时候K＝3还是2 你监测出结果了说下··
第二题你只要记住 LCASE和UCASE转小大写的就行了。语句上没什么难处