判断题：1X、 2X、3X、4X、5X、6X、7X、8Y、9Y、10X
正确率就不知道了 不太会做理论题 不试不知道 你自己试一下不就知道了
上面的第一题 的图片怎么丢了？
第二题很简单 一个计时控件 每隔几百毫秒就移动一下Label 然后加个判断
出界了就反向移动，代码就不用了吧 这个都不知道做？
第三题是弱智题
n=0
str=""
for i=1 to 10000
if (i mod 13=7)and(i mod 7=5)and(i mod 5=3) then
n=n+1
if n mod 5=0 then
str=str & cstr(i) & vbCrLf
else
str=str & cstr(i) & " "
end if
end if
next i
'--------------------------------------
'文件操作部分
open "D:result.txt" for output as #1
print #1,str
close #1
'--------------------------------------
以上是VB6的代码
如果是VB.Net 修改一下文件操作部分就可以了
Dim n As Long
Dim str As String
n = 0
Str = ""
For i = 1 To 10000
If (i Mod 13 = 7) And (i Mod 7 = 5) And (i Mod 5 = 3) Then
n = n + 1
If n Mod 5 = 0 Then
str = str & CStr(i) & vbCrLf
Else
str = str & CStr(i) & " "
End If
End If
Next i
Dim chl As New System.IO.StreamWriter("D:result.txt", True)
chl.WriteLine(str)
chl.Close()
以上是VB.Net 的代码
