告别QTP板块，临走吐点心血送给大家（知识是共享和堆积的，不是卖钱的，完全免费）

cyrusmm · 发表于 2008-1-29 14:53:30

谢谢楼主啊！
真的是好东西！

zycdele · 发表于 2008-1-29 15:25:58

谢谢！学习中

lvxdoo · 发表于 2008-1-29 17:16:58

要顶的，很不错，谢谢lz

zgp_roby · 发表于 2008-1-29 17:34:47

类似的函数库也写了很多。LZ奉献的先收下了，哪一天正好调用，就节约俺们的工夫了。
同LS，LSS....对LZ表示感谢！

lf0026 · 发表于 2008-1-29 18:03:01

楼主啊啥话都不说了以后记得回来瞄瞄就好
祝福你

mickey-311 · 发表于 2008-1-29 18:12:41

一个苹果换一个苹果，每个人只有一个苹果
一份知识换一份知识，每个人将有两份知识

不错，非常感谢搂主，希望大家在这里可以更好的分享测试精华，谢谢！

tdj602 · 发表于 2008-1-29 19:42:58

谢谢以后常回家看看,

zhan_gqian · 发表于 2008-1-29 23:47:06

LZ的无私值得我们所有人学习！
希望能在这里看到越来越多测试的知识和精华，让我们团结一致，为测试事业贡献自己的力量！

eightants · 发表于 2008-1-30 04:11:39

Thanks a lot!

BenjaminCheung · 发表于 2008-1-30 14:00:33

谢谢楼主。51测试网请你当版主真好。

karolin · 发表于 2008-1-30 23:52:51

真心感谢楼主1

fyf1871 · 发表于 2008-1-31 09:52:22

支持开源~~支持免费！！！

kanebluba · 发表于 2008-1-31 10:10:01

Dim MyValue As Integer, temp As Integer, temp1 As Integer, toNum As Integer, fromNum As Integer, step As Integer, sign As Integer

Private Sub Form_Activate()
fromNum = InputBox("输入起始数")

            toNum = InputBox("输入结束数")
               step = InputBox("输入间隔")


            If (fromNum < 0 Or toNum < 0) Then
            MsgBox ("不能小于0")
            sign = 1
            Else

               temp1 = toNum - fromNum
               If (temp1 < 0) Then
               MsgBox ("起始数小于结束数")
               sign = 1
               Else
               If (temp1 <= 10) Then

                  Randomize
                  MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
            Print MyValue
                     sign = 1
                  Else




                  If (temp1 >= 10) Then


               temp = (toNum - fromNum) / step - 1
               End If
               End If
               End If
            End If


               For i = 1 To temp
      Randomize
      MyValue = Int(step * Rnd) + fromNum
            fromNum = fromNum + 8
               Print MyValue

            Next i

               '补最后一次
               If (sign = 0) Then
            Randomize
      MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
      Print MyValue

            End If

End Sub

是LZ的同学,看到他写了,帮他再完善一下吧,这个是随机函数的另一个版本.
它可以做到根据你想要随机的范围和密度进行调节,有兴趣的人可以自己试试.

sunqiang1024 · 发表于 2008-1-31 10:11:07

谢谢楼主的无私奉献啊，楼主的帖子给使用QTP的同僚一个莫大的帮助啊，向你致敬！

yuandjing · 发表于 2008-1-31 10:40:25

原帖由 kanebluba 于 2008-1-31 10:10 发表
Dim MyValue As Integer, temp As Integer, temp1 As Integer, toNum As Integer, fromNum As Integer, step As Integer, sign As Integer

Private Sub Form_Activate()
fromNum = InputBox("输入起始数")
...

呵呵，小朱来了我顶你一下
估计你以前是用标准VB或者VBA的吧，QTP用VBS的，所以代码调不通，我改了一下，但是没测试过你的代码，不知道功能是不是实现，以下你的代码可以调的通：

'Dim MyValue As Integer, temp As Integer, temp1 As Integer, toNum As Integer, fromNum As Integer, step As Integer, sign As Integer

Private Sub Form_Activate()
fromNum = InputBox("输入起始数")

            toNum = InputBox("输入结束数")
               step = InputBox("输入间隔")


            If (fromNum < 0 Or toNum < 0) Then
            MsgBox ("不能小于0")
            sign = 1
            Else

               temp1 = toNum - fromNum
               If (temp1 < 0) Then
               MsgBox ("起始数小于结束数")
               sign = 1
               Else
               If (temp1 <= 10) Then

                  Randomize
                  MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
            Print MyValue
                     sign = 1
                  Else




                  If (temp1 >= 10) Then


               temp = (toNum - fromNum) / step - 1
               End If
               End If
               End If
            End If


               For i = 1 To temp
      Randomize
      MyValue = Int(step * Rnd) + fromNum
            fromNum = fromNum + 8
               Print MyValue

            Next

               '补最后一次
               If (sign = 0) Then
            Randomize
      MyValue = Int(((toNum - fromNum) * Rnd) + (fromNum))
      Print MyValue

            End If

End Sub

另外这样的话会更好：
1.定义变量最好在函数体里面的
2.代码要保持队形(锯齿形结构)
3.多余的空行最好删除，代码要容易阅读，可以参考一下林锐的《高质量C++编程》，我还是很推崇的，是关于代码规范的书，加油

[ 本帖最后由 yuandjing 于 2008-2-1 12:15 编辑 ]