英语单词助记器！！！------41楼更新

win2009 · 发表于 2012-8-20 00:55

本帖最后由 win2009 于 2012-8-20 00:56 编辑

错误多，f 列数据出错，随机数不对

k1 = 999
k2 = 0
c.Value = Int(Rnd() * (k1 - k2 + 1)) + k2

ctp_119 · 发表于 2012-8-20 07:15

xsy我可以很好发表于 2012-8-19 23:12
就是在一个文本框里面输入英文或者中文就可以在列表框里面显示模糊查询后的结果

好的，这个功能没有问题，后续一定补上，谢谢你提的好建议。。。

ctp_119 · 发表于 2012-8-20 07:18

win2009 发表于 2012-8-20 00:55
错误多，f 列数据出错，随机数不对

k1 = 999

你发现的比我更新的还快，谢谢你对我弄的东西这么认真，好的，现在就补上。本来想有些大的动作，一起补上的。你这么用心，我只好现在就补上。。。

ctp_119 · 发表于 2012-8-20 07:28

本次更新，做了一些修改，第一，在随机过程中，添加了一条语句，使其真正随机。第二，在命令按钮三（即下一条）bug做了修改。杜绝错误的发生。。。在此非常感谢win2009。
后面还会更新，，，希望大家多给我意见和建议。。。

ctp_119 · 发表于 2012-8-20 07:36

AVEL 发表于 2012-8-18 17:25
随机排序的可以参考香川群子的帖子
搜索她的主题就好。

AV监察，你好，通过你的推荐，我去学习了，并试着用上，发现还没有我原来的快，我测试了10000多条数据。发现速度相差很大。

Option Base 1
Sub 随机()
t = Timer
Randomize
s = Sheets("单词表").[b65536].End(xlUp).Row
Set d = CreateObject("Scripting.Dictionary")
Dim i As Long
Do
i = Int((s * Rnd) + 1)
d(i) = ""
If d.Count = s Then Exit Do
Loop
Sheets("单词表").Range("A1:A" & s) = Application.WorksheetFunction.Transpose(d.Keys)
t = Timer - t
'MsgBox "耗时" & t
End Sub
Sub shuzusj()
Dim arr()
Dim i As Long
Dim r As Long, linshi As Long
t = Timer
Randomize
s = Sheets("单词表").[b65536].End(xlUp).Row
ReDim arr(s)
For j = 1 To s
arr(j) = j
Next j
For i = 1 To s
r = Int(Rnd() * (s - i + 1) + i)
linshi = arr(r)
arr(r) = arr(i)
arr(i) = linshi
Next
Sheets("单词表").Range("A1:A" & s) = Application.WorksheetFunction.Transpose(arr)
t = Timer - t
'MsgBox "耗时" & t
End Sub

复制代码

香川群子是在既有数组的条件下打乱取随机数，我是在没有的情况下自动生成一个区间范围内的随机数。不过我还是长进了，，，呵呵，谢谢！！

AVEL · 发表于 2012-8-20 08:11

ctp_119 发表于 2012-8-20 07:36
AV监察，你好，通过你的推荐，我去学习了，并试着用上，发现还没有我原来的快，我测试了10000多条数据。发 ...

我A1:A10000 随机数值填充然后测试结果跟你说的不一样啊
明显是后者的速度快很多。

eddie_cooler · 发表于 2012-8-20 08:12

写的真不错。敢问是哪个属性让用户输入的时候label17进入隐藏状态的？

ctp_119 · 发表于 2012-8-20 08:15

AVEL 发表于 2012-8-20 08:11
我A1:A10000 随机数值填充然后测试结果跟你说的不一样啊
明显是后者的速度快很多。

第一，是用我上面的程序测试的吗？
第二，我分析了一下原因，关键是
25.For j = 1 To s
26. arr(j) = j
27.Next j
给数组赋值耽误了很多时间。。。

ctp_119 · 发表于 2012-8-20 08:19

eddie_cooler 发表于 2012-8-20 08:12
写的真不错。敢问是哪个属性让用户输入的时候label17进入隐藏状态的？

谢谢你的关注，不是那个属性，是过程控制的，我用了文本框的改变事件来控制的，本想用文本框的按键事件的，试了一下没有达到我预期的效果就改了事件了，，呵呵，，，我编程都是摸着石头过河的。。。水平有限！！！

AVEL · 发表于 2012-8-20 08:22

ctp_119 发表于 2012-8-20 08:15
第一，是用我上面的程序测试的吗？
第二，我分析了一下原因，关键是
25.For j = 1 To s

用你写的测试的
应该不是循环耗时间。
我这里测试是后者速度快。
先睡觉了，明天继续。

		自动登录	找回密码
密码			免费注册

[原创] 英语单词助记器！！！------41楼更新