VB练习题
VB练习题
Visual Basic练习题1、当文本框的内容发生变化时，必将触发（ C ）事件。
A、LostFocusB、KeyPressC、ChangeD、Click2、在Visual Basic中，下列（ D ）函数的值只为1，0，-1。
A、INT(X)B、ABS(X)C、SQR(X)D、SGN(X)3、下列Visual Basic程序段运行后，变量 a、b、c的值为（）。
a = 1 :b = 1 :c = 1Do While a + b + c < = 10a = a + 1b = b * 2c = b / 2LoopA、2 2 1B、3 4 2C、4 8 4D、4 4 24、当程序在运行过程中因某种原因中断时，VB进入（ C ）模式。
A、设计B、运行C、中断D、工具5、要改变控件的高度，应改变（ A ）属性。
A、HeightB、WidthC、TopD、Left6、下列Visual Basic程序段运行后，变量x的值为（）。
x = 3y = 77Dox = x + 2Loop Until x > Sqr (y)A、7B、8C、9D、107、在Visual Basic中，建立一个文本编辑区域，可采用下列（ C ）。
A、命令按钮B、标签控件C、文本控件D、定时器控件8、下列（ D ）表达式的值不等于4。
A、Int (4.1)B、Int (4.9)C、Abs (int (-3.9))D、Abs (int (-4.5))9、下列Visual Basic程序段运行后，变量m 的值为（）。
a = 2 :b = 1 :c = 5If a < b Then m = a Else m = bIf c < m Then m = cA、2B、1C、5D、三项答案均不是10、窗体模块文件的扩展名是（ A ）。
A、frmB、basC、vbpD、txt11、对象的三个要素是（ A ）。
A、属性、方法、事件B、色彩、高度、宽度C、事件、属性、色彩D、属性、高度、宽度12、下列合法的变量名是（ C ）。
VB练习题(含答案)
VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。
2 简要回答创建MDI应用程序的步骤。
3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数，功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。
5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。
17 叙述VB集成开发环境的组成。
18 叙述文件访间的类型。
19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。
26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。
30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。
34 请写出If语句的块语法格式。
35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。
37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案：1．简述Timer控件中Interval属性和Enanbeled属性答：Timer控件中的Enanbeled设置或返回计时器控件的有效性，该属性值为布尔值，如果设置为True，则每经过指定的时间间隔将触发Timer事件，为False，计时器控件成为无效，停止工作。
VB基础部分(练习题)
语言基础单选1、与传统的程序设计语言相比，Visual Basic 最突出的特点是：A 结构化程序设计B 程序开发环境C事件驱动编程机制 D 程序调试技术2、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口设置窗体的属性，预先应执行的操作是：A 单击窗体上没有控件的地方B 单击任一个控件C 不执行任何操作10D 双击窗体的标题栏3、在Visual Basic工程中，可以+-*作为启动对象的程序是A 任何窗体或标准模块B 任何窗体或过程C Sub Main过程或其他任何模块D Sub Main过程或任何窗体4、以下叙述中错误的是A 一个工程可以包括多种类型的文件B Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C程序运行后，在内存中只能驻留一个窗体D 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样5、以下叙述中错误的是A 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B 保存Visual Basic程序时，应分别保存窗体文件及工程文件C Visual Basic应用程序只能以解释方式执行D 事件可以由用户引发，也可以由系统引发6、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A如果工程中含有Sub Main过程，则程序一定首先执行该过程B 不能把标准模块设置为启动模块C 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D 任何时刻最多只有一个窗体是活动窗体7、下列可以作为Visual Basic的变量名的是：A FileNameB a(A+b)C 23D D print8、以下声明语句中错误的是A Const var1=123B Dim var2 = 'ABC'C public a,b as integerD Static var3 As Integer9、以下运算符中，不是逻辑运算符的是：A OrB XorC ImpD mod10、下列选项中，把r定义为双精度型变量的是：A r%B r!C r#D r$11、用来将数值转换为字符串类型的函数是:A Chr$()B Asc()C Str$()D Val()12、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()X = 12345Print Format$(X, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A 123.45B 12345.00C 12345D 00123.4513、inputBox函数的返回值类型是：A 数值B 字符串C 变体 D数值或字符串（视输入的数据而定）填空1、在VB中，Len(“共产党”)的值是：_3______________；执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是：__6_____________2、语句print “25+32”的结果是：_25+32__________________3、设a=2,b=3,c=4,d=5，则表达式3>2*b OR a=c AND b<>c OR c>d的值是：_____false_________ ；NOT a<=c OR 4*c=b^2 AND b<>a+c的值是_____________4、以下语句的输出结果是：_3______a%=3.14159Print a%5、在VB中，工程文件的扩展名是.VBP，窗体文件的扩展名是.____ ___________。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
【太原理工大学现代科技学院】vb练习
属性。
A、Top
B、Left
C、Width
D、Right
7．窗体模块的扩展名为
。
A、.exe
B、.bas
C、.frx
D、.frm
8．窗体的 FontName 属性的缺省值是
。
A、宋体
B、仿宋体
C、楷体
D、黑体
9．FontSize 属性用以设置字体大小，窗体的 FontSize 属性缺省值为
。
A、5
B、9
。
10．对象的 Visible 属性取值是 True 或
。
第 4 部分． 3 种基本控制结构的程序设计
一、判断题
1．For/Next 语句中，“Step 1”可以缺省。
2．For/Next 循环正常（未执行 Exit For）结束后，控制变量的当前值等于终值。
3．在循环体内，循环变量的值不能被改变。
2．表达式 2 * 4^3 + 4 * 6 / 3 + 3^2 的值是
。
3．表达式 16 / 2 - 2 ^ 3 * 7 Mod 9 的值是
。
4．表达式 81 \ 7 Mod 2 ^ 2 的值是
。
5．已知字符串变量 x 存放"1234"，表达式 Val("&H"+Left$(x, Len(x)/2))的值是
4．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
5．所谓保存工程，是指保存正在编辑的工程的窗体。
二、选择题
1．工程文件的扩展名为
。
A、.frx
B、.bas
C、.vbp
D、.frm
2．以下 4 个选项中，属性窗口未包含的是
vb6.0练习题及答案
一、选择题一、选择题1．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（ ）。
A．窗体设计．代码C．属性D．工程资源管理器窗口．工程资源管理器窗口 >> 答案：d 2．窗体的Load事件的触发时机是（事件的触发时机是（ ）。
A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时．窗口被卸载时 >> 答案：ｂ答案：ｂ3．与传统的程序设计语言相比，Visual Basuc最突出的特点是（最突出的特点是（ ）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术．程序调试技术答案：C 4．VB6.0集成开发环境的主窗口不包括（集成开发环境的主窗口不包括（ ）。
A．标题栏．状态栏 D．工具栏．工具栏．标题栏 B．菜单栏．菜单栏 C．状态栏答案：c 5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ ）。
格式是（A．Text.Mytext B．Mytext.text C．Mytext.（Text）D．Mytext*Text 答案：b 6．下列可以激活属性窗口的操作是（．下列可以激活属性窗口的操作是（ ）。
A．用鼠标双击窗体的任何部位命令 C．按Ctrl+F4 用鼠标双击窗体的任何部位 B．执行“工程”菜单中的“属性窗口”命令D．按F4键答案： b d 答案：7．假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应制造的操作是（ ）。
属性，预先应制造的操作是（A．单击窗体上没有控件的地方．不执行任何操作 D．双击窗体．单击任一个控件 C．不执行任何操作．单击窗体上没有控件的地方 B．单击任一个控件的标题栏的标题栏答案：a 8．如果在文本框中键入字符时，应设置文本框的（（）属性。
只显示某个字符，如星号（*），应设置文本框的如果在文本框中键入字符时，只显示某个字符，A．Caption B．PasswordChar C．Text D．Char 答案：b 9．如果想让文本框中的内容在运行时不能编辑，需将文本框的（．如果想让文本框中的内容在运行时不能编辑，需将文本框的（ ）属性设置为True。
VB课堂练习
VB课堂练习一一．填空题1．在对象名与事件名之间用[ ]符号连接。
窗体的对象名用[ ]表示。
2．Visual Basic 的窗体和控件是具有自己的[ ]、[ ]和方法的对象。
3．窗体和控件的大部分属性可以通过[ ]设置、也可以通过[ ]设置。
4．在面向对象程序设计中，对象是一个由[ ]和[ ]组成的概念。
5．Visual Basic 中的对象包括[ ]、[ ]和[ ]。
6．Name属性的含义是[ ]，窗体的默认Name属性是[ ]。
7．Show 方法的作用是[ ]，Hide 方法的作用是[ ]。
8. 一个窗体对象，其最先发生的事件是[ ]事件，最后发生的事件是[ ]事件。
9. 移动窗体时，为了初始化该窗体中的各控件，可选用窗体的[ ]事件；关闭窗体用[ ]事件。
10.窗体对象可以识别KeyPress、KeyUp、KeyDown事件，在按下某键时，这三个事件发生的顺序是：[ ]、[ ]、[ ]。
二．选择题1.在Visual Basic设计界面中不能隐藏的窗口是( )。
A）工程窗口B）属性窗口C）立即窗口D）窗体窗口2.以下可以构成语句的一项是( )。
A）对象名.属性B）对象名.方法名C）对象名.事件名D）对象名.函数名3.以下不是Visual Basic 的特点的选项是( )。
A）可视编程B）算法设计C）事件驱动D）面向对象4.在Visual Basic中通过( )属性来设置字体的颜色。
A）FontColor B）ClipControlC）BackColor D）ShowColor5.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用( )属性。
A）ControlBox B）ClipControlC）BordeStyle D）AutoRedraw7.( )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
A）文件B）属性C）方法D）窗体8.以下不属于同类的是( )。
vb练习题及答案
vb练习题及答案VB练习题及答案一、选择题1. 在VB中，以下哪个是正确的数据类型？A. IntegerB. IntC. Both A and BD. None of the above答案：C2. VB中，哪个关键字用于声明变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. RepeatD. All of the above答案：D4. VB中，以下哪个是正确的条件语句？A. IfB. SwitchC. CaseD. A and B only答案：A5. 在VB中，以下哪个是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray As Integer(5)C. Both A and BD. None of the above答案：A二、填空题1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，使用________方法可以为控件添加事件处理程序。
答案：AddHandler3. 在VB中，________方法用于结束程序的执行。
答案：End4. VB中，________属性用于获取或设置一个控件的文本。
答案：Text5. 在VB中，________方法用于打开一个文件。
答案：Open三、简答题1. 请简述VB中的事件和事件处理程序的概念。
答案：在VB中，事件是用户或程序触发的特定动作，如按钮点击或键盘敲击。
事件处理程序是一个过程，当特定的事件发生时，会被自动调用以响应该事件。
2. 描述VB中如何使用For循环。
答案：在VB中，For循环用于重复执行一段代码直到满足特定条件。
基本语法是：```For counter = start To end [Step increment]' 循环体Next [counter]```3. 解释VB中什么是继承，并给出一个简单的示例。
VB考试题目
一、单选题（每题1分，共76题）1.想要显示一个输入框，它的标题栏上显示“示例”，提示信息是“请输入一个正整数”，输入框内默认内容为“1”，其语句是A=InputBox(“请输入一个正整数”,”示例”,”1”)</p>B. A=InputBox(”示例”,“请输入一个正整数”,”1”)</p>C. A=InputBox(”1”,”示例”,“请输入一个正整数”)</p>D. A=InputBox(“请输入一个正整数”,”1”,”示例”)</p>2.若要使标签控件显示时不覆盖其背景内容，应设置标签控件的A. BackColor</p>B. BorderStyle</p>>C. ForeColor</p>D. BackStyle</p>3.下面变量名是错误的A. 姓名B. aC. a123D. a.1</p>4.启动窗体在程序运行后，不进行任何操作的情况下会发生A. Initialize和Load</p>B. Show</p>C. Activate</p>D. A和C</p>5.当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的属性为TrueA. AutoSize</p>B. WordWrap</p>C. Enabled</p>D. Visible</p>6.语句Form1.Hide中，Hide是Form1对象的一个（ ）</p>A. 方法</p>B. 参数</p>C. 属性</p>D. 事件</p>7.对象窗口是用来设计（ ）</p>A. 应用程序的代码段</p>B. 应用程序的界面</p>C. 对象的属性</p>D. 对象的事件</p>8.如果变量赋值为str1=”练习”，var1=5，则语句Print ”第”& var1 &”次”& str1 输出的结果为A. 第5次练习</p>B. 第5次str1</p>C. 第var1次练习</p>D. 第var1次str1</p>9.假定一个VB应用程序由一个窗体模块和一个标准模块构成，为了保存该应用程序，以下正确的操作是（ ）</p>A. 只保存窗体模块文件</p>B. 分别保存窗体模块、标准模块和工程文件</p>C. 只保存窗体模块和标准模块文件</p>D. 只保存工程文件</p>>10.下列是窗体对象的方法而不是属性（ ）</p>A. Name </p>B. Move</p>C. Caption</p>D. Enabled</p>11.窗体Form1的Caption属性为frm，它的Load事件过程名为（ ）</p>A. Form_Load</p>B. Form1_Load</p>C. frm_Load</p>D. Me_Load</p>12.在VB程序中，语句的续行符是（ ）</p>A. &</p>B. _</p>C. ;</p>D. :</p>13. 在用户的应用程序执行期间发生，比如单击鼠标或按键盘中的键（ ）A. 方法</p>B. 属性</p>C. 事件</p>D. 工程</p>14.控件中最适合做标题的控件是。
vb练习题(含答案)
___B___ 。
A ． 设计流程和编写代码
B． 设计界面和编写代码
C． 设计算法和编写代码
D． 设计程序和编写代码
44．在 VB 6.0 中， 12345& 的数据类型是（ B）
A ． 整数型
B ． 长整数型 C． 字符常数 D． 双精度常数
45．在 VB6.0 中，语句 Dim M1#,Abc,Xyz As Single 定义的 M1 、 Abc 和 Xyz 的类型分别是（ D ）
19、若要执行下列程序段后窗体上显示＂红＂字，则
x 可取的值为：
Select case int(x/10)
case2,4,6,8
print" 黄 "
case1,3,5,7,9
print" 绿 "
case else
print" 红 "
end select
(A)27
(B)38
(C)10
(D)5( 对 )
(A) 必须是字母开头，不能是数字或其他字符
(B) 不能是 VB 的保留字
(C) 可以包含字母、数字、下划线和标点符号 (对 )
(D) 不能超过 255 个字符
15、以下变量名中， ______是不符合 VisualBasic 的命名规范的。
(A)Abc901
(B)_mnu_Open_234( 对 )
A. 字符串类型
B. 日期类型
C. 逻辑类型
D. 指针类型
8、表达式 Left( “Visual ”,3)+Lcase( “AB ”)的值是？（ C）
A. visAB
B. VisAB
C. Visab
D. ualab
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.在窗体上画一个命令按钮,名称为Command1.然后编写如下程序: Private Sub Command1_Click()For I=1 To 4For J=0 To IPrint Chr$(65+I);Next JPrintNext IEnd Sub程序运行后,如果单击命令按钮,则在窗体上显示的内容是A、ABBCCCDDDDB、AABBBCCCCDDDDDC、BCCDDDEEEED、BBCCCDDDDEEEEE2.由For k=1 to 20 step -2next k循环语句控制的循环次数是（）。
A、0B、12C、-11D、-103.阅读下面的程序段:For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的三重循环后,a 的值为A、9B、14C、3D、214.下面程序运行时,单击窗体后,窗体上显示的结果是Private Sub Form_ClickDim I As IntegerDim sum As LongDim tl As Longtl = 1:sum = 0For I = 1 To 3tl = tl * Isum = sum + tlNext IPrint sumEnd SubA、6B、5C、9D、35.下面的程序运行时,单击窗体后,窗体上显示的结果是 Private Sub Form_Click()Dim a(1 To 6) As IntegerDim min1%,i%,j%,n%,t%,k%a(1)=8: a(2)=6: a(3)=9: a(4)=3: a(5)=2: a(6)=7 n = 6For i = 1 To n - 1min1 = iFor j =i + 1 To nIf a(j)<a(min1) Then min1 = jNext jt = a(i)a(i) = a(min1)a(min1) = tNext iFor i = 1 To nPrint a(i);Next iEnd SubA、2 3 6 7 8 9B、9 8 7 6 3C、2 3 6 7 8D、9 8 7 6 3 26.在窗体上画一个列表框,名称为listl.编写一个程序,程序运行后,列表框显示"可口可乐"?"麦香红茶"?"鲜奶"?"土司"和"茶叶蛋"等五行信息.能够正确实现上述功能的代码是A、Private Sub Form_Load()Dim item_name(5) As StringDim item_price(5) As Integeritem_name(0) = "可口可乐":item_price (0) = 40item_name(1) = "麦香红茶": item_price (1) = 12item_name(2) = "鲜奶": item_price(2) = 50item_name(3) = "土司": item_priB、Private Sub Form_LoadDim item_name(5) As StringDim item_price(5) As Integeritem_name(0) = "可口可乐": item_price(0) = 40item_name(1) = "麦香红茶": item_pruce(1) = 12item_name(2) = "鲜奶": item_price(2) = 50item_name(3) = "土司": item_price(3)mC、Privste Sub Form_Load()Dim item_name(5) As StringDim item_name(5) As Integeritem_name(0) = "可口可乐":item_price(0) = 40item_name(1) = "麦香红茶":item_price(1) = 12item_name(2) = "鲜奶":item_price(2) = 50item_name(3) = "土司":item_price(3) = 30itD、Private Sub Form_Load()Dim item_name(5) As StringDim item_price(5) As Integeritem_name(0) = "可口可乐": item_price(0) = 40item_name(1) = "麦香红茶":item_price(1) = 12item_name(2) = "鲜奶":item_price(2) = 50item_name(3) = "土司":item_pric7.有如程序Private Sub From_Click()Dim aa=Array(1 ,2 ,3, 4, 5)For i=LBound(a) To UBound(a)a(i)=i*a(i)Next iPrint i,LBound(a),UBound(a),a(i)End Sub其输出结果是A、不确定B、5 0 4 25C、程序出错D、4 0 4 258.对窗体编写如下代码:Option Base 1Private Sub Form _KeyPress(KeyAscii Aa=Array (237,126,587,48,498)ml=a(1)m2=1If KeyAscii=13 ThenFor i=2 To 5If a (i)>ml Thenml=a (i)m2=iEnd IfNext iEnd IfPrint ml;print m2End Sub程序运行后,按回车键,输出结果为A、237 1B、587 3C、48 4D、498 49. Sub过程与Function过程最根本的区别是A、Sub过程的过程不能返回值,而Function过程能返回值B、Sub过程可以使用Call语句直接使用过程名调用,而Function过程不可以C、两种过程参数的传递方式不同D、Function过程可以有形参,Sub过程不可以10.在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:Private Sub Commandl_Click()Dim x As IntegerStatic y As IntegerClsx = x + 5y = y + 3Print x,yEnd Sub程序运行时,两次单击命令按钮Commandl后,窗体显示的结果是B、5 3C、10 6D、10 311.有如下的程序:Private Sub Form_Click()Dim x As Integer, y As Integera= 8b= 3Call test(6 ,a ,b+1)Print "主程序",6,a, bEnd SubSub test (x As Integer, y As Integer, z As Integer) Print "子程序",x,y,zx = 2y = 4z = 9End Sub当运行程序后,显示的结果是A、主程序6 4 3子程序6 8 4B、子程序6 8 4主程序6 4 3C、主程序6 8 4子程序6 4 3D、子程序6 4 3主程序6 8 412.阅读程序:Sub subP(b() As Integer)For i=1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Clik()Dim a(1 To 4)As Integera(1)=5a(2)=6a(3)=7a(4)=8subP a()For i=1 To 4Print a(i);Next i运行上面的程序,单击命令按钮,输出结果为A、出错B、2 4 6 8C、5 6 7 8D、10 12 14 1613.假定有以下两个过程:Sub S1 (By Val x As Integer, By Val y As Integer)Dim t As Integert=xx=yy=tEnd SubSub S2(x As Integer, y As Integer)Dim t As Integert=xx=yy=tEnd Sub则以下说法中正确的是A、用过程S1和S2都不能实现交换两个变量的值的操作B、用过程S2可以实现交换两个变量的值的操作,S1不能实现C、用过程S1可以实现交换两个变量的值的操作,S2不能实现D、用过程S1和S2都可以实现交换两个变量的值的操作14.不可以通过下列()操作将焦点赋给对象.A、在代码中用CALL语句调用B、运行时使用TAB键C、用访问键或用鼠标单击选择对象D、在代码中用SETFOCUS方法15.要清除已经在图片框Picture中打印的字符串而不清除图片框中的图像，应使用语句（）。
A、P1.picture=LoadPicture("")B、P1.Print""C、P1.piture""D、P1.Cls16.设置列表框选中的文本用（）属性。
A、textB、listC、selectedD、caption17.下列说法正确的是A、窗体中活动控件只能有一个B、在活动窗体中只能通过拖拉右上角和左下角的小方块来同时在高度和宽度上缩放控件C、非活动控件在窗体是隐藏的D、若一个控件上有4个黑色的小方块,表明该控件是活动的18.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1?Text2的文本框,然后编写如下事件过程:Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的A、10B、40C、20D、3019.运行下列程序段后J1=63J2=36If J1<J2 ThenPrint J2ElsePrint J1END IFA、63B、2332C、36D、5520.执行下面的程序段后,变量c的值为a=14b=30Select Case b\10Case 0c=a*10+bCase 1 To 9c=a*100+bCase 10 To 99C=a*1000+bEnd SelectPrint cA、2548B、363C、1430D、987521.下列程序段的执行结果为a=95If a>60 Then degree=1If a>70 Then degree=2If a>80 Then degree=3If a>90 Then degree=4Print "degree=";degreeA、degree=4B、degree=3C、degree=2D、degree=122.计算z的值,当x大于y时,z=x;否则z=y.下列语句错误的是A、If x>=Y Then z=x:z=YB、If x<=Y Then z=Y Else z=xC、If x>=Y Then z=x Else z=YD、z=Y:If x>=Y Then z=x23.函数Len(Str(Val("123.445")))的值为（）。