一级计算机VB 填空。求高手帮忙

显示全部楼层 · 2011-6-17 06:30:48

(1)编程序求四位数的奇数中，所有各位数字之积（且不为0）是600的倍数的数之和。

原程序：
PrivateSubCommand1_Click()
sum=0
Fori=1001To9999Step2
d1=iMod10
d2=(i\\10)Mod10
d3=(i\\100)Mod10
d4=i\\1000
d=d1*d2*d3*d4
If________________Thensum=sumi
Nexti
Printsum
EndSub

(2)求方程5X-4Y=2，在|X|=100,|Y|=50内的整数解中|X||Y|最大值？

原程序：
PrivateSubForm_click()
Max=0
Forx=-100To100
Fory=-50To50
If5*x-4*y=2Then
s=Abs(x)Abs(y)
________________________________
EndIf
Nexty
Nextx
PrintMax
EndSub

千问 · 2011-6-17 06:30:48

（1）d0and(dmod600=0)
(2)ifsmaxthenmax=s
endif