去除磁盘内所有文件（包含文件夹）的所有属性本人用来去除盘中的文件属性工作需要你输入的盘符不正确！请重新输入！信息
Private Sub Form_Load()
Dim a
For i = 1 To 3
a = InputBox("提示", "请输入密码！")
If a = "密码" Then
MsgBox "欢迎使用本程序！"
Exit Sub
Else
MsgBox "密码错误，请重新输入"
End If
Next i
End Sub
以上就是土嘎嘎小编大虾米为大家整理的vb程序设计实例_VB编写简易计算机程序实例相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！