Text1.Text = Int(Rnd(1) * 90 10)

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 01:17:38
VB如何定义b使len(text1.text)=len(b)

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

Text1 = Text1 + Chr(Int(Rnd * 26) +

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

VB中Text1.text=text1.text+CStr(a(i))+" " If i=4 then text1.te

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

vb中 text1.text=" " 是什么意思?双引号间为空是表示结束吗?谢谢啦!

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

在VB 语句中 x = Val(Text1.Text) Val

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

VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2.

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

vb中定义的d为双精度变量,设d=text1.text,text1.text里输入的是12.3625 为啥运行时d=36

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

VB中, text1=1和text1.text=1有没有区别?

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

VB代码问题“ Text1.Text="**"&cht(13)&chr(10)"****"是什么意思?

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

在VB当中 1.Text1.Text = Text1.Text & x & "+" & y & "=( )" & Chr

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

VB判断相关的问题思路是这样的,判断TEXT1.TEXT里的内容,当TEXT1.TEXT=111,则执行Timer1.I

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

VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V

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

num = int.Parse(textBox1.Text);

把textBox1.Text的值转换成int型数字,如果textBox1.Text的值不是数字会报错.

text1.text= 1323.32 不过val(text1.text ) 却对小数点四舍五入,得到的总是整数而非小数

说明变量a是整型或长整型的.当变量为整型或长整型时得到的结果是这个数小数部分四舍五入后的整数也就是123.如果变量是单精度、双精度或货币型的话输出的就是123.4.

a(i) = Mid(Text1.Text,i,

在Text1.Text中,从i位开始向右取1个字符,赋值给a(i)

If text1.text"" then...

不等于,整个意思是,如果text1不等于空窜的话````

Private Sub Text1_Click() If Text1.Text = "请输入" Then Text1.T

设计者想让用户在Text1中输入内容,所以初始时Text1会显示"请输入",当用户点击Text1时,则把Text1中的"请输入"删除,以不影响用户输入

text1.text.enable=true 有什么作用啊?

写错了text1.enable=ture么

Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex

下面是根据你的程序改起来的,改动的地方就是把Form_load函数中的40个双引号去掉OptionExplicitOptionBase1Constnum=10Dima(num)AsSingle,b(n

If Text1.Text = "" Then s_id = "%" Else s_id = Text1.Text En

把字符%传给变量s_id%只是字符中的一种