當前位置：首頁 » APP程序 » vb小程序實例下載

vb小程序實例下載

發布時間: 2021-03-04 08:54:32

『壹』 vb有趣小程序

Private WithEvents Timer1 As Timer
Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
Private Sub Form_Load()
Me.Width = 4500: Me.Height = 4500
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.AutoRedraw = True
Me.Caption = "CBM666的萬花筒"
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize
r = 340 * Rnd
If r <> 0 Then
r1 = 500
s = r * Rnd
b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
For t = 1 To 10000
a1 = t * 3.1415926 / 180
a2 = (r1 / r) * a1
xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4
yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4
Me.PSet (xb, yb), b
Next t
End If
End Sub

『貳』簡單的vb小程序

Private Sub Command1_Click()
Static n As Integer
n = n + 1
a = Text1.Text
b = Text2.Text
If a = "wanglili" And b = "12345" And n <= 3 Then
MsgBox "歡迎您進入本系統！"
n = 0
Else
If n < 3 Then
MsgBox "對不起您不能進入！請重新輸入認證信息！內"
Else
MsgBox "對不起，容您不能進入本系統！"
End If
End If
End Sub

Private Sub Command2_Click()
End
End Sub

『叄』用VB做一個簡單的小程序

PrivateSubCommand1_Click()
Me.Cls
DimNAsInteger,iAsInteger
N=InputBox("n=",,9)
Fori=1To2*N-1
Ifi<=NThen
PrintSpace(N-i)+String(2*i-1,CStr(i))
Else
PrintSpace(N-(2*N-i))+String(2*(2*N-i)-1,CStr(2*N-i))
EndIf
Nexti
EndSub

『肆』 vb小程序設計實例

使用access資料庫，將所有題都事先輸入在題庫中，在軟體運行過程中從題庫中內隨即抽取題目，輸容出到窗體上！
比如試題表Question
可能會有的欄位
欄位類型備注
ID int 自增量
Content string 問題描述
Type byte 問題類型,1填空題，2選擇題，3問答題
大概這些，可能根據出的問題不同有更詳細欄位
背景音樂你可以給窗體上放一個windows media player控制項，設置為不可見，然後讓這個控制項放歌就可以了！

『伍』求10個VB簡單小程序

第一個
text1="哎，現在的人啊..."
第二個
label1.cpation="能學到什麼呢？"
第三個
me.caption="作業還要別人做....."
第四個內
print "這個樣子不是在欺容騙自己么"
第五個
msgbox "學不到東西的，這樣...."
第六個
do
print "沒前途"
loop
第七個
for a = 1 to 9999....99
print "哎~~ "
next a
第八個
if 現在學習=true then 還有得救
第九個
unload me
第十個
end
----------------全寫在按鈕事件中....夠簡單了把.....(-_-)|||

『陸』求:VB小程序實例(高中教學用)

我幫你做兩個小題目吧，比較好的
1。是百錢買百雞
一百無買公雞5元一隻，母雞3元一隻，小雞一元3隻.x代表公雞，Y代表母雞。z代表小雞
PRIVATE SUB form1_click()l
dim x,y,z as long
for x = 1 to 20
for y = 1 to 33

z= 100-x-y
if 5*x+3*y+1/3z= 100 then
print x,y,z
end if
nexty
nextx
end sub
2.是畫50個不同大小的圓，色彩也不同
private sub from1_click()
for i = 1 to 50
randomize
a= int(255*rnd+1)
b = int(255*rnd +1)
c= int(255*rnd+1)
form1.forecolor= rgb(a,b,c)
circle(3000,3000)i*100
next i
end sub
小弟真是獻臭了。如果不足，請指教

『柒』簡單的VB小程序

在窗體添加一個標簽，一個計時器控制項,
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = "字體隨機變色"
End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

『捌』求vb小程序實例

msgbox "祝福的話"

『玖』 vb 小程序謝謝

PrivateSubCommand1_Click()
DimiAsInteger,nAsInteger
Dima()AsInteger
n=100
ReDima(n)AsInteger
Fori=1Ton
a(i)=100*Rnd
Next
CallSortnum(a,n)
Fori=1Ton
IfSeven(a(i))=TrueThenPrinta(i);
Next
EndSub

SubSortnum(a()AsInteger,n)
DimiAsInteger,jAsInteger,tAsInteger
Fori=1Ton
Forj=iTon
Ifa(i)>a(j)Then
t=a(i)
a(i)=a(j)
a(j)=t
EndIf
Next
Next
EndSub
FunctionSeven(nAsInteger)AsBoolean
IfnMod7=0Then
Seven=True
Else
Seven=False
EndIf
EndFunction

『拾』學習vb前做什麼樣的准備

我是VB小萊！
我來說說，VB除了自身函數，基本上都是在調用windows系統里的dll和exe中的api函數。編寫速內度是比較快,所以容VB確實門檻很低。
VB編寫效率高。運行性能卻低。適於快速編寫程序。
C編寫效率低。運行性能快，穩定。要完成一個作品需要花費較多的時間。
------------------------------------
收藏API函數,
收藏VB自帶的函數全。
收藏有用的函數調用實例
收藏VB小程序實例,
收藏VB皮膚及控制項.
收藏自已的萊鳥作品。
把以上收藏都分類一下。在學習的過程中有一定的用處。
至於"VB需要比較牛X的英語（6級+）"= 放屁,
不過英語水平越好，當然更有利學習。
SQL語言讀寫語法沒多少句。收藏這些語句供參加就可以了。並不一定要都會
如果你有C++基礎就沒必要深入VB！換句話說，如果你有C++基礎，你就不會來這里問這個問題。

閱讀全文

vb小程序實例下載

與vb小程序實例下載相關的閱讀推薦