vb语句,每步的意思

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 07:22:12
vb语句,每步的意思

vb语句,每步的意思
vb语句,每步的意思

vb语句,每步的意思
'统计TEXT1文本框中字符为的个数
dim w as integer '定义一个整型变量
for i=1 to len(text1) ' 从1到TEXT1文本框中的字符串长度循环
    select case mid(text1,i,1)  '对TEXT1文本框中的字符串每位字符
        case "0"                '进行判断,如果是0,则W加上
            w=w+1
    end select
next 
text2.text=str(w) '将TEXT1文本框中字符0的个数显示在TEXT2文本框中