2013vb题i1

2：rnd 10 3：: n 4：i i 5：n Function 6：s c

7：Caption Else ForeColor 三、编程题：

1、 * 统计从100-10000中，既能被7整除，也能被3整除的所有数字的个数。 答案：472 程序为：

Private Sub Command1_Click() Dim n%, k%

For n = 100 To 10000

If n Mod 7 = 0 And n Mod 3 = 0 Then k = k + 1 Next n Print k End Sub

2、 * 在文件1.txt当中有1000个数，请对它们从小到大排序，然后打印第500个数。 答案：496 程序为：

Private Sub Command1_Click() Dim n%, k%, a(1 To 1000)

Open \For i = 1 To 1000 Input #1, a(i) Next i

For i = 1 To 1000 - 1 For j = i + 1 To 1000 - 1

If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t Next j Next i

Print a(500) close all End Sub