Public Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 "Public Sub New() MyBase.New()'该调用是 Windows 窗体设计器所必需的。 InitializeComponent()'在 InitializeComponent() 调用之后添加任何初始化End Sub'窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing ...[ 查看全文 ]
Public Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 "Public Sub New() MyBase.New()'该调用是 Windows 窗体设计器所必需的。 InitializeComponent()'在 InitializeComponent() 调用之后添加任何初始化End Sub'窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As...[ 查看全文 ]
实现函数: function isCharsInBag (s, bag) { var i,c; for (i = 0; i < s.length; i++) { c = s.charAt(i);//字符串s中的字符 if (bag.indexOf(c) -1) return c; } return ""; } 检查函数: function ischinese(s) { var errorChar; var badChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789<,[]{}?/+=|\\'\":;~!#$%()`"; errorChar = isC...[ 查看全文 ]
实现函数: function isCharsInBag (s, bag) { var i,c; for (i = 0; i < s.length; i++) { c = s.charAt(i);//字符串s中的字符 if (bag.indexOf(c) -1) return c; } return \"\"; } 检查函数: ...[ 查看全文 ]
Public Function checkrow() As String Dim row As Integer = Me.TextBox1.SelectionStart Dim i As Integer Dim p As Integer Dim count As Integer = 0 Dim count1 As Integer = 0 For i = 0 To Me.TextBox1.Lines.GetUpperBound(0) count += Me.TextBox1.Lines(i).Length + 2 ' 一个回车相当于2个 If row If i = 0 Then p = row Else p = row - count1 End If Return "行：" & C...[ 查看全文 ]
