VB编程·每一步表示什么含义啊？那个RTrim、InStr是什么意思？VB考试三次不过，有没有什么方法啊？跪求！

发布网友发布时间：2022-04-24 07:40

共2个回答

热心网友时间：2023-10-09 00:58

代码注释如下:
Private Sub Command1_Click()
Dim n As Integer '声明变量n为整型
s = Text1.Text '将Text1的内容赋给变量s
s1 = RTrim(Text2.Text) '将Text2的内容去除右侧空格后赋值给变量s1, RTrim函数作用是返回去掉右侧空格(如果有的话)的字符串
Do
p = InStr(s, s1) '在字符串变量s中查找字符串s1出现的位置,将找到的位置索引赋值给变量p, InStr函数作用是在第一个参数中查找第二个参数首次出现的位置,如果没找到就返回0
If p <> 0 Then n = n + 1 '如果p不等于0(表示之前的查找找到了),给变量n的值+1(n在这里作记数器使用)
s = Mid(s, p + 1) '截取变量s的值,从找到的位置的下一个字符开始到最后,将结果赋值给变量s
Loop While p <> 0 '如果p不等于0(表示之前的查找找到了),就继续循环
Label3.Caption = n '将变量n的值设置给Label3的Caption属性(在标签中显示记录器结果)
End Sub
如果还有问题欢迎追问,问题解决请及时选为满意回答,谢谢.

热心网友时间：2023-10-09 00:59

Private Sub Command1_Click()
Dim n As Integer '定义一个名为n的整型变量
s = Text1.Text ‘把Text1.Text赋值给s
s1 = RTrim(Text2.Text) '把Text2.Text去掉左侧空格后赋值给s1
Do '开始循环
p = InStr(s, s1) '在s中查找s1，将找到的第一个结果的位置赋值给p
If p <> 0 Then n = n + 1 '如果p不等于0，则n=n+1
s = Mid(s, p + 1) '从s的第p+1个字符截取到结尾，将截取的字符赋值给s
Loop While p <> 0 '如果p不等于0就一直循环
Label3.Caption = n '将n赋值给Label3.Caption
End Sub