本文目录
- 用VB写一个小程序
- 用vb编写一个小程序程序
用VB写一个小程序
添加一1个label，一个command,一个text即可，可循环修改密码
Dim a As StringPrivate Sub Command1_Click()If Command1.Caption = “确认“ Then If Text1 = a Then Call nex Else MsgBox “密码错误！“, vbExclamation, “信息“ Text1 = ““ Text1.SetFocus End IfElseIf Command1.Caption = “修改“ Then Call xgEnd IfEnd SubSub nex()Label1.Caption = “新密码：“Text1.Text = ““Text1.SetFocusCommand1.Caption = “修改“End SubPrivate Sub Form_Load()Me.Caption = “密码修改“Text1 = ““Text1.PasswordChar = “*“Text1.ToolTipText = “默认密码：admin“Label1.Caption = “原密码：“Command1.Caption = “确认“Call miEnd SubSub mi()If Dir(App.Path + “\mm“) 《》 ““ Then Open App.Path + “\mm“ For Input As #1 Input #1, a Close #1End If If a = ““ Then a = “admin“End SubSub xg()Open App.Path + “\mm“ For Output As #1 Print #1, Text1.TextClose #1a = Text1MsgBox “密码修改成功！“, vbInformation, “提示“Text1 = ““Text1.SetFocusCommand1.Caption = “确认“Label1.Caption = “原密码：“End Sub
用vb编写一个小程序程序
新建一个文本框Text1,Text属性为空，MultiLine属性为True，ScrollBars属性为2。新建一个命令按钮Command1,添加以下代码：PrivateSubCommand1_Click()DimiAsIntegerFori=1To100If(iMod5=0)And(iMod3《》0)ThenText1.Text=Text1.Text&vbCrLf&iNextEndSub