摘要：
<script language="VBScript"><!-- Function Sum1_N(N,S) Dim total,i total = 0 For i = S To N Step 1 total = total + i Next Sum1_N = total End Function Dim Start, Number Start = InputBox("请输入初始值") Number = InputBox("请输入一个整数") MsgBox("由 "... 阅读全文
摘要：
全局变量：指变量不管在程序的哪个部分，包括在子程序之内，这个变量都是有效的。局部变量：指该变量只有在子程序里该变量才会有效，而跳出子程序后就会失效。示例：1. 全部变量<script language="VBScript"><!-- Dim A Test MsgBox("A 在外面的值为 " & A) Sub Test A = 10 Exit Sub MsgBox("我不会执行") End Sub //--></script>2. 局部变量<script language=" 阅读全文
摘要：
While ... Wend其实完全与 Do While ... Loop 一样的。条件成立时循环，否则跳出。示例：<script language="VBScript"><!-- Dim ans ans = InputBox("请输入谷歌的英文") While UCase(ans)<>"GOOGLE" msg = "错误！" & "请重新输入谷歌的英文" ans = InputBox(msg) Wend MsgBox("正确！")//- 阅读全文
摘要：
当结果为空时，程序的循环是如何来处理呢？以下为 Do ... Loop While和 Do ... Loop Until 两种循环式下的处理。示例1：<script language="VBScript"><!-- Dim ans Do ans = InputBox("请输入少于10的数字") If ans = "" Then Exit Do Loop While ans > 10 If ans <> "" Then MsgBox("正确！") Else Ms 阅读全文
摘要：
一、区别Do While ... Loop ：Do 的成立条件是 - 成立的（真）Do Until ... Loop : Do 的成立条件是 - 不成立的（假）二、示例1. Do While ... Loop<script language="VBScript"><!-- Dim ans ans = InputBox("请输入""快乐""的英文单词") Do While UCase(ans)<>"HAPPY" ans = InputBox("错误！&quo 阅读全文
摘要：
因为 For Each ... In 很少用，几年过去，现在再看回来，竟然是全忘了。其实，For Each ... In 是与 For ... Next一样的，只不过它是给数组循环专用而已，它有一个缺点，就是没有记数器。练习：<script language="VBScript"><!-- Dim score(3) score(0) = 90 score(1) = 80 score(2) = 70 score(3) = 60 Dim i, msg For Each i In score msg = msg & i & vbCRLF ... 阅读全文
摘要：
密码必须至少 8 个字符组成，必须包含数字、大写字母和小写字母。不能包含空格，同一字符不能连续重复三次，不能使用您的 Apple ID，也不能使用您在过去一年中用过的密码。 阅读全文
摘要：
对于人像的颜色处理。自己认为比较养眼的色彩是：人脸的肤色：#FED6BC头发的色彩：#151515 阅读全文
摘要：
此为一个JavaScript提取字符串的练习。code:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content=& 阅读全文
摘要：
1 <script language="VBScript"> 2 <!-- 3 Dim score() 4 ReDim score(3) 5 score(0) = 10 6 score(1) = 20 7 score(2) = 30 8 score(3) = 40 9 10 Dim cr : Dim msg11 cr = Chr(13) & Chr(10)12 ... 阅读全文