Vb程序语言设计 课程大作业.docx

Vb程序语言设计 课程大作业.docx

《Vb程序语言设计 课程大作业.docx》由会员分享，可在线阅读，更多相关《Vb程序语言设计 课程大作业.docx（10页珍藏版）》请在冰豆网上搜索。

Vb程序语言设计课程大作业

程序设计基础（VB）

课程设计

账户登录与选票设计

姓名

朱纹君

学院

资源与环境工程学院

专业

地理科学

年级

2015

学号

20152604598

指导教师

李洪国

2016年6月8日

正文

1.课题的选材过程

根据平时买票的系统与窗口设计的程序，较为简单。

2.设计将要达到的目标

输入正确的用户名及密码便可进入第二窗口，但当用户名或者密码错误时会出现提示，未输入用户名跟密码同样会出现提示。

3.总体设计结构与功能

总体设计结构介绍

（1）

（2）

4.设计结果分析

代码如下：

Private Sub Command1_Click（）

If Text1.Text = "" Then

MsgBox "иЇ·иѕ“е…Ґз”Ёж€·еђЌ", vbOKOnly + vbCritical, "й”™иЇЇ"

Exit Sub

Else

  If Text1.Text = "123" And Text2.Text = "321" Then

  MsgBox "ж¬ўиїЋиї›е…Ґ", vbOnly + vbInformation, "ж¬ўиїЋиї›е…Ґ"

  Me.Visible = False

  Form2.Show

  Else

  MsgBox "з”Ёж€·еђЌж€–еЇ†з Ѓй”™иЇЇ", vbOnly + vbCritical, "й”™иЇЇ"

  Text1.Text = ""

  Text2.Text = ""

  End If

  End If

 End Sub

PrivateSubCommand1_Click（）

End

EndSub

PrivateSubForm_Load（）

List1.AddItem"上海"

List1.AddItem"济南"

List1.AddItem"青岛"

List1.AddItem"北京"

EndSub

PrivateSubList1_Click（）

SelectCaseList1.ListIndex

Case0

Text1.Text="外滩&东方明珠广场"

Text2.Text="200元"

Case1

Text1.Text="大明湖&趵突泉"

Text2.Text="155元”"

Case2

Text1.Text="五四广场&奥帆中心"

Text2.Text="165元"

Case3

Text1.Text="长城&故宫"

Text2.Text="165元"

EndSelect

EndSub

PrivateSubText2_Change（）

EndSub

结果正确，运行过程未发现错误，可以运行

5.总结

Vb课程相对来说较为容易，但是仅仅靠课本上的知识是无法学习到更多新奇的有用的自己感兴趣的知识，而且以后要多动手实践操作不能只靠上机课的时间，要是想真正的学习了解掌握这门技巧还得付出更多的努力与汗水。

经过这次的作业编辑深深的体会到平时自己的不认真，但经过这几天的学习与努力当做出属于自己的程序的时候还是非常激动以及高兴的，也就对这门课程有了更大的兴趣。

以后一定会认真努力的学习，保持积极地态度来面对生活，丰富自己的知识，提升自己的实践能力与动手能力，让自己多学一些真正的有用的知识。