春VB上机试卷VB答案.docVIP

2008年（春）上机 Visual Basic（VB04）答案 一、改错 【题目】本程序的功能是将一个带小数点的二进制数转换为相应的十进制数。 Option Explicit Private Sub Command1_Click() Dim sb As String, sd As String, sf As String Dim k As Integer sb = Text1 k = InStr(sb, .) sd = Left(sb, k - 1) sf = Right(sb, Len(sb) - k) Text2 = b2d(sd) f2d(sf) err . f2d(sf) End Sub Private Function b2d(s As String) As String Dim i As Integer, n As Integer Dim st As String * 1, p As Integer n = 0 For i = Len(s) To 1 Step -1 st = Mid(s, i, 1) p = p + Val(st) * 2 ^ n n = n + 1 Next i b2d = p End Function Private Function f2d(s As String) As String Dim i As Integer, n As Integer Dim st As String * 1, p As Single err p As Integer n = -1 err n = 0 For i = 1 To Len(s) st = Mid(s, i, 1) p = p + Val(st) * 2 ^ n n = n - 1 Next i f2d = p End Function 二、编程题 【题目】编写程序，在给定数据范围（如：2～50000）内，查找各位数字的阶乘之和等于该数本身的数。例如145=1!+4!+5!，145就是满足条件的数。 Option Explicit Private Sub Command1_Click() Dim i As Long, a As Long, b As Long, sum As Long Dim num() As Integer, st As String, j As Integer a = Text1 b = Text2 For i = a To b Call pf(i, sum, num) If i = sum Then st = st i = For j = UBound(num) To 1 Step -1 st = st num(j) ! + Next j st = Left(st, Len(st) - 2) vbCrLf End If Next i Text3 = st End Sub Private Function fact(n As Integer) As Long If n = 1 Or n = 0 Then fact = 1 Else fact = n * fact(n - 1) End If End Function Private Sub pf(ByVal n As Long, sum As Long, num() As Integer) Dim i As Integer sum = 0 Do i = i + 1 ReDim Preserve num(i) num(i) = n Mod 10 sum = sum + fact(num(i)) n = n \ 10 Loop Until n = 0 End Sub Private Sub Command2_Click() Text1 = : Text2 = : Text3 = Text1.SetFocus End Sub