vB中计算5+55+555+5555的程序代码?
推荐于2016-06-30
展开全部
Private Sub Command1_Click()
Dim s As Integer
For i = 1 To 4
s = s + Val(String(i, "5"))
Next i
MsgBox "5+55+555+5555=" & s
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
Private Sub Command1_Click()
Dim s As Integer
For i = 1 To 4
s = s + Val(String(i, "5"))
Next i
MsgBox "5+55+555+5555=" & s
End Sub
类别
我们会通过消息、邮箱等方式尽快将举报结果通知您。
说明
0/200