Visual Basic 6考试试卷2答案.doc

Visual Basic 6.0考试试卷（B） 班级_ 姓名_ 成绩_一、填空（40分，每个填空1分）1Visual Basic语言是在_ Basic_语言的基础之上推出的。2启动中文Visual Basic的方法通常有_2_种。3工程文件的后缀是_VBP_，窗体文件的后缀是_FRM_，标准模块文件的后缀是_BAS_，类模块文件的后缀是_CLS_。4对象属性的设置可以有两种方法，一种是_在属性设置窗口中_，另一种是_在程序中_。5在VB中，属性是对象的_性质_，方法是对象的_动作。事件是对象的响应_。6Int(8/5)的值是_1_，Fix(-8/3)的值是_-2_，175的值是_2_，16 Mod 7的值是_2_。7产生二位正整数的式子是_INT(RND*(90)+10)_。从一个五位正整数（N）中获取个位数字的式子是_N-INT(N/10)*10_。8VB中变量、符号常量、自定义函数、对象、类和模块的名称以_字母_或_汉字_开头，变量名称不可以超过_40_个字符。一个汉字相当于_1_个字符。9一行语句允许最多_255_个字符, 一行中的多条语句之间必须用_：_分隔10一行语句可以分多行书写，在续行的前一行末尾应加入_空格加下划线_。11Visual Basic中的数据类型可分为_标准_和_自定义_两大类。12如果没有声明变量的数据类型，则该变量将被默认为是_变体_类型。13Abs(-10.6)=_10.68_，Asc(“ABC”)=_65_，Chr(66)= _B_，Len(“ABCDEFG)=_7，Str$(65)+Str$(-32)= _65-32_。14Val(“26)+Val(“12AB”)= _38_，Len(Space(6)= _6_，String$(3，”非典”)=_非非非_。15Left(“2008年北京奥运，5)= _2008年_，Right(“2008年北京奥运，4)= _北京奥运_，Mid(“2008年北京奥运”，6，2)= _北京_，“北京”&2008=_北京2008_。165-2 =4 Or 5= 3的值是_TRUE_。二、回答问题（10分）1如何使用工具箱中的控件工具在窗体中创建控件对象？答：（2分）单击工具箱中的控件，然后在Form1窗体中拖曳鼠标；或者双击工具箱中的控件。2打开代码窗口的方法是什么？如何打开工程资源管理器？答：（2分）（1）单击视图 代码窗口命令，可调出代码窗口。（2）单击视图工程资源管理器命令，可调出工程资源管理器窗口。3如何运行程序？如何使运行的程序停止运行？（各有两种方法）答：（2分）（1）单击标准工具栏内的启动按钮或按F5按键（2）单击标准工具栏内的启动按钮，或单击窗体窗口右上角的叉子按钮，4如果有多个工程文件，应如何操作就可以运行任何一个工程文件？答：（2分）如果要运行新创建的工程2程序，可将鼠标移到工程组窗口（即工程资源管理器）的工程2（工程2）行，单击鼠标右键，弹出其快捷菜单，再单击该菜单中的设置为启动命令，然后再单击标准工具栏内的启动按钮或按F5按键来运行新创建的工程2程序。5如果有多个窗体文件，应如何操作就可以运行任何一个窗体文件？答：（2分）如果要运行新创建的Form2窗体程序，可将单击工程工程1属性命令，调出工程1-工程属性对话框，再在通用标签内启动对象下拉列表框中选择Form2选项，然后单击确定按钮。以后，单击标准工具栏内的启动按钮或按F5按键，即可运行新创建的Form2窗体程序。三、分析程序运行结果（30分）1For A=1 To 20 If A Mod 2=1 Then Print A, End IfNext A答：（4分）2写出程序中每一条语句的作用和整个程序的作用Private Sub Form_Activate() Dim N As Integer, SUM, SUN1 As Long SUM = 0: SUM1 = 0 For N = 1 To 100 SUM = SUM + N SUM1 = SUM1 + SUM Next N Print SUM1 End Sub答：（8分）（1）加载窗体后产生事件（2）声明变量N 为整型变量， SUM和SUN1变量为长整型变量（3）给变量SUM和SUM1赋初值0（4）可循环100次，每一次循环使变量N自动加1，N依次取值1、2100（5）累加语句，进行变量N的累加运算（6）累加语句，进行变量SUM的累加运算（7）循环结束（8）显示计算结果（9）事件结束整个程序是求1+(1+2)+(1+2+100)的值3 For A=1 To 5 Print Tab(10-A); For B=1 TO 2*A-1 Print “*”;Next BPrintNext A答：（4分）4A=1:B=3:I=5Do C=A:A=B:B=CPrint A,B,CI=I-2Loop Until I=0Print A,B,C答：（4分）5I=1While I=1While B=A Print A,B B=B-2WendA=A-2WendPrint A,B答：（3分）四、字母水平来回移动的程序（20分）程序运行后的画面如图1所示。单击窗体中的开始按钮，即可看到一个字母从左向右移动，移到最右边后，另一个字母又从右向左移动。周而复始，不断来回移动，如图2所示。在字母来回移动的过程当中，字母不断改变、颜色了不断变化。单击窗体中的退出按钮后，可使程序中止运行。图1图2程序的窗体中有多个控件对象：1个窗体、2个按钮、4个时钟和2个标签，如图3所示。它们的主要属性设置如表1所示。对象的序号按从上到下、从左到右的顺序依次排号。窗体对象的序号为1。窗体对象的StartUpPosition属性设置为2-屏幕中间。图3表1序号类别名称Caption文字特点或IntervalEnabled1窗体Form1字母水平来回移动12号、黑色True2时钟Timer1无Interval=80False3时钟Timer2无Interval=80False4时钟Timer3无Interval=3000False5时钟Timer4无Interval=3000False6按钮Command1开 始12号True7标签Label1空16号、红色True8标签Label2空16号、红色True9按钮Command2结 束12号True答：输入代码程序如下：该程序中Timer1和Timer3时钟对象负责字母从左向右移动，Timer2和Timer4时钟对象负责字母从右向左移动。Timer1和Timer2时钟对象触发后执行字母移动程序，Timer3和Timer4时钟对象触发后执行重新产生新颜色字母的程序。Rem 在通用声明过程段内，声明变量N、M为整型，A$为字符型，在窗体模块中有效Dim N ,M As Integer, A$Private Sub Command1_Click() Timer1.Enabled = True 设置Timer1时钟对象有效 Timer2.Enabled = False 设置Timer2时钟对象无效 Timer3.Enabled = True 设置Timer3时钟对象有效 Timer4.Enabled = False 设置Timer4时钟对象无效 FontSize = 20 设置Print输出的字符大小为20 ForeColor = RGB(255, 0, 0) 设置Print输出的字符的颜色为红色 A$ = Chr(Int(Rnd * 26) + 65) 产生一个随机的英文大写字母 N = 1：M = 1 变量N用来存储字符的列号，变量M用来存储来回移动的次数 Cls 清除窗体中的字符Label2.Caption = M 将变量M的值（来回移动的次数）在标签Label2内显示End SubPrivate Sub Timer1_Timer() Cls N = N + 1 变量N表示字符的列号，它自动加1 Print Tab(N); A$; 在变量N确定的列位置显示随即产生的字母 Label1.Caption = N 将变量N的值（列号）在标签Label1内显示End SubPrivate Sub Timer2_Timer() Cls N = N 1 变量N表示字符的列号，它自动减1 Print Tab(N); A$; 在变量N确定的列位置显示随即产生的字母 Label1.Caption = N 将变量N的值（列号）在标签Label1内显示End SubPrivate Sub Timer3_Timer() Timer1.Enabled = False 设置Timer1时钟对象无效 Timer2.Enabled = True 设置Timer2时钟对象有效 Timer3.Enabled = False 设置Timer3时钟对象无效 Timer4.Enabled = True 设置Timer4时钟对象有效 ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) 设置字母的随机颜色 A$ = Chr(Int(Rnd * 26) + 65) 产生一个随机的英文大写字母 M = M + 1 将变量M的值（来回移动的次数）自动加1 Label2.Caption = M 将变量M的值（来回移动的次数）在标签Label2内显示End SubPrivate Sub Timer4_Timer() Timer1.Enabled = True 设置Timer1时钟对象有效 Timer2.Enabled = False 设置Timer2时钟对象无效 Timer3.Enabled = True 设置Timer3时钟对象有效 Timer4.Enab