Text),Val(Text3.Text))
skDay1=Text1.Text+","+Text2.Text+","+Text3.Text
kDay1=skDay1
disPlay(kDay1)
EndSub
PublicSubop_Sub()
MPl.Play
SelectCaseop
Case"+"
e=Str(Val(e)+Val(f))
f=""
Case"-"
e=Str(Val(e)-Val(f))
f=""
Case"*"
e=Str(Val(e)*Val(f))
f=""
Case"/"
e=Str(Val(e)/Val(f))
f=""
Case"^"
e=Str(Val(e)^Val(f))
f=""
EndSelect
EndSub
二、提示信息模块相关代码:
OptionExplicit
PrivateConstSWP_NOMOVE=2
PrivateConstSWP_NOSIZE=1
PrivateConstFLAGS=SWP_NOMOVEOrSWP_NOSIZE
PrivateConstHWND_TOPMOST=-1
PrivateConstHWND_NOTOPMOST=-2
ConstHTCAPTION=2
ConstWM_NCLBUTTONDOWN=&HA1
PrivateDeclareFunctionReleaseCaptureLib"user32"()AsLong
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsLong)AsLong
'内存中的提示数据库。
DimTipsAsNewCollection
'提示文件名称
ConstTIP_FILE="TIPOFDAY.TXT"
'当前正在显示的提示集合的索引。
DimCurrentTipAsLong
PrivateSubDoNextTip()
IfOp1.Value=1Then
'随机选择一条提示。
CurrentTip=Int((Tips.Count*Rnd)+1)
Else
'或者,您可以按顺序遍历提示
CurrentTip=CurrentTip+1
IfTips.Count
0Then
lblTipText.Text=Tips.Item(CurrentTip)
EndIf
EndSub
第三章毕业设计总结
历时近两个月的毕业设计终于快到了尾声,通过这次毕业设计,在老师的指导下,我初步掌握了用VB开发软件的方法,使我意识到在开发一个应用软件的同时,搞好准备工作的重要性,特别是各种素材的准备,尤其是对数据结构算法要心中有数。感谢中央电大**分校的指导老师对我的悉心指导与帮助。由于时间仓促,这个软件还很不完善,比如农历的转换我还没能设计成功,计算器功能也有错误。这些有待我以后继续完善。
第四章主要参考文献
1、《数据结构(c++描述)》中央电大出版2000年12月第1版徐孝凯主编
2、《VisualBasic程序设计》中央电大出版2000年12月第1版陈明主编
3、《VisualBasic程序设计》清华大学出版2002年7月第1版李大友主编
4、《VisualBasic开发人员指南》机械工业出版社1999年1月EricBrierley主编
5、《VisualBasic6.0实效编程百例》人民邮电出版社2002年7月刘韬、骆娟主编
??
??
??
??
上一篇:vb公交车查询系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:基于web二手汽车交易管理系统(含录像)