|
这个如何设置按停止后,重新随机抽取。
现在的情况是按了停止后,重新按,又是从同一个数据开始。
Sub StopClock()
rst = True
hh = 0: mm = 0: ss = 0
[A4] = Format(mm, "00") _
& ":" & Format(ss, "00")
Range("G5:G100").Clear
End Sub
Private Sub CommandButton4_Click()
Dim a As Integer
Dim s As String
Dim c As Integer
s = "AFAXALDZASADAOAIAGARAMAWAUATAZBSBHBDBBBYBEBZBJBMBTBOBABWBRIOBNBGBFBIKHCMCACVKYCFTDCLCNCXCCCOKMCDCGCKCRCIHRCUCWCYCZDKDJDMDOECEGSVGQEREEETEUXXFKFOFJFIFRGFPFGAGMGEDEGHGIGRGLGDGPGUGTGNGWGYHTHNHKHUISINIDIRIQIEIMILITJMJPJOKZKEKIKRKPKWKGLALVLBLSLRLYLILTLUMOMKMGMWMYMVMLMTMHMQMRMUYTMXFMMDMCMNMEMSMAMZMMNANRNPNLANNCNZNINENGNUNFMPNOOMPKPWPAPGPYPEPHPNPLPTPRQARERORURWSHKNLCPMVCWSSMSTSASNRSSCSLSGSKSISBSOZASSESLKSDSRSJSZSECHSYTWTJTZTHTLTGTKTOTBTTTNTRTMTCTVUGUAAEGBUSUMUYUZVUVAVEVNVGVIWFEHYEZMZW"
c = Len(s)
a = Int(((c / 2) * Rnd) + 1)
TextBox1.Text = Mid(s, 2 * (a - 1) + 1, 2)
End Sub
|
|