VB编程题,用数组实现随机输出十个小写英文字母

发布网友发布时间：2024-02-07 20:01

我来回答

共2个回答

热心网友时间：2024-02-12 09:50

Private Sub Command1_Click()

Dim a(10) As String * 1

Randomize

For i = 1 To 10

a(i) = Chr(Int(Rnd * 26) + 97)

Next i

For i = 1 To 10

Print a(i);

Next i

End Sub

追问可以问下，自定义函数在程序过程中的作用嘛。

自定义函数求3！+5！+7！

热心网友时间：2024-02-12 09:51

Private Sub Form_Click()
Dim a(10) As String
Dim i As Integer, k As Integer
Form1.AutoRedraw = True
Randomize
Print "产生的十个字母是："
For i = 1 To 10
a(i) = Chr(Int(Rnd * 26 + 97))
Print a(i);
Next
Print
For i = 1 To 10
If a(i) = Chr(97) Then k = k + 1
Next
Print "出现字母 "; Chr(97); " 的个数是："; k
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com