VB程序设计试题与答案-1资料
计算机程序设计-VisualBasic【VB】考试试题(1)
A、 AutoSize B、 Visible C、 Enabled D、 WordWrap 正确答案： A 解析：
42、当文本框的 MaxLength 属性值取________时，该文本框能容纳的字符数最多。
A、 256 B、 512 C、 0 D、 -1 正确答案： C 解析：
43、在一行语句内写多条语句时，每个语句之间用_____ ___符号分隔。
A、 ； B、 : C、 ， D、 、 正确答案： B 解析：
44、结构化程序由三种基本结构组成，下面术语中是三种基本结构之一的是______ _。
A、 递归结构 B、 选择结构 C、 输入输出结构 D、 过程结构 正确答案： B 解析：
45、在默认情况下，InputBox() 函数返回值的类型为______ __。
8、下列关于 VB 编程的说法中，不正确的是（ ）。
A、 事件是能被对象识别的动作 B、 方法指示对象的行为 C、 属性是描述对象特征的数据 D、 VB 程序采用的运行机制是面向对象 正确答案： D 解析：
9、下面所列符号中，_________不是数据类型说明符。
A、 !
B、 % C、 ？ D、 # 正确答案： C 解析：
A、 0.01*Int(100*(x+0.005)) B、 0.01*Int(x+0.005) C、 0.01*Int(100*(x+0.05)) D、 0.01*Int(x+0.05) 正确答案： A 解析：
24、从字符串变量 Cstr 中取左边 4 个字符，应使用________。
A、 Left(Cstr，4) B、 Left(Cstr，1，4) C、 Mid(Cstr，3，4) D、 Mid(Cstr，4，3) 正确答案： A 解析：
VB程序设计1
1．第1题单选题应用程序设计完成后，应将程序保存，保存的过程是（）A、只保存窗体文件即可B、只保存工程文件即可C、先保存工程文件，之后保存窗体文件D、先保存窗体文件（或标准模块文件），之后还要保存工程文标准答案：D您的答案：题目分数：5此题得分：0.0批注：2．第2题单选题下列不能打开属性窗口的操作是（）A、执行“视图”菜单中的“属性窗口”命令B、按F4键C、按Ctrl TD、单击工具栏上的“属性窗口”按钮标准答案：C您的答案：题目分数：5此题得分：0.0批注：3．第3题单选题 Visual Basic的编程机制是（）A、可视化B、面向对象C、面向图形D、事件驱动标准答案：D您的答案：题目分数：5此题得分：0.0批注：4．第4题单选题运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的（）事件A、CLICKB、DBLCLICKC、GOTFOCUSD、CHANGE标准答案：D您的答案：题目分数：5此题得分：0.0批注：5．第5题单选题下面不是VB工作模式的是（）A、设计模式B、运行模式C、汇编模式D、中断模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：6．第6题单选题为了防止用户随意将光标置于控件上，应（）A、将控件的TABINDEX属性设置为0B、将控件的TABSTOP属性设置为TRUEC、将控件的TABSTOP属性设置为FALSED、将控件的ENABLED属性设置为FALSE标准答案：D您的答案：题目分数：5此题得分：0.0批注：7．第7题单选题在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的（）设置为0A、INDEXB、TABINDEXC、TABSTOPD、ENABLED标准答案：B您的答案：题目分数：5此题得分：0.0批注：8．第8题单选题可视化编程的最大优点是（）A、具有标准工具箱B、一个工程文件由若干个窗体文件组成C、不需要编写大量代码来描述图形对象D、所见即所得标准答案：C您的答案：题目分数：5此题得分：0.0批注：9．第9题单选题 VB应用程序的运行模式是（）A、解释运行模式B、编译运行模式C、两者都有D、汇编模式标准答案：C您的答案：题目分数：5此题得分：0.0批注：10．第10题单选题在运行阶段，要在文本框TEXT1获得焦点时选中文本框中所有内容，对应的事件过程是（）A、Private Sub Text1_GotFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubB、Private Sub Text1_LostFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubC、Private Sub Text1_Change( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End SubD、Private Sub Text1_SetFocus( )Text1.SelStart=0Text1.Sellength=Len(Text1.Text)End Sub标准答案：A您的答案：题目分数：5此题得分：0.0批注：11．第11题单选题以下能够触发文本框Change事件的操作是（）A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容标准答案：D您的答案：题目分数：5此题得分：0.0批注：12．第12题单选题如果要在文本框中输入字符时，只显示某个字符，如星号（*），运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（）A、文本框的MULTILINE属性值为TRUEB、文本框的LOCKED属性值为TRUEC、文本框的MULTILINE属性值为FALSED、文本框的LOCKED属性为FALSE标准答案：B您的答案：题目分数：5此题得分：0.0批注：13．第13题单选题决定标签（Label）显示的属性是（）A、TextB、NameC、CaptionD、Alignment标准答案：C您的答案：题目分数：5此题得分：0.0批注：14．第14题单选题 Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（）A、属性、事件、事件过程B、控件、窗体、事件C、属性、过程、方法D、属性、事件、方法标准答案：D您的答案：题目分数：5此题得分：0.0批注：15．第15题单选题任何控件都具有的属性是（）A、TEXTB、CAPTIONC、NAMED、FORECOLOR标准答案：C您的答案：题目分数：5此题得分：0.0批注：16．第16题单选题命令按钮的标题文字由（）属性来设置。
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试题及答案(共10篇)
vb试题及答案（共10篇）篇1：计算机vb试题及答案计算机vb试题及答案(1)下面叙述正确的是(C)A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的有穷性是指算法必须能在执行有限个步骤之后终止D.以上三种描述都不对(2)以下数据结构中不属于线性数据结构的是(C)A.队列B.线性表C.二叉树D.栈(3)在一棵二叉树上第5层的结点数最多是(B)注：由公式2k-1得A.8B.16C.32D.15(4)下面描述中，符合结构化程序设计风格的是(A)A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B.模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用goto语句(5)下面概念中，不属于面向对象方法的是(D)A.对象B.继承C.类D.过程调用(6)在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是(B)A.可行性分析B.需求分析C.详细设计D.程序编码(7)在软件开发中，下面任务不属于设计阶段的是(D)A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型(8)数据库系统的核心是(B)A.数据模型B.数据库管理系统C.软件工具D.数据库(9)下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10)下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A.内模式B.外模式C.概念模式D.逻辑模式(11)算法的时间复杂度是指(C)A.执行算法程序所需要的时间B.算法程序的长度C.算法执行过程中所需要的基本运算次数D.算法程序中的指令条数(12)算法的空间复杂度是指(D)A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间(13)设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A.349B.350C.255D.351(14)结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15)在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)注：即第一个阶段A.概要设计B.详细设计C.可行性分析D.需求分析(16)数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。
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程序设计试题及答案一、选择题（每题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期中考试试卷-及参考答案(B1卷)-
2010~2011学年度第2学期期中考试试卷[B1]考试科目: 《Visual Basic程序设计》考试形式: 开卷-上机考答题时间: 120分钟班级学号姓名一、选择题（2分/题, 共20分）1.以下有关VB对象名称(Name)属性的叙述，正确的是_______。
A）对象的Name属性值可以为空B）窗体的Name属性用来标识和引用窗体C）可以在程序运行期间改变对象的Name属性值D）窗体的Name属性值是显示在标题栏中的字符串2.Visual Basic6.0集成环境的主窗口中不包括_______。
A）标题栏B）菜单栏C）状态栏D）工具栏3. 在开发VB应用程序时, 一个工程一般至少应含有_______。
A）标准模块文件和类模块文件B）工程文件和窗体文件C）工程文件和类模块文件D）工程文件和标准模块文件4. .为了使命令按钮(名称为Command1)右移200, 应使用的语句是_______。
A）Command1.Move -200B）Command1.Move 200C）Command1.Left= Command1.Left+200D）Command1.Left= Command1.Left-2005. 当程序运行时, 系统自动执行启动窗体的_______事件过程。
A）Click B）Load C）Unload D）GotFocus6. Visual Basic有多种类型的窗口, 若要在设计时看到窗体窗口, 以下操作不正确的是________。
A）打开“视图”菜单, 选择“对象窗口”B）双击VB窗口工作区的空白处C）单击“工程资源管理器”中的“查看对象”按钮D）双击“工程资源管理器”中对应的窗体名7. 下面关于属性和方法的描述中, 不正确的是________。
A）属性是对象的特征, 方法是对象的行为B）属性和方法都有值C）属性可以被赋值D）方法表示能执行的操作8. 下面关于标签和文本框的描述中, 正确的是________。
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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB程序设计基础》试题一、选择题：（每空 2 分，共 20 分）1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。
A. 结构化程序设计B. 程序开发环境C. 事件驱动编程机制D. 程序调试技术2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。
A. 属性、事件、方法B. 控件、属性、事件C. 窗体、控件、过程D. 窗体、控件、模块3. 窗体模块保存在一个扩展名为__________的文件中。
A. basB. vbpC. vbgD. frm4. 下面正确的赋值语句是_________。
A. x+y=30B. y=π*r*rC. y=x+30D. 3y=x5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。
A.“492”B.“249”C.“294”D.“429”6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。
A. a<=b<=cB. a<=b Or b<=cC. a<=b And b<=cD. a<=b Not b<=c7.为了把焦点移到文本框，所使用的方法是___________。
A. SetFocusB.VisibleC.RefreshD.GetFocus8. INT（100*RND）产生的随机整数的闭区间是_____________。
A.[0，100]B.[1，100]C.[1，99]D.[0，99]9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个元素。
A. 5B. 36C. 30D. 不确定10. 下面过程定义语句合法的是____________。
A. Function P1（P1）B. Function P1（By Val x As Integer ） As IntegerC. Sub P1（x As Integer ）As SingleD.Sub P1（ByVal x （））1．找出100以内能同时被3、5、7整除的最小5个数据。
Private Sub Command1_Click()Dim countn%, n%n = 1: countn = 0Don = n + 1If ___________________________________________ ThenPrint ncountn = countn + 1End IfLoop _______________________End Sub2. 输出杨辉三角前五行。
Option Base 1Private Sub Command1_Click()Dim a(5, 5) As Integer, i As Integer, j As IntegerFor i = 1 To 5a(i, 1) = 1二、填空题：（每空 3 分，共 18 分）_____________________________Next iFor i = 1 To 5For j = 2 To i - 1________________________________Next jNext iFor i = 1 To 5For j = 1 To iPrint a(i, j),Next jPrintNext iEnd Sub3. 求水仙花数。
Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, x As IntegerFor a = 1 To 9For b = 0 To 9For c = 0 To 9x =_____________________If ____________________________ Then Print x Next cNext bNext aEnd Sub1. 点击窗体时，分析程序的执行结果。
Private Sub Form_Click()For i = 1 To 5For j = 1 To iPrint "* ";Next jPrintNext iEnd Sub程序功能结构分析：程序执行结果：2. 单击命令按钮时，分析程序的执行结果。
Private Function P(N As Integer)dim sum%For I = 1 To Nsum = sum + 1Next I三、程序分析题：（每题 6 分，共 12 分）P = sumEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub程序功能结构分析：程序执行结果：1. 编制如下图所示的程序。
本程序根据如下公式，由输入的身高计算标准体重。
男：标准体重（kg ）= 身高（cm ）-100女：标准体重（kg ）= 身高（cm ）-105四、基本操作题：（每题 10 分，共 20 分）2. 编写一个窗体，窗体上有一个标签，并且标签上字的颜色可以不停的变化，标签从 窗体的上部向下部滚动出现。
1． 求：1+2！+3！+4！+……+ n!（n 为任意输入的一个正整数）。
五、综合应用程序设计题：（每题 15 分，共 30 分）2. 输入若干个学生的成绩（以-1为结束标志），存入一维数组中，统计输入的成绩个数、最高分、最低分、平均分和及格率。
参考答案一、选择题：（每空 2 分，共 20 分）1. C2. A3. D4. C5. B6. C7. A8. D9.C 10.B二、填空题：（每空 3 分，共 18 分）1. n mod 3=0 And n mod 5=0 And n mod 7=0 until countn=52. a(i,i)=1 a(i,j)=a(i-1,j)+a(i-1,j-1)3. x=100*a+10*b+c x=a^3+b^3+c^3三、程序分析题：（每题 6 分，共 12 分）1. 程序功能结构分析：单击窗体，在窗体上输出五行星号，第1行输出一个*号，第2行输出两个*号，以此类推，第5行输出五个星号。
该程序结构为双重循环结构，循环体中Print "* "语句一共执行15次。
程序执行结果：2.程序功能结构分析：程序中定义了一个函数过程P，含一个形参N，其功能是求N个1之和。
当点击命令按钮时，分别四次调用函数过程P，并分别将实参1、2、3、4传递给形参N。
然后，将P返回的值求和，并输出。
程序执行结果：四、基本操作题：（每题 10 分，共 20 分）1.参考答案：Private Sub Command1_Click()If Option1.Value ThenText2.Text = Val(Text1.Text) - 100ElseText2.Text = Val(Text1.Text) - 105End IfEnd Sub2.参考答案：Private Sub Form_Click()Label1.Caption = "欢迎学习VB程序设计" & vbNewLine & NowTimer1.Interval = 500End SubPrivate Sub Timer1_Timer()Label1.ForeColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))If Label1.Top < Form1.Height ThenLabel1.Top = Label1.Top + 50ElseLabel1.Top = 0End IfEnd Sub五、综合应用程序设计题：（每题 15 分，共 30 分）1.参考答案：Private Sub Command1_Click()Dim n As Integer, sum As Double, f As Double, i As Integersum = 1f = 1n = Val(Text1.Text)For i = 2 To n Step 1f = f * isum = sum + fNext iText2.Text = Str(sum)End Sub2.参考答案：Option Base 1Private Sub Command1_Click()Dim s(100) As Single, n As Integer, max As Integer, min As Integer, sum As Single, f As Single, i As Integer, count As Integer n = 0: count = 0sum = 0For i = 1 To 1000s(i) = InputBox("请输入第" & i & "个学生的成绩：", "成绩录入") If s(i) = -1 Then Exit Forn = n + 1Print "第" & i & "个学生的成绩：" & s(i)Next iText1.Text = nmax = 0min = 100For i = 1 To nsum = sum + s(i)If s(i) > max Then max = s(i)If s(i) < min Then min = s(i)If s(i) > 60 Then count = count + 1Next iText2.Text = maxText3.Text = minText4.Text = sum / nText5.Text = (count / n) * 100 & "%"End Sub《VB程序设计基础》试卷第11 页共11 页。