VB 随机产生50个小写字母保存在数组中并按每行10个的形式显示_百度知道
VB 随机产生50个小写字母保存在数组中并按每行10个的形式显示
&&a(50)&&&&Randomize()&&=&0&&&&&&&&&Mod&&&&&&&&&&&&Dim&&&&&&=&*&str&=&&&&If&&Next&&&&str&&&&&&&&&&i&&&=&&&&&&&&str&&&&&&&As&&To&&&Int(Rnd()&String&50&a(i)&&Then&&&&&&nbsp.ToString&&&&26&&&&&vbCrLf&&&&&97)&As&&+&&&End&&str&&&&=&&i&&str&&&&&&&If&&&For&&=&&&1&&&&Chr(a(i));&&10&&&&str&&&&nbspDim&&Integer&&&&print&&nbsp
来自团队：
其他类似问题
为您推荐：
其他1条回答
指导意见、或者服药后4个小时以后在给宝宝喂奶、祝您早日康复病情分析。 病情分析、 病情分析，因为哺乳期间有很多药物是不能用的，感冒期间体内产生较多的毒素：你好，建议服用感冒清热颗粒：建议以后再感冒或者有其它疾病时、同时发烧会引起乳汁浓缩，若药量不大应该没有多大影响、指导意见，能用哪些药、哺乳期服用任何药物都要小心，尤其不能在服药期间哺乳，根据您的描述、可能引起宝宝消化不良：安乃近的代谢产物会进入乳汁：您好。指导意见，不适合哺乳，您现在感冒了、建议不要服用，建议感冒期间不宜哺乳：您好，最好去医院咨询一下专业医师，孩子吃奶期间大人口服安乃近：如非必须，可以通过乳汁传染给孩子，您现在处于哺乳期
小写字母的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB利用随机函数小写英文字母_百度知道
VB利用随机函数小写英文字母
将结果显示在图片框picture1中.jpg" esrc="http.next kend subprivate sub command2_click()for k=1 to 39for j=________(5)if _______(6) thent=xs(k).com/zhidao/wh%3D600%2C800/sign=87fb77f1b43533faf5e39b/96dda144adb6d09f431adcbef8437利用随机函数产生40个小写的英文字母.baidu，并对这些字母按字母表顺序排序;&nbsp://g,单击排序按钮command2.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="http:xs(j)=t________(7)next jnext kfor k=_________(8)picture2;/zhidao/pic/item/96dda144adb6d09f431adcbef8437.print(5) k &next kend sub答案(1) xs(40) &nbsp:xs(k)=xs(j)://g.hiphotos.hiphotos.hiphotos。单击产生按钮command1
提问者采纳
)X2 = Asc(&quot: xs(k) = xs(j).)For k = 1 To 40x = Int(97 + Rnd * 26)xs(k) = Chr(x)Picture1你都已经有答案了.hiphotos？Dim xs(40) As StringPrivate Sub command1_click()X1 = Asc(&quot.Print xs(k).jpg" esrc="http.a&quot://d.com/zhidao/pic/item/ec2be8968://d.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="z&quot.Print xs(k).com/zhidao/wh%3D600%2C800/sign=e8cf99fe6/ec2be8968;Next kEnd SubPrivate Sub command2_click()For k = 1 To 39For j = k + 1 To 40If xs(k) & xs(j) Thent = xs(k)，还求什么: xs(j) = tEnd IfNext jNext kFor k = 1 To 40Picture2.baidu://d.Next kEnd Sub<a href="/zhidao/wh%3D450%2C600/sign=b184e8d9b6de9c82a630f18b59b1ac3c/ec2be8968
x = Int(97 + Rnd * 26)xs(k) = Chr(x)解释 这两句
x = Int(97 + Rnd * 26)
&#39;产生&#39;a&#39;~&#39;z&#39;之间的ASCII码值，&#39;a&#39;－－97，&#39;z&#39;--97+25xs(k) = Chr(x)
&#39;将上面产生的ASCII码转换为字符
提问者评价
来自团队：
其他类似问题
为您推荐：
英文字母的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求用vb生成随机字母的代码？_百度知道
求用vb生成随机字母的代码？
c，OK这只是产生了一个字母.，1.用随机函数产生器产生一个随机数 c# 里面好像是random,b.Z}2.，即每次产生一个从0到51的数说个思路，这里最大的是51..,C.,.z,d.写一个字符数组将所有的字母字符存放起来如 a[52]={a，3,B.，指定产生多大的一个随机数.利用随机数作为数组下标得到数组里对应的字符.,A，如果想产生多个随机字母,可以带参数
其他类似问题
为您推荐：
其他3条回答
下代码在text1里生成100个大写字母;清空For i = 1 To 100a = Rnd() * 25
&#39, i As IntegerDim ch As StringText1。如果可能的话，实际上VB的随机数很差的，就把65改成 97Text1，最好自己再写一个随机数生成函数ch = Chr(a + 65) &#39.Text & ch &#39;把得出的整数与大写字母A的ASCII码值相加并由ASCII码表转换成相应的大写字母&#39.Text = &quot.Text = Text1。D如果要小写的话;生成0~25的随机整数;
&#39;&quot
Private Sub Command1_Click()Dim a As IntegerRandomizea = (25 * Rnd) + 65MsgBox Chr(a)End Sub
好像有个函数叫random的，可以生成随机数的。我很久没用VB了。
字母的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb中如何随机产生任意字母？_百度知道
vb中如何随机产生任意字母？
随机产生大写字母可以用a(i)=Chr(Asc(&A&)+Int(Rnd*26))不分大小写怎么做？
提问者采纳
abcd.&quot..改用通用的获取随机字符的方式;取随机一个字符a=mid(strAph.ABCD...。定义一个字符串strAph=&quot
提问者评价
其他类似问题
为您推荐：
字母的相关知识
其他2条回答
1)试试吧思路要开阔Dim a$a=&Mid(a;abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ&quot,Int(Rnd*52+1)
Private Sub Form_Click()Dim s As String, i As Integer, l As Integer, t As Integers = &abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ&l = Len(s)Randomizet = (Rnd * l) + 1Print Mid(s, t, 1)End Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}