请求vb作业题
一、单选题（共 5 道试题，共 20 分。）V 1. 以下叙述中错误的是___。A. Visual Basic 是事件驱动型可视化编程工具B. Visual Basic应用程序不具有明显的开始和结束语句C. Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性D. Visual Basic中控件的某些属性只能在运行时设置 满分：4 分2. 表达式___可以计算整型变量x 的位数。A. Len(Trim(Str(Abs(x))))B. Len(Abs(x))-1C. Len(Abs(x))D. Len(Trim(Int(x))) 满分：4 分3. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是___。A. ValueB. DefaultC. CancelD. Enabled 满分：4 分4. 为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件），则其Interval属性值应设置为___。A. 5B. 300C. 500D. 5000 满分：4 分5. 在过程中定义的变量,若希望在离开该过程后,还能保存过程中局部变量的值,则在过程中定义局部变量时使用的关键字是___。A. dimB. PrivateC. PublicD. Static 满分：4 分二、判断题（共 12 道试题，共 48 分。）V 1. UDP与TCP的区别在于计算机是否建立连接。A. 错误B. 正确 满分：4 分2. 在Open语句中用Append方式所打开的文件若不存在，则创建该文件。A. 错误B. 正确 满分：4 分3. Winsock控件的LocalHostName属性返回本地机器名。A. 错误B. 正确 满分：4 分4. ADO可以访问任何类型的数据库，包括关系型和非关系型，结构和非结构的数据源。A. 错误B. 正确 满分：4 分5. 在自定义函数过程中，函数名必须被赋值。A. 错误B. 正确 满分：4 分6. 在窗体或模块文件中声明为Private的过程，只能被本窗体或模块中的过程所调用。A. 错误B. 正确 满分：4 分7. 在本窗体或模块中用Dim或Static等声明的变量只在本模块或窗体中起作用，这种变量叫局部变量。A. 错误B. 正确 满分：4 分8. 列表框控件，只能设置为单选。A. 错误B. 正确 满分：4 分9. 函数MsgBox的前三个参数，分别为图标样式、按钮样式以及默认按钮。A. 错误B. 正确 满分：4 分10. 全局变量可以被所有窗体和模块访问。A. 错误B. 正确 满分：4 分11. 事件过程可以由某个用户事件触发执行，它不能被其他过程调用。A. 错误B. 正确 满分：4 分12. 语句 Shape1.FillStyle = vbSolid 和 Shape1.FillStyle = 0 作用相同。A. 错误B. 正确 满分：4 分
Dim Score() As Integer
Dim a() As Integer
Dim N As Integer, Max As Integer, Min As Integer, Average As Single, Jie As Single, You As Single, Jie1 As Single, You1 As Single
Dim p1, p2, p3, p4, p5, p6 As Integer
Private Sub Command1_Click()
N = Val(InputBox("请输入总人数", "", ""))
ReDim Score(N)
'统计每个分数段人数
For I = 1 To N
Score(I) = Val(InputBox("请输入第" & Str(I) & _
"个学生的成绩", "成绩统计", ""))
List1.AddItem Score(I)
Select Case Score(I)
Case 0 To 10
p1 = p1 + 1
Case 10 To 60
p2 = p2 + 1
Case 60 To 70
p3 = p3 + 1
Case 70 To 80
p4 = p4 + 1
Case 80 To 90
p5 = p5 + 1
Case Else
p6 = p6 + 1
End Select
Next I
Total = 0
Max = Score(1)
Min = Score(1)
' 通过循环依次比较，求最大、最小值；求总和
For I = 1 To N
If Score(I) > Max Then Max = Score(I)
If Score(I) < Min Then Min = Score(I)
If Score(I) >= 60 Then Jie = Jie + 1
If Score(I) >= 85 Then You = You + 1
Total = Total + Score(I)
Next I
Average = Total / N ' 求平均值
' 以两位小数显示平均值
Text1.Text = N
Text2.Text = Format(Average, "0.00")
Text3.Text = Max
Text4.Text = Min
Jie1 = Jie / N
You1 = You / N
Text5.Text = Format(Jie1, "0.00%")
Text6.Text = Format(You1, "0.00%")
'统计每个分数段的人数
Text9.Text = p1
Text10.Text = p2
Text11.Text = p3
Text12.Text = p4
Text13.Text = p5
Text14.Text = p6
把相应的模块放在相应的窗体上
请采纳。
希望能解决您的问题。
