百一测评 - VBScript基础知识(4)

职业技能题库&在线云笔试平台http://www.101test.Com

Sum=0 Do While I<=99

Sum=Sum+I^2 I=I+2

Loop

Response.Write \%>

39. [编程]请编写函数计算a到b的立方和，并举例调用，调用时a、b分别为3和6。

参考答案：参见asptemptj/chapter3/Cute_sum.asp，并打开浏览器，在其中输入http://localhost/asptemptj/chapter3/ Cute_sum.asp即可访问，清单如下： 清单Cute_sum.asp 计算立方和

<% '下面是函数 Function lifanghe(a,b)

Dim Sum,I

第16页

职业技能题库&在线云笔试平台http://www.101test.Com

Sum=0 For I=a To b

Sum=Sum+I^3

Next lifanghe=Sum

End Function

'下面是主程序，用来调用 Dim S S=lifanghe(3,6)

Response.Write \立方和=\%>

40. [编程]请编写函数能够随机产生从a到b之间的整数，并举例调用。

参考答案：参见asptemptj/chapter3/Rnd_ab.asp，注意产生a到b之间随机整数的写法为：Int((b-a+1)*Rnd)+a，并打开浏览器，在其中输入http://localhost/asptemptj/chapter3/ Rnd_ab.asp即可访问，清单如下：

清单Rnd_ab Rnd_ab.asp 产生从a到b之间随机数

第17页

职业技能题库&在线云笔试平台http://www.101test.Com

'下面是主程序，用来调用 Dim S S=Rndab(3,10)

Response.Write \产生3到10之间的一个随机整数为\%> <% '下面是函数 Function Rndab(a,b)

Rndab=Int((b-a+1)*Rnd)+a

End Function

41. [编程]请结合示例3-13开发一个函数，使其能实现Join函数的功能。

参考答案：参见asptemptj/chapter3/Join.asp，并打开浏览器，在其中输入http://localhost/asptemptj/chapter3/Join.asp即可访问，清单如下： 清单Join Join.asp 构造Join函数

第18页

职业技能题库&在线云笔试平台http://www.101test.Com

<% Option Explicit

<%

'下面是将全部数组元素连接在一起的函数 Function join_string(S_temp)

Dim strSum,Item For Each Item in S_temp

'执行循环，取出每个元素

'强制声明变量%>

strSum=strSum& Item

Next

join_string=strSum

End Function

'下面是主程序，用来调用

Dim S(3) '定义一个数组 Dim Return_string S(0)=\S(1)=\S(2)=\S(3)=\

Return_string=join_string(S)

第19页

职业技能题库&在线云笔试平台http://www.101test.Com

Response.Write \全部数组元素连接成的字符串为\%>

42. [编程]请在示例3-14的基础上增加一段代码，从而可以计算所有数组元素的平方和。（提示：

请用嵌套循环）

参考答案：参见asptemptj/chapter3/Pingfanghe.asp，并打开浏览器，在其中输入http://localhost/asptemptj/chapter3/ Pingfanghe.asp即可访问，清单如下： 清单Pingfanghe Pingfanghe.asp 计算所有数组元素的平方和

<% Option Explicit

<%

'声明一个10行10列的二维数组

'I是外层循环计数器变量，J是内层循环计数器变量 '外层循环 '内层循环

'给每一个元素赋初值10 第20页

'强制声明变量%>

Dim intA(9,9),intSum Dim I,J

For I=0 To 9

For J=0 To 9

intA(I,J)=10

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库百一测评 - VBScript基础知识(4)在线全文阅读。