1．输入年份，给出闰年的判断单过程程序：子过程程序：主过程输入、子过程输出结果PrivateSubForm_Click()Dimyear1%,leap!year1=Val(InputBox(nowyear=,input,2013))Ifyear1Mod100=0ThenIfyMod400=0Thenleap=1Elseleap=0ElseIfyear1Mod4=0Thenleap=1EndIfIf(leap)ThenPrintyear1;是闰年ElsePrintyear1;不是闰年EndIfEndSubPrivateSubForm_Click()Dimyear1%,leap!year1=Val(InputBox(nowyear=,input,2013))Cally1(year1)EndSubSu...
编程高手之路—VB入门和游戏编写—VB贪吃蛇单人版游戏(四)刷新蛇身坐标，更新地图网格属性以及画面参数：蛇头的新坐标_X，蛇头的新坐标_Y，是否增加蛇身长度（T＝增加）PrivateSubRefreshSnake(NewHead_XAsInteger,NewHead_YAsInteger,blnAddLengthAsBoolean)DimiAsIntegerDimOldTailAsthePosition用于在更新蛇身坐标之前，保存原来的蛇尾坐标OldTail=Snake_P1(UBound(Snake_P1))保存旧的蛇尾坐标picDisplay.Line(Snake_P1(0).X...
在VB中用ADO实现数据库访问提要本文介绍了VisualBasic数据库访问技术发展的历史，详细阐述了利用ADO以非编程方式及编程方式实现数据库访问的方法。关键词：VB；ADO；ADOData控件；ADO对象模型中图分类号：F407.67文献标识码：AVisualBasic作为一种面向对象的可视化编程工具，具有简单易学、灵活方便和易于扩充的特点，并且支持一套出色的数据库访问技术。Microsoft为其提供了与SQLServer通信的API函数集及工具集，因此它越来越...
本文收录于<<微型机与应用>>2001年11期基于VB中WINSOCK控件的网上象棋系统的实现马根峰1,孙艳2,王平1(1.重庆邮电学院自动化学院,重庆,400065；2.铁道部第十九工程局四处，内蒙通辽，028000)摘要本文首先介绍了VisualBasic中的WINSOCK控件的使用方法，然后深入探讨了网上象棋系统的设计思想及其实现过程。关键词WINSOCK控件；TCP；UDP中图分类号：文献标识码：1引言MicrosoftVisualBasic是可视化的、面向对象的、采用事件驱动方...
基于VB中WINSOCK控件的网上象棋系统的实现马根峰1,孙艳2,王平1(1.重庆邮电学院自动化学院,重庆,400065；2.铁道部第十九工程局四处，内蒙通辽，028000)摘要本文首先介绍了VisualBasic中的WINSOCK控件的使用方法，然后深入探讨了网上象棋系统的设计思想及其实现过程。关键词WINSOCK控件；TCP；UDP中图分类号：文献标识码：1引言MicrosoftVisualBasic是可视化的、面向对象的、采用事件驱动方式的结构化的高级程序设计语言。它提供...
第4章常用控件4．1填空题1．在图片框上放置的控件称为图片框的（）对象，而窗体是图片框的（）对象。答案：子对象、父对象2．窗体的“名称”（Name）属性只能在（）设置。答案：属性窗口中3．在程序中设置窗体Forml的Caption属性为“主窗体”，使用的赋值语句是（）。答案：Forml.Caption=“主窗体”4．当窗体的Enabled属性为（）时，指定窗体响应事件。答案：True5．窗体的Unload事件是在QueryUnload事件发生之（）发生。答案...
第4章常用控件4．1填空题1．在图片框上放置的控件称为图片框的（）对象，而窗体是图片框的（）对象。答案：子对象、父对象2．窗体的“名称”（Name）属性只能在（）设置。答案：属性窗口中3．在程序中设置窗体Forml的Caption属性为“主窗体”，使用的赋值语句是（）。答案：Forml.Caption=“主窗体”4．当窗体的Enabled属性为（）时，指定窗体响应事件。答案：True5．窗体的Unload事件是在QueryUnload事件发生之（）发生。答案...
Excel几个常用事件：1>如果出现某一事件，退出到原始界面：Privatesubcommand1_click()If..thenExitsubEndsub2>打开或者新建excel:Dimexlappasexcel.applicationDimexlbookasexcel.workbookDimexlsheetasexcel.worksheetSetexlapp=getobject(,”excel.application”)如果当前excel在运行，就不必新建Iferr.number<>0thenSetexlapp=createobject(,”excel.application”)EndifErr.clearSetexlapp=createobject(“excel.applicati...
VB里Winsock的UDP协议做局域网聊天其实很简单，但代码写起来稍复杂些。Winsock的TCP协议其实代码的理解更容易，但是要在局域网里某电脑IP开启一个服务器，就已TCP协议聊天室为例根你说说创建一个非常简单的服务器：要创建一个TCP服务器，请按照以下步骤执行：创建新的StandardEXE工程。将缺省窗体的名称改为frmServer。将窗体的标题改为“TCP服务器”。在窗体中放入一个Winsock控件，并将它的名字改为tcpServer。在...
