vb中Text1 = Variable

PrivateSubCommand1_Click()'先判断为空时则出错IfText1=""ThenMsgBox"错误!"6,"系统错误"exitsubendifIfText1="111"ThenFo

这是VB的语法,在这里简单解释就是拼接字符串.&和+,它们的作用是将两个字符串链接起来,合并成一个新的字符串.也有按位与的意思,在这里他是字符串连接运算符

PrivateSubCommand1_Click()  Dima AsString*100  a="da01564" &

Int(Rnd*26)+97的意思是随机生成97-122的整数(a-z的ACSII码)Chr(Int(Rnd*26)+97)将数字转换成字母Text1=Text1+Chr(Int(Rnd*26)+97

Private Sub Command1_Click()Dim a As Single    a =

&H表示16进制,所以data变量的值是text1.text表示的16进制数.比如text1.text是“1A”,data变量的值就是16进制数“1A”.

text1.SelStarttext1文本框中选中的文本的起始位置,如果没有选中任何文本,那就是光标所在位置text1.SelLengthtext1文本框中选中的文本的长度（字符数）,如果没有选中任何

1、""代表空格；2、chr(13)+chr(10)是ASCII的代码,加号是将两个字符“连接”；

表示文本框内不显示文字再问：Text2.Text=Text2.Text&Text1.TextText2.Text=""这是我代码的一部分，如果去掉第二句程序就不能正常运行，我想问下第二句的作用。谢谢啦

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

无语第二个len(Text2.Text)=Len(Text2.Text)-1能赋值么?再问：那怎么改让Text1删一个字符text2也删一个再答：用函数(函数自己找，不多说)去掉他们值的最后一个字符，

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

没有区别,对于文本框来说,.Text是缺省属性,缺省属性可省略不写

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

1、&是字符串连接符.2、&H100,是十六进制100,转换为10进制：1*256+0*16+0=256.从左边算起,第1位+第2位*16+第3位*16^2+第4位*16^3……3、space()是指

返回按指定类型转换的Variant(String).语法StrConv(string,conversion,LCID)StrConv函数的语法有下面的命名参数：部分\x09说明string\x09必要

代码很容易啊：Private Sub Command1_Click()If IsNumeric(Text1) = False Then&nb

输入的是两个变量,vi和vj（要注意的是vi和vj中的i与j只是字母,是不变的vi是一个整体就相当于v,vj也是一个整体相当于w.不要和变量i搞混掉.）输出的是循环结束后的i和sumi.具体如下：输入

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

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