vb题求解答 10
打开工程文件Dsg0503.vbp,在标题为“字母统计”的窗体Form1上,添加3个文本内容为空的文本框Text1、Text2和Text3,其中Text1带有水平滚动条;...
打开工程文件 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的代码? 展开
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的代码? 展开
2个回答
2015-06-15
展开全部
癫痫是由于神经元细胞异常放电所致的一中慢性脑部疾病,要想得到根治,必须修复受损细胞,首先要选择专业的癫痫诊疗医院还要有临床经验丰富的专家队伍,再一个要由针对性且权威的检查,配备这些条件的医院,可以称之为最好的医院,可以做到专病专治。建议采用定位修复术治疗,修复受损细胞,恢复细胞平衡放电,彻底杜绝癫痫发作,达到临床治愈。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |