我用vbs编了一个函数,代码在下面:Function prc(a)b="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"c=len(a)for i=1 to cd=mid(a,i,i)for j=1 to 36f=mid(b,j,j)if d=f Theng=1exit forelseg=0end ifnextif g=0 Thenprc=falseexit fu
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 12:52:59
![我用vbs编了一个函数,代码在下面:Function prc(a)b=](/uploads/image/z/1089405-45-5.jpg?t=%E6%88%91%E7%94%A8vbs%E7%BC%96%E4%BA%86%E4%B8%80%E4%B8%AA%E5%87%BD%E6%95%B0%2C%E4%BB%A3%E7%A0%81%E5%9C%A8%E4%B8%8B%E9%9D%A2%EF%BC%9AFunction+prc%28a%29b%3D%220123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ%22c%3Dlen%28a%29for+i%3D1+to+cd%3Dmid%28a%2Ci%2Ci%29for+j%3D1+to+36f%3Dmid%28b%2Cj%2Cj%29if+d%3Df+Theng%3D1exit+forelseg%3D0end+ifnextif+g%3D0+Thenprc%3Dfalseexit+fu)
我用vbs编了一个函数,代码在下面:Function prc(a)b="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"c=len(a)for i=1 to cd=mid(a,i,i)for j=1 to 36f=mid(b,j,j)if d=f Theng=1exit forelseg=0end ifnextif g=0 Thenprc=falseexit fu
我用vbs编了一个函数,代码在下面:
Function prc(a)
b="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
c=len(a)
for i=1 to c
d=mid(a,i,i)
for j=1 to 36
f=mid(b,j,j)
if d=f Then
g=1
exit for
else
g=0
end if
next
if g=0 Then
prc=false
exit function
end if
next
prc=true
exit function
end function
函数的功能是检查字符串是不是数字和字母组成的,如过有其他字符,返回值就是false,否则就是true,怎么我怎么输返回值都是false啊!
我用vbs编了一个函数,代码在下面:Function prc(a)b="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"c=len(a)for i=1 to cd=mid(a,i,i)for j=1 to 36f=mid(b,j,j)if d=f Theng=1exit forelseg=0end ifnextif g=0 Thenprc=falseexit fu
主要问题在于你的mid函数用错了
Function prc(a)
b="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
c=len(a)
for i=1 to c
d=mid(a,i,1)
for j=1 to 62
f=mid(b,j,1)
if d=f Then
g=1
exit for
else
g=0
end if
next j
if g=0 Then
prc=false
exit function
end if
next i
prc=true
exit function
end function