寻找高手 解一份 VB 试卷！ 急急急！！
寻找高手 解一份 VB 试卷！ 急急急！！
一、判断题（共 10 分，每小题 1 分。对 用A表示，错 用B表示）
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）点，位于窗体的中心。
五、程序设计题（共20分，前一题6分，后两题各7分）
2、利用计时器控件来实现文字的水平移动，要求：
(1) 运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进行窗体（尾部先进入）。
(2) 文字移动时颜色不断产生随机变化。
一、判断题（共 10 分，每小题 1 分。对 用A表示，错 用B表示）
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）点，位于窗体的中心。
五、程序设计题（共20分，前一题6分，后两题各7分）
2、利用计时器控件来实现文字的水平移动，要求：
(1) 运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进行窗体（尾部先进入）。
(2) 文字移动时颜色不断产生随机变化。
赞 kj0752 幼苗
共回答了24个问题采纳率：83.3% 举报
本人学VB也有3年了.这点因该是小事一桩
1-5：A.B.A.B.B
6-10:A.A.A.A.B
程序设计题
要添加的控件：标签（LAbel1），时钟（Timer1)，按钮（command1）
代码如下：
Private Sub Command1_Click()
Label1.Left = 0 '设置标签在最左边开始移动
Timer1.Enabled = True '执行TIMER过程
End Sub
Private Sub Form_Load()
Label1.Caption = "文字颜色变化"
Timer1.Interval = 300 '设置时钟的时间间隔
Timer1.Enabled = False '先不用时钟
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Form1.Width Then '判断是否到达最右边
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) '设置随机颜色
Label1.Left = Label1.Left + Me.Width / 10 '每次移动十分之一距离
Else
Label1.Left = 0 '设置标签在最左边开始移动
End If
End Su
1-5：A.B.A.B.B
6-10:A.A.A.A.B
程序设计题
要添加的控件：标签（LAbel1），时钟（Timer1)，按钮（command1）
代码如下：
Private Sub Command1_Click()
Label1.Left = 0 '设置标签在最左边开始移动
Timer1.Enabled = True '执行TIMER过程
End Sub
Private Sub Form_Load()
Label1.Caption = "文字颜色变化"
Timer1.Interval = 300 '设置时钟的时间间隔
Timer1.Enabled = False '先不用时钟
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Form1.Width Then '判断是否到达最右边
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) '设置随机颜色
Label1.Left = Label1.Left + Me.Width / 10 '每次移动十分之一距离
Else
Label1.Left = 0 '设置标签在最左边开始移动
End If
End Su
1年前
8
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
期末总动员试卷的答案 急急急急急急急急急！！！！！！！！！！！
1年前1个回答
-
1年前1个回答
-
江苏版【新课标】小学数学六年级下册第一单元试卷答案，急急急急急急
1年前4个回答
-
学海风暴七年级上册第一单元试卷的作文题目是什么 急急急急急急急.
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答