苏晴儿说我特别能干
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小程序
