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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/29 04:51:14
用vf编程,求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数求[100,800]中,个位数与十位数数字之和除以10所得的余数是百位数字的偶数的个数要求用vf
xJ@_eA[ 4 iABAo"Ҙ4.MIbъ jgR(Ei6^K?o),-b_= o7?-{'y|z:vCcEr"/X eD/ʨjvoҒtӵyfkơZ-s])dˬ &,:Pa-ސ 5tj 6-fMD%'4/))Y;! MB3/V i8)(Y:G:FA&{QsQn^?т֌KE1$= -3'r\vje7]A

用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