private sub command1_click()
dim nw as integer , i as integer , nl as integer
dim wt as boolean
dim stri as string, strT as string
stri = text1,text
nw =0: wt= false
nl =len (rtrim (stri))
for i = 1 to nl
strt= mid $(stri, i, 1)
select case asc (strt)
case 32.33.44.46.58.59.13.10
wt= false
case else
if not wt then
nw= nw+1
wt= true
end if
end select
next i
picture1,print"单词数为",nw
end sub
请问case后的数值分别代表什么含义?
dim nw as integer , i as integer , nl as integer
dim wt as boolean
dim stri as string, strT as string
stri = text1,text
nw =0: wt= false
nl =len (rtrim (stri))
for i = 1 to nl
strt= mid $(stri, i, 1)
select case asc (strt)
case 32.33.44.46.58.59.13.10
wt= false
case else
if not wt then
nw= nw+1
wt= true
end if
end select
next i
picture1,print"单词数为",nw
end sub
请问case后的数值分别代表什么含义?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货