Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2247|回复: 2

[已解决]VBA不用chr函数如何做 随机小写字母

[复制链接]
发表于 2017-4-26 13:55 | 显示全部楼层 |阅读模式
本帖最后由 laoau138 于 2017-4-26 14:16 编辑

VBA不用chr函数如何做  随机小写字母

随机50个小写字母,保存在数组中按每行10个数输出,并统计小写字母a出现的次数

Sub 不用chr函数随机小写字母()
Dim arr(1 To 50) As String
Dim n As Integer
Randomize
Debug.Print "随机字母如下:"
Debug.Print
For i = 1 To 50
arr(i) = Chr(Int(Rnd * 26 + 97))
Debug.Print arr(i); " ";
If i Mod 10 = 0 Then Debug.Print
Next
For i = 1 To 50
If arr(i) = "a" Then n = n + 1
Next
Debug.Print
Debug.Print "字母a出现的次数为:" & n
End Sub
最佳答案
2017-4-26 14:14
  1. Sub 不用chr函数随机小写字母()
  2. Dim arr(1 To 50) As String,s as String
  3. Dim n As Integer
  4. s="abcdefghijklmnopqrstuvwxyz"
  5. Randomize
  6. Debug.Print "随机字母如下:"
  7. Debug.Print
  8. For i = 1 To 50
  9. arr(i) = mid(s,Int(Rnd * 26 + 1),1)
  10. Debug.Print arr(i); " ";
  11. If i Mod 10 = 0 Then Debug.Print
  12. Next
  13. For i = 1 To 50
  14. If arr(i) = "a" Then n = n + 1
  15. Next
  16. Debug.Print
  17. Debug.Print "字母a出现的次数为:" & n
  18. End Sub
复制代码
发表于 2017-4-26 14:14 | 显示全部楼层    本楼为最佳答案   
  1. Sub 不用chr函数随机小写字母()
  2. Dim arr(1 To 50) As String,s as String
  3. Dim n As Integer
  4. s="abcdefghijklmnopqrstuvwxyz"
  5. Randomize
  6. Debug.Print "随机字母如下:"
  7. Debug.Print
  8. For i = 1 To 50
  9. arr(i) = mid(s,Int(Rnd * 26 + 1),1)
  10. Debug.Print arr(i); " ";
  11. If i Mod 10 = 0 Then Debug.Print
  12. Next
  13. For i = 1 To 50
  14. If arr(i) = "a" Then n = n + 1
  15. Next
  16. Debug.Print
  17. Debug.Print "字母a出现的次数为:" & n
  18. End Sub
复制代码

评分

参与人数 1 +9 收起 理由
laoau138 + 9 来学习

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-4-26 21:53 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 18:57 , Processed in 0.440835 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表