一级vb程序填空.docVIP

一级vb程序填空 3293题: 一辆以固定速度行驶的汽车，司机看到里程表上从左到右的读数和从右到左的读数是相同的，这个数是12321(公里)，2小时后，里程表上再次出现一个新的对称数。问车的速度是多少公里/小时？ 原程序： Private Sub Form_Click() Dim m As Long Dim n As Long Dim a(0 To 4) As Byte m = 12321 n = m Do n = n + 1 For i = 0 To 4 a(i) = n \ 10 ^ i Mod 10 Next i _______________ Print (n - m) / 2 End Sub 答案：50 Loop Until a(0) = a(4) And a(1) = a(3) 3294题: n个人围成一圈(编号为1-n)，从第1号的人开始从1报数，凡报到3的倍数的人离开圈子，然后再数下去，直到最后只剩一个人为止。问当n＝17时，剩下的人是多少号？ 原程序： Private Sub Form_Click() Const OUT As Integer = -1 Dim n As Integer,m As Integer,i As Integer,num1 As Integer,num2 As Integer Dim a() As Integer n = 17 m = 3 ReDim a(n) For i = 1 To n a(i) = i Next num1 = 0 Do For i = 1 To n If a(i) OUT Then Num1 = num1 + 1 If num1 Mod m = 0 Then num2 = num2 + 1 If num2 = n Then Print a(i); Exit Do End If ________________ End If End If Next i Loop End Sub 答案：11 3295题: n个人围成一圈(编号为1-n)，从第1号的人开始从1报数，凡报到3的倍数的人离开圈子，然后再数下去，直到最后只剩一个人为止。问当n＝37时，剩下的人是多少号？ 原程序： Private Sub Form_Click() Const OUT As Integer = -1 Dim n As Integer,m As Integer,i As Integer,num1 As Integer,num2 As Integer Dim a() As Integer n = 37 m = 3 ReDim a(n) For i = 1 To n a(i) = i Next num1 = 0 Do For i = 1 To n If a(i) OUT Then Num1 = num1 + 1 If num1 Mod m = 0 Then num2 = num2 + 1 If num2 = n Then Print a(i); Exit Do End If ________________ End If End If Next i Loop End Sub 答案：19 3296题: 求数列f(n) = n*n+n+41的前100项中素数的个数 原程序： Private Sub Form_click() num = 0 For n = 1 To 100 fn = n * n + n + 41 flag = 1 For m = 2 To Sqr(fn) If ________________ Then flag = 0 Exit For End If Next If flag = 1 Then num = num + 1 End If Next n Print num End Sub 答案：86 n Mod m = 0 3297题: 求整数123456的质因子个数。如72＝2*2*2*3*3，则因子个数为5。 原程序： Private Sub Form_Click() Dim n As Long Dim m As Long Dim num As Long n = 123456 m = 2 While (m = n) If (n Mod m = 0) Then num = num + 1 ________________ Else m = m + 1 End If Wend Print num End Sub 答案：8 n = n / m 3298题: 求24738和24894的最大公约数。 原程序： Private Sub Form_click() Dim a As Integer Dim b As Integer Dim i As Integer Dim t As Inte