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分别显示数据表中同一个字段的三个不同记录的值,那么就只能用上述第二种方法了。