VB程序设计考试试题及答案
vb程序设计题及答案
vb 程序设计题及答案篇一：vb 程序设计试题及答案】txt> 一、单选题1. visual basic 是一种面向对象的可视化程序设计语言，采取了a 的编程机制。
(a) 事件驱动(b) 按过程顺序执行(c) 从主程序开始执行(d) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容，要对d 属性进行设置。
(a) backcolor (b) borderstyle(c) forecolor (d) backstyle3. 在visual basic 中最基本的对象是c ，它是应用程序的基石，是其他控件的容器。
(a) 文本框(b) 命令按钮(c) 窗体(d) 标签4. 要判断在文本框是否按下enter 键，应在文本框的d 事件中判断。
(a) change (b)keydown(c) click (d)keypress5. 数学表达式3W xIO在vb中的逻辑表达式为d 。
(a) 3=x10(b) 3=x and x10(c) x=3 or x1O (d) x=3 and x1O6. rnd 函数不可能为下列b 值。
(a) O (b) 1(c) O.1234 (d) O.OOO57. 赋值语句:a=123+mid(123456 ，3，2)执行后，a 变量中的值是d(a) 12334(b) 123 (c) 12334 (d) 1578. 对于语句if x=I then y=I ，下列说法正确的是c 。
(a) x=I 和y=I 均为赋值语句(b) x=I 和y=I 均为关系表达式(c) x=I 为关系表达式，y=I 为赋值语句(d) x=I 为赋值语句，y=I 为关系表达式9. 下面程序段表示求两个数中的大数，d 不正确。
(a) max=iif(xy ，x，y) (b) if xy then max=x eIse max=y(c) max=x (d) ify=x then max=yif y=x then max=y max=x10. 当在文本框中输入“ a bcd ”4个字符时，窗体上显示的是c。
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
VB程序的设计编程考试题与答案
VB程序设计编程考试题及答案1.输入3个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3n = Val(InputBox("输入第" & i & "个数"))If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是" ; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel4 = "方程有根"ElseLabel4 = "方程无根"End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > =60 ThenVal (MsgBox("恭喜！成绩通过！"))ElseVal (MsgBox("抱歉！成绩没有通过！"))End IfEnd Sub4.输入一年份，判断它是否为闰年，并显示有关信息。
（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除）Private Sub Command1_Click()Dim y%y = InputBox("请输入年份")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenVal (MsgBox("闰年！"))ElseVal (MsgBox("平年！"))End IfEnd Sub5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
VB程序设计试卷A及答案
_ _ _ _ _ _ _ _ _ _ _ _号学_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _名姓_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _级班_ _ _ _ _ _ _ _ _ _ _ _ _部系----------------------《 VB程序设计》试卷（ A 卷）------（时间 90 分钟满分 100 分）-------线-题号一二三四五合计-----分数-----阅卷人------一、选择题：（ 30 分，每题 2 分）-----阅卷人得分------------1、“x 是小于 100 的非负数”，用 VB表达式表示正确的是（）-----A、 0≤ x<100 B 、0<=x<100C、0<=x or x<100 D 、0<=x and x<100-封--2、下面哪组语句可以将变量 A 和 B 的值互换？（）-----A、 A=B: B=A B、 A=(A+B)/2: B=(A-B)/2------C、 A=A+B:B=A-B:A=A-B D、 A=C:C =B:B=A-----3、在 Select Case X 结构中，描述判断条件 3≦X ≦7的测试项应该写成------____________ 。
----A、 Case 3 ≦ X ≦ 7B、 Case 3 To 7------ C 、 case Is≦3, Is ≧ 3D、 Case 3 ≦ X ， X ≦ 7--密4、下面（）是算术运算符？-----A、mod B 、 imp C、not D、like-----5、以下控件中可以入选为容器控件的是() 。
------A、Image 图像框控件B、 ListBox列表框控件-----C、TextBox 文本框控件D、Picture图片框控件--------------------第 1 页----6、下列操作不能打开代码窗口的是( )A、选中对象 , 单击鼠标右键 , 在弹出的快捷菜单中选择“查看代码”命令B、选中对象 , 双击鼠标左键C、按F7键D、按F4键7、函数 Mid(" 山羊上山山碰山羊脚 ", 3, 2)的结果是（）A、山羊B、羊上C、上山D、山山8、窗体运行后，要使窗体自动显示在屏幕的中央位置，应设置窗体的（）属性？A、WindowstateB、StartuppositionC、IconD、mousePointer9、下列哪个语句是错误的VB语句（）A、 Text1.Text = " 你好！ " ； Text1.BackColor = RedB、 Text1.Text = " 你好！ " ： Text1.BackColor = RedC 、Text1.Text = "你好！"D 、 Option Explicit10、以下描述中错误的是 ( )A、符号常量的使用和变量的使用没有差别B、常量可分为字符型常量，数值常量，时间/ 日期型常量，布尔型常量C、符号常量是用一个标识符来代表一个常量D、常量在程序执行期间其值不会发生变化11、若想要建立一个学生管理的输入界面，其中要求选择学生的性别/ 政治面貌（党 / 团/ 群众）及选课情况（共有 5 门课，可任选），应如何在窗体中利用单选钮和选择框来实现（）。
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项是Visual Basic中的单行注释符号？A. //B. /* */C. 'D. ' '答案：C3. 在Visual Basic中，下列哪个函数用于计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Len答案：A4. 如果要创建一个名为“Form1”的窗体，应该使用哪个关键字？A. FormB. SubC. FunctionD. Class5. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案：B6. 下列哪个选项是Visual Basic中的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D7. 在Visual Basic中，哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A8. 在Visual Basic中，下列哪个选项是正确的条件语句？A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中，下列哪个选项用于创建一个标签控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A10. 在Visual Basic中，下列哪个选项用于创建一个文本框控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个常量。
VB程序设计试卷与答案-2
《VB程序设计基础》试题一、选择题：（每空 2 分，共 20 分）1. VB不具备以下的________________特点。
A. VB是结构化程序设计语言B. VB是面向过程的程序设计语言C. VB采用面向对象的程序设计方法D. VB提供了可视化的工具2. 在Visual Basic中，语句Dim x As Single所说明的变量x属于____________。
A. 整数型B. 逻辑型C. 字符串型D. 单精度实数型3. 在Visual Basic中，表达式Fix(-13.8)的值是_____________。
A. -13B. -14C. 13D. 144. 下列属于正确的Visual Basic表达式是（）A. a2+b*|c|B. 2n-1C. b3+2D. 2·h/g5. 设x是正数，下列能用于描述"x是否为偶数"的Visual Basic条件表达式是_____________。
A. x % 2 = 0B. x / 2 = 0 C．x \2 = 0 D. x Mod 2 = 06. 图片框有一个属性，可以自动调整图片框的大小，以适应图片的尺寸，这个属性是__________。
A. AutosizeB. StretchC. AutoRedrawD. Appearance7.语句Print Format(136.459862,“0.000”)的输出结果是___________。
A. 1.365B. 6.459C. 136.460D. 136.4598. 设S=“380”，表达式Mid（S,2,1）+ Right（S,1）+ Left（S,1）的值为__________。
A.“083”B.“803”C.“038”D.“308”9．一个数组说明为Dim a(3，4) As Integer，则该数组共有_________个元素。
A. 12B. 3C. 4D. 2010. 在过程定义中用__________表示形参的传值。
vb程序设计期末考试题及答案
vb程序设计期末考试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 如果变量x的值是5，那么表达式x + 3的值是多少？A. 2B. 8C. 3D. 5答案：B3. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. IfD. For答案：B4. 下列哪个选项是VB中的保留字？A. MyB. DimC. EndD. Print答案：C5. 在VB中，哪个函数用于计算一个数的平方根？A. SqrB. AbsC. RoundD. Int答案：A6. 在VB中，以下哪个选项是正确的事件处理程序的声明方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Dim Sub Button1_Click()D. Sub Button1_Click() As Integer答案：A7. 在VB中，以下哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B8. 在VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Case...SelectC. For...NextD. While...Do答案：A9. 在VB中，以下哪个选项是正确的循环结构？A. For Each...NextB. Do While...LoopC. Both A and BD. None of the above答案：C10. 在VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用关键字________。
2024年VB语言程序设计试题库
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
VB程序设计试题 及 参考答案
VB程序设计及参考答案一、单选题（共20分，每小题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption （D）Enabled3、（）对象具有clear方法。
（A）图片框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建立一个新（）。
（A）窗体（B）文件（C）工程（D）程序5、下列（）对象不具有Clear方法。
（A）列表框（B）组合框（C）剪贴框（D）图片框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图片框的大小以适合图片的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除文本框中的内容则可利用（）进行。
（A）Caption （B）Text （C）Clear （D）Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是一种面向对象的程序设计语言，所采用的编程机制是（）。
（A）从主程序开始执行（B）按过程顺序执行（C）事件驱动（D）按模块顺序执行11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、无论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
月考上机试题
一．选择题：(10*2)
1由单精度浮点型的数据组成的字节数是
A.2
B.4
C.8
D.16
2.可以同时删除字符串前导和尾部空白的函数是
A．Ltrim
B．Rtrim
C．Trim
D．Mid
3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A.工程资源管理器窗口
B.工具箱窗口
C.代码窗口
D.属性窗口
4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click()
Dim a(10)As Integer
Dim p(3)As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
该过程的运行结果为:
A.35
B.33
C.31
D.29
5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是
A.1
B. -1
C. 0
D. 2
6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3
m=IIf(X＞Y，X+Y，X-Y)
A.-1
B.0
C.1
D. 2
7.设a=″Visual Basic″，下面使b=″Basic″的语句是
A.b=Left(a，8，12)
B.b=Mid(a，8，5)
C.b=Right(a，5，5)
D.b=Left(a，8,5)
8.以下不能运行工程的操作是
A..执行"运行"菜单中的"启动"命令
B.单击工具栏中的"启动"命令
D.按下F5键 C.按下Ctrl+F5键
9.下列关于面向对象程序设计的叙述不正确的是
A.对象具有属性、方法等特性
B.对象之间的通信产生了消息
C.一个对象是一个软件构造块，它包含数据与相关的操作
D.对象的属性不能被改变
10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1 _ Click（）
Static X As Integer
Static Y As Integer
Cls
Y=l
Y=Y+5
X=5+X
Print X，Y
End Sub
程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为:
A.15 16
B.15 6
C.15 15
D.5 6
二．填空题（3*4）
1.计算1*2*3*...*3000，当积大于3000时停止计算。
请在_______处将程序补充完整。
Private Sub FormClick()
Dim t As Single,j As Integer
J=1
For j=1 To 3000
____t=t*j______________
If t＞3000 Then Exit For
Next j
Debug.Print j,t
End Sub
2.下面程序运行后，输出的结果是_BBBB______。
For J= 1 To 10
A(J)=2*J
B(J)=A(J)*2
Next J
Print B(J/2+0.1)
End
3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。
Option Base 0
Private Sub Form _ Click（）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i)
Next i
End Sub
三．编程题：（34*2）
1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。
点击开始按钮在窗体中显示数组a和数组b。
2.编写一段程序，实现label1（我爱我家）的无规则运动，要求使用时钟控件，同时命令按钮1实现自动运动，命令按钮2实现手动控制。
月考答案
一．选择题答案：
1.B
2.C
3.C
4.B
5.D
6.D
7.B
8.D
9.D 10.B 二．填空题:
1. t=t*j
2. BBBB
3. Print a(5-i）
三．编程题：
1. Private Sub Command1_Click()
Dim i%
Const n = 10
Dim a(1 To n) As Integer
Randomize
For i = 1 To n
a(i) = Int(Rnd * 100 + 1)
Print a(i),
If i Mod 4 = 0 Then Print
Next i
Print
（１）
End Sub
Private Sub s( （２）) Dim i%, k%
For i = 1 To n
If a(i) Mod 3 = 2 Then
If k Mod 4 = 0 Then Print
Print a(i),
k = k + 1
End If
Next i
End Sub
2. Dim step1 As Integer
Private Sub Command1_Click()
Timer1.Interval = 200
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
Call mymove
End Sub
Private Sub Form_Load()
Label1.Left = 0
step1 = 1
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call mymove
End Sub
Public Sub mymove()
Label1.Move Label1.Left + 200 * step1
If Label1.Left > Form1.Width Then
'step1 = -1
Label1.Left = -4335
'ElseIf Label1.Left < 0 Then
'step1 = 1
End If
End Su。