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
显示全部