VB基础实例-字符串中字符出现的次数

一个VB工程通常包含一个工程文件（.vbp）和若干个窗体文件(.frm)（至少应包含一个窗体文件），有时根据需要也会包含其它类型文件，如标准模块文件（.bas）、类模块文件（.cis）、资源文件（.res）、自定义控件文件（.ocx）与用户文档(.dob或.dox)等。为方便使用和管理，保存工程时，建议将工程中的相关文件都保存在一个独立的文件夹中。
1、VB输出字符串中字符出现的次数
Private Sub Command1_Click()
Print "学习是很快乐的"
End Sub

2、统计字符出现的次数
Private Sub Command3_Click()
Dim x As String
a = Text1.Text
b = Text2.Text
n = 0
For i = 1 To Len(a)
x = Mid(a, i, 1)
If x = b Then n = n + 1
Next i
Label3.Caption = "字符“" & b & "”在字符串“" & a & "”中" & vbCrLf & "共出现了" & n & "次。"
End Sub

3、编写程序：VB求各位数字之和。
【编程要求】：在文本框text1中输入任意整数，单击“求和”按钮，在文本框text2中显示结果。单击“清除”按钮，则清除2个文本框中的内容，焦点置于文本框Text1；单击“结束”按钮，程序停止运行。

4.VB计算器
Dim fh As String

Private Sub Command1_Click()
Dim a, b, s As Double
a = Text1.Text
b = Text2.Text
Select Case fh
Case "+"
s = Val(a) + Val(b)
Case "-"
s = Val(a) - Val(b)
Case "*"
s = Val(a) * Val(b)
Case "/"
s = Val(a) / Val(b)
End Select
Label3.Caption = s
Text3.Text = s
End Sub

Private Sub Command2_Click()
fh = "+"
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Label3 = ""
End Sub

Private Sub Command4_Click()
fh = "-"
End Sub

Private Sub Command5_Click()
fh = "*"
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
fh = "/"
End Sub

Private Sub Form_Load()

End Sub