黑龙江科技学院考试试题答案及评分标准(上机实践操作)33.doc

文档介绍：黑龙江科技学院考试试题答案及评分标准(上机实践操作)
一、用VB完成圆面积和周长的计算(40分)
Private mand1_Click()
Dim r!, l!, s!
r = InputBox("请输入圆的半径:")
l = 2 * * r
s = * r ^ 2
= r
= l
= s
End Sub
Private mand2_Click()
End
End Sub
(评分标准:能完成基本功能30分,算法简洁10分)
二、利用 VB实现数制转换(完成任意一个转换)。(60分)。
Private Sub cmdbin2hex_Click()
= Bin2Hex()
End Sub
Private Sub cmddec2bin_Click()
If IsNumeric() Then
= Dec2Bin()
End If
End Sub
Private Sub cmdDecHex_Click()
If IsNumeric() Then
= Hex(CDbl())
Else
MsgBox "Not a Number.", vbCritical
End If
End Sub
Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdhex2bin_Click()
= Hex2Bin()
End Sub
Private Sub cmdhexdec_Click()
= CStr(Hex2Dec())
End Sub
Function Bin2Dec(InputData As String) As Double
'二进制转变成十进制
Dim DecOut As Double
Dim I As Integer
Dim LenBin As Double
Dim JOne As String
LenBin = Len(InputData)
'确认是否为二进制数
For I = 1 To LenBin
JOne = Mid(InputData, I, 1)
If JOne <> "0" And JOne <> "1" Then
MsgBox "NOT A BINARY NUMBER", vbCritical
Exit Function
End If
Next I
DecOut = 0
For I = Len(InputData) To 1 Step -1
If Mid(InputData, I, 1) = "1" Then
DecOut = DecOut + 2 ^ (Len(InputData) - I)
End If
Next I

Bin2Dec = DecOut

End Function
Function Dec2Bin(InputData As Double) As String
'十进制转变为二进制
Dim Quot As Double
Dim Remainder As Double
Dim BinOut As String
Dim I As Integer
Dim NewVal As Double
Dim TempString As String
Dim TempVal As Double
Dim BinTemp As String
Dim BinTemp1 As String
Dim PosDot As Integer
Dim Temp2 As String
'检查是否为十进制的小数点
If InStr(1, CStr(InputData), ".") Then
MsgBox "Only Whole Numbers can be converted", vbCritical
GoTo eds
End If
BinOut = ""
NewVal = InputData
DoAgain:
'开始计算
NewVal = (NewVal / 2)
'如果有余数
If InStr(1, CStr(NewVal), ".