VB单击Command1,随机生成100个大写英文字母存于数组a中,并显示在Text1中,字母之间用空格隔开

 我来答
网海1书生
科技发烧友

2013-04-06 · 擅长软件设计、WEB应用开发、小程序
网海1书生
采纳数:12311 获赞数:26226

向TA提问 私信TA
展开全部
Private Sub Command1_Click()
Dim a(99) As String, i As Integer
Randomize
For i = 0 To 99
a(i) = Chr(Asc("A") + Int(Rnd * 26))
Next
Text1.Text = Join(a, " ")
End Sub
是小白啊2k
2013-04-06 · TA获得超过2566个赞
知道小有建树答主
回答量:1183
采纳率:0%
帮助的人:1157万
展开全部
这个问题有人问过了http://zhidao.baidu.com/question/538607993?&oldq=1
随机生成100个大写字母存于数组a中,并显示在text1中,字母间用空格隔开,在text2中输入一个大写字母,得出在数组a中出现的次数,在text3中显示。
Private arr(100)
Private Sub CommandButton1_Click()
Randomize
For i = 1 To 100
arr(i) = Chr(Int(Rnd * 26) + 65)
TextBox1.Text = TextBox1.Text & arr(i) & " "
Next
End Sub

Private Sub CommandButton2_Click()
Dim find As String
find = TextBox2.Text
TextBox3.Text = 0
For i = 1 To 100
If arr(i) = TextBox2.Text Then
TextBox3.Text = CInt(TextBox3.Text) + 1
End If
Next
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式