[求助英文专业词汇翻译抗生素头孢类硫酸连杆菌素红霉素等]抗生素(头孢类、硫酸连杆菌素、红霉素等): 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。又确定了一点坐标。 则这个函数必过这两点。(这两点...