Question

按键精灵四级认证 问答 在线等

1.定义一个函数，该函数包含俩个日期参数，比如随机输出"2010-01-22"到"2015-12-31"之间的某个日期（包含这两个日期），此日期作为函数返回值。
2.写一个函数来实现功能：随机生成一个长度为5~15位英文+数字组成的字符串。
要求：字符串按照 大写小写数字的顺序间隔排列，生成的字符串作为函数返回值传出。例如函数名为随机生成英文字母，调用这个函数名后返回了字符串"Ew2Tr1Yu6Vd4"

Answer 1

纯自学野路子 命名什么的都是拼音加随意 但是题目的要求都能达到
Function suijiriqi(kaishiriqi, jieshuriqi)
Randomize
riqijiange= DateDiff("d", CDate(kaishiriqi), CDate(jieshuriqi))
a = int((riqijiange- 0 + 1) * Rnd + 0)
TracePrint a
suijiriqi= DateAdd("d",a,CDate(kaishiriqi))
TracePrint d
End Function
a = suijiriqi("1993-12-22", "1994-12-25")
TracePrint a
Dim randNum
Dim newStr
Dim remainder
Sub randNums()
Randomize

randNum = chr(int((90 - 65 + 1) * Rnd + 65))
newStr = newStr & randNum

randNum = chr(int((122 - 97 + 1) * Rnd + 97))
newStr = newStr & randNum

randNum = int((9 - 1 + 1) * Rnd + 1)
newStr = newStr & randNum
End Sub
Function createStr(numLen)
If numLen < 5 or numLen > 15 Then
MessageBox "字符串长度必须在5-15字符之间"
Exit Function
End If
newStr = ""
remainder = numLen Mod 3
Select Case remainder
Case 0
For int(numLen / 3)
Call randNums()
Next
Case 1
For int(numLen / 3)
Call randNums()
Next
Randomize

randNum = chr(int((90 - 65 + 1) * Rnd + 65))
newStr = newStr & randNum
Case 2
For int(numLen / 3)
Call randNums()
Next
Randomize

randNum = chr(int((90 - 65 + 1) * Rnd + 65))
newStr = newStr & randNum

randNum = chr(int((122 - 97 + 1) * Rnd + 97))
newStr = newStr & randNum
Case Else
MessageBox "数字出错"
End Select
End Function
Call createStr(14)
TracePrint newStr

Answer 2

四级？ 1.看着有点费劲，但应该还是有办法达到的

Answer 3

第一个，就是时间函数
第二个，参照命令库
20分。。。。低了。。