【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：VB程序填空 - 计算机等级绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

ProProblem ProSource ProAnswer Private Sub Form_click Dim a As Integer Dim b As Integer Dim i As Integer Dim t As Integer a 24738 b 24894求24738和24894的最大公约数。

     If a gt b Then t a: a b: b t 6 i a Dim a As Integer Dim b As Integer Dim i As Long a 24738 b 24894 i a Do While ________________________________ i i a Loop Print i求24738和24894的最小公倍数。

     End Sub 102637962 Dim a n max r a Array10 22 33 60 max a0 For i 1 To 3 If max lt ai Then max ai Next i n max士兵在演练过程中，队伍变换成 Do10、22、33、60行时，队形都能 r 0成为矩形。

    问参加演练的士兵最 For i 0 To 3少有多少人？ r r n Mod ai 660 Next i As Long As Long Dim t As Long Dim r As Long If m lt n Then t m: m n: n t Do r m Mod n m n n r Loop Until r 0 Divisor m求27090，21672，11352，8127 End Function 129的最大公约数。

     Private Sub Form_Click As Long As Long Dim t As Long Dim r As Long If m lt n Then t m: m n: n t Do r m Mod n m n n r Loop Until r 0 Divisor m求175，240，360的最小公倍数 End Function 25200。

     Private Function MultipleByVal m As Long ByVal Dim m0amp n0amp Dim m As Long Dim n As Long Dim r As Long m0 365金星和地球在某一时刻相对于太 n0 225阳处于某一确定位置，已知金星 m m0绕太阳一周为225日，地球绕太 n n0阳一周为365日，问两个行星至 r m Mod n少经过多少日仍同时回到原来的 While ________________位置上？ m n n r 16425 Private Sub Form_click Dim s As Integer Dim x As Integer Dim a As Integer Dim b As Integer Dim c As Integer求三位数中，个位数字与十位数 s 0字之和除以10所得的余数是百位 x 100数字，且百位数字是奇数的数的 Do While x lt 999个数。

     a Intx / 100 50 b Intx / 10 - a 100 Dim s As Integer Dim x As Integer Dim a As Integer Dim b As Integer Dim c As Integer s 0 x 100求三位数中，个位数字与十位数 Do While x lt 999字之和除以10所得的余数是百位 a Intx / 100数字，且百位数字是奇数的数的 b Intx / 10 - a 100和。

     c x - a 100 - b 10 27475 If ___________________________________ Then s Dim m a b c d samp s 0 FontSize 14: FontBold True Print: Print: Print For m 1001 To 9999 Step 2 a Intm / 1000 b Intm - 1000 a / 100 c Intm - 1000 a - 100 b / 10编程求在四位数的奇数中，所有 d m Mod 10各位数字之和是25的倍数的数之 If ________________ Then s s m和。

     Next m 1298515 Print s Private Sub Form_Click Dim m a b c d samp s 0 FontSize 14 FontBold True For m 1000 To 9998 Step 2 a Intm / 1000 b Intm - a 1000 / 100编程求在四位数的偶数中，所有 c Intm - a 1000 - b 100 / 10各位数字之和是30的倍数的数之 d m Mod 10和。

     If ________________Then s s m 288840 Next m Private Sub cmdSum_Click Dim i As Integer s As Long FontSize 14 FontBold True ________________ If i Mod 2 0 Then s s i If s gt 500 Then Exit For编程求1到5000之间的能被5整除 Next i的前若干个偶数之和，当和大于 Print s500时终止求和，并输出该和。

     End Sub 550 Private Sub cmdCount_Click Dim i As Integer m As Integer FontSize 14: FontBold True Print: Print: Print m 0 For i 17 To 1000 If________________Then m m 1 Next i编程求在1000以内能被17或者23 Print m整除的正整数的个数。

     End Sub 99 Dim m n r t As Single count m ValInputBoxquot请输入第一个数：quot n ValInputBoxquot请输入第二个数：quot FontSize 14: FontBold True If m lt n Then t m: m n: n t count 0 Do从键盘输入两个数51211314和 ________________84131421，利用辗转相除法求它 m n们的最大公约数。

    求需要经过多 n r少次辗转。

     count count 1 18 Loop Until r 0 m 0 For i 10 To 100 n 1 For j 2 To i If i Mod j 0 Then n n 1已知24有8个正整数因子（即： End If1，2，3，4，6，8，12，24）， Next j而24正好能被其因子数8整除， If ________________ Then求10，100之间有多少个整数 m m 1能被其因子的个数整除。

     End If 12 Next i Dim count As Integer count 0 FontSize 14: FontBold True For i 521 To 8421 Select Case i Case 521 To 999 a i 100 b i 10 Mod 10统计5