≈≈≈孤独漫步在都市的丛林中※
—→用冷静的头脑去思考问题…
个人形象
zhong药当饭恰!!! (
自我介绍
爷们谁都不相信,喝了太多的西北风了,也该喝喝西南风了,改变一下风向了.
状态
- 积分:10565分
- 魅力指数:100点
- 人气指数:2255点
- 留言评论:202条
相册
我的更新
| 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 |
| http://bbs.cio360.net/redirect.php?fid=90&tid=162014&goto=nextnewset |
| http://www.so138.com/sov/761ba0de-4dc8-461e-9971-e003dbd6b309.xhtml |
| http://space.fetion.com.cn/7439011/viewblog_1735428 |
| 相信大家一直想要找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 |
| http://zhuanti.club.it.sohu.com/user_webpage/webpages/commuser/web1_13497.html C语言函数学习 |
| #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; } |
| 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 |
| http://welcome.hp.com/country/cn/zh/prodserv/software.html |
| 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"德" |
-
-
2011-01-05 21:13佛兰山，崽崽好大了啊
-
-
2010-04-22 12:34也不来看看你的大人
-
2010-04-13 12:18来过。
