vb编程弹球
❶ 我想用VB做一个弹球游戏，但是为什么我的计分器不会一直加分
看你代码 你已经将scores 定义为全局变量 但是你给scores赋值 是不是有条件的 如果没有满足条件 没有执行到 scores = socres + 1 这句代码 自然不会加分 你应该逐个排除你if 条件语句 比如你是用多个条件 你可以先注释掉多个条件的其中一个 或者 多个 逐步排除法 看哪个条件不满足 从而调整你的代码
❷ vb怎么做物理弹球游戏
计算器是我们工作和学习的好帮手。今天教大家怎么使用VB来制作一款简单的小程序，矩形面积计算器。
首先在新建工程界面选择标准EXE后点击打开按钮。然后将Form1属性窗口中的Caption值设置为：矩形面积计算器。
在对象窗口中可以调节计算器界面的大小。
在工具箱中选择Label工具，并在窗体设计器窗口中创建三个Label。
然后分别将Label1和Label2属性窗口中的Caption值设置为长和宽，将Label3属性窗口中的Caption值设置为空。
在工具箱中选择TextBox工具，并在窗体设计器窗口中创建两个TextBox。
其中Text1对应的是Label1，Text2对应的是Label2。然后将Text1和Text2属性窗口中的Text值设置为空。
在工具箱中选择CommandButton工具，并在窗体设计器窗口中创建一个CommandButton。
然后将Command1属性窗口中的Caption值设置为计算。
左键双击计算（Command1）弹出代码窗口，将以下代码复制粘贴到代码窗口中，并覆盖原有代码。
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
s = a * b
Label3.Caption = "矩形的面积为：" & s
End Sub
代码输入完成后，单击工具栏中的启动进行测试。
测试无误后，点击菜单栏中的文件，然后选择生成工程1.exe。选择存储路径和设置文件名后，单击确定按钮。
然后就可以在计算机上打开计算器啦！
点击关注，有更多计算机小技巧等着您，谢谢您的支持！
❸ 采用VB编程：一个小球从100m高处自由落下，每次落地后反弹回原高度的一半再落下，求它在第10次落
Dim高度AsDouble=100,次数=0,总量=100,最后反弹高=0
A:
高度=高度/2
总量+=高度
次数+=1
Console.WriteLine("{0}{1}{2}",次数,总量,高度)
If次数<10ThenGoToA
❹ 求一个简单的vb程序代码
控件：shape两个，timer1个
Private Sub Timer1_Timer()
Static a, b
If Shape2.Left <= Shape1.Left Then
a = 15
End If
If Shape2.Top <= Shape1.Top Then
b = 15
End If
If Shape2.Left >= Shape1.Width + Shape1.Left - Shape2.Width Then
a = -15
End If
If Shape2.Top >= Shape1.Height + Shape1.Top - Shape2.Height Then
b = -15
End If
Shape2.Move Shape2.Left + a, Shape2.Top + b
End Sub
Private Sub Form_Load()
Timer1.interval=10
Me.Width = 2900
Me.Height = 3300
With Shape1:
.Top = 100
.Left = 100
.Width = 2500
.Height = 2700
End With
With Shape2:
.Top = 100
.Left = 100
.Shape = 3
.Width = 400
.FillStyle = 0
End With
a = 15: b = 15
End Sub
❺ 求大神用VB编写一个随机弹球。。急急急。。。。
'一个timer1控件，一个picture1控件，在picture1控件中再加入一个shape1控件。单击picture1控件可以暂停或继续
OptionExplicit
Constoffset=200
DimflagAsBoolean,u,r
PrivateSubForm_Load()
WithTimer1
.Enabled=False
.Interval=30
EndWith
Randomize
u=Int(Rnd*2):r=Int(Rnd*2)
EndSub
PrivateSubForm_Resize()
WithPicture1
.Top=10
.Left=10
.Height=Me.ScaleHeight-2*.Top
.Width=Me.ScaleWidth-2*.Left
EndWith
WithShape1
.Width=Picture1.Width/20
.Left=(Picture1.Width-.Width)/2
.Top=(Picture1.Height-.Height)/2
.Shape=3
.FillStyle=0
.FillColor=vbRed
EndWith
EndSub
PrivateSubPicture1_Click()
flag=Notflag
IfflagThenTimer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
IfNotflagThen
Timer1.Enabled=False
ExitSub
EndIf
WithShape1
Ifr=1An=1Then'右上
.Left=.Left+offset
If.Left+.Width>=Picture1.WidthThen
.Left=Picture1.Width-.Width
r=0
EndIf
.Top=.Top-offset
If.Top<=0Then
.Top=0
u=0
EndIf
EndIf
Ifr=1An=0Then'右下
.Left=.Left+offset
If.Left+.Width>=Picture1.WidthThen
.Left=Picture1.Width-.Width
r=0
EndIf
.Top=.Top+offset
If.Top+.Height>=Picture1.HeightThen
.Top=Picture1.Height-.Height
u=1
EndIf
EndIf
Ifr=0An=1Then'左上
.Left=.Left-offset
If.Left<=0Then
.Left=0
r=1
EndIf
.Top=.Top-offset
If.Top<=0Then
.Top=0
u=0
EndIf
EndIf
Ifr=0An=0Then'左下
.Left=.Left-offset
If.Left<=0Then
.Left=0
r=1
EndIf
.Top=.Top+offset
If.Top+.Height>=Picture1.HeightThen
.Top=Picture1.Height-.Height
u=1
EndIf
EndIf
EndWith
EndSub
❻ 如何使用VB6.0设计一个弹球的游戏,
加一个picture1,timer1
Option Explicit
Private Const BallR = 200
Private Const BallD = 2 * BallR + 1
Private CurX As Single
Private CurY As Single
Private OldX As Single
Private OldY As Single
Private VelX As Single
Private VelY As Single
Private Xmax As Single
Private Ymax As Single
Private Sub DrawBall()
OldX = CurX
OldY = CurY
Me.picture1.FillColor = &HEE00CC
Me.picture1.FillStyle = 6
Me.picture1.Cls
picture1.Circle (CurX, CurY), BallR, vbRed
End Sub
Private Sub Form_Load()
Width = (Width - ScaleWidth) + picture1.Width
Height = (Height - ScaleHeight) + picture1.Height
Xmax = picture1.ScaleWidth - BallR
Ymax = picture1.ScaleHeight - BallR
Randomize
CurX = Int((Xmax - BallR + 1) * Rnd + BallR)
CurY = Int((Ymax - BallR + 1) * Rnd + BallR)
OldX = CurX
OldY = CurY
VelX = Int((40 - 20 + 1) * Rnd + 20)
VelY = Int((40 - 20 + 1) * Rnd + 20)
DrawBall
Timer1.Interval = 10
Timer1.Enabled = True
End Sub
Private Sub timer1_Timer()
CurX = CurX + VelX
If (CurX > Xmax) Then
CurX = Xmax
VelX = -VelX
' Beep
ElseIf (CurX < BallR) Then
CurX = BallR
VelX = -VelX
' Beep
End If
CurY = CurY + VelY
If (CurY > Ymax) Then
CurY = Ymax
VelY = -VelY
' Beep
ElseIf (CurY < BallR) Then
CurY = BallR
VelY = -VelY
' Beep
End If
DrawBall
End Sub
❼ 有趣的vb小程序
小球四壁碰撞程序、弹球游戏程序之类的，或者是人工智能【比如问“年龄”，就回答几岁】之类，这些简单、实用、有趣
❽ 求VB弹球小游戏代码
在属性里设置timer的enable为false
Dim a, b As Integer
Private Sub Command1_Click()
Timer.enable = True
End Sub
Private Sub Command2_Click()
Timer.enable = False
Unload Me
End Sub
Private Sub Form_Load()
a = 50
b = 50
End Sub
Private Sub Timer1_Timer()
Shape1.Move Shape1.Left + a, Shape1.Top + b
If Shape1.Left + Shape1.Width >= Frame1.Left + Frame1.Width Then
a = -a
End If
If Shape1.Left <= Frame1.Left Then
a = -a
End If
If Shape1.Top <= Frame1.Top Then
b = -b
End If
If Shape1.Top + Shape1.Height >= Frame1.Top + Frame1.Height Then
b = -b
End If
End Sub
这个是小球四处弹的语句，关于速度，更改一下“Shape1.Move Shape1.Left + 100, Shape1.Top + 100”这句里的数值就行了...
❾ 我制作了一个Vb的弹球游戏，请问如下Visual basic 6.0程序应该如何修改才可以使小木棒跑的更快点
修改计时器1 timer1 的interval值 修改的越小 球的移动速度越快
在VB中测试 修改为10 移动速度很快
❿ vb程序设计论文
vb程序设计论文
在社会的各个领域，大家都跟论文打过交道吧，论文的类型很多，包括学年论文、毕业论文、学位论文、科技论文、成果论文等。如何写一篇有思想、有文采的论文呢？下面是我为大家收集的vb程序设计论文，希望能够帮助到大家。
Visual Basic（简称VB）是目前使用最广泛的一种程序设计语言，是在Basic语言的基础上发展起来的，它继承了Basic语言简单易用的优点，结合了可视化界面的设计方法，采用面向对象、事件驱动的编程机制，把Windows编程复杂性进行巧妙封装，使开发Windows环境下的各种应用软件变得更为容易。因此，目前国内很多高校都选择将《VB程序设计》这门课程作为理工科专业的一门基础课程。程序设计具有知识结构严谨、逻辑性强的特点，学生学习起来比较困难，教学效果也不尽如人意。如何提高本课程的教学质量和教学效果，是每位授课教师都会关注的课题。
1教学中存在的问题
就VB程序设计这门课程的教学现状而言，通常采用的还是以课本原有知识体系为脉络的传统讲授法，教学内容大多以线性方式展开，同时结合上机实践操作来巩固和熟悉课堂上所讲的每一章节的知识点。经过教学实践证明，这种教学模式能够让学生掌握Visual Basic的较多的理论知识，也可以阅读程序代码，但是让学生自己解决一些问题的时候，通常都会束手无策。经过分析总结出此课程在教学中存在的问题：
一是教学内容与教学目标不一致。VB程序设计课程的教学目标是培养学生程序设计的基本知识、思维方式以及基本的操作技能，而教师在实际授课时，大多单纯依照教材讲授理论基础知识，授课基本上是以语言自身的知识体系为脉络展开，过分注重语句、语法和结构的讲解，忽视对学生分析与解决问题能力的引导，不能很好的将编程环境、程序设计语言、算法、数据结构以及程序设计思想关联起来形成体系化教学。[1]导致学生只学会了语法概念而不会使用，能够读懂某一条语句，却无法理解一段代码的含义。
二是实验内容过于简单。上机实验大多都是属于基础与验证型实验，偏重于VB语言的基本语法和结构的练习，能够帮助学生更好的理解和掌握这些语法知识，但无法培养学生编程能力和解决实际问题的能力。实验内容普遍都是知识点案例，针对的是具体的一个或多个知识点，没有依托完整的实践项目，使学生对知识点的学习感到枯燥无味，而且很容易遗忘。
三是学生缺乏计算机的思维方式。学生在接触这门课程之前通常没有任何基础，学生普遍缺乏相应的知识背景和算法思想，对程序设计的思维方式还不适应，分析和解决问题的能力处于一个较低的水平。在学习过程中经常会出现这种情况，教师对程序进行分析讲解时学生能够听懂理解，代码也能够读懂，但是让学生自己编写时，就无处下手，久而久之学生对编程充满畏惧感，对学习本门课程缺乏兴趣。
如何改变目前教学中存在的问题，让学生能够更好地掌握VB语言，掌握程序设计的基本方法？需要对课程的教学进行改革和创新。
2课程教学改革
2.1拓展教学内容
本课程主要培养学生的程序设计思维方式和实际编程能力，而不是单纯的程序设计语言，因此必须打破固有的以“语法”和“结构”为中心的传统教学理念，以突出能力培养为主轴，围绕能力培养组织教学内容。教学内容的选择不能仅仅局限在一本教材上，要突破教材局限，将程序设计中所需要的众多知识点加以整合，包括VB语言的语法结构、可视化编程方法、常用的算法、数据结构以及程序的调试等，形成新的知识体系。在这里算法是程序设计的核心，而语言只是一种工具，在授课的过程中，特别是讲解实例时，需要剥开语言这层外壳，让学生掌握其中的精粹——算法，也就是如何利用计算机来解决某一具体问题。
当然，这并不是说语言不重要，语言是程序设计的工具，如果不掌握语言，程序设计就无从谈起。教材上的语法描述非常细致、系统，但大量的语法规则会使初学者感觉枯燥，这非常影响学生的学习兴趣。根据二八定律，在任何一组东西中，只有20%是最重要的，事实上VB语言也是如此，最常用、最重要的知识点并不是很多。因此在讲述语法时，只需提供给学生最基本的语法知识，其余的细枝末节可以由学生自学。
2.2优化教学方法和教学策略
在程序设计的教学中，传统讲课方式的缺陷已众所周知，因为这是一种以教师为主、学生为辅的一种授课形式，讲课中教师是积极的而学生是消极的，很难把学生吸引到学习进程之中。但这不是意味着要把这种授课方式抛弃，讲课是把大量知识传递给学生的一种常用模式，尤其在本课程的教学中，学生缺乏普遍缺乏知识背景，大量的理论知识需要传递给学生，这就需要教师进行详细地讲解。在讲解时应该采用多种策略，比如在讲述抽象概念时最好与实践相关联，或者与学生已有的知识联系起来，这样比较容易理解。在提到函数和数据类型的.时候，可以跟学生比较熟悉的Excel中的相关概念关联起来。在讲述面向对象的概念时，可以拿Windows操作系统作为例子，它就是依照面向对象的思想编制而成的，在桌面上的每个图标，可以理解成一个对象，当需要启动某个对象时，只需用鼠标点击它（消息驱动）。[2]不仅如此，在不同的情境下还需要灵活运用多种教学方法，如问题法、引导法、任务驱动和实例教学法等，这样有助于让学生从消极的学习者转变为积极的学习者。
2.3完善实验教学体系
VB程序设计是一门理论性和实验性都很强的课程，对实验环节有较高的要求。要学好这门课，学生只有经过大量的上机实验，才能掌握程序设计的技能和方法。因此，在教学过程中要给学生留出足够的上机时间，让学生在实验中理解VB语言的基本概念，掌握基本的编程方法。结合学生的专业方向，精心选择合适的案例、设计型与研究型课题，构建有助于培养学生动手能力和程序设计思维方式的实验教学平台。整个实验环节分为三个层次设计，基础验证型、设计开发型和研究创新型实验，每次实验课有多个基础验证型实验，帮助学生掌握相应的语法知识和算法设计，每一章精选1～2个设计开发型实验，与学生分析讨论解题思路，引导学生独立解决问题，培养学生的上机调试能力。学生以小组为单位，选择一个与其专业相关的研究题目，要求学生逐步完成研究分析与报告，写出个人的心得体会，并在学期末给出一定的时间完成课题。
2.4创建项目实例库
充分利用网络资源，搜集各类完整的VB程序实例，从中选取典型的、有实际意义的实例，作为程序设计的模板提供给学生。大多数学生基本上是初次接触计算机程序设计，习惯采用数学思维方式来分析问题，还没有真正掌握计算机编程的基本思路。在实验过程中，遇到一个新的题目，学生往往不知道从何下手，思路不清晰，此时就可以从项目实例库找出对应的实例，通过借鉴或修改相应的模板得到结果。“熟读唐诗三百首，不会做诗也会吟”，经常阅读这些实例，能够拓展学生的视野，促进学生对于程序设计思想的理解与认识，提高学生的编程能力。
在具体实施上，整理出40～50个典型项目实例，将它们分为五大类：基础类、算法类、图形类、文本类和应用类，供学生自主学习，另外从中选取6～8个典型的项目实例，要求学生必须理解掌握，这些实例基本上包含了这门课程的知识要点，理解了这些实例，对于课程的知识结构会有一个全面的了解。其中，学生最喜欢也最有兴趣的实例就是弹球游戏，通过对弹球游戏程序代码的阅读分析，学生能够更好地掌握定时器控件和控件坐标等相关的知识，学生也很有兴趣地去改写程序代码，以获得类似的动画效果，可见好的实例能够激发学生的求知欲望，提高学生的学习积极性，培养学生分析问题和解决问题的能力。
3结束语
VB程序设计课程对于理论知识和实际操作均有较高要求，教学时需要综合运用多种教学方法和教学策略，充分调动学生的学习积极性和主动性，将教学重点放在算法的分析和编程的训练上，注重实验教学环节，加强对学生程序设计思维方式和实际编程能力的培养，提高课程的教学效果。
;