在vb6.0中怎么让一个数字的最大值为60到达60后就归0，后继续增加。

VB6找数字的次数~

Function FindProc(r As Long, c As Long, Num As Integer) As String

Dim str As String
'' str = "6(135),278(54),5(3),3(1),0149(0),"
str = Cells(r, c).Value
Dim tmpGrp() As String
Dim tmpGrp2() As String
tmpGrp = Split(str, ",")
Dim i, j As Long
For j = 0 To UBound(tmpGrp)
tmpGrp2 = Split(tmpGrp(j), "(")
If InStr(tmpGrp2(0), CStr(Num)) > 0 Then
'tmpGrp2(0)存的即为“(”前面的数字
'找到了
FindProc = tmpGrp(j)
Exit For
End If
Next j

End Function

如果只是统计那么就下面的代码

Private Sub Command1_Click()
Dim s As String
Dim p(0 To 9, 0 To 1) As Integer
Dim i As Integer, j As Integer, t As Integer, x As Integer
s = "1112222333334444455555"
For i = 0 To 9
p(i, 1) = i
Next i
For i = 1 To Len(s)
j = Val(Mid(s, i, 1))
p(j, 0) = p(j, 0) + 1
Next i
For j = 0 To 9
For i = 0 To 9
If p(j, 0) > p(i, 0) Then
t = p(j, 0): p(j, 0) = p(i, 0): p(i, 0) = t
t = p(j, 1): p(j, 1) = p(i, 1): p(i, 1) = t
End If
Next i
Next j
For i = 0 To 9
Text1(i).Text = p(i, 1) & "出现" & p(i, 0) & "次"
Next i
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To 9
Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + 300
Text1(i).Visible = True
Next i
End Sub

创建一个text1的文本框对象，然后设置index 属性为0

向窗体上添加一个文本框Text1，将其文本清空，再添加一个定时器Timer1，设置Timer1的Interval属性为1000，然后在定时器的Timer事件过程中编写以下代码：
Text1.Text = (Val(Text1.Text) + 1) Mod 61
这样文本框的的内容就会每隔1秒变化一个值。到60后自动回0

'拉一个textbox，一个timer，复制以下代码：
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Second(Time)
End Sub

---

乾县17533013238： vb 如何多个数比较大小 - ？
招终泰瑞： 举个例子:比较a,b,c,d四个数字的大小,取Xmin=最小的数字.例如:1,2,3,4,则Xmin=1;如果1,2,0,3,则Xmin=1,全为0时,Xmin=0新建一个工程 上面建成一个text1再复制三个,生成了个控件数据 再搞一按钮,复制下面的代码就可以了,...

乾县17533013238： 菜鸟急求vb6.0对access数据库操作中取出某表某列最大值的代码 - ？
招终泰瑞： 在点击一号文本框的适合触发事件,然后写处理程序就可以了,你不会连代码也不会写吧?select cast(when max(字段) is null then 0 else max(字段) end)as 字段 from 表 这样查出来就是最大值了,如果没有的话就会是0

乾县17533013238： vb6.0编程程序可实现:“随机产生n个1——100(包括1和100)的数,并求出它们的最大值？
招终泰瑞： Private Sub Form_Click()Dim n As Integer, i As Integer, max As Integer, min As Integer, sum As Integer, t As Integern = Int(InputBox(＂请输入n＂))sum = 0RandomizeFor i = 1 To nt = Int(Rnd * 100) + 1Print tIf i > 1 ThenIf max < t Then max ...

乾县17533013238： VB6.0题目:点击按钮,从键盘上任意输入8个数,显示其中最大值跟最小值 - ？
招终泰瑞： 将数据也声明为数值型,这样可以防止按ASCII进行比较,如 Dim pw(8) As Single, i As Single

乾县17533013238： VB6.0中如何控制从键盘输入TEXTBOX中数据的类型和长度. - ？
招终泰瑞： 输入日期可以用maskedit控件.大于等于0小于等于100的数字,这个应该是要在textbox的change事件里对内容进行检查,即每次键入都对内容检查一次.另外,控制textbox的最大长度可用textbox.maxlength属性

乾县17533013238： vb6.0如何让slider从右到左增大 - ？
招终泰瑞： 自右向左移,最大值为100,最小值为0,添加时间控件可以从右到左移动,但不是增大,是移动.12345678910 PrivateSubForm_Load() Slider1.Value = 100 '设置初始在最右边 Timer1.Enabled = True Timer1.Interval = 1000 EndSub PrivateSubTimer1_Timer() IfSlider1.Value = 0 ThenSlider1.Value = 100 Slider1.Value = Slider1.Value - 5 '每一秒向左移动5格,其他你自己可以设置 EndSub

乾县17533013238： 在VB6.0中,随机文件一条记录的长度最大是不是为100,不能再长了??? - ？
招终泰瑞： 记录长度是通过前面声明的Type类型获取.长度并不固定,可以超过100. 可用Len直接获取Type类型数据长度.

乾县17533013238： 在vb6.0中怎么把一个输入的数据和另一个输入的数据比较啊 - ？
招终泰瑞： 先新建一个模块,在其中声明公共变量 例如:public a as ...public b as ...然后直接在窗体中 a=＂第一次＂ b=＂第二次＂ if a=b then ....

乾县17533013238： VB6里面如何生成一个随机的0到100的整数? - ？
招终泰瑞： 你们说的不对,在VB6中要产生区间[0,100]内的整数,应该是这样:Randomize n=Int(Rnd*101)放心,我自己测试过了,没问题,实践是检验真理的唯一标准,哈哈!

乾县17533013238： VB 6.0 控件？
招终泰瑞： 就是一个最大值和当前值,让当前值不断变化,就会让这个进度条的进度发生变化的 Max 最大值,默认是100 Value 当前值,默认是0 如果要做一个有意义的进度条,比如写一个循环 通常Max是循环的总次数 每循环一次,就会让Value+1, 这样当循环结果时,进度条刚好滚完, 如果做一个时间形式的自己在那里滚,就是用一个timer 把Max设置为59 每过一秒,把Value设置为当前时间的秒 这样就可以让它滚完一遍又从0开始来, 永远都没到头一样,有时写一些加载过程时,由于时间无法计算时,就是这样做的,为了让用户感觉程序没有死