VB的题目~

来源：百度知道 编辑：UC知道 时间：2024/06/22 12:32:05
编写程序~由键盘输入一个3位数并判断这个数是否满足各个数位上的数字之和等于8

Private Sub Command1_Click()
n = Val(InputBox(""))
If n >= 100 And n <= 999 Then
If Val(Mid(n, 1, 1)) + Val(Mid(n, 2, 1)) + Val(Mid(n, 3, 1)) = 8 Then
Print "满足各个位数上的值的和为8"
Else
Print "不满足等于8"
End If
Else
Print "输入错误"
End If
End Sub

楼上方法不好~输入4位数。。

Private Sub Command1_Click()
Dim a As Integer
a = InputBox("请输入一个三位数", , 125)
If Val(Left(a, 1)) + Val(Mid(a, 2, 1)) + Val(Right(a, 1)) = 8 Then
Print a & "满足条件！"
Else
Print a & "不满足条件！"
End If
End Sub

二楼的说的好

呵呵 以我来看三楼也不好 代码噼里啪啦 太多了 我在你们的基础上想出更绝的一招
private sub form1_load（）
print "只许输入一个三位数 不要输错了 输错了不负责任的！！！"
end sub

private sub command1_click（）
n = Val(InputBox(""))
If Val(Mid(n, 1, 1)) + Val(Mid(n, 2, 1)) + Val(Mid(n, 3, 1)) = 8 Then
Print "yes 满足"
else<