Question

VB程序设计题目

1、用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。

2、利用计时器控件来实现文字的水平移动，要求：
(1) 运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进行窗体（尾部先进入）。
(2) 文字移动时颜色不断产生随机变化。

3、 求出1-10000之内所有被13除余7，被7除余5，被5除余3的数，并将所求结果以每行5个写入到D:\result.txt 中。

判断题
1．在循环体内，循环变量的值可以被改变。
2．数组可以不声明，直接引用。
3．声明形参处缺省传递方式声明，则为按地址传递（Byref）。
4．Sub过程名在过程中必须被赋值。
5．以操作模式 Append 打开的文件，既可以进行写操作，也可以进行读操作。
6．按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。
7．VB中的RGB函数可以返回的不同颜色值有255×255×255种。
8．可以用cls方法清除图片框或影像框中的文字和图形内容，但不能清除图片内容。
9．列表框控件List1的最后一个表项为List1.List(List1.Listcount-1)。
10．VB默认坐标系的（0，0）点，位于窗体的中心。

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 的代码

Answer 2

你明天肯定要补考了…同喜