VB编写的自动保存文本编辑工具

用VB编辑文本编辑工具且可以自动保存

如果你想学习编程，可以尝试探索一下notepad的代码。网上有很多相关资源可供参考。不过，如果只是为了方便个人使用，你可以简单地写一个VBS脚本，通过按Ctrl+S来实现保存操作。

代码如下，分别保存为对应文件名，想运行点start.vbs，结束点stop.vbs

'******** start.vbs **********

Set s = WScript.CreateObject(＂Wscript.Shell＂)

Do

WScript.Sleep 1000*60 '1 min 一次

s.SendKeys ＂^s＂

Loop

'******** stop.vbs *********

set ws=createobject(＂wscript.shell＂)

ws.run ＂taskkill /f /im wscript.exe＂

vb如何实现自动排版

如果没有特殊要，那就按照轮流的方法去实现好了：

A B C D E

第 1天 早班 中班 夜班 休息 休息

第 2天 休息 早班 中班 夜班 休息

第 3天 休息 休息 早班 中班 夜班

第 4天 夜班 休息 休息 早班 中班

第 5天 中班 夜班 休息 休息 早班

================================================

第 6天 早班 中班 夜班 休息 休息

第 7天 休息 早班 中班 夜班 休息

第 8天 休息 休息 早班 中班 夜班

第 9天 夜班 休息 休息 早班 中班

第10天 中班 夜班 休息 休息 早班

================================================

......

可以发现，5天一个轮次，第6天重复第1天的，第7天重复第2天的，......

我先说明直接在窗体上输出一个月的安排吧！

Option Explicit

Private Sub Command1_Click()

Dim d(1 To 5) As String

Dim MaxDay As Integer

Dim i As Integer

Dim j As Integer

Dim LS As String

d(1) = ＂早班＂

d(2) = ＂中班＂

d(3) = ＂夜班＂

d(4) = ＂休息＂

d(5) = ＂休息＂

MaxDay = Val(InputBox（＂请输入当月天数！＂））

Print ＂A＂, ＂B＂, ＂C＂, ＂D＂, ＂E＂

For i = 1 To MaxDay

If i > 5 Then

j = i Mod 5

If j = 0 Then j = 5

Else

j = i

End If

Debug.Print j, d(j)

Print d(j),

If i Mod 5 = 0 Then

Print

LS = d(1)

For j = 1 To 4

d(j) = d(j + 1)

Next j

d(5) = LS

End If

Next i

End Sub

vb给文本框中的内容按ASCII码排列的程序

窗体中放置一个文本框text1 一个按钮 command1

代码如下

Option Explicit

Private Sub Command1_Click()

Text1 = Paixu(Text1)

End Sub

Private Function Paixu(ByVal Str As String) As String

Dim AscCode() As Integer

Dim tCode As Integer

Dim n As Integer

Dim i As Integer, j As Integer

n = Len(Str)

ReDim AscCode(n)

For i = 1 To n

AscCode(i) = Asc(Mid(Str, i, 1))

Next i

For i = 1 To n - 1

For j = i + 1 To n

'小于号按从大到小排，大于号按从小到大排

If AscCode(i) tCode = AscCode(i)

AscCode(i) = AscCode(j)

AscCode(j) = tCode

End If

Next j

Next i

For i = 1 To n

Paixu = Paixu & Chr(AscCode(i))

Next i

End Function

使用的时候直接调用后面的函数paixu就可以了 汉语也是按拼音顺序排（多音字有异）