Option ExplicitDim letters As Integer '声明模块级变量，此变量计算字母个数Dim space As Integer '空格个数Dim digit As Integer '数字个数Dim others As Integer '其他字符个数 Private Sub Command1_Click()Dim s As Strings = InputBox("请输入字符串")Call jisuan(s)'以下代码用来显示统计出的结果值Print "字符串【" & s & "】包含："Print "英文字母数量="; lettersPrint "空格数量="; spacePrint "数字数量=...
