最新日记

老家图片收集
2010-11-04 11:36

http://hi.news.sina.com.cn/news/gaige30/tu_show.php?id=543

http://hi.news.sina.com.cn/news/gaige30/tu_show.php?id=666

QC培训视频
2010-10-08 10:12

http://bbs.cio360.net/redirect.php?fid=90&tid=162014&goto=nextnewset

2010-03-09的日记
2010-03-09 09:55

http://www.so138.com/sov/761ba0de-4dc8-461e-9971-e003dbd6b309.xhtml

民间53个不传之密.............不看后悔..
2009-07-09 13:58

http://space.fetion.com.cn/7439011/viewblog_1735428

HP Quality Center10.0英文版下载地址
2009-07-08 09:24

相信大家一直想要找QC10.0的下载地址，这是我从HP官方网站链接地址直接复制在迅雷地址上就可以下载，我之前已经注册用户登录。还有一点要注意QC10.0是运行在windows 2003 sp2环境上，windows xp 不能装。QC10.0没有中文语言选择都是英文。我在家里已经装上感觉还可以！第一次发帖希望能给有研究QC的专业人士带来新版本的下载麻烦，谢谢大家！



http://h30302.www3.hp.com/prdownloads/T7333-15006_1a.zip?ordernumber=380533746&itemid=1&downloadid

C语言函数学习
2008-10-21 10:22

http://zhuanti.club.it.sohu.com/user_webpage/webpages/commuser/web1_13497.html 
  C语言函数学习

2008-10-10的日记
2008-10-10 10:52

#include "web_api.h"

int SumFour(int a,int b,int c,int d) //自定义四个整型数字求和函数
{
  if ((a<100) || (a>9000) || (b<100) || (b>9000) || (c<100) || (c>9000) || (d<100) || (d>9000))
    { return -1; }
  else { return a+b+c+d; }
}
Action()
{
    int invaild[5]={-1,0,1,99,9001};     //不符合函数要求的数字集合
    int vaild[4]={100,101,8999,9000};     //符合函数要求的数字集合
    int expect[5]={400,404,35996,36000,18200};  //针对vaild数组的预期结果数组
    int i;                     //临时变量
    lr_output_message("SumFour函数要求四个参数均界于100和9000之间：");
    lr_output_message("第一组数据，不符合参数限制数据项，应返回-1:");
    for (i=0;i<=4;i++)
    {
      lr_output_message("%d: SumFour(%d,%d,%d,%d)=%d",i+1,invaild,invaild,invaild,
                          invaild,SumFour(invaild,invaild,invaild,invaild));
    };
    lr_output_message("6: SumFour(%d,%d,%d,%d)=%d",invaild[0],invaild[1],invaild[2],invaild[3],
                          SumFour(invaild[0],invaild[1],invaild[2],invaild[3]));
    lr_output_message("第二组数据，符合参数限制数据项，应返回期望值:");
    for (i=0;i<=3;i++)
    {
      lr_output_message("%d: SumFour(%d,%d,%d,%d)=%d 期望值为%d",i+1,vaild,vaild,vaild,
                          vaild,SumFour(vaild,vaild,vaild,vaild),expect);
    };     
    lr_output_message("5: SumFour(%d,%d,%d,%d)=%d 期望值为%d",vaild[0],vaild[1],vaild[2],vaild[3],
                      SumFour(vaild[0],vaild[1],vaild[2],vaild[3]),expect[4]);
return 0;
}

2008-07-24的日记
2008-07-24 21:23

Class class1

Function test()
dim a
dim response
while a<10
response=msgbox("是否继续提示",vbokcancel,"提示")
if response=vbok then
a=a+1
else
a=11
end if
wend
End Function

Function  test2()
dim var1
var1=inputbox("请输入一个值","输入",1)
Select case var1
Case "1" msgbox("你输入的是1")
case "2" msgbox("你输入的是2")
case "3" msgbox("你输入的是3")
case "4" msgbox("你输入的是4")
end select
End Function
End Class


Function test3
  Dim a
a=-2\-2
inputbox(a)
a=-2\2
inputbox(a)
a=2\-2
inputbox(a)

a=-3 mod -2
inputbox(a)
a=-3 mod 2
inputbox(a)
a=3 mod -2
inputbox(a)
End Function


Sub Button1_OnClick
  Dim TheForm
  Set TheForm = Document.ValidForm
  If IsNumeric(TheForm.Text1.Value) Then
    If TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 Then
      MsgBox "请输入一个 1 到 10 之间的数字。"
    Else
      MsgBox "谢谢。"
    End If
  Else
    MsgBox "请输入一个数字。"
  End If
End Sub
createfile
Sub Createfile
  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
  MyFile.WriteLine("这是一个测试。")
  MyFile.Close
End Sub

Function WriteLineToFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.WriteLine "嗨，你好!"
  f.WriteLine "VBScript 很有趣!"
Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  WriteLineToFile = f.ReadAll
End Function

2008-07-23的日记
2008-07-23 12:34

http://welcome.hp.com/country/cn/zh/prodserv/software.html

2008-07-21的日记
2008-07-21 21:32

Function isRegEquall(patm,strng)
set regex=New RegExp
regex.pattern=patm
regex.IgnoreCase=True
isRegEqual=regex.Test(strng)
End Function


Function  selectByText(objWeblists_text)
set obj_options=objweblist.object.options
obj_count=cbj_options.length
For i=0 to obj_count-1
if sRegEqual("^"&s_text,obj_options(i).text)Then
obj_options(i).selected=true
Exit for
end if
Next
End Function




'Browser("Google").Page("Google").Link("高级搜索").Click 24,6

set objweblist=Browser("Google高级搜索").Page("Google 高级搜索").WebList("lr")
wait(5)
selectByText objweblist"德"

共10篇日记