vb在文本框TEXT1中输入正整数n(n

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

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

publicsubcommand1_click()text3=(val(trim(text1))+val(trim(text2)))/2endsu

在按钮的click事件里写IFTEXT1>TEXT2thenTEXT3=TEXT1/TEXT2elseTEXT3=TEXT2/TEXT1endif

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

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

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

'Val函数是将数值型字符串转换为数值型变量,一般用来赋值.'你上面的语句在TEXT1的内容为空或不是数值时就会出错,最好加上数值检测函数:ISNUMERIC,如下:PrivateSubText1_C

Text1就相当于Text1.Text,.Text是文本框缺省属性,光写控件名,就相当于带缺省属性

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

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

PrivateSubCommand1_Click()Dima()AsStringa=Split(Text1.Text,"")‘分割两个数据Text2.Text=(Val(a(0))+Val(a(1))

在计算按钮用如下代码：sum=0FORi=1TOthisform.text1.Valuesum=IIF(MOD(i,3)=0,sum+i,sum)ENDFORthisform.text2.Value=

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

'假设单词之间就一空格PrivateSubCommand1_Click()Dimnumnum=Trim(Text1)IfInStr(num,Space(1))Thennum=Split(num)Tex

建议采用3个框分别输入度分秒,然后可以很方便地处理：弧度=(度+分/60+秒/3600)*pi/180按你的一个text框输入,用户觉得麻烦,你也必须用子字符串来分解处理,个人感觉不妥.

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

PrivateSubCommand1_Click()Text2="该数是由"&Mid(Text1,1,1)&"个百"&Mid(Text1,2,1)&"个十"&Mid(Text1,3,1)&"个个"&"

要写程序么?思路就是用循环来算text1的数是不是素数,是就让lable2显示yes不是就显示no,就这样,要代码就再说了再问：要写程序老师给答案了可是不知道什么意思啊再答：那个你用的是什么写的？我只

用excel做的,打开excel文件,在sheet1上点右键,查看代码就可以了1的程序代码PrivateSubCommandButton1_Click()IfVal(TextBox1.Text)Mod