Dim x As Double, Y As Double x = InputBoxquot请输入当前顾客购买鸡蛋的重量以公斤为单位quotIf x lt 3 Then Y = 76 * x Else Y = 76 * x * 08 End If Print FormatY, quot000quotEnd Sub 第。
然后返回范例X=”VB is very good”P=ReplaceX,good,nice输出结果为P=”VB is very nice”5 StrReverse反转字符串 格式P=StrReverseX说明返回X参数反转后的字符串。
第一行改为 Public Sub sumByVal n As Integer, S As Integer已经调试通过 难道是因为你的text3text为空或非数值,因此p=0,所以s3=0s1和s2是不是也为零如果不是,就把 Dim s1, s2, s3 As Integer 改。