三九宝宝网宝宝百科宝宝知识

写一个函数来实现功能:随机生成一个长度为5 15位英文数字组成的

01月02日 编辑 39baobao.com

[求助英文专业词汇翻译抗生素头孢类硫酸连杆菌素红霉素等]抗生素(头孢类、硫酸连杆菌素、红霉素等): antibiotic(spore class, sulfuric acid bacillin, erythromycin, etc. ) 有机酸(赖氨酸、L-乳酸、柠檬酸、核苷酸): organic acid(lysi...+阅读

/*

写一个函数来实现功能:随机生成一个长度为5~15位英文+数字组成的字符串。

要求:字符串按照 大写小写数字的顺序间隔排列,生成的字符串作为函数返回值传出。例如函数名为随机生成英文字母,

调用这个函数名后返回了字符串 "Ew2Tr1Yu6Vd4"

*/

Dim length

Dim result

length = InputBox("请输入字符串长度:")

result = randStr(length)

//TracePrint length

If (result <> - 1 ) Then

MsgBox result

Else

TracePrint result

MsgBox "你输入的长度不符合要求"

End If

Function randStr(length)

If (length > 15 or length < 5) Then

randStr = -1

Else

randStrTemp=""

group_count =int(length / 3) //length完整组数:大写字母+小写字母+数字,是一组

rema = length mod 3 //length对3取余

//TracePrint group_count

//TracePrint rema

i=0

While(i

//函数_随机取数=Int((high - (low) + 1) * Rnd + (low))

//随机大写字母

Randomize

capital = chr(Int((90 - 65 + 1) * Rnd + 65))

//随机小写字母

Randomize

lowercase = chr(Int((122 - 97 + 1) * Rnd + 97))

//随机数字

Randomize

num = chr(Int((57 - 48 + 1) * Rnd + 48))

randStrTemp = randStrTemp + capital + lowercase + num

i=i+1 //修改循环变量

If (i=group_count) Then

Select Case rema

Case 1

//随机大写字母

Randomize

capital = chr(Int((90 - 65 + 1) * Rnd + 65))

randStrTemp = randStrTemp + capital

Case 2

//随机大写字母

Randomize

capital = chr(Int((90 - 65 + 1) * Rnd + 65))

//随机小写字母

Randomize

lowercase = chr(Int((122 - 97 + 1) * Rnd + 97))

randStrTemp = randStrTemp + capital + lowercase

End Select

End If

Wend

randStr = randStrTemp

End If

End Function

以下为关联文档:

花样姐姐下水游泳的英文歌叫什么歌曲: Lay It Down 歌手: Daniel Kirkley 专辑: 《Let Love Win》复制歌词 下载LRC歌词07 : Lay It Down (Song for a Prodigal)(Nichole Nordeman)To every son and daughterW...

急求适合一年级的孩子们合唱的英文歌曲注意是英文《雪绒花》,唯美好听,不算太难吧,我们幼儿园就在学的歌了呢,而且适合合唱,要分声部的话更好听,不分也可以,附歌词:edelweiss, edelweiss 雪绒花,雪绒花 every morning you greet me每...

书虫七年级的英文读后感 100字左右的我初中时写的 写的不好别见怪啊 Ivan the Fool This story named 'Ivan the Fool' is very interesting. Ivan was a fool, but he was kind and hardworking. He had two b...

七年级英语水平作文 200字要求看英文电影写观后感I recently watched the Harry Potter movies,Harry Porter, is a very interesting movie. A British writer J.K.Rowling wrote the novels. This imaginative movie not...

7月你好7月加油转英文“7月你好”英文翻译:Hello July “7月加油”英文翻译:Come on in July 7月是公历年的第七个月,是大月,共有31天。在北半球,7月是夏季的第二个月。本月的节气:小暑、大暑。公历7月...

excel if条件函数无法识别负号求大神指教!v2公式修改为 =MID(Y2,FIND("/",Y2,1)+1,LEN(Y2))*1 或者 =--MID(Y2,FIND("/",Y2,1)+1,LEN(Y2)) mid取出的是文本串,使用*1或者是--,转为纯数值,即可 或 =IF(V2>0,"增加","减少")这个公式...

求IF条件条件函数有点复杂大师进亲,是VB吗,看下面,记得采纳哟^~ dim i as integer,A1 as integer,B1 as integer,C1 as integer,D1 as integer,s as integer; if A1='A',i=1; if A1='C',i=2; if B1='D',i=3; i...

一次函数的图像讲解1.作法与图形:通过如下3个步骤 (1)列表; (2)描点; (3)连线,可以作出一次函数的图像——一条直线。因此,作一次函数的图像只需知道2点,并连成直线即可。(通常找函数图像与x轴和y轴的交点) 2...

一次函数的图像1、将那个点代入解析式,看看等式成立不,成立的话就过这点,不成立就不过这点。 2、令x=0,求y。确定了一点坐标。 再令y=0,求x。又确定了一点坐标。 则这个函数必过这两点。(这两点...

推荐阅读
图文推荐