tmd007-CSDN博客

原创用退格键,删除键整体清除文本框中某一字符串

只删除mn形式的，而且是一个一个地删，比如有信息"m01m02m03backspace"按退格键的时候，先删除e,然后挨个删除，到了m03，将它整个删除，接着m02，最后m01Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer)Dim s, tmps = Text1.SelStart + 1: tmp = Text1If

2006-12-14 12:45:00 2792

原创一客户端多服务端UDP本地连接代码(同时发送)

Option ExplicitDim iPrivate Sub Form_Load() winsockclient.RemoteHost = "127.0.0.1" winsockserver1(0).RemoteHost = "127.0.0.1" winsockserver1(0).RemotePort = "1002" winsockserver1(0).Bind 1

2006-12-11 20:56:00 1319

原创一句代码，实现在文本框中仅能键入数字和字母组成的字符串

Private Sub Text1_KeyPress(KeyAscii As Integer)If Not (Chr(KeyAscii) Like "[a-zA-Z0-9]" Or KeyAscii End Sub

2006-12-09 11:16:00 217

原创网格形路径（算法源码）

1----2----3 | 　 | 　|

2006-06-22 14:54:00 1156

原创走阶梯算法设计(源码)

要求: 某人上阶梯，阶梯共100道，可以一次跨1个阶梯，可以一次跨2个阶梯，可以一次跨3个阶梯，问上一次阶梯共有多少种走法？另请列出每种走法的步数排列（按先后顺序）！高精度正整数加减法，即大正整数加减法减法运算，已知第一数大于第二数主要用于本程序，为简化代码，不做转换和符号判断，如果想实现通用运算，请另外调整Function dsys(n1, n2, f) As String D

2006-06-21 22:37:00 2144

原创窗体动态关闭效果

在窗体上放置两个Timer控件Option ExplicitPrivate Sub Form_Load() Timer1 = False: Timer1.Interval = 50 Timer2 = False: Timer2.Interval = 50 Form1.ScaleMode = 1End SubPrivate Sub Form_Unload(Cancel A

2006-01-13 12:26:00 1081

原创从0到9的数字组成一道一位数加两位数加三位数得四位数的算式不得重复数字

Option Explicit从0到9的数字组成一道一位数加两位数加三位数得四位数的算式不得重复数字Dim b(9), a(9)Private Sub Command1_Click()Dim iFor i = 0 To 9 b(i) = i: a(i) = 10Next idg 0, aEnd SubSub dg(t, ByVal a)Dim i, j, t1 If t > 9

2006-01-13 11:56:00 6947

原创一个算法源码

　　一个小球从100米的高处自由落下，落到水平面上又反弹，每次反弹的高度是前一次的一半。编写函数 T（n as integer) as single ,要求：此函数返回第N次反弹到最高点时所经过的总路程（N>=100) Dim S As SinglePrivate Sub Command1_Click() S = 100 Print S - T(100)End SubFun

2006-01-12 20:19:00 866

设计一个猜数字游戏程序，由系统自动产生一个四位数，各位数字互不相同，给玩家8次从键盘录入四个数字的机会，每次给出玩家猜中数字的个数及位置，直到数字及位置完全一致为止，如果8次机会均猜不中，则输出产生的四位数。例如：若产生的数为2358：次数用户输入系统提示解释112340A2B猜中2个数字（2、3），但位置不对256781A1B猜中2个，有1个位置也正确（8），有1个位置不对（5）323902A0

2006-01-12 20:01:00 2837

幸福的乐园