在文本框输入一个三位数,在窗体打印出该数的 个位数.十位数

将这个波浪线字体改为英文字体比如TimesNewRoman

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

在excel很容易实现,在A1单元格输入任意三位数B1=MID(A1,1,1)C1=MID(A1,2,1)D1=MID(A1,3,1)下拉

其实就是做一个JS.注：这个是一个模板（雏形）,没有深入判断输入的是否是字母.

PrivateSubCommand1_Click()IfText1.Text=""ThenExitSubDimwordAsVariant,sAsStringDimkAsInteger,maxwAsSt

按照此程序运行,正常结果为D出错.如果想不出错的话并且得到第三个答案的话就为a=Text1.Text+Text2.Textb=Str(Val(Text1.Text)*Val(Text2.Text))P

OptionExplicitPrivateSubCommand1_Click()Dimi%,j%,k%Fori=1To9Forj=0To9Fork=0To9Ifi*i*i+j*j*j+k*k*k=i*

下面是我的代码,你也可以优化一下.PrivateSubCommand1_Click()cmdlength=Text1.TextIfLen(Text1.Text)>=3Thencmdmi=Mid(Tex

有两个问题.1,dimaas整形'这句话里怎么"整型"都来了,要知道,VB不是我们中国的.所以要把他翻译成为integer.2,a=text1.text'你想要把text1的文本赋值给a变量,但是te

请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(

先要理解DoWhilex

PrivateSubCommand1_Click()Dimss=Val(Trim(InputBox("个人收入：","个人所得税计算",2000)))Print"个人收入为";s;"元时,应缴纳的个人

'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf

如果你是学生,课本上肯定能找到答案,也许不是太现成,但只要稍微看看一定做得出来

VB内置的常用函数里就有这个功能mid函数:比如你在text1中输入的三位数是123a=text1.texttext2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前

数字\d大写[A-Z]小写[a-z]特殊[^a-zA-Z0-9]英文+数字[a-zA-Z0-9]是问这个么,不太清楚你问什么

C

Text1.Text="abc"Text2.Text=Text1.TextText1.Text="xyz"先执行Text1.Text="abc"执行后text1显示abcText2.Text=Text

privatesubCommand1_Click()n=0strold=""s=text1.textfori=1tolen(s)strnew=ucase(mid(s,i,1))if(strold"Z"

我是这样做的建立三个TEXT文本框（因为rgb函数的参数有三个）一个标签用来显示颜色第一个命令按钮是确定第二个是退出代码如下privatesubcommand1_click()r=val(text1.