求以下VB题的答案的啊!3、编程输入10名短跑运动员的姓名及其100米跑成绩,输出最好成绩的运动员姓名及其成绩,再显示低于平均成绩的所有运动员姓名及其成绩.4、素数(质数)是一个正整数,除

Question

求以下VB题的答案的啊!
3、编程输入10名短跑运动员的姓名及其100米跑成绩,输出最好成绩的运动员姓名及其成绩,再显示低于平均成绩的所有运动员姓名及其成绩.4、素数(质数)是一个正整数,除了1和它本身之外,不能被其它任何正整数整除.编程：求出1到1000间的所有素数,并将这些素数显示在列表框中.当用户输入的数不是正整数时,给出提示并要求重新输入一个数.5、建立一个名为Max的函数过程,它能接受一个单精度类型的数组参数,求出该数组元素的最大值并将这个最大值作为函数值返回.建立一个简单的窗体界面,任意定义一个单精度类型数组,调用上述的函数Max求出其最大值并显示出来.6.窗体中有一个文本框Text1、两个标签Label1和Label2、一个垂直滚动条Vscroll1.点击滚动条,可使文本框中显示[2,20]之间的一个正整数n,标签Label1中立刻显示 + + … + 的值.运行界面如图.编写完整的事件过程完成以上功能.

Answer 1

Dim times As Integer '窗体Load时 Private Sub Form_Load() times = 0 End Sub '登录按钮 Private Sub command1_Click() If Trim(TextName.Text = "") Then MsgBox "没有输入用户名称,请重新输入!", vbOKOn...