网络开发与维护-第三章.pptVIP

图3-45 网页浏览界面 3.7 任务3-6:“算术四则运算测试”程序——VBscript综合应用 （3）在body标记的上部，添加下列程序代码并保存。 script language=vbscript 定义全局变量 dim num1,num2 题目中的两个数 dim op 存放运算符：1为“+”，2为“-”，3为“×”，4为“÷” dim standard 存放标准答案 dim standardb 存放标准答案，“÷”运算的余数 dim answer 存放用户答案 dim answerb 存放用户答案，“÷”运算的余数 dim i 存放当前题目号 dim rightnum,wrongnum 存放答对的题数和答错的题数 /script 3.7 任务3-6:“算术四则运算测试”程序——VBscript综合应用 说明： 　　①该代码块中定义的变量均为全局变量，它们均定义在所有过程之外。在VBscript中变量的作用域可分成两种，分别是全局变量和局部变量。在过程外定义的变量，其作用范围是整个脚本，称为全局变量。而在过程内定义的变量，其作用范围只是该过程，称为局部变量。 　　②为了使编程有条理，一般情况下，可把全局变量集中定义在一起。 3.7 任务3-6:“算术四则运算测试”程序——VBscript综合应用 （4）在上述代码的下面，继续添加下列代码并保存。 script language=vbscript sub showquestion() dim t 交换用的中间变量 num1=10+int(90*rnd) 产生两个随机整数，用于运算 num2=10+int(90*rnd) op=1+int(4*rnd) 产生一个1~4之间的随机数，用来表示运算符 text3.value=:text4.value= 用户输入答案的文本框置空 if((op=4) or (op=2)) then 如果是“÷”号或“-”号 if num1num2 then t=num1:num1=num2:num2=t 如果前面的数小，则交换 end if if (op=4) then 如果是“÷”号 text4.disabled=false 使输入余数的文本框可以使用 else text4.disabled=true 如果是其它运算符，输入余数的文本框不可以用 end if text1.value=num1 显示第一个运算数 text2.value=num2 显示第二个运算数 select case op 判断运算符的种类 case 1 加法运算 lblop.value=+ 显示加号 standard=num1+num2 得到标准答案 case 2 lblop.value=- 显示减号 standard=num1-num2 得到标准答案 case 3 lblop.value=× 显示乘号 standard=num1*num2 得到标准答案 case 4 lblop.value=÷ 显示除号 standard=num1\num2 得到商的标准答案 standardb=num1 mod num2 得到余数的标准答案 end select text3.focus 把焦点移到text3上 end sub /script 3.7 任务3-6:“算术四则运算测试”程序——VBscript综合应用 说明： 　　①上述代码段定义了一个名为showquestion的通用过程。该过程的作用是产生运算数、运算符并显示题目。 　　　②代码行“text4.disabled=true”的作用是使text4文本框控件响应用户的操作。此处的disabled是一个