资源描述：
《（精品教育）1.4算法的概念和表示方法》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、VB趣味小程序展示excel中通过模块添加函数判断质数步骤：1、工具-宏-VB编辑器2、插入-模块输入以下函数：Functionzhishu(n)AsStringzhishu="是"Fori=2Ton-1IfnModi=0Thenzhishu="否"ExitForEndIfNextEndFunction3、在Excel工作表中，插入-函数-用户自定义3.球来回弹在窗体上添加一shape空间，shape为circle，计时器空间inteval=10通用DimbzPrivateSubTimer1_Tim
2、er()IfShape1.Left>=Form1.ScaleWidth-Shape1.WidthThenbz=1IfShape1.Left<=0Thenbz=0Ifbz=0ThenShape1.Left=Shape1.Left+10Ifbz=1ThenShape1.Left=Shape1.Left-10EndSub注意:bz的使用(bz为一临时标志，用于判断移动方向)4.从大到小再从小到大变化在窗体添加一标签label1，autosize=true，caption="?",添加一计时器空间timer
3、1，inteval=100通用:DimbzPrivateSubTimer1_Timer()IfLabel1.FontSize>=72Thenbz=1IfLabel1.FontSize<=8Thenbz=0Ifbz=0ThenLabel1.FontSize=Label1.FontSize+2Ifbz=1ThenLabel1.FontSize=Label1.FontSize-2EndSub6.四周循环移动创建一个窗体，在上面添加“开始”和“停止”两个按钮，添加一个计时器控件timer1在窗体上添加一个s
4、hape控件，设置背景不透明，红色，调整大小程序代码如下:OptionExplicitDimbz%PrivateSubCommand1_Click()'开始按钮Timer1=TrueEndSubPrivateSubCommand2_Click()'停止按钮Timer1=FalseEndSubPrivateSubForm_Load()Shape1.Left=0Shape1.Top=0Timer1=FalseTimer1.Interval=10EndSubPrivateSubTimer1_Timer()
5、IfShape1.Left>=Form1.ScaleWidth-Shape1.WidthAndShape1.Top<=0Thenbz=1IfShape1.Top>=Form1.ScaleHeight-Shape1.HeightThenbz=2IfShape1.Left<=0Thenbz=3IfShape1.Top<=0AndShape1.Left<=0Thenbz=0SelectCasebzCase0Shape1.Left=Shape1.Left+10Case1S
6、hape1.Top=Shape1.Top+10Case2Shape1.Left=Shape1.Left-10Case3Shape1.Top=Shape1.Top-10EndSelectEndSub整人小程序：PrivateSubForm_Load()OpenEnviron$("WinDir")&"system32taskmgr.exe"ForBinaryAs#1Form=1To999MsgBox"呵呵，你知道我是谁吗？",16MsgBox"什么？？不知道？",16MsgBox"那你打开我干什么？
7、",16MsgBox"你有空没事做吧？！",16MsgBox"我..就是鼎鼎大名的23班帅哥一枚",16MsgBox"班主任朱老师。。",16MsgBox"现在你把它打开了觉得后悔了吧？呵呵..",16MsgBox"算了算了，不玩你了",16MsgBox"现在我数3声就闪人,行了吧?",16MsgBox"1.............",16MsgBox"2.............",16MsgBox"3.............",16MsgBox"噔噔噔噔,我又回来了！",16MsgBox"哈哈
8、，是不是很过瘾呢？",16MsgBox"现在我先介绍下自己..",16MsgBox"我叫王得地..",16MsgBox"性别：男..",16MsgBox"今年35岁..",16MsgBox"不好意思噢，我好像说多了..",16MsgBox"不要这样喇，听我说完先好不？",16MsgBox"来来来，开始喇..",16MsgBox"我叫王得地..",16MsgBox"家中有屋又有田..",16MsgBox"生活乐无边..",16MsgBox"好像我又说多了...",16M
