VB代码 在Text1中输入一个整数a,如果a小于60,则在Text2中输出60

输入10的倍数后按回车!PrivateSubForm_Load()Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKey

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

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

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

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

现在的值是：fix（text1.text*2）你想要的是：d=val(text1.text)

就是在文本框中打出：*****的意思.cht(13)&chr(10)是换行的意思.

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

ound((ProgressBar1.Value/Text2.Text)*10)不过最好执行公式之前判断text2.text是否为数值且不能为0val(text2.text)会比较好点

先在添加的文本框上点右键－生成器,将类型改为"数值型",然后给按钮加上代码：t1=thisform.text1.valuethisform.edit1.value=alltrim(str(round(

n=val(thisform.text1.value)s=0fori=1tons=s+1/inextthisform.text2.value=str(s,10,3)再问：再问：这个嘞？

dimiaslong,jaslong,kaslongfori=1to1000forj=ito1000fork=jto1000ifi*i+j*j=k*kthenprinti,":",j,":",knex

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

可以这样简化,但意义似乎不大fora=0to20ifa=18thentext(a).forecolor=***endifnext再问：没看懂，解释一下好吗再答：汗……有哪里不懂呢？注释部分的英语意思是

不知你需要什么种类的三角函数,我编了一种,你可以依样画葫芦编出其他Constpi=3.14159PrivateSubCommand1_Click()DimxAsDoublex=InputBox("x=

PrivateSubCommand1_Click()DimiAsIntegerDimPiAsSingleDimxAsSingleDimyAsSingleDimrAsSinglePi=3.1415926

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

建立控件数组Text2(0To9)PrivateSubCommand1_Click()DimSumAsDoubleForI=Val(Text1.Text)-1To0Step-1Sum=Val(Text

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

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