Question

vb题求解答

打开工程文件 Dsg0503.vbp，在标题为“字母统计”的窗体 Form1 上，添加 3 个文 本内容为空的文本框 Text1、Text2 和 Text3，其中 Text1 带有水平滚动条；然后再添加两个 标题分别为“生成字母”和“统计”的命令按钮 Command1 和 Command2；最后添加一个标 题为“统计的字母”的标签 Label1。程序运行时，单击“生成字母”按钮，随机生成 100 个 大写英文字母存于数组 a 中，并显示在 Text1 中，字母之间用空格隔开，如图 5-5（a）所示； 在 Text2 中输入一个大写英文字母；单击“统计”按钮，在 Text3 中显示该字母在数组 a 中 出现的次数，如图 5-5（b）所示。完成上述功能后，以原文件名保存窗体（Dsg0503.frm） 和工程（Dsg0503.vbp）。

Dim a(1 To 100) As String
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To 100
a(i) = Chr(Int(Rnd * 26) + 65)
Text1.Text = Text1.Text & a(i) & Space(2)
Next i
End Sub

然后就不知道了 怎么编写Command2的代码？

Answer 1

癫痫是由于神经元细胞异常放电所致的一中慢性脑部疾病，要想得到根治，必须修复受损细胞，首先要选择专业的癫痫诊疗医院还要有临床经验丰富的专家队伍，再一个要由针对性且权威的检查，配备这些条件的医院，可以称之为最好的医院，可以做到专病专治。建议采用定位修复术治疗，修复受损细胞，恢复细胞平衡放电，彻底杜绝癫痫发作，达到临床治愈。

Answer 2

Private Sub Command2_Click()
dim s as integer
s=0
for i=1 to 100
if a(i)=text2.text then
s=s+1
end if
next i
text3.text=s
end sub