中国地质大学VB考试重点与试卷..docx

1、编写一个函数fib.该函数可以求数列1，1，2，3，5，8，13，21……的第n（1=n=20）项，将第N项 的值作为函数的返回值。Function fib(n As Integer) As Long If n = 1 Then fib = 1 If n = 2 Then fib = 1 If n = 3 And n = 20 Then fib = fib(n - 1) + fib(n - 2) End Function以上是定义函数，下面是主程序调用函数Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 20Print fib(i); ‘加分号，横行输出If i mod 5 = 0 Then print ‘每行输出5个Next iEnd Sub2、下面程序用于统计一个班级的某科成绩，成绩百分制。要求所有成绩由键盘输入，输入负数认为输入结束，输出数据为班级人数、最高分是、最低分和平均分。Private Sub Command1_Click()Dim f() As SingleDim min As Single, max As Single, n As IntegerDim s As Single, k As Single, i As SingleDim t As Singlei = 1s = InputBox(输入成绩1：)Do While s = 0‘s0时就停止循环 ReDim Preserve f(1 To i) f(i) = s i = i + 1 s = InputBox(输入成绩 i)Loopi = i – 1‘停止循环时I 多加1，负数不计数min = f(1)‘将f(1)置为minmax = f(1)‘将f(1)置为maxFor n = 1 To i If max f(n) Then max = f(n) If min f(n) Then min = f(n) t = t + f(n)‘计算总分Nextk = t / i‘计算平均分Print 总人数是： i 人 ， 平均分是： kPrint 最高分是： max ， 最低分是： minEnd Sub3、窗口有三个控件，命令按钮Command1、图片框1和图片框二，单击按钮时先为picture1加载图片（f:\123.jpg）,然后将picture1里的图片复制到picture2中并实现水平反转。Private Sub Command1_Click()Picture1.Picture = LoadPicture(f:\123.jpg)Picture2.PaintPicture Picture1.Picture, _0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth, Picture1.ScaleHeight‘目标区域左上角，目标宽高，开始复制点，绘图大小End Sub4、有分段函数Sin(x)+1 x0f(x)= sin(x)+cos(x) 0x ，当单击command1时将在窗口中绘制[-,2]的图形。 cos(x)-sin(x) xPrivate Sub Command1_Click()Dim x As SingleDim y As SingleConst pi = 3.1415926Me.Scale (-5, 3)-(10, -3)For x = -pi To 2 * pi Step 0.002 If x = 0 Then y = Sin(x) + 1 ElseIf x = pi Then y = Cos(x) + Sin(x) ElseIf x = 2 * pi Then y = Cos(x) - Sin(x) End IfMe.PSet (x, y), vbRedNext xMe.Line (-5, 0)-(8, 0), vbBlueMe.Line (0, -2.5)-(0, 2.5), vbBlueEnd Sub5、画图y=sin(x) Private Sub Command1_Click()Me.ScaleHeight = -4 首先设置系统坐标，高度值设为负数，以向上为正Me.ScaleLeft = -3Me.ScaleTop = 2Me.ScaleWidth = 12 这四句相当于me.scale(-4,3)-(8,-3)Const pi = 3.1415926 常量定义方式，方便后面使用Dim x A