Question

VB程序设计题目1、用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。2、利用计时器控件来实现文字的水平移

Answer 1

判断题：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 的代码