VB函数程序 - vb吧

level 5

空服阿😄 楼主

这题用是什么函数

2022年05月06日 04点05分 1

level 15

初音✨七奈

一句话解决：
Print UBound(Split(Text1.Text, Text2.Text))
慢慢来的办法：
用InStr函数在文本框1的内容中循环查找文本框2的字符，每找到一个令计数变量加1，直到找不到为止

2022年05月06日 05点05分 2

初音✨七奈

@空服阿😄 也是一种办法，把字符串当成数组来做，用Mid函数逐个取出字符判断是不是要找的字符；不过我这里说的方法是适用于字符串自己的特色方法 [滑稽]

2022年05月06日 05点05分

空服阿😄

这个用for语句可以吗

2022年05月06日 05点05分

空服阿😄

@初音✨七奈用for语句的话，怎么输出长度

2022年05月06日 05点05分

初音✨七奈

@空服阿😄 用Len函数返回字符串的长度

2022年05月06日 05点05分

level 5

空服阿😄 楼主

现在对了吗

2022年05月06日 05点05分 3

空服阿😄

@初音✨七奈

2022年05月06日 05点05分

level 5

空服阿😄 楼主

@初音✨七奈

2022年05月06日 05点05分 4

level 15

初音✨七奈

哪有这么简单

你需要这样写：
Dim a As String, b As String, c As Integer, i As Integer
a = Text1.Text
b = Text2.Text
For i = 1 To Len(a)
If b = Mid(a, i, Len(b)) Then c = c + 1
Next i
Print c

2022年05月06日 06点05分 5

level 5

空服阿😄 楼主

@初音✨七奈

2022年05月06日 08点05分 6

初音✨七奈

抄答案都能抄错……For i=1 To Len(a)

2022年05月06日 08点05分

空服阿😄

@初音✨七奈谢谢大佬

2022年05月07日 09点05分