搜搜做题作业网vb mid函数的用法
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/18 05:32:39
vb mid函数的用法
text1.text="aabb"
for k=1 to 4
if mid(text1.text,k,1)=a then
label1(k).backcolor=vbgreen else
label(k).backcolor=vbwhite
end if
next
为什么运行后，颜色不变？
text1.text="aabb"
for k=1 to 4
if mid(text1.text,k,1)=a then
label1(k).backcolor=vbgreen else
label(k).backcolor=vbwhite
end if
next
为什么运行后，颜色不变？
说实话,我怀疑你代码表达的意思不对,先说明你的主要错误
mid出来的值是字符窜,你的if mid(text1.text,k,1)=a then 中的a要加上引号,才是字符啊``
并且else好像要另起一行写才对吧
然后根据你的代码意思label1(k)猜测你有4个label1控件数组,但是后面
label(k).backcolor=vbwhite是什么意思???少写了个1还是你原本的题意思是改变label1中间"a"的颜色??
如果你原来的题意只是改变label1(k)的背景颜色,那么再加上个1吧
mid出来的值是字符窜,你的if mid(text1.text,k,1)=a then 中的a要加上引号,才是字符啊``
并且else好像要另起一行写才对吧
然后根据你的代码意思label1(k)猜测你有4个label1控件数组,但是后面
label(k).backcolor=vbwhite是什么意思???少写了个1还是你原本的题意思是改变label1中间"a"的颜色??
如果你原来的题意只是改变label1(k)的背景颜色,那么再加上个1吧