在vb中有多个LABEL有Lable里显示计算结果

2020-12-09 06:33:40 字数 6107 阅读 9069

1楼:匿名用户

这个要搞控件数组才行

if jieguo=i then label1(i)=i

2楼:匿名用户

晕,我就设你显示计算结果的label为label0那么select case label.captioncase 1

label1.caption=1

case 2

label2.caption=2

.....................

end select

vb问题,label1中的数据经过计算怎么显示在label2里面

3楼:手机用户

设定个全局变量,用来接收label1的数据,再赋值给label2的text属性

vb我现在输入a,则label上显示1,我现在输入b,则label上显示2,那么如果输入ab则要显示12怎么办?急求!

4楼:匿名用户

privatesubtext1_change()'文本框打字

符即可,但不可在文本框删除字符

fori=65to90'大写字母检测ifasc(right(text1.text,1))=ithenlabel1.caption=label1.

caption&cstr(i-38)

nexti

fori=97to122'小写字母检测ifasc(right(text1.text,1))=ithenlabel1.caption=label1.

caption&cstr(i-96)

nexti

endsub

其实不用那么复杂。

5楼:匿名用户

你好,很高兴为你解答:

楼上几个的方法太复杂,居然还有人用到了数据库,简直是吓人。

说说我的方法,每个字母都有对应的ascii码,并且abcdef...xyz的ascii码也是连续的,因此只要取ascii码再减去96即数字。

privatesub***mand1_click()

label1.caption=""

s=text1

fori=1tolen(s)

label1.caption=label1.caption&asc(mid(s,i,1))-96

ifi<>len(s)thenlabel1.caption=label1.caption+","'注释本行去掉分隔符

nexti

endsub

方便在大于9的情况下看得清楚,给每个数字增加了一个逗号分割符,如果不需要注释掉这一行即可。

运行结果如下:

-----------------------------------

如有疑问欢迎追问!

满意请点击右上方【选为满意回答】按钮么么哒 o(∩_∩)o

6楼:听不清啊

private sub ***mand1_click()label1.caption = ""

s = text1

for i = 1 to len(s)

label1.caption = label1.caption & asc(mid(s, i, 1)) - 96

next i

end sub

7楼:匿名用户

建立一个access数据库,在里面设计一个表,字段是字母\数据,字母是文本类型,数据是数字类型.表名取名为索引,access取名为db,新建vb工程,另存为到一个新建文件夹里,把access文件也放进去,在表里输入字母对应的数字:

字母 | 数据

----------------------a| 1

----------------------b| 2

---------------------.....

保存表,关闭,现在写vb**去做你上面的事情就很简单了,在工程里找到部件,部件里找到microsoft ado control 6.0控件,从工具箱拖到窗体上,visibled设置成false,再拖个文本框text1,拖一个label,一个按钮***mand1,开始写你的**(查询字母对应值,参与计算):.

8楼:匿名用户

privatesubform_keydown(keycodeasinteger,shiftasinteger)

selectcasekeycode'检测按键

casevbkeyatovbkeyz'如果按字母键

label1.caption=label1.caption&keycode-vbkeya+1'将字母键转化为数字连续显示

casevbkeyback'如果按删除键

iflen(label1.caption)>0thenlabel1.caption=left(label1.

caption,len(label1.caption)-1)'删除最后一个字符

endselect

endsub

privatesubform_load()

me.keypreview=true'对窗体的按键信息传输给控件

label1.caption=""

endsub

9楼:匿名用户

如果已经建立了26个字母与数字的对应关系,那么现在的问题就是:

拆分输入的字母为一个一个单个字母,然后分别一一获得对应数字,然后把数字一一连接起来。

vb中,现在有控件label1和label2和一个变量m(m=1或2),现在要让labelm的visible为true,怎样写**?

10楼:匿名用户

'两种方式:

‘---------------------------control("label" & m).visible=true’------------------------------------

select case m

case 1

label1.visible=true

case 2

label2.visible=true

end select

vb建立一个label的控件数组 点击label(1) 得到一个结果 点击label(2) 得到另一个结果 想实现这个功能

11楼:主宰之神

建立一个label()数组,bai比如是dulabel1()吧,在程序zhi上建立一个label1然后把它复制dao再粘贴就会提示回是否建立数组,就答点是,我建立了一个label1数组,该数组中包含3个label控件,按你说的**是这样写的

第一种 用 select case**如下

private sub label1_click(index as integer)

select case index

case 0

msgbox "第一个被点击"

case 1

msgbox "第二个被点击"

case 2

msgbox "第三个被点击"

end select

end sub

这种方法是很简单的,还有另外一种用if 判断private sub label1_click(index as integer)

if index = 0 then

msgbox "第一个被点击"

end if

if index = 1 then

msgbox "第二个被点击"

end if

if index = 2 then

msgbox "第三个被点击"

end if

end sub

好了。自己写的。希望对你有帮助

12楼:匿名用户

private sub label1_click(index as integer)

select case index

case 0

你的程序

case 1

你的程序

case 2

你的程序

....

end select

end sub

13楼:手机用户

private sub label1_click()static flag as boolenflag=not(falg)

if flag=true the

'事件1

else then

'事件2

end if

end sub

14楼:浪际天涯

private sub label1(0)_click

end sub

vb编程,统计3-100间的素数,并在lable2标签中显示个数,在lable1标签中以每行5个显示 20

15楼:匿名用户

private sub form_load()dim n as integer, i as integerfor j = 3 to 100

for i = 2 to j - 1

if j mod i = 0 then exit fornext i

if i > j - 1 then

l = l + 1

label1.caption = label1.caption & j & " "

if l mod 5 = 0 then label1.caption = label1.caption & vbcrlf

end if

next

label2.caption = l

end sub

16楼:匿名用户

没有测试自己再看看改改

formload事件

label1.text=0

label2.text=""

privatesubcmd的click事件()

dimiasinteger

fori=3to100

ifsuchk(i)=truethen

label1.text=val(label1.text)+1

ifval(label1.text)mod5<>0then

label2.text=label2.text&""&i

else

label2.text=label2.text&vbcrlf&i

endif

endif

nexti

endsub

privatefunctionsuchk(numberasinteger)asboolean'判断是否为素数

dimiasinteger

fori=2tonumber-1

ifnumbermodi=0then

returnfalse

exitsub

endif

nexti

returntrue

在vb中 我想让数据库中的字段的三个值显示在label1,label2,label3中。 怎么编写

17楼:网海1书生

在窗体中添加一个bai数据库控件,du比如adodc1,把它与数据zhi

库文件连接

dao,并且打开其中指定的数据表回,然后把答label1、label2、label3与adodc1绑定即可。当adodc1中的记录集变化时,三个label的内容也会跟着动态改变。

也可以利用ado数据组件用纯**的方式打开并读取数据库中的内容并赋值给三个label,不过这种方式就没有动态变化的效果了(不过用**还是可以实现的)。

ps. 如果你要实现的效果是用三个label分别显示数据表中同一个字段的三个不同记录的值,那么就只能用上述第二种方法了。