VB编写小程序

如何使用VB编写一个简单的小程序~

Dim sec, min, h

Private Sub Command1_Click()
Timer1.Enabled = True
h = Text1.Text
min = Text2.Text
sec = Text3.Text
Timer2.Enabled = False
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Form1.BackColor = &HFFFF00
Timer1.Enabled = False
Timer1.Interval = 1000
Timer2.Enabled = True
Timer2.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
Label6.Caption = Now
End Sub

Private Sub Timer2_Timer()
Label6.Caption = Now
End Sub

添加一1个label，一个command,一个text即可，可循环修改密码

Dim a As StringPrivate Sub Command1_Click()If Command1.Caption = "确认" Then If Text1 = a Then Call nex Else MsgBox "密码错误！", vbExclamation, "信息" Text1 = "" Text1.SetFocus End IfElseIf Command1.Caption = "修改" Then Call xgEnd IfEnd SubSub nex()Label1.Caption = "新密码："Text1.Text = ""Text1.SetFocusCommand1.Caption = "修改"End SubPrivate Sub Form_Load()Me.Caption = "密码修改"Text1 = ""Text1.PasswordChar = "*"Text1.ToolTipText = "默认密码：admin"Label1.Caption = "原密码："Command1.Caption = "确认"Call miEnd SubSub mi()If Dir(App.Path + "\mm") "" Then Open App.Path + "\mm" For Input As #1 Input #1, a Close #1End If If a = "" Then a = "admin"End SubSub xg()Open App.Path + "\mm" For Output As #1 Print #1, Text1.TextClose #1a = Text1MsgBox "密码修改成功！", vbInformation, "提示"Text1 = ""Text1.SetFocusCommand1.Caption = "确认"Label1.Caption = "原密码："End Sub

代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))
b = InputBox("请输入第二个数")
c = InputBox("请输入第三个数")
d = InputBox("请输入第四个数")
sum = a + b + c + d
aver = sum / 4
Print "所输入的4个数字分别是"; a, b, c, d
Print "4个数字的和为"; sum
Print "4个数字的平均值为"; averEnd Sub VB6.0下调试通过。

优化了楼上的，计算100个都没问题，只要改下b的判断就可以Private Sub Form_Click()
Dim a, b, sum, aver As Long
Dim c As String
sum = 0
b = 1
Do While b <> 5 '你要要得数-1
a = Val(InputBox("请输入第" & b & "个数"))
c = c & "," & a
sum = sum + a
aver = sum / 4
b = b + 1
Loop
Print "所输入的" & b - 1 & "个数字分别是"; c
Print b - 1&; " 个数字的和为"; sum; ""
Print b - 1 & "个数字的平均值为"; aver
End Sub

a: InputBox ("请输入第一个数")
这里。a的赋值应该是a=InputBox ("请输入第一个数")其他类似

---

VB编写小程序视频