VB作业 希望有高人指点

来源：百度知道 编辑：UC知道 时间：2024/06/25 00:44:59
设计一个程序。程序的窗体标题显示你的学号。在文本框中输入一个三位数，当单击“显示”按钮，在三个标签上分别显示其个位数、十位数和百位数。
不知道 有没有 高手能 给我个 操作流程 小弟自己操作 制作

private sub form_load()
me.caption="学号" '设定窗体标题栏的内容
command1.caption="显示" '设定按钮1的文字
end sub

private sub command1_click()
label1.caption=mid(text1.text,1,1) 'label1显示text1中的第一个数字
label2.caption=mid(text1.text,2,1) 'label2显示text1中的第二个数字
label3.caption=mid(text1.text,3,1) 'label3显示text1中的第三个数字
end sub

首先把窗体的caption属性设置成你的学号
界面自己做好
流程：对于一个三位数来说，以123为例
123 mod 10=3则是个位
123 \ 10=12
12 mod 10=2 则是十位
12 \10 这是 百位

转换成代码则为
dim x as integer
lable1.caption=n mod 10
x=n \10
lable2.caption=x mod 10
lable3.caption=x \10

楼上的……汗……没有数据类型的转换而且方法原始而且label还打错了……侏罗纪时代来的吧～
先把form的caption设成你的学号 然后……
由于text.text和form.caption都同是string类型的数据，所以你可以用直接用left()、mid()、right()取字符串中指定位置上的字符，直接赋给form.caption就ok～说到这里 我还想起来一条，楼上的显然是被vb坑了……vb很不严谨，你在其它语言里把实数赋值给字符串型的属性时会出错！
这样对多长的数字都适用
参考代码：
label1.caption=left(te