VB代码解释！
Private Sub Command1_Click()
if txt_d.text=\"\" and txt_b.text<>\"\" then
txt_d.text= b2d(txt_b.text)
else
if txt_b.text=\"\" and txt_d.text<>\"\" then
txt_b.text= d2b(cint(txt_d.text))
else
msgbox \"请重新输入\"
txt_b.text=“”
txt_d.text=\"\"
end if
end if
End Sub
Public Function d2b(ByVal dec As Long) As String
Do
d2b = dec Mod 2 & d2b
dec = dec \\ 2
Loop While dec
End Function
Public Function b2d(ByVal bin As String) As Integer
Dim i As Long
For i = 1 To Len(bin)
b2d = b2d * 2 + Val(Mid(bin, i, 1))
Next i
End Function
参考答案:Private Sub Command1_Click() '点击命令按钮
Dim n As Single '定义变量,行驶的公里数
Dim mSum As Single '定义变量,需要的车费
n = Val(Text1) '从文本框中读出变量
If n <= 0 Then '如果行驶的公里数小于0,弹出对话框
MsgBox "请输入出租车的公里数"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
label1.caption =""
Exit Sub
ElseIf n <= 5 Then '如果行驶的公里数小于等于5,车费为8元
mSum = 8
Else '如果行驶的公里数大于5,每公里另加1.5元
mSum = 8 + (n - 5) * 1.5
End If
Label1.Caption = "您的行程为：" & n & "公里," _
& vbNewLine & "您应付的车费为：" & Format(mSum, "#0.00") & "元" _
& vbNewLine & "祝您旅途愉快！"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
该回答在2006-03-27 13:26:49由回答者修改过
1