vb在文本框中输出2 1 3 2 5 3 ......前20项的和

liuyuwxj说的基本正确但举例的结果不对I=2,J=3时输出应该是3X2=6分析一下,J,I是数值变量引号括起来的"x","="是字符,&符号是字符连接符,就是把两个字符串对象连起来的意思*是乘法

你好;因为循环结束后,最后一组单词没有添加到list里的原因,在循环结束的外面添加List1.AddItemc就ok了,希望能帮到你：）如果最后一位也是空格的话,就在循环外加个条件：ifc""then

楼上的调用API函数好麻烦!(我的可以计算小数.)试试我的代码：OptionExplicitPrivateSubForm_Load()Text1.Text="1+2*3"EndSubPrivateSu

假设文本框为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)下拉

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

'设控件text1为文本text2为开始位置text3为长度代码如下：Private Sub Command1_Click()'设text1为文本 tex

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

在VB中,Print语句具有计算功能,它能计算表达式的值,然后再输出它.所以,这里先计算2-2=0,然后就输出0.如果写Print2+3*10的话就会输出32.

OptionExplicitPrivateSubCommand1_Click()DimA(9)AsInteger,i%,m%,t%,AA%Fori=0To9RandomizeA(i)=Int(Rnd*

'把下面代码复制到窗体,添加1个list和一个command按钮运行就可以了,和一个文本框,数据输入在文本框里PrivateTypeEnglishwordAsStringcountAsLongEndT

创建一个VB工程,在窗体上放置一个文本输入框text1,一个标签Label1,三个按钮,名称分别为Command1“开始”Command2“暂停”Command3“退出”再加入一个定时器timer1,

楼上太长了...四个文本框,前三个输入,最后一个输出一个按钮,按钮的单击响应代码如下:PrivateSubCommand1_Click()DimpingjunAsDoublepingjun=(Val(

constN=100dimi,iCountiCount=0'计数dimsum:sum=0fori=1toNifimod5=0orimod7=0theniCount=iCount+1textBox1.T

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,含义是从第一个字符开始的前

sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum

那你直接用下拉列表框多方便呢,或者你非要这么做的话在text1_Change里面写验证ifNOT(text1="A++"ORtext1="A+"ORtext1="A")THENMSGBOX"请输入A或

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