vb小程序用vb做个简单的小程序

用vb做个简单的小程序

帮助~~宇~~来解答 这是专为你写的一个小程序，希望能对你用帮助！ 这里只能提供按钮事件的源码，整个工程源码打包请到： /upload/file/q130766466.rar 下面是事件码代码： Private Sub btn_total_Click() Dim str As String, I, B, ZW, YW As Integer If chk_hh.Value = 1 Then str = rtb_doc.Text Else str = Replace(rtb_doc.Text, vbCrLf, "") End If For I = 1 To Len(str) B = Asc(Mid(str, I, 1)) If B < 0 Then ZW = ZW + 1 Else YW = YW + 1 End If Next I lbl_total.Caption = Len(str) lbl_zw.Caption = ZW lbl_yw.Caption = YW End Sub