金陵科技学院2012年VB期末考试题目.docVIP

金陵科技学院2012-2013年第一学期Visual Basic期末考试范围（题目及答案） M12机械设计制造及其自动化 专转本 —丁世斌 整理于2012/12/27 三．程序填空。 1．补充程序，实现闰年的判断。闰年年份能被4整除且不能被100整除，或能被400整除。 Private Sub Command1_Click Dim ystr As String, y As Integer, y4 As Integer, y100 As Integer, y400 As Integer ystr InputBox 请输入年份, 闰年判断 y Val ystr y4 y Mod 4 y100 y Mod 100 y400 y Mod 400 If y4 0 and y100 0 or y400 0 Then Print y; 是闰年 Else Print y; 不是闰年 End If End Sub 2. 数列问题 下面程序的功能是求π的近似值，当第n项的绝对值小于10 时终止计算。 Option Explicit Private Sub Command1_Click Dim n As Long, s As Single, t As Single, pi As Single Const eps 0.00001 n 1 t 1 s 0 Do s s + t n n + 1 t - ^ n+1 / 2 * n -1 Loop Until Abs（t） eps pi s * 4 Label1.Caption π的近似值为： Text1 pi End Sub 3.进制转换的问题 本程序的功能是将某个10进制数转化为16进制, 请完善本程序。 Private sub command1_click Dim n as integer,p As Integer,q As String *1,st as String,d as integer n 208 d n Do P d mod 16 If p 9 Then q Chr 55+p Else q Cstr p End If St q st d d\16 Loop Until d 0 Print n “的16进制为：” st End sub 4. 数列问题 下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、……前若干项的和，项数由文本框输入。试完善程序使其达到功能要求。 Option Explicit Private Sub command1_click Dim n As Integer, a1 As Integer, a2 As Integer Dim i As Integer, t As Single, s As Single n Val Text1.Text a1 1 a2 2 For i 1 To n t a1/a2 s s + t a2 a1 + a2 a1 a2-a1 Next i Text2 s End Sub 5. 进制转换问题 本程序的功能是将某个十进制数转换成一个8位的二进制数, 请完善本程序,如110- 1- Private Sub command1_click Dim n As Integer ,b As Integer, i As Integer, s As String n 110 Do While n 0 b n Mod 2 n n \ 2 ___s s b_______________________ Loop For i 1 To 8 - Len s s s mid s,i,1 Next i Print n ″的二进制为″ s End Sub 6. 本程序模拟裁判评分。设有8名裁判，打分范围为7．0到10．0 小数点后取1位 ，去掉一个最高分和一个最低分后，所得总分的平均分就是选手最后得分 四舍五入，保留l位小数 。 图2-1 模拟裁判评分 Private Sub Command1_Click Dim score 8 As Single，i As Integer，maxv As Single Dim minv As Single，av As Single，sum As Sinde For i 1 To 8 score i Int Rnd*31 +70 ／1O Text1 Text1＆Str score i ＆” ” sum sum+score i Next i maxv score 1 ：minv sco