VB期末复习资料.docx

题号:530【程序填空】 功能：有数列 1/5 + 1/9 + 1/13 + 1 / (1 + k * 4) (k=100)求前 100 项之和 Private Sub Command1_Click() Dim s As Double Dim k As Integer **********SPACE********** s = 0 **********SPACE********** For k = 1 To 100 **********SPACE********** s = s + 1 / (1 +k*4) Next k Print s End Sub 题号:480【程序改错】 题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+……)的值。其中，a是一个0-9的数字，总共累加a项。例如，当a=3时,s=3+33+333 (共累加3项)。 Option Explicit Public Sub Calc(a As Integer) Dim s As Long Dim t As Long Dim i As Integer s = a **********FOUND********** t = a For i = 2 To a **********FOUND********** t = t*10 + a s = s + t Next i Calc = s Print s End Function Private Sub Command1_Click() Dim i As Integer i = InputBox(请输入数字（0-9）:) **********FOUND********** Call Calc(i) End Sub 题号:344【程序设计】 题目：有一根长度为200米的钢材，要将它截取为两种规格的短料，规格的长度分别为a米、b米。每种至少两段。编写函数fun， 求出分割成两种规格后剩余残料r最少的值，并显示。如：a为31、b为41时，则显示15 要求使用For语句来实现。 注意： 请在指定的事件内编写代码 代码只能写在两行标识之间 不得修改已有代码 保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 Private Function fun(a As Integer, b As Integer) As String **********Program********** Dim r!, t!, a0%, b0% r = 200 For b0 = 2 To (200 - a) \ b For a0 = 2 To (200 - b * b0) \ a t = 200 - b0 * b - a0 * a If t = 0 And t r Then r = t End If Next a0 Next b0 fun = r ********** End ********** End Function Private Sub Form_Load() Show Print fun(51, 61) NJIT_VB End Sub 题号:511【程序填空】 功能：程序输出结果为：n=3 x=42 y=9 Private Sub Command1_Click() Dim n, x, y As Integer **********SPACE********** n = 0: x =1: y = 0 Do While x 20 **********SPACE********** n = n+1 y = x + y x = x * (x + 1) **********SPACE********** loop Form1.Print n= Str(n) Form1.Print x= Str(x) Form1.Print y= Str(y) End Sub 题号:476【程序改错】 题目:由输入对话框输入n（设n为大于零且小于30的自然数）， 计算如图1所示的表达式，并在标签框Label1上显示。 Option Explicit Private Sub Form_Click() Dim n As Integer