通用型哈希表HashTableT

.版本 2

.子程序 _按钮1_被单击
.局部变量 hHash, 整数型
.局部变量 i, 整数型
.局部变量 t, 整数型
.局部变量 t2, 整数型

t ＝ 取启动时间 ()
hHash ＝ HashTableT_Create (#文本型, #整数型)
.计次循环首 (100000, i)
    HashTableT_Put (hHash, 到文本 (i), 到整数 (i))
.计次循环尾 ()
t ＝ 取启动时间 () － t

t2 ＝ 取启动时间 ()
.计次循环首 (100000, i)
    HashTableT_Get (hHash, 到文本 (i))
.计次循环尾 ()
信息框 (“10万次存耗时：” ＋ 到文本 (t) ＋ #换行符 ＋ “10万次取耗时：” ＋ 到文本 (取启动时间 () － t2) ＋ #换行符 ＋ “取555的值试试：” ＋ 到文本 (HashTableT_Get (hHash, 到文本 (555))), 0, )
HashTableT_Destory (hHash)

.子程序 _按钮2_被单击
.局部变量 哈希表, 哈希表T
.局部变量 i, 整数型
.局部变量 t, 整数型
.局部变量 keys, 文本型, , "0"
.局部变量 values, 整数型, , "0"
.局部变量 count, 整数型

t ＝ 取启动时间 ()
哈希表.创建 (#文本型, #整数型)
.计次循环首 (100000, i)
    哈希表.添加 (到文本 (i), 到整数 (i × 2))
.计次循环尾 ()
count ＝ 哈希表.取数量 ()
.计次循环首 (count, i)
    哈希表.取值 (到文本 (i))
.计次循环尾 ()
count ＝ 哈希表.取所有键 (keys)
count ＝ 哈希表.取所有值 (values)
信息框 (“添加、取值、取所有键 和 取所有值 总耗时：” ＋ 到文本 (取启动时间 () － t), 0, , )