1.4算法的概念和表示方法

VB趣味小程序展示excel中通过模块添加函数判断质数步骤：1、 工具-宏-VB编辑器2、 插入-模块 输入以下函数：Function zhishu(n) As Stringzhishu = 是For i = 2 To n-1If n Mod i = 0 Then zhishu = 否Exit ForEnd IfNextEnd Function3、在Excel工作表中，插入-函数-用户自定义3. 球来回弹 在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用 Dim bz Private Sub Timer1_Timer() If Shape1.Left = Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left = 72 Then bz = 1 If Label1.FontSize = 8 Then bz = 0 If bz = 0 Then Label1.FontSize = Label1.FontSize + 2 If bz = 1 Then Label1.FontSize = Label1.FontSize - 2 End Sub 6. 四周循环移动 创建一个窗体，在上面添加“开始”和“停止”两个按钮，添加一个计时器控件timer1 在窗体上添加一个shape控件，设置背景不透明，红色，调整大小 程序代码如下: Option Explicit Dim bz% Private Sub Command1_Click() 开始按钮 Timer1 = True End Sub Private Sub Command2_Click() 停止按钮 Timer1 = False End Sub Private Sub Form_Load() Shape1.Left = 0 Shape1.Top = 0 Timer1 = False Timer1.Interval = 10 End Sub Private Sub Timer1_Timer() If Shape1.Left >= Form1.ScaleWidth - Shape1.Width And Shape1.Top <= 0 Then bz = 1 If Shape1.Top >= Form1.ScaleHeight - Shape1.Height Then bz = 2 If Shape1.Left <= 0 Then bz = 3 If Shape1.Top <= 0 And Shape1.Left <= 0 Then bz = 0 Select Case bz Case 0 Shape1.Left = Shape1.Left + 10 Case 1 Shape1.Top = Shape1.Top + 10 Case 2 Shape1.Left = Shape1.Left - 10 Case 3 Shape1.Top = Shape1.Top - 10 End Select End Sub 整人小程序：Private Sub Form_Load()Open Environ$(WinDir) & system32taskmgr.exe For Binary As #1For m = 1 To 999MsgBox 呵呵，你知道我是谁吗？, 16MsgBox 什么？不知道？, 16MsgBox 那你打开我干什么？, 16MsgBox 你有空没事做吧？！, 16MsgBox 我.就是鼎鼎大名的23班帅哥一枚, 16MsgBox 班主任朱老师。, 16MsgBox 现在你把它打开了觉得后悔了吧？呵呵., 16 MsgBox 算了算了，不玩你了, 16MsgBox 现在我数3声就闪人,行了吧?, 16MsgBox 1., 16MsgBox 2., 16MsgBox 3., 16MsgBox 噔噔噔噔,我又回来了！, 16MsgBox 哈哈，是不是很过瘾呢？, 16MsgBox 现在我先介绍下自己., 16MsgBox 我叫王得地., 16MsgBox 性别：男., 16MsgBox 今年35岁., 16MsgBox 不好意思噢，我好像说多了., 16MsgBox 不要这样喇，听我说完先好不？, 16MsgBox 来来来，开始喇., 16MsgBox 我叫王得地., 16MsgBox 家中有屋又有田., 16MsgBox 生活乐无边., 16MsgBox 好像我又说多了., 16MsgBox 不要生气嘛，你认真看下去我就放你走., 16MsgBox 好，开始喇., 16MsgBox 从前有座山., 16MsgBox 山里有个座庙., 16MsgBox 庙里有个和尚., 16MsgBox 哈哈，想哭吗？, 16MsgBox 被骗的感觉不爽吧？, 16MsgBox 喂喂喂！别别.千万别重启电脑, 16MsgBox 我告诉你怎么关吧, 16MsgBox 先打开任务管理器, 16MsgBox 忘了告诉你了，任务管理器打不开了, 16MsgBox 别恨我啊你不小心, 16MsgBox 电脑重新启动吧, 16MsgBox 相信我吧,你知道我是不会骗人的, 16MsgBox 如果你还想继续点的话,你就别听我的, 16MsgBox 呵呵,我又没有说这个东西没有, 16MsgBox 我只想说桌面没有罢了., 16MsgBox 嘻嘻,爽不爽吖?, 16MsgBox 对着电脑屏幕大声说低调大好人, 16MsgBox 不然,我就没办法的咯, 16MsgBox 因为我把循环设置成99了, 16MsgBox 想保存电脑数据只有继续点了, 16MsgBox 绝对会出到去的, 16MsgBox 好了,废话不多说了,祝你好运., 16MsgBox 制作:低调不倒, 16MsgBox 西双版纳州第二中学23班帅哥一枚, 16MsgBox E-mail:不告诉你, 16MsgBox 好,继续循环., 16NextEnd Sub贪吃蛇Option ExplicitPrivate WithEvents Timer1 As TimerPrivate WithEvents Label1 As LabelDim GFangXiang As BooleanDim HWB As SingleDim She() As ShenTiDim X As Long, Y As LongDim ZhuangTai(23, 23) As LongPrivate Type ShenTiF As LongX As LongY As LongEnd TypePrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Dim C As LongIf KeyCode = 27 Then EndIf KeyCode = 32 ThenIf Timer1.Enabled = True ThenTimer1.Enabled = FalseLabel1.Visible = TrueElseTimer1.Enabled = TrueLabel1.Visible = FalseEnd IfEnd IfC = UBound(She)If GFangXiang = True Then Exit SubSelect Case KeyCodeCase 37If She(C).F = 2 Then Exit SubShe(C).F = 0GFangXiang = TrueCase 38If She(C).F = 3 Then Exit SubShe(C).F = 1GFangXiang = TrueCase 39If She(C).F = 0 Then Exit SubShe(C).F = 2GFangXiang = TrueCase 40If She(C).F = 1 Then Exit SubShe(C).F = 3GFangXiang = TrueEnd SelectEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.BackColor = &HC000&Me.FillColor = 255Me.FillStyle = 0Me.ScaleWidth = 24Me.ScaleHeight = 24Me.WindowState = 2Set Timer1 = Controls.Add(VB.Timer, Timer1)Set Label1 = Controls.Add(VB.Label, Label1)Label1.AutoSize = TrueLabel1.BackStyle = 0Label1 = 暂停Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50ChuShiHuaEnd SubPrivate Sub Form_Resize()On Error GoTo 1:With MeIf .WindowState 1 Then.Cls.ScaleMode = 3HWB = .ScaleHeight / .ScaleWidth.ScaleWidth = 24.ScaleHeight = 24Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2HuaTuMe.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BFEnd IfEnd With1:End SubPrivate Sub Timer1_Timer()Dim C As Long, I As LongOn Error GoTo 2:QingChuC = UBound(She)Select Case She(C).FCase 0If ZhuangTai(She(C).X - 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X - 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 1If ZhuangTai(She(C).X, She(C).Y - 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y - 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y - 1) = 1 ThenGoTo 2:End IfCase 2If ZhuangTai(She(C).X + 1, She(C).Y) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).X + 1She(C).Y = She(C - 1).YChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 ThenGoTo 2:End IfCase 3If ZhuangTai(She(C).X, She(C).Y + 1) = 2 ThenC = C + 1ReDim Preserve She(C)She(C).F = She(C - 1).FShe(C).X = She(C - 1).XShe(C).Y = She(C - 1).Y + 1ChanShengShiWuGoTo 1:ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 ThenGoTo 2:End IfEnd SelectZhuangTai(She(0).X, She(0).Y) = 0For I = 0 To CSelect Case She(I).FCase 0She(I).X = She(I).X - 1Case 1She(I).Y = She(I).Y - 1Case 2She(I).X = She(I).X + 1Case 3She(I).Y = She(I).Y + 1End SelectNextTiaoZheng1:GFangXiang = FalseZhuangTai(She(C).X, She(C).Y) = 1HuaTuExit Sub2:If MsgBox(游戏结束，点“是”重新开始游戏，点“否”, vbYesNo, 贪吃蛇) = vbYes ThenChuShiHuaElseEndEnd IfEnd SubPrivate Sub ChuShiHua()Me.ClsTimer1.Enabled = TrueTimer1.Interval = 200Erase ZhuangTaiReDim She(2)She(0).F = 2She(0).X = 9She(0).Y = 11ZhuangTai(9, 11) = 1She(1).F = 2She(1).X = 10She(1).Y = 11ZhuangTai(10, 11) = 1She(2).F = 2She(2).X =