发布时间 : 星期五 文章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