VB课程设计

课程名称：visual basic

所在院系：机电工程学院。

姓名：李烨磊。

学号：班级：机械设计制造及其自动化。

设计名称：模拟高考查分及志愿填报系统。

辅导老师：设计时间：

2023年6月28日——2023年7月8日。

总报表。课程设计名称：

高考查分及志愿填报系统。

1.设计内容：

利用visual basic 编程语言，来模拟高考成绩查询及志愿填报系统，本系统的核心功能为查询分数与志愿填报，除此之外本系统还兼有院校信息查询，热门专业查询等相关讯息查询的功能。

2.设计目的与要求：

2.1设计目的。

1）达到熟练掌握visual basic语言的基本知识和技能；

2）基本掌握面向对象程序设计的基本思路和方法；

3）能够利用所学的基本知识和技能，解决简单的面向对象程序设计问题。

2.2设计要求。

1）要求利用面向对象的方法以及visual basic的编程思想来完成系统的设计；

2）在知识点覆盖范围内完善系统功能，使之更加贴近实际。

3）在完善系统功能的前提下，务必使得系统界面美观大方。

3 系统总体设计思路。

首次登陆本系统将会出现一个加载界面，进入后将会出现该系统的登陆界面，其中包括学生姓名、准考证号、身份证号的填写核实功能等，在登陆本系统后将会出现考生高考成绩查询界面用以显示考生考试成绩，并且该部分作为主界面起到承上启下的功能，将会设计一些连接性的功能，由上一界面将会连接到院校推介界面，分数线查询界面，以及核心志愿填报功能块。院校推介界面将会有部分院校相关**，分数线查询将会以省区划分分别查询，而核心志愿填报系统将会模拟院校填报和专业填报功能，而且也会在其中增加相关高考讯息查询的功能，终端界面为考生填报信息审核提交界面。

本课题参与人员为：李磊（组长）、李生涛、张宏波、胡鹏飞。

任务划分：张宏波负责初始界面设计，包括加载界面，登陆界面设计；

李生涛负责成绩查询界面及其院校信息界面设计；

胡鹏飞负责填报系统部分功能以及分数线查询系统；

李磊负责志愿填报系统及其终端界面设计，并且辅助设计各界面美工。

4 课程设计源**及屏幕截图

加载界面。private sub label2_click()‘label2为“点击进入”’

为加载界面’

为登陆界面’

end sub

该部分界面截图如下图所示。

登陆界面。private sub command1_click()

if text1 = or text2 = or text3 = then

msgbox "请输入完整信息", vbokonly, "温馨提示"

elseif len(text3) <18 or not isnumeric(text3) then

msgbox "请输入正确的身份证号", vbokonly, "警告"

text3 =

elsemsgbox "您的信息准确无误，请登录本系统", vbokonly, "温馨提示"

end if

end sub

以上为核对信息是否完整（准考证号必须为9位数字型，身份证号必须为18位数字型，否则将以msgbox形式进行提示）

新浪烨磊木子lee

open "f:\文档。txt" for output as #

write #1,close #

open "f:\志愿。txt" for output as #

write #2,close #

end sub

private sub command3_click()

if text1 = or text2 = or text3 = then

msgbox "请输入完整信息", vbokonly, "温馨提示"

elseif len(text3) <18 or not isnumeric(text3) then

msgbox "请输入正确的身份证号", vbokonly, "警告"

text3 =

elseend if

end sub

private sub text2_lostfocus()

if not isnumeric(text2) then

msgbox "请输入正确的准考证号", vbokonly, "警告"

text2 =

elseif len(text2) <9 then

msgbox "请输入正确的准考证号（9位）",vbokonly, "警告"

text2 =

end if

end sub

查询缓冲界面。

private sub form_load()

dim counter as integer

dim workarea(25000) as string

= lbound(workarea)

= ubound(workarea)

= true

新浪烨磊木子lee

= counter

next counter

end sub

private sub label3_click()

end sub

private sub timer1_timer()

static pickbmp as integer

if pickbmp = 0 then

pickbmp = 1else

pickbmp = 0

end if

end sub

private sub timer2_timer()

static pickbmp as integer

新浪烨磊木子lee

pickbmp = 1else

pickbmp = 0

end if

end sub

主界面。private sub command1_click()

end sub

private sub command2_click()

end sub

private sub command3_click()

end sub

private sub command4_click()

end sub

private sub form_load()

label3 =

randomize

= val(int(rnd * 60 + 80))

= val(int(rnd * 70 + 78))

= val(int(rnd * 80 + 70))

= val(int(rnd * 180 + 110))

= val(text2) +val(text) +val(text4) +val(text5)

= val(int(rnd * 40000 + 3000))

open "f:\文档。txt" for output as #

write #1, "总分" &语文" &英语" &数学" &综合" &省排名" &

close #

end sub

private sub label12_click()

msgbox "您的计算机未连接到网络，请检查网络连通性！",vbokonly, "温馨提示"

end sub

院校查询系统。

private sub command1_click()

= false

end sub

在未点击标签时，文本框可见性为不可见。

private sub label1_click()

dim tempfile as long

dim loadbytes() as byte

tempfile = freefile

烨磊木子lee

get #tempfile, ,loadbytes

close tempfile

= true

= strconv(loadbytes, vbunicode)

= loadpicture("f:\vb作业\vb设计**\")

end sub

点击标签，文本框引用f:\vb作业\设计\数据中的相关文本，并出现对应**。

private sub label10_click()

dim tempfile as long

dim loadbytes() as byte

tempfile = freefile

open "f:\vb作业\设计\数据\兰交。txt" for binary as #tempfile

redim loadbytes(1 to lof(tempfile)) as byte

get #tempfile, ,loadbytes

close tempfile

= true

VB课程设计

VB课程设计

VB课程设计

VB课程设计

其他用户还读了