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程序設計課程對於理論知識和實際操作均有較高要求，教學時需要綜合運用多種教學方法和教學策略，充分調動學生的學習積極性和主動性，將教學重點放在演算法的分析和編程的訓練上，注重實驗教學環節，加強對學生程序設計思維方式和實際編程能力的培養，提高課程的教學效果。
;