代码搜索：Language
找到约 10,000 项符合「Language」的源代码
代码结果 10,000
www.eeworm.com/read/297582/8009541
htm 3-20.htm
document.write("现在时间为：" & Now() & "")
document.write("日期为：" & Date() & "")
document.write("时间为：" & Time() & "")
document.write("今天星期 " & WeekDay(Date()) -1
www.eeworm.com/read/297582/8009547
htm 3-09.htm
Dim counter, myNum
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
document.write
www.eeworm.com/read/297582/8009548
htm 3-08.htm
Dim counter, myNum
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
document.wri
www.eeworm.com/read/297582/8009549
htm 3-15.htm
'定义一个函数
Function printStr(strInput)
document.write(strInput)
End Function
'调用函数
Call printStr("第一次调用！")
printStr("第二次调用！")
printStr "第三次调用！"
www.eeworm.com/read/297582/8009552
htm 3-07.htm
age = 13
Select Case age
Case 0, 1, 2, 3, 4, 5
S = "小朋友"
Case 6, 7, 8, 9, 10, 11
S = "儿童"
Case 12, 13, 14, 15, 16, 17
S = "少年"
Case
www.eeworm.com/read/297582/8009553
htm 3-10.htm
Dim counter, myNum
counter = 0
myNum = 0
While myNum
www.eeworm.com/read/297582/8009557
htm 3-17.htm
strDate = "2008-7-20 14:20:20"
strRet = Mid(strDate,1,Instr(strDate," "))
document.write(strRet)
www.eeworm.com/read/297582/8009559
htm 3-22.htm
strUserName = "Jack"
document.write(VarType(strUserName) & "")
document.write (IsNull(Null) & "")
a = Empty
document.write (IsEmpty(a))
www.eeworm.com/read/297582/8009561
htm 3-16.htm
'定义一个函数
Function printStr(strInput)
dim strRet
strRet = "Hello" & strInput
printStr = strRet '给函数名赋值
End Function
'调用函数
str = printStr(" 调用！")
document.wri