《VB程序设计》作业（一）答案
客观题部分：
选择题（每题1分，共15题）
参考答案：
1D，2D，3C，4A，5C
6B，7D，8A，9A，10C
11B，12B，13C，14D，15D
主观题部分：
编程题（每题15分，共1题）
参考答案：
Private Sub Command1_ Click()
Dim x As Single
Dim amax As Single，amin As Single
x=InputBox(“请输入分数”)
amax=x
amin=x
Do While x>=0
If x> amax Then
amax=x
End If
IF x End If x=InputBox(“请输入分数”) Loop Print amax , amin End Sub 因篇幅问题不能全部显示，请点此查看更多更全内容