当前位置：首页 » 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小程序实例下载相关的阅读推荐