2012年3月22日 星期四

20120322


使用版本:2008
功能:點選號碼後自動出現姓名,輸入正確的密碼後便會出現學費
程式碼:

Public Class Form1

Dim sName$
Dim Passwd$
Dim fee%

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "0170**" Then
TextBox2.Text = "AnyOne"
Passwd = "Passwd**"
fee = 5000
ElseIf ComboBox1.SelectedItem = "017031" Then
TextBox2.Text = "JiaAn"
Passwd = "Passwd31"
fee = 0
Else
ComboBox1.SelectedItem = "017032"
TextBox2.Text = "Ghost"
Passwd = "Passwd32"
fee = 9999
End If

End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox3.Text = Passwd Then
TextBox1.Text = ComboBox1.SelectedItem & " " & TextBox2.Text & " 的費用是" & fee
Else
MsgBox("密碼錯誤,存取被拒!", , "錯誤")
TextBox3.Text = ""
End If
End Sub

End Class
wp99w603NgEhMCEhMCEtwoIsMMK2ITEzIcKqw7QaJlbDsg5IDgbCkS0BNcKfwoobQcKTwrJJVcKGMMOFw5LDtMOtLV8PGVdzwpvDnMOdMcORwr7CucKTUVfDry3CsH3CkMObw7g6FsKuZBRAXBBQQm0tY8KoAsOuPMKFOcOwwqZKf1XDl8KPSFctV8OZw7DCnzzClsOLPjnCiMKYwp0hMTEhw73DqMKbLcOiw7RsfcOywpgOZ8OfUUcbw5B+GW8tw6PClMKwwo/DqcOiK8KDITAhcGtkw5bDjCV1LWXDkBlIw4PCrcKIw7twA8ODe8K/wobCpHMtPzYoO3cdwrkIwphbeWfCgBjDlcOtLW0sbVYGwrjCg8KTwprDqjxowrHCssO0wrYtwqnDmVfCoyshMTEhwoZBITkhTsOnw6/Dpz7Dkhwtw55bD8KdwqPDqcOdwr/ClMKmQsOxIxbCmnMtw7rCusO0wofCqF3Cr0sGITAhw6tiZhTCvcOKLT5EwpEaA8OaVMO+w7FSITE2MCHCvcOyw45jwrQtw69xITM5IU3CskLDl07ChR5Hw77DkMO6wrgCLXfCogdaw7VEwoPCri99w5vCl8OVeTUbLcO3aF1QB8OuCMKmVcK2wrbDiMKUFCEzNCFrLcOQwoEfwp1Uwp5Hw5DDsiTDgsKUH8ONw6ddLU5QOMK8w5bDqcOgw7HCsRXDhMKrw53CsmzCgi3DnTEzw4HCuMK2bMKAw4IhMTEhw73Cn8KhVMKlPi0vw4g9YWIfU2AyccOgSFvCpkzCsS1DRnzCkFEuSgXDnXt+w6N0YxPClC0hOSHChgEhMTMhaMKTWsKrc1U7w50pw7fCnnctw7FxAhNFw6ZDwqFiZwHCkUEPw7vCvS3CicOvwp9wecO4wpPDq8KjwqosbUzDnMK7Mi1/YsKhA8OGZ8OaYx9OdjHDlsKNwpvCnS3DjRvCtsKpwrodQ8K+By8hMzQhwrQ2NF8hMTMhLRlMw6HDhzguwpjDnsOuKsOvR2fCvgR6LcO3wqLCknjCr0Jlwo4jQF3Cm8Oiw61uw7UtGsOJwpnCrDNUw4HClsKIwo3DmmdVEhzCkS1FwpZfwoxuwpd4ITM5IcK+wp1nbMKyD04hMzMhLVfCpMO6L0czw7bDocO4O8OsOMOMw7jDnF0twrrDnsKvEcOwXjHCi8OgwrU8w4rDvsOVwojDiC3Cj8OTw6wjITEwIcK8GMOFdRQhMTAhw5LCv1vCvcO7LcKMUgQFYm/DrnkhMTMhw6vCjW7Dm8KHwpMzLcKrLmMhOSHDmcOuCH7DomXChcORwq7CmWFXLcKEB8OFYxNDSsOhwql6Ljl4wovDo8OILcK9FsOmwpBuwp/DlEMrw4TDnDnDqcK0w6RiLS9jFTB8w6bCocOxwqrDjyvDjMO/woI7ITEyIS08w6JJRsOqMsOCOcO8w6IHXjvDucOlUS3Dg0k5TcO9wpzDhMORJMKnITkhwq9lwqNJw6ItccOOwoklw7FHITkhITM0IcOrworDjsKkYsKyQ8KWLTTCnmpAD8K6OMO/wq9UORXCtShndy0rITExIXRgwphEAyAPI8KpwqTCqMKxBA8twq/DtEorYMKzwrAQKMK9ZsKxJSjDp8KxLcOMRSExNjAhw7cGQmBDw7jCuD4fLGzCiMOOLcO4w6/Dk8OibcKYw7d7w5chMCFxworDosO2ITEyIcOMLSbDrgNeK8KJw5rCkX7DtHNuYHLDhxEtwoTDigXCsCDDsRkQw7xgwrrCtFg5wq88LRHCs8KFHQ/CrMOjwoscITExIcKWw4XCrcOZITExISQtw4g9w4tdw4HCosOswoPCs8OPw6AZw5/ClXslLXvCrMKzwok+ITM0IWghOSHClMK9N8KFSFFrw74twqXDoMKCw63Ci30rwq7CmcOBw4TCr0bDolBXLSEzOSEow5PCncONwpJZw4pfATXCosKGwrJHAS0jw7AhMzMhOMK4EhLCrMOUwqcDE8KxwrxEwrctT8O6f2/CgsKNw7LCg8OCwptfw53Dhi/CpsK1LcKnwodHVBTDhMKBZMOMw7zCqCbDs8Onw4rCvi19HcO1R8KKBcOsR8O0wrrCmcOvWMOyEsOXLR7DpCzCtsORByE5IcOmMyExMiHCsMKzw4PCgzfDmC3DlMKmdsOCacKEdyE0NSEZw7cQw6BLwrJwPS0ZwogWXErCu8OgTMOVYcO8wrLCv1HCr8KzLcKIcGkcfU7ClsOuw6VWwpDDncKrQmnDlC1tE8Kc55mI6LGa55aE5pqLw4BTTQ9JYlI1w5otw7FIw4QHK0DDkMK4G8OgZ8OWw57Dk8K2Ri0qw55RwqUrw70UBMO6fwdrK8KUJlAtwqFxAsKtITQ1IWvCunHlrILnoJfpjpboq4PvvYjlrpvlj5Xoorot5omP77y8w4tBKsOnRH3pjJfoqJsDeEgmScK4LSExMSHCqkTDicKWwpnDv8K6wpohOSHCicKJIMKyKcKkLcOvwpp2VMKbGMKLw77CpSE5IcOcw6bCi8OKIMOgLVJxf3kjw63DscOcWsKuwr1Fw6AULnItwrwhMzkhK3Idd8OEwoPClcKuw67Dk8KNwrbDt0Yta8KTRMO5wqPCpsKzbMK8w5xSwq4xw6bCjMK/LSrCh0nDrSQ=

沒有留言:

張貼留言

您好,您可以以匿名方式或登入來留言.當您完成留言後請先按下"預覽"然後再按"發佈";您可以在留言內容中最上方加入"--隱藏--",您的留言便不會被公開,如果您沒有加入--隱藏--您的留言就會在被管理員確認後公開.