VB6.0的几个作业题

s$=chr(int(rnd(asc("L")-asc("C")))+asc("C"))

xy>0

x mod 5=0 and xmod 7=0

x=两位数

转换x x=(x mod 10)10 +x/10

x=round(x100)/100

lcase(c)

mid(s,5,6)

6856

8819

2000/2/29

6

Private Sub Command1_Click()

Static n As Long, m As Long

m = Val(Text2)

n = n + 1

If Text1 = "psw123" Then

MsgBox "口令正确", vbExclamation, "登录"

n = 0

Else

If n >= m Then

MsgBox n & "次输入错误，请退出", vbExclamation, "登录"

End

Else

MsgBox "第" & n & "次口令输入错误，请重新输入", vbExclamation, "登录"

Text1SetFocus

End If

End If

End Sub

Private Sub Form_Load()

Label1Caption = "口令："

Label2Caption = "允许输入口令的次数："

Command1Caption = "确定"

MeCaption = "登录"

Text1 = ""

Text1PasswordChar = ""

Text2 = 3

End Sub

以上就是关于VB6.0的几个作业题全部的内容，包括:VB6.0的几个作业题、VB程序设计、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！