2015年1月《Visual Basic程序设计》 试题和答案

六、编程题（本大题共2小题，每小题10分，共20分） 评分参考：

（1）程序结构完整，流程合理，算法正确，给满分。

（2）变量没有声明，扣1分；主流程不清晰，扣3分；关键算法错误扣3分；重要代码缺少，扣3分。 （3）如果思路正确，但代码不完整的，根据代码质量适当给分。 35.Private Sub Command1_Click()

Dim x As Single,y As Single （1分） x=Val(Inputbox(\请输入x的值：\（1分） If(x>10) Then (1分）

y=Sqr(x)=Sin(x) ( 2分） Else If（x<10) （1分） y=2*x^3+6 （2分） Else

y=0 (1分） End If

Print y （1分） End Sub

36.Private Sub Command1_Click() Dim x As Single （1分） x=GetSqrt(8) （1分） Print \的平方根是：\ x=GetSqrt(16) （1分） Print \的平方根是：\End Sub

Private Function GetSqrt(a As Integer) As Single Dim x0 As Single,x1 As Single （1分） x0=a/2 （1分） x1=(x0+a/x0)/2 Do （1分）

x0=x1 （2分） x1=(x0+a/x0)/2

Loop While Abs(x0-x1)>=0.00001 (1分) GetSqrt=x1 (1分) End Function

2015年1月VB程序设计试题和答案第6页 共6页