vb,新手求帮助!!!
发布网友
发布时间：2023-01-01 21:57
共2个回答
热心网友
时间：2023-10-30 21:08
'Int 是取整数
'/ 是除号
'将rmb除以fx的结果乘以100加上0.5，取其结果的整数除以100，就是四舍五入的保留两位数了。
2、'Text3.Text = Str(_______) 应填入usd
'即
'Text3.Text = Str(usd) '意思是将 usd 数值转换成为字符表达方式。
'任务中，请采纳！谢谢！追问还是错啊，显示“溢出”
追答Private Sub Command1_Click()
'错误1
'定义函数格式出错,将
'Dim usd As Double, rmb As Double, fx As Double
'改成
'Dim usd As Long, rmb As Long, fx As Long
'错误2
'因除数不能为 0 否则会出错
'需要加上判断语句判断fx是否为 0
'修改后代码如下
Dim usd As Long, rmb As Long, fx As Long
rmb = Val(Text1.Text)
fx = Val(Text2.Text)
If fx 0 Then
usd = Int(rmb / fx * 100 + 0.5) / 100
Text3.Text = Str(usd)
Else
Text3.Text = "除数不能等于0"
Text2.SetFocus '得到焦点
End If
End Sub
'任务中，请采纳！谢谢！
热心网友
时间：2023-10-30 21:08
