[已解决]VB随机产生50个小写字母并统计出

vbyou127

VB随机产生50个小写字母并统计出

随机产生50个小字字母，将其保存在数组中且按每行10个数的形式显示，

统计小字字母a出现的次数

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-2 14:41

1. Sub tt()
   
2.     x = "abcdefghijklmnopqrstuvwxyz"
   
3.     Dim arr(1 To 5, 1 To 10)
   
4.     For i = 1 To 5
   
5.         For j = 1 To 10
   
6.             p = Int(Rnd * 26 + 1)
   
7.             arr(i, j) = Mid(x, p, 1)
   
8.             If arr(i, j) = "a" Then y = y + 1
   
9.         Next
   
10.     Next
    
11.     [a1].Resize(5, 10) = arr
    
12.     MsgBox "字符 a 共出现" & y & "次"
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     x = "abcdefghijklmnopqrstuvwxyz"
   
3.     Dim arr(1 To 5, 1 To 10)
   
4.     For i = 1 To 5
   
5.         For j = 1 To 10
   
6.             p = Int(Rnd * 26 + 1)
   
7.             arr(i, j) = Mid(x, p, 1)
   
8.             If arr(i, j) = "a" Then y = y + 1
   
9.         Next
   
10.     Next
    
11.     [a1].Resize(5, 10) = arr
    
12.     MsgBox "字符 a 共出现" & y & "次"
    
13. End Sub
    

复制代码

vbyou127

grf1973 发表于 2016-3-2 14:41

还可以