vb小软件 简单的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实用小软件，要好看...........也可以做一个小学生用的小软件

用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

用vb做的小软件有哪些

只要你想，基本可以做到，VB处理数据库是比较好的，坏的影响，如图片，音乐，视频。

VB实用的可具体做哪些小软件？最好有实例

可做小游戏类：五子棋、华容道、中国象棋、推箱子……

可做课件：演示物体运动、进行某种谋算，

实用小工具：练习打字的软件、比赛用的计时器、抽号器……

我开发过通用数据库管理程序。

可以用vb操作EXcel，进行统计，从而做成统计工具，适合工厂车间用

对实验数据进行统计

可直观演示动态数据，做成演示板，如气温、温度、耐压、损耗……

创意无限，愿对您 有所帮助

张志晨

想用vb做一个小软件

就是个普通的写文件操作！

Dimfilename$
filename=App.Path&"\123.txt"
'打开文件追加方式，没有的话新建
OpenfilenameForAppendAs#1
'往文件里写入一行数据
Print#1,"abc:"&"从控件里获取的数据"
'关闭文件
Close#1
可以再具体一点吗，
我从来没做过这个哦
vb小软件设计
1.你开个服务器挂着，客户使用前到服务器验证注册。
2.找个每台电脑独有的特征码，加密后做为注册码发给用户，这样就只能在本机使用。特征码可以取硬盘序列号、网卡MAC……
vb小软件问题
Dim a(1 To 30) As Integer '定义数组，这个月收入
Private Sub Command1_Click()
For i = Val(Text1.Text) To Val(Text2.Text)  'text1中输入起始天，text2中输入结束天
Sum = Sum + a(i)  '累加
Next
Text3.Text = Sum
End Sub
Private Sub Form_Load()
a(1) = 10  '第一天收入10
a(2) = 20  '第二天收入20
a(3) = 15
a(4) = 50
a(5) = 100
a(6) = 40
a(7) = 120
'..........................
End Sub
有时候会有很大的数字出现。Integer可以么？
Dim a(1 To 30) As Long
介绍一个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
转载请注明出处51数据库 » vb小软件 简单的vb小程序