题目内容
（请给出正确答案）
[主观题]
Android开发因为涉及代码编辑、UI布局、打包等工序,因此最好使用一款（)开发环境。
如搜索结果不匹配，请 联系老师 获取答案
请使用Visual Studio作为程序的开发环境，将源代码粘贴到答题的文本编辑框中（无需提交附件）。 编写一个分数统计的程序。通过文本框TextBox1接受10个考试成绩的输入，单击“统计”命令按钮（Button1）后，统计优秀（90～100分）、良好（80～89分）、中等（70～79分）、及格（60～69分）、不及格（0～59分）的人数，统计结果显示在标签中Label1~Label5中。程序界面如下图所示。
提示： 1）定义一个有10个数据元素的整型数组intScore来存放10个成绩。定义一个计数变量intNum来记录已输入的数据的个数。intScore和intNum需要定义为模块级的量，即需要定义在事件过程的上方。 2）编写文本框TextBox1的KeyPress事件过程来向数组中输入数据，用户输入回车表示一个数据输入完毕。（此段代码与9.3节的第2个视频的例子代码很相像，请看这个视频） If e.KeyChar = vbCr Then If intNum > 9 Then MsgBox("数据个数已满！不能再输入") TextBox1.Text = "" Exit Sub End If intScore(intNum) = Val(TextBox1.Text) intNum = intNum + 1 TextBox1.Text = "" End If 3）编写命令按钮Button1的Click事件过程来进行数据统计。 第一步：定义5个整型变量作为各档次人数的计数变量（注意，不要为变量起名为：e，因为e是这个事件过程的参数）。 第二步：通过循环依次读取数组中的数据元素，判断它的取值范围，并将相应的计数变量的值加1。 For i = 0 To 9 判断Score(i)的取值范围，并将相应的计数变量的值加1 Next 第三步：将计数变量的值依次显示在标签Label1~Label5中。
提示： 1）编写一个函数判断某一年是否是闰年。满足下列条件之一的年份为闰年：① 能被4整除，但不能被100整除；② 能被400整除。 Private Function LeapYear(ByVal Year As Integer) As Boolean 如果是闰年，返回值为True，如果不是闰年，返回值为False 2）编写一个函数，给定年份和月份，返回这个月的天数。此函数需调用LeapYear函数。 Function daynum(ByVal year As Integer, ByVal month As Integer) As Integer 3）命令按钮的代码如下： Dim year%, month%, day%, i%, num% year = TextBox1.Text month = TextBox2.Text day = TextBox3.Text num = day For i = 1 To month - 1 num = num + daynum(year, i) Next TextBox4.Text = num
