Dim sum,expectpage,page,range,nonce_page
dim Contact,j,a,b,row , rowcount'sum，添加用户的总数，range，下拉框的数字，page页数,expectpage预期的页数
sum = inputbox("请输入你想加入联系人的个数：")
For Contact=1 to sum
Browser("index").Page("index").Link("新增联系人").Click
Browser("index").Page("index_2").WebEdit("lastName").Set Contact
Browser("index").Page("index_2").WebEdit("firstName").Set Contact
Browser("index").Page("index_2").WebEdit("otherMobNumber").Set Contact
Browser("index").Page("index_2").WebEdit("homeTelNumber").Set Contact
Browser("index").Page("index_2").WebEdit("bizTelNumber").Set Contact
Browser("index").Page("index_2").WebButton("新增联系人").Click
Next ' 添加用户的操作
For j=0 to 4
Browser("index").Page("index_3").WebList("pageRange").Select(j)
If j=0 Then
range=10
elseif j=1 then
range=20
elseif j=2 then
range=50
elseif j=3 then
range=100
else
range=200 '以上是 取值（每页显示的预期条数）
End If
'msgbox "每页显示的纪录数"&s ' 显示预期每页的记录数
If sum mod range = 0 Then
expectpage=sum/range
else
expectpage=cint(sum\range)+1
' msgbox m&"预期的总页数" ' 显示期望的页数
End If
b=sum mod range
'msgbox b&"最后一页显示的记录数"
For a=0 to expectpage-1
Browser("index").Page("index").WebList("combobox").Select(a) ' 翻页的操作
nonce_page=a+1
' msgbox nonce_page
' msgbox a+1 &"当前的页数" '当前的页数
row = Browser("index").Page("index_4").WebTable("姓").RowCount ' 取页面联系人记录的行数
rowcount = cint(row)-1 ' 实际的记录数
'msgbox con '显示当前页的记录数
page=Browser("index").Page("index_3").WebList("combobox").GetROProperty("items count")'取实际的总页数
' msgbox n&"当前的总页数" '显示实际的总页数
If a=expectpage-1 Then
range=b
End If
If expectpage=page Then
Reporter.ReportEvent micPass,"实际的分页数"&page&"预期分页数"&expectpage,"第"&nonce_page&"分页数通过"
else
reporter.ReportEvent micFail,"实际的分页数"&page&"预期分页数"&expectpage,"第"&nonce_page&"分页数不通过"
End If
If rowcount=cint( range) or rowcount=b Then
reporter.ReportEvent micPass,"实际行数"&rowcount&"预期行数"& range ,"列表"&range&"每页"&"行数通过"
else
reporter.ReportEvent micFail,"实际行数"&rowcount&"预期行数"& range ,"列表"&range&"每页"&"行数不通过"
End If
Next
Next作者: machao514 时间: 2008-3-24 20:33
没看到需求和用例，很难明白lz的思路；作者: walker1020 时间: 2008-3-24 20:57
不明白楼主写这段代码的目的是什么。单就代码的质量来说，总的来说还可以，但编程能力尚需提高：
1， 注释最好是要写在一段代码的前面，这样方便别人理解你写的那段代码的目的；
2，下面的这段代码太繁琐，都形成If嵌套了。这样既不便于别人理解，也不方便以后的维护。强烈建议你使用 Select Case语句去改写一下
If j=0 Then
range=10
elseif j=1 then
range=20
elseif j=2 then
range=50
elseif j=3 then
range=100
else
range=200 '以上是 取值（每页显示的预期条数）
End If