《qtp-vbscript编程练习》由会员分享，可在线阅读，更多相关《qtp-vbscript编程练习（24页珍藏版）》请在金锄头文库上搜索。
1、QTP编程练习1. 请编写一个程序，要求输入一个字符串，默认输 入为”hello, world!”,然后打印显示此字符串，请 注意要有必要的注释。1）函数 InputBox()：在对话框中显示提示，等待用户输入文本或单击按钮，并返回文 本框内容。InputBox(prompt, title, default, xpos, ypos, helpfile, context)Input = InputBox(“输入一个字符串：“, “,“hello, world)（2）输出print 与MsgBox 区别：Msgbox ：是属于模式型窗口，暂停执行当前脚本,直到点击“确认” 才能执行当前脚本。 （人
2、必须确认）Print: 是属于非模式窗口，打印的东西会输入到QTP自带的一个文本 里，并可以清除ClearAll. 当前脚本会执行直到完。（也就是说人可以不管 它）2.请编写一个程序，计算从1到10连加的和，并显 示结果。应用一个For循环。PS：Dim a(11) 网查骨灰级写法 Execute(Join(a,“s=s+i:i=i+1:“) MsgBox “1到10的连加和为 “ & s & “。“Execute()函数： 执行一个或多个指定的语句。 Join()函数： 返回一个字符串，此字符串由包含 在数组中的许多子字符串联接创建。 Scripting 运行库的Count 属性 返回一个集
3、合或 Dictionary 对象包含的项目数。只读。 object.Count例子： Function ShowKeys Dim a, d, i, s 创建一些变量。 Set d = CreateObject(“Scripting.Dictionary“)d.Add “a“, “Athens“ 添加一些键和项目。d.Add “b“, “Belgrade“d.Add “c“, “Cairo“ a = d.Keys 获取键。For i = 0 To d.Count -1 重复数组。s = s & a(i) & “ 创建返回字符串。Next ShowKeys = sEnd Function3.请先声
4、明三个字符串变量，并分别赋值为 ”come”, “on”, “Olympic”，然后打印显示 “come on , Olympic!”.(请注意在打印显示的时 候一定要用到定义的变量)（1）vbscript是弱变量类型语言，VBS对于类型要求不严 格,就是任意类型的,不需要声明类型。 dim str str=“ 这样str就是字符串型了2. 常用函数Cstr(expression) 函数转化一个表达式为字符串函数描述Asc把字符串中的首字母转换为 ANSI 字符代码。CBool把表达式转换为 布尔类型。CByte把表达式转换为 字节（Byte）类型。CCur把表达式转换为货币 （Currenc
5、y）类型。CDate把有效的日期和时间 表达式转换为 日期（Date）类型。CDbl把表达式转换为 双精度（Double）类型。Chr把指定的 ANSI 字符代码转换为 字符。CInt把表达式转换为 整数（Integer）类型。CLng把表达式转换为长 整形（Long）类型。CSng把表达式转换为单 精度（Single）类型。CStr把表达式转换为 子类型 String 的 variant 。Hex返回指定数字的十六进制值。Oct返回指定数字的八进制值。Conversion 函数3.字符串string的处理函数比如Trim函数描述InStr返回字符串在另一字符串中首次出现的位置。检索从字符串的
6、第一个字符开始。InStrRev返回字符串在另一字符串中首次出现的位置。检索从字符串的最末字符开始。LCase把指定字符串转换为 小写。Left从字符串的左侧返回指定数目的字符。Len返回字符串中的字符数目。LTrim删除字符串左侧的空格。RTrim删除字符串右侧的空格。Trim删除字符串左侧和右侧的空格。Mid从字符串返回指定数目的字符。Replace使用另外一个字符串替换字符串的指定部分指定的次数。Right返回从字符串右侧开始指定数目的字符。Space返回由指定数目的空格组成的字符串。StrComp比较两个字符串，返回代表比较结果的一个值。String返回包含指定长度的重复字符的字符串。
7、StrReverse反转字符串。UCase把指定的字符串转换为 大写。4. 先声明一个一维动态数组，然后将其数组元素个数确定为10， 并将整数1到10依次赋值个数组的各个元素，然后打印显示数组的 第五个元素。1) 应用一个常用数组函数Array(arglist)arglist或为参数，或为元素值。 A = Array(10,20,30) A(2)？2)申明动态数组 ：数组随时可以变化如： a()a(10)a(5,6)dim 定义数组长度 redim 重新定义数组长度, 会使原有的数据全部消失 Preserve 关键字用于指示在重定义时保持原来数组的值，如果 不加，重定义后值没了，需要重新初始化
8、。其它操作数组函数：Filter(数组名称,关键字符串,包含,比较方法)： 将字符串数组中含有关键字符串的元素存成新的数组（默认） 包含为false则 取不包含的元素 Join(ArrayName)：将数组中元素连成字符串，返回字符串值元素由指定的分 隔符分隔开来。 Ubound(ArrayName,维数)：取得数组相应维数的上界 Lbound(ArrayName,维数)：取得数组相应维数的下界 一般为0 IsArray(varname) 函数。返回 Boolean 值指明某变量是否为数组。5.编写一个函数，用来确定考试成绩的等级，具体功能如下：先 请求输入一个考试成绩，然后根据判断确定其等级
9、并输出成绩和 等级（大于等于90分的为优，大于等于80小于90的为良，大于 等于70小于80为中，大于等于60小于70为及格，小于60为不及 格）。1) 常用函数InputBox()。略。 2)循环语句 if 条件 thenelseifelseifelse.3)自定义函数function grade(score)End function调用函数： Call grade(score)Sub与Function的区别： Sub test() . End SubFunction test (a,b) End Function1) Sub是过程,Function是函数2) Function 过程可以返回
10、值；Sub 过程不返回值。3)Function 调用：Temp = test(a,b)call test(a, b)4）Sub可以使用 Call 语句；也可以不使用。 Call test(a, b) test a, b函数参数传递方式1. 一种是按地址传递ByRef：调用函数时，不直接把实参的值“告诉”函数，而是把地址“告诉”它， 函数根据这个地址来寻找并处理值，如果函数修改了这个值，也就修改了这个 地址对应的值。当一个参数以传址的方式传递时，在调用的过程中变量的值可以被改变， 这个改变在调用过程结束之后仍然持续。2. 一种是按值传递ByVal ：把值复制一份再给函数，这个值只属于函数，函数对
11、这个值的修改不影响原 值。当一个参数以传值的方式传递时，在调用的过程中对变量值的任何改变都不会 在调用过程结束之后持续。注意： 在一个 Sub 或者 Function 声明中，每一个参数都可以指定为 ByRef 或者 ByVal。如果两者都没有指定，默认为地址传递 ByRef6.编写一个函数，将1001到1050（50串数字）读入text文件。每串数字占一 行。要求新的数字追加进txt文档（如文档已有几行），不是覆盖。1)对象常用FileSystemObjectSet f = CreateObject(“Scripting.FileSystemObject“) 文件的操作：(1).创建文件夹
12、f.CreateFolder(“C:test)(2). 检察文件夹是否存在 f.FolderExists(“C:test.txt“)(3) 读取全部内容 objFSO.OpenTextFile (“c:testtest.txt“,8, True) 1是读， 2是写，8 是追加（4）自定义function printstr(a, b)(5) 回车换行符vbCr。 VBScript 中的回车换行符常数值值 描述 vbCr Chr(13) 回车车符。 vbCrLf Chr(13) & Chr(10) 回车符与换行符。 vbFormFeedChr(12) 换页 符；在 Microsoft Window
13、s 中不适 用。 vbLf Chr(10) 换行符。 vbNewLine Chr(13) & Chr(10) 或 Chr(10平台指定的新行字符；适用于任何平 台。 vbNullCharChr(0) ) 值为 0 的字符。 vbNullString 值为 0 的字符串 与零长度字符串 (“) 不同；用于 调用外部过程。 vbTabChr(9) 水平附签。 vbVerticalTabChr(11垂直附签；在 Microsoft Windows 中不 用。 Textstream的两个指针变量： 1）textstream对象的atendofstream属性 。当处于文件结尾的时候这个属性返回true
14、.我们可以用循环检测又没有到达文 件末尾。 例如： set fs =createobject(“scripting.filesystemobject”) set f=fs.getfile(“c:1.txt”,1,false) set ts=f.openastextstream(1,0) do while ts.atendofstreamtrue f.read(1) loop 2）atendofline属性,如果已经到了行末尾，这个属性返回true. Textstream对象还有两个有用的属性，line和column.和 在打开一个文件后，行 和列指针都被设置为1。 注意： 些两个属性只能应用于
15、打开用来读取的TextStream 文件；否则将产生错 误。7. 请编写一个程序，打印出当前日期的星期英文 名。比如今天2013/3/11,须打印出”MONDAY”1) 条件语句Select Casecase “周一”.End Select 2) 函数WeekDayName()返回一个字符串，表示星期中指定的某一天3) Weekday(now) 或着是Weekday(date)返回代表一星期中某天的整数，1，2，3，4，5，6，7MyWeekDay = WeekDayName(Weekday(now), True)时间函数： date：取系统当前日期 time：取系统当前时间 now：取系统当
16、前时间及日期值 Datetime类型 timer：取当前时间距离零点秒值，计时器，可计算时间差 DateAdd(间隔单位,间隔值,日期)：推算相邻日期 DateDiff(间隔单位,日期一,日期二)：计算时间差 日期二-日期一 Datepart(间隔单位,日期)：计算日期的间隔单位值 Dateserial(date)：输出日期值（按序列计算） Timeserial(time)：输出时间值（按序列计算） DateValue(datetime)：取出字符串中日期值 Timevalue(datetime)：取出字符串中时间值 weekday(date)：计算星期几 MonthName(date)：输出月分名 year(datetime)：截取年份 month(datetime)：截取月份 day(datetime)：截取日 hour(datetime)：截取小时 minute(datetime)：截取分钟 second(datetime)：截取秒
