vb好玩软件 vb有趣小程序
- 作者: 隔壁的小马
- 来源: 51数据库
- 2020-04-21
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编程有什么好玩的
声明：只要是编程软件就没有编不出来的东西。关键在程序员是否有那个能力。如果你说为什么C类语言这个强大、适用范围这么广。那么我可以告诉你，VB也很强大，C做得到的VB同样可以做到。只是在有些操作上没有C那么方便，所以不如C。因此你说VB可以做什么好玩的程序，明显不适合。但是如果你非要这样问，那么我的回答是：什么都可以。而且人们常用它做些小项目以及外挂。好玩的小游戏都可以做。（打游戏也可以做，只是不适合）
介绍一个VB小的有趣的程序代码
'万花筒程序
'粘贴下面代码即可,不用添加任何控件
PrivateWithEventsTimer1AsTimer
Dimr&,r1&,t&,a1!,a2!,xb!,yb!,s!,b#
PrivateSubForm_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的万花筒"
SetTimer1=Controls.Add("vb.timer","Timer1")
Timer1.Interval=10
EndSub
PrivateSubTimer1_Timer()
Randomize
r=340*Rnd
Ifr<>0Then
r1=500
s=r*Rnd
b=RGB(256*Rnd,256*Rnd,256*Rnd)
Fort=1To10000
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
Nextt
EndIf
EndSub
参考资料：http://hi.baidu.com/cbm666/blog/item/01aa8bd4ec770900a08bb722.html
vb用什么软件好
下160多M的完整版的企业版。对于现在的宽带网和动辄300多G的硬盘而言，160M简直是连小菜都算不上。精简版的只能临时救急用的，很多控件都没有的。
大家觉得VB这个软件怎么样？
非常好！！！
不过我认为这个软件更适合女孩子使用
帮我做一个VB实用小软件，要好看...........也可以做一个小学生用的小软件
用VB做倒计时，预设（可以修改）距离考试结束还有两个小时，有时分秒，有语音提示。
很容易！
建3个TEXT(分别显示时、分、秒)，1个定时器（设1秒），2个按钮（开始倒计时和退出）。
TEXT里分别写入预设的时间。如果是2小时，就分别写2、00、00。
定时器响应里：
秒-1，如果为负，置59，同时分钟位-1，....
类推。直至3个位都为0。
很简单的代码，时间到有语音提示等，不管你信不信，反正我测试通过了。
Dim sec, min, h
Private Sub Command1_Click()
Timer1.Enabled = True
h = Text1.Text
min = Text2.Text
sec = Text3.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Form1.BackColor = &HFFFF00
Timer1.Enabled = False
Timer1.Interval = 1000
Text1.Text = 2
Text2.Text = "00"
Text3.Text = "00"
Command2.Caption = "退出"
Command1.Caption = "开始倒计时"
End Sub
Private Sub Timer1_Timer()
If sec > 0 Then
sec = sec - 1
Else:
If (min > 0 Or h > 0) Then
sec = 59
End If
If min > 0 Then
min = min - 1
Else:
If h > 0 Then
min = 59
End If
If h > 0 Then
h = h - 1
Else: Timer1.Enabled = False
CreateObject("SAPI.SpVoice").Speak "GAME OVER!"
Form1.BackColor = &HFF
End If
End If
End If
Text1.Text = h
Text2.Text = min
Text3.Text = sec
End Sub
有比vb6更简单易学的软件吗
vf（visualfoxpro），可以用6.0版
我也在学
很简单，在各大书店都有买的哦！
我可以把文件发过来给你看
不过，我才小学6年级
做的很幼稚
提醒你：问题结束时间不多了！
除了VB可以做软件,还有什么可以做软件??????
任何编程开发工具都可以做软件。
转载请注明出处51数据库 » vb好玩软件 vb有趣小程序
