求一个VB代码，要求，从100开始点一次减1到十发出信号，最后到0停止

vb计算代码，求三个数的和，求最大数减最小数~

本人没学过 只是编程爱好者 献丑了

问题1
Private Sub Command1_Click()
Text3 = ""
Dim A1 As Integer
Dim A2 As Integer
Dim A3 As Integer
A1 = Text2
A2 = 1 & Text2
A3 = 2 & Text2
AAAA = Split(Text1, " ")
For Each I In AAAA
Dim B1 As Integer
Dim B2 As Integer
Dim B3 As Integer
B1 = Left(I, 1)
B2 = Mid(I, 2, 1)
B3 = Mid(I, 3, 1)
Select Case B1 + B2 + B3
Case A1
Case A2
Case A3
Case Else
Text3 = Text3 & " " & I
End Select
Next
Text3 = Mid(Text3, 2, Len(Text3))
End Sub


问题2
Private Sub Command1_Click()
Text3 = ""
Dim A1 As Integer
A1 = Text2
AAAA = Split(Text1, " ")
For Each I In AAAA
Dim B1 As Integer
Dim B2 As Integer
Dim B3 As Integer
Dim B4 As Integer
Dim B5 As Integer
B1 = Left(I, 1)
B2 = Mid(I, 2, 1)
B3 = Mid(I, 3, 1)
B4 = B1
B5 = B1
If B2 > B4 Then B4 = B2
If B3 > B4 Then B4 = B3
If B2 < B5 Then B5 = B2
If B3 < B5 Then B5 = B3
If Not (B4 - B5 = A1) Then Text3 = Text3 & " " & I
Next
Text3 = Mid(Text3, 2, Len(Text3))
End Sub

在Visual Basic中，惊叹号“！”与圆点“．”都用于给对象命名，但两者语法上却存在很大的区别，这点在编程时尤其需要注意。
圆点操作符“．”用来表示对象的属性和方法，在引用时，需要用到对象的Name、圆点和需要的属性或方法。例如要引用文本框Textl中的文本属性时可用reponse＄＝Text1．Text，再如要改变Form1窗体返回或读取对象高度的单位时用Form1．ScaleHeigh＝2000表示。
感叹号“！”常用于当一个控件作为一个特性访问的情况下，例如引用Fomr2中Text1文本框文本属性时，可采用response＄＝Form2！text1．text语法格式。
虽然两者的语法应用结构有较大差异，但两条语句的性能是相同的，值得注意的是如果你在感叹号“！”的位置使用“．”可以获得对窗体上Text1特性的直接访问权，为了进一步增加感性认识，你不妨运行下面的例子来试试。mda.com
1．建立一个新项目，并在Form1窗体中增加一个命令控件。
2．双击Form1窗体，编辑Form－Load事件并输入：
Form1！Com�mand1．Caption＝”Text”
Form1．Command1．Caption＝”It Works”
3．运行试项目，这时你就会在Command1命令框中看到字符串It Works。
为了在程序中清楚地界定引用的控件名和该控件的属性或方法，增加程序的可读性，最好使用感叹号“！”，这也是VB的推荐方式。

Dim i As Long

Private Sub Form_Load()
i = 100
Me.Caption = "计数：" & i
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = i - 1
Me.Caption = "计数：" & i
'以下你可以自己设计需要发出的信号
If i <= 10 Then Me.Caption = Me.Caption & " 注意！！！！！！"
End Sub

Private Sub Command1_Click()
Cls
Command1.Caption = Command1.Caption - 1
If Command1.Caption = 0 Then Stop
Print IIf(Command1.Caption <= 10, Command1.Caption, "")
End Sub
Private Sub Form_Load()
Command1.Caption = 100
End Sub

Private Sub Command1_Click()
If Command1.Caption <> 0 Then
Command1.Caption = Command1.Caption - 1
If Command1.Caption = 10 Then MsgBox "10"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = 100
End Sub

---

求一个VB代码，要求，从100开始点一次减1到十发出信号，最后到0停止视频