用vf编程,求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数要求用vf

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/18 17:33:08
用vf编程,求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数要求用vf用vf

用vf编程,求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数要求用vf
用vf编程,求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数
求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数
要求用vf

用vf编程,求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数要求用vf
Private Sub Command1_Click()
Dim g As Integer,s As Integer,b As Integer,
n As Integer,i As Integer
For i = 100 To 999
g = Mid(i,3,1) '个
s = Mid(i,2,1) '十
b = Mid(i,1,1) '百
If (g + s) Mod 10 = b And g Mod 2=0 Then
n = n + 1
Print i
End If
Next
MsgBox "个数为" & n
End Sub