下载文档原格式
在Visual Basic设计界面中不能隐藏的窗口是( A )。
A）工程窗口B）属性窗口C）立即窗口D）窗体窗口第2题:以下可以构成语句的一项是( B )。
A）对象名.属性B）对象名.方法名C）对象名.事件名D）对象名.函数名第3题:以下不是Visual Basic 的特点的选项是( B )。
A）可视编程B）算法设计C）事件驱动D）面向对象第4题:在Visual Basic中通过( A )属性来设置字体的颜色。
A）FontColorB）ClipControlC）BackColorD）ShowColor第5题:设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用( D )属性。
A）ControlBoxB）ClipControlC）BordeStyleD）AutoRedraw第6题:( C )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A）文件B）属性C）方法D）窗体第7题:以下不属于同类的是( A )。
A）ClickC）CaptionD）Top第8题:当窗体大小改变时，要使其中的控件也按比例发生变化，应使用窗体的是( B )。
A）AutoSize 属性B）Resize事件C）AutoRedraw 属性D）Stretch方法第9题:对象可以识别和响应的某些行为称为( D )。
A）属性A）方法C）继承D）事件第10题:与传统的程序设计语言相比，Visual Basic 最突出的的特点是( C )。
A）结构化程序设计B）程序开发环境C）事件驱动编程机制D）程序调试技术第11题:在正确安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。
以下方式中，不能启动Visual Basic的是( D )。
A）通过“开始”菜单中的“程序”命令B）通过“我的电脑”找到vb6.exe，双击该文件名C）通过“开始”菜单中的“运行”命令D）进入DOS方式，执行vb6.exe文件第12题:为了用键盘打开菜单和执行菜单命令，第一步应按的键是( A )。
vb试题及答案一一、选择题1. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. IfC. ForD. While答案：A2. Visual Basic中的哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A4. 在Visual Basic中，以下哪个函数用于将字符串转换成数字？A. Str()B. Val()C. Int()D. CInt()答案：D5. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Quit答案：B二、判断题1. Visual Basic是一种面向对象的编程语言。
（对）2. 在Visual Basic中，所有的变量都需要声明数据类型。
（错）3. 在Visual Basic中，可以使用If语句来实现条件判断。
（对）4. Visual Basic中的数组下标总是从0开始。
（错）5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。
（错）三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么？答：循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件，这使得处理大量数据或执行重复任务变得更加高效和简洁。
2. 请解释Visual Basic中类和对象的区别。
答：在Visual Basic中，类是一个模板，它定义了对象的属性和方法。
而对象是类的实例，具有类定义的属性和方法，并可以进行操作。
四、编程题1. 编写一个Visual Basic程序，该程序接受用户输入的三个数，并计算这三个数的平均值。
```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。
《算法与程序设计》复习题一、选择题部分(100题)一章一节：了解计算机解决问题的过程1．用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（）A、分析问题B、设计算法C、编写程序D、调试程序答案：B2.学校要举行运动会，请你设计一个能够对运动员分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是（）。
A、分析问题，编写程序，设计算法，调试程序B、设计算法，编写程序，提出问题，调试程序C、提出问题，设计算法，编写程序，调试程序D、设计算法，提出问题，编写程序，调试程序答案：C3．下列步骤不属于软件开发过程的是（）。
A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护答案：B4．用计算机解决问题的步骤一般为（）①编写程序②设计算法③分析问题④调试程序。
A．①②③④ B．③④①② C．②③①④ D．③②①④答案：D5．以下描述中最适合用计算机编程来处理的是（）。
A、确定放学回家的路线B、计算某个同学期中考试各科成绩总分C、计算100以内的奇数平方和D、在因特网上查找自己喜欢的歌曲答案：C6．以下问题中最适合用计算机编程处理的是（）。
A、制定本学期的学习计划B、计算正方形的周长C、创作一首歌曲D、求1000以内的所有素数答案：D7．由“上车—掏钱—投币”所描述的问题是（）。
A、无人售票车投币过程B、乘公交车过程C、上车过程D、下车过程答案：A一章二节：算法和算法描述8．下面说法正确的是（）。
A、算法+数据结构=程序B、算法就是程序C、数据结构就是程序D、算法包括数据结构答案：A9．算法描述可以有多种表达方法，下面哪些方法不可以描述“水仙花数问题”的算法（）。
A.自然语言B.流程图C.伪代码D.机器语言答案：D10．下面关于算法的说法错误的是（）。
A、算法必须有输出B、算法就是程序C、算法不一定有输入D、算法必须在有限步执行后能结束答案：B11.算法的三种基本控制结构是顺序结构、分支结构和（）。
1.下面关于比特的叙述中，错误的是（1 ）A.比特是组成数字信息的最小单位B.比特只有“0”和“1”两个符号C.比特既可以表示数值和文字，也可以表示图像和声音D.比特” 1”总是大于比特“0”2.在下列有关集成电路的叙述中，错误的是（ 2 ）A.现代集成电路使用的半导体材料主要是硅B.大规模集成电路一般以功能部件、子系统为集成对象C.我国第2代居民身份证中包含有IC芯片D?目前超大规模集成电路中晶体管的基本线条已小到l纳米左右3.在下列有关通信技术的叙述中，错误的是（3 ）A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质4.下面是关于PC机主存储器的一些叙述，其中正确的是（4A.主存储器是一种动态随机存取存储器（RAM）B.主存储器的基本编址单位是字（即32个二进位）《目前市场上销售的PC机，其内存容量可达数十GBD.所有PC机的内存条都是通用的：可以互换5. 现行PC机中，IDE（或SATA）接口标准主要用于（ 5 ）A.打印机与主机的连接C.声卡与主机的连接B.显示器与主机的连接D.硬盘与主机的连接6.下列有关PC机的CPU、内存和主板的叙述中，正确的是（ 6 ）。
A.大多数Pc机只存一块CPu芯片，即使是“双核” CPU也是一块芯片B.所有Pentium系列微机的内存条相同，仅有速度和容量大小之分C.主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关D.主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息7.下列有关目前Pc机辅助存储器的叙述中，错误的是（7 ）A.硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多B.硬盘的内部传输速率一般小于外部传输速率c.优盘采用Flash存储器技术，属于半导体存储器D.目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱8.下面有关Windows操作系统，（95以后版本）的叙述中，错误的是（8 ）。
VB程序设计试题及答案（一）一、单选题1. VB6.0是一种面向B 的编程环境。
(A) 机器(B) 对象(C) 过程(D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。
(A) Forml.Cap on=“欢迎使用VB”(B) Forml.Cap on='欢迎使用欢迎使用VB'(C) Forml.Cap on=欢迎使用VB(D) Forml.Cap on="欢迎使用VB"3. 若要使命令按钮不可操作，要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Cap on4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面A 是合法的变量名。
(A) X_yz (B) 123ab。
(C) integer (D) X-Y6. 以下关系表达式中，其值为False的是A 。
(A) "ABC">"AbC" (B) "女">"男"(C) "BASIC"=UCase("basic) (D) "123"<"23"7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D 。
Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息，应按的键是( )。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序,下列说法正确的是（）。
A．只保存窗体文件（。
frm）B．只保存工程文件(.vbp）C．分别保存工程文件和标准模块文件(。
bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中,变量的默认类型是（)。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件,需要设置的属性是( ）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列( ）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1。
Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表( ）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
VB程序设计考试（1）一、单选题（每题1分，共50题）1.Visual Basic 6．0集成环境的主窗口中不包括（ C ）。
正确A.标题栏B.菜单栏C.状态栏D.工具栏2.以下不属于Visual basic的工作模式的是（）模式。
正确答案：AA.编译B.设计C.运行D.中断3.如果文本框的Enabled属性被设置为False，则运行时（）。
正确答案：AA.文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框中的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容4.控制名称都是系统的默认控件名，下列语句错误是（）。
正确答案：Dmand1.Caption=List1.Text;bel1.Caption=List1.List(1);C.List1.List(2)=List1.Text+Str(List1.ListIndex);D.Text1.Text=+Text1.Caption。
5.以下叙述中正确的是（）。
正确答案：A属性用来标识对象B.窗体Name属性值显示在标题栏中C.运行时对象Name属性可变D.对象的Name属性值可以为空6.Abc%，abc!，abc$，abc#分别声明abc是（）。
正确答案：AA.整型、单精度、字符串、双精度变量B.整型、整型、字符串、双精度变量C.单精度、整型、字符串、双精度变量D.整型、双精度、字符串、双精度变量7.Visual Basic的逻辑类型数据占（ A ）字节内存。
正确A.2B.4C.8D.168.如果逻辑与(AnD)运算的结果为真，与它所连接的两个条件必须是（ C ）。
正确A.前一个为真，后一个为假B.前一个为假，后一个也为假C.前一个为真，后一个也为真D.前一个为假，后一个为真9.设a=6，则执行 x=iif(a>5,-1,0)后，x 的值为（ D ）。
VB 期末复习一、选择题(1) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为A) 命令按钮移动到距窗体左边界、上边界各500的位置B) 窗体移动到距屏幕左边界、上边界各500的位置C) 命令按钮向左、上方向各移动500D) 窗体向左、上方向各移动500(1) B(2) 在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab 顺序的属性是A) TabStop B)Enabled C) Visible D)TabIndex(2) D(3) 下列语句合法的是_____A x + y = 2B x > 2 = yC x = y > 2D x = y++参考答案： C(4) 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A) For i=0 To List1.ListCount-1 …… Next C) For i=1 To List1.listCount…… Next (4) A(5) 以下Case 语句中错误的是A) Case 0 To 10 B) Case Is>10 C) Case Is>10 And Is<50 D) Case 3,5,Is>10(5) C(6) 以下关于图片框控件的说法中，错误的是A) 可以通过Print 方法在图片框中输出文本B) For i=0 To ListCount-1 …… Next D) For i=1 To ListCount …… NextB) 清空图片框控件中图形的方法之一是加载一个空图形C) 图片框控件可以作为容器使用D) 用Stretch属性可以自动调整图片框中图形的大小(6) D(7) 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是A) Visual B) Basic C) 6 D) 11(7) C(8) 以下叙述中错误的是A) 下拉式菜单和弹出式菜单都用菜单编辑器建立B) 在多窗体程序中，每个窗体都可以建立自己的菜单系统C) 除分隔线外，所有菜单项都能接收Click事件D) 如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见(8) D(9) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A) 123.45 B) 12345.00 C) 12345 D)00123.45(9) B(10) 以下叙述中错误的是A) 一个工程可以包括多种类型的文件B) Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C) 程序运行后，在内存中只能驻留一个窗体D) 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样(10) C(11) 以下关于函数过程的叙述中，正确的是A) 函数过程形参的类型与函数返回值的类型没有关系B) 在函数过程中，过程的返回值可以有多个C) 当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D) 如果不指明函数过程参数的类型，则该参数没有数据类型(11) A(12) 以下关于变量作用域的叙述中，正确的是A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件(12) B(13) 确定一个控件在窗体上的位置的属性是A) Width和Height B) Width或Height C) Top和Left D) Top或Left(13) C(14) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是A) Visual B) Basic C) Program D) 出错(14) D(15) 以下关系表达式中，其值为False的是A) "ABC">"AbC" B) "the"<>"they" C) "VISUAL"=UCase("Visual") D) "Integer">"Int"(15) A(16) 语句Print 5/4*6\5 Mod 2的输出结果是A) 0 B) 1 C) 2 D) 3(16) B(17) 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change()Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是A)空 B) abcdef C) abc D) def(17) D(18) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x ^ 2)Elsey = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A) -5 B) 25 C) 1 D) -1(18) C(19) 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是A) 变量X、Y的作用域相同 B) Y的作用域是Model1C) 在Form1中可以直接使用X D) 在Form2中可以直接使用X和Y(19) C(20) 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
1．下列用来求两个数的较大值的程序中，错误的是 B 。
(A) max=x : If y>=x Then max=y(B) If y>=x Then max=y : max=x(C) max=Iif(x>y , x , y)(D) If x>y Then max=x Else max=y2．设计动画时，用计时器控件的 c 属性来控制动画速度。
(A) Enabled (B) Timer (C) Interval (D) Index3．若要在文本框Text1上按回车键来激发运行某段程序，则该程序段应编写在Text1的 B 事件中。
(A) Change (B) KeyPress (C) Click (D) GotFocus4．语句Print "A+2"的运行结果是 A 。
(A) A+2 (B) A (C) 2 (D) 运行出错5．语句Print "AB12" + 34的运行结果是 D 。
(A) AB1234 (B) 1234 (C) 46 (D) 运行出错6．若要将标签控件的文字居中对齐，应将其Alignment属性设置为 C 。
(A) 0 (B) 1 (C) 2 (D) 37．表达式x=x+1是B 。
(A) 关系表达式(B) 赋值表达式(C) 算术表达式(D) 逻辑表达式(A) Dim a(10) (B) Dim a(2 To 2) as Variant(C) Dim a(-3 To –9) (D) Dim a(-2 To 0)9．下列有关过程的说法错误的是 D 。
(A) 可以定义没有参数的过程(B) 过程的定义不能嵌套，但过程的调用可以嵌套(C) 过程可以通过参数的地址传递向主调程序返回结果(D) 过程不可能向主调程序返回结果10．在+、Not、And、Or四个运算符中，优先级最低的是 D 。
(A) + (B) Not (C) And (D) Or11．下面有关For循环的说法中，正确的是 B 。
(A) 循环初值必须小于终值(B) 步长为0时，循环是死循环(C) 循环变量可以是字符型(D) For循环不可能有死循环12．对Command1编写如下单击事件，单击Command1的运行结果是 A 。
Private Sub Command1_Click()x = 4If x ^ 2 < 15 Then y = 3If x ^ 2 = 16 Then y = 2If x ^ 2 > 15 Then y = 1(A) 1 (B) 2 (C) 3 (D) 413．在Visual Basic 6.0中，下列变量名合法的是 A 。
(A)cosX (B)cos(x) (C)2y (D) x-y14．工程文件的扩展名是 A 。
(A) .vbp (B) .frm (C) .res (D) .cls15．双击窗体窗口，打开的窗口是 C 。
(A) 属性窗口(B) 资源管理器窗口(C) 代码窗口(D) 布局窗口16．下列叙述中不正确的是 B(A) 变量名的第一个字符必须是字母(B) 变量名可以包含小数点或者内嵌的类型声明字符(C) 变量名的长度不超过255个字符(D) 变量名不能使用关键字17．产生[10,37]之)间随机整数的Visual Basic表达式是 C(a) Int(Rnd*27)+10 (b) Int(Rnd*27)+11(c) Int(Rnd*28)+10 (d) Int(Rnd*28)+1118．函数Ucase(Mid("visual basic",8,5))的值是 A(a) BASIC (b) visual (c) VISUAL (d) basic19．若将PasswordChar属性设置为一个字符（如*），则在运行时，文本框中输入的字符仍然显示出来，而不显示星号（*），原因可能是 A(A) 文本框的MultiLine属性值为True(D) 文本框的Locked属性值为False14．下面的过程定义语句中合法的是 C(a) Sub Proc(ByVal n( )) (b) Sub Proc(n) As Integer(c) Function Proc(ByVal n) (d) Function Proc(Proc)15．下列程序段的执行结果是 Bx=2Print x+1;x+1(a) 2+1 2+1 (b) 3 3 (c) 3 4 (d) x+1 x+116．决定窗体标题栏显示内容的属性是 A(a) Caption (b) Name (c) Text (d) BackStyle17. 下列语句中正确的是 B(A) Text1.Text+Text2.Text=Text3.Text (B) a=Inputbox("Hello")(C) 12Label.Caption=1234 (D) =CmdOk18. 要使滚动条表示的最小值为10，应设置其 B 属性(a) MinChange (b) Min (c) Minimize (d) SmallChange19. 在过程调用中，参数的传递可以分为 A 两种方式(a) 按地址传递与按值传递(b) 按值传递与按位置传递(c) 按参数传递与按地址传递(d) 按位置传递与按参数传递20. 如下数组声明语句， 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 Integer21. 数学关系3≤x<10表示成正确的VB表达式为 B 。
(a) 3<=x<10 (b) 3<=x And x<10 (c) x>=3 Or x<10 (d) 3<=x And<1022. Rnd函数不可能为下列 B 值。
(a) 0 (b) 1 (c) 0.1234 (d) 0.000523. 若a$=〞12345678〞,则表达式Val(Left (a$,4)+Mid(a$,4,2))的值为 B 。
(a) 123456 (b) 123445 (c) 8 (d) 624. 显示如下图所示输入框的语句是 A(A) a=InputBox("请输入一个正数"，"示例"，"1") (B) a=InputBox("示例"，"请输入一个正数"，"1")(C) a=InputBox("1"，"示例"，"请输入一个正数") (D) a=InputBox("请输入一个正数"，"1"，"示例")1．"YES">"yes" 的结果是False 。
2．数学表达式sin150+3ex 的VB表达式为sin(15*PI/180)+sqr(x+e^3) 。
3．若要在运行时将标签Label1的字体大小改为20磅字，对应的设置语句Label1.fontsize=20 。
4．表达式Abs(-3) * 10 /6 / 2的值为。
5．结构化程序设计的三大结构分别是顺序、选择和循环。
6．计时器控件的Interval属性的默认单位是是毫秒。
7．根据数组中包含的元素个数是否固定，可将数组分为静态数组和动态数组。
8．对Command1编写如下单击事件，单击Command1后在输入对话框中输入整数75后按回车键，程序的运行结果是 3 3 。
Private Sub Command1_Click()Dim x%x = InputBox("请输入一个整数")If x > 80 ThenPrint 5ElseIf x > 60 ThenPrint 3End IfEnd Sub9．下面的循环结构能不能正常结束（能/不能）不能。
i = 3Doi = i + 2Loop Until i Mod 2 = 010．对Command1编写如下单击事件，单击Command1的运行结果是8 。
Private Sub Command1_Click()Dim a(1 To 10) As IntegerFor i = 1 To 10a(i) = 2 * iNext iPrint a(a(a(1)))End Sub11．InputBox函数返回值的类型是String string ，Time()函数返回值的类型是日期型(Date) 。
12．下面的程序用于求3个数中的最大数。
Private Sub Command1_Click( )c=Val(InputBox("请输入第三个数"))max=a : min=aIf b> a Then max=bIf b< a Then min=bIf c > max Then max=cIf c < min Then min=cPrint "最大值为："；maxPrint "最小值为："；minEnd Sub13．程序代码将整型动态数组x声明为具有20个元素的数组，并给数组的所有元素赋值1。
dim x() dim x() As IntegerPrivate Sub Command1_Click( )Redim x(1 to 20) x(1 to 20)For j=1 To 20x(j)=1Print x(j)Next jEnd Sub1． Option Base 1Private Sub Command1_Click()Dim aFor i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10Next iPrint sEnd Sub2．Public Sub f1(n%, ByVal m%)n = n Mod 10+2 m = m /10 End SubPrivate Sub Command1_Click() Dim x%, y%x = 98: y = 223 Call f1(x, y) Print x, y End Sub3. 写出执行下列程序的结果4.写出下列程序运行后的结果 Private Sub Command1_Click() Private Sub Command1_Click() x=-7 Const P=3 i 次 A(i) j s 4 8 1 8 3 6 10 68 2 4 100 468 1210002468X Y 运行前 98 223 运行后 10 223Else a(i)=8-i y=Sgn(x) Next i End If Print a(a(P)) Print y End Sub 3 End Sub 15. 写出下列程序运行后的结果Private Sub Command1_Click()Dim x As Integer,y As Integerx=10 : y=5Call f1(x,y)Print x ; yEnd SubPrivate Sub f1(ByVal x1 As Integer, y1 As Integer)x1=x1+2 : y1=y1+2End Sub 10 76．以下程序段的功能是。
