早教吧作业答案频道 -->其他-->
VB中,怎么把输入的文本中的英文字母提取出来如在TEXT1中输入"12aA3b4B5",在text2中显示为aAbB,需要按顺序显示完善下面的代码:PrivateSubFormClick()dims$,y$s=trim()y=""fork=1tox=mid(s,k,1)if
题目详情
VB中,怎么把输入的文本中的英文字母提取出来如在TEXT1中输入"12aA3b4B5",在text2中显示为aAbB,需要按顺序显示 完善下面的代码: Private Sub Form_Click() dim s$,y$ s=trim( ) y="" for k=1 to _______ x=mid(s,k,1) if _______________ then y=________________ end if next text2.text=y end sub 请高手解决下,新人,没多的分,谢谢了
▼优质解答
答案和解析
Private Sub Form_Click() dim s$,y$ s=trim(text2.text) y="" for k=1 to len(s) x=mid(s,k,1) if "A"<=x and x<="Z" or "a"<=x and x<="z" then y=y & x end if next text2.text=y end sub
看了VB中,怎么把输入的文本中的英...的网友还看了以下:
已知f(x)是一次函数,且满足4f(1-x)-2f(x-1)=3x+18.f(x)在-1,1中的最 2020-04-26 …
函数f(x)=sin(x+π/4),x∈[0,π)在区间上是增函数,在区间上是减函数.顺便再问问为 2020-05-22 …
二次函数在某点增加速度最快的问题设f(x.y)=1/2(x^2+y^2),p0(1,1),求f(x 2020-06-12 …
编号为1,2,3,...N的N张扑克牌按顺序叠在一起,现在最上面的一张编号为1发出,将下一张编号编 2020-06-16 …
分别做出一个函数f(x),g(x)满足:f(x),g(x)定义域为实数集R,f(x)在任意点不可导 2020-06-25 …
(2014•抚顺二模)设函数f(x)=x2-12x+b,则下列结论正确的是()A.函数f(x)在( 2020-07-14 …
设f(x)在(0,a]可导且x->0+时f'(x)√x存在.证明f(x)在(0,a]上一致连续.顺 2020-07-16 …
英语翻译顺应论原本是生物进化中的一个概念,其被作为一个视角引用语用学研究,便出现了语言顺应论.从顺 2020-07-23 …
假设在某一过程中,f(x)存在极限,g(x)不存在极限,那么{f(x)+g(x)}必定无极限.请问 2020-07-31 …
函数的性质通常指函数的定义域、值域、周期性、单调性、奇偶性、对称性等,请选择适当的探究顺序,研究函 2020-08-01 …