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程序设计习题集一、选择题1. 一个工程必须包含的文件的类型是:AA、*.vbp ,*.frm ,*.frxB、*.vbp ,*.cls, *.basC、*.bas ,*.ocx ,*.resD、*.frm ,*.cls ,*.bas2. 以下不能在“工程资源管理器”窗口中列出的文件类型是：DA、．basB、．resC、．fnnD、．ocx3. 下列不能打开工具箱窗口的操作是: BA、招待“视图”菜单中的“工具箱”命令B、按Alt+F8键C、单击工具栏上的“工具箱”按钮D、按Alt+V，然后按Alt+X键4. 不能作为容器使用的对象是：DA、窗体B、框架C、图片框D、图像框5. 在Visual Basic中传递参数的方法有__ B ___方式。

A、一种B、两种C、三种D、四种6. Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是:BA、属性、控件和方法B、属性、事件和方法C、窗体、控件和过程D、控件、过程和模块7. 创建VB应用程序的主要步骤是：①创建应用程序界面②设置控件③设置属性④编写代码，其中正确的步骤是:AA、①③④B、①②④C、②③④D、①②③④8. 要将名为MyForm的窗体显示出来，正确的使用方法是:AA、MyForm.ShowB、Show.MyFormC、MyForm LoadD、MyForm Show9. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 : BA. ValueB. DefaultC. CancelD. Enabled10. 如果在立即窗口中执行以下操作(<CR>是回车键)：Ca=8<CR>b=9<CR>print a>b<CR>则输出结果是：A)-1B) 0 C)False D)True11. 在设计应用程序时，通过___D___窗口可以查看到应用程序工程中的所有组成部分。

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的函数，返回值为整数，应该使用语句________。

程序设计题1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数〞或"零"。

2、题目：(事件)单击窗体。

(响应)求200~300之间既能被3整除又能被7整除的数。

并求出所有数之和存入变量SUM中3、题目：单击窗体。

(响应)S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。

4、题目：(事件)单击窗体。

(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。

5、题目：(事件)双击窗体。

(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚〕，求出其所有的换法，把结果输出在窗体上。

将所有的换法的数目存入变量N中6、题目：单击窗体。

)求1!+2!+3!+4!+5!并将结果输出到窗体上。

结果存入变量S中7、题目：(事件)单击窗体。

(响应)生成一个一维数组(10个数组元素依此为：' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。

将最大值，最小值，平均值分别存入变量Ma*,Min,Aver中8、题目：(事件)单击窗体。

(响应)在窗体上输出100~200之间的所有合数。

求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。

9、题目：(事件)单击窗体。

(响应)求10~20之间所有素数的乘积并输出在窗体上。

将结果存入变量L 中。

10、题目：(事件)单击窗体。

(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。

将结果存入变量J中。

1题n = InputBo*("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBo* "输入的数据" & n & "为：" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNe*tPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)Ne*tPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNe*t5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNe*tNe*tNe*t6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNe*ts = s + kNe*tPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15：a(1) = 23：a(2) = 72 a(3) = 43：a(4) = 96：a(5) = 23 a(6) = 3：a(7) = 65：a(8) = 88a(9) = 17：ma* = a(0)：min = a(0) s = 0For i = 0 To 9If a(i) > ma* Thenma* = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Ne*taver = Int(s / 10)Print (CStr(ma*))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iE*it ForEnd IfNe*tNe*tPrint sum9题Dim i%，j%，b As Booleanl = 1：b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNe*tIf b = False Thenl = l * iEnd Ifb = FalseNe*tPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNe*tPrint j11、题目： (事件)单击窗体。

VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。

（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。

（A) Forml。

Caption=“欢迎使用VB”（B) Forml。

Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。

若要使命令按钮不可操作,要对 A 属性进行设置。

(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。

如果在窗体上已经创建了一个文本框对象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 。

(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。

VB程序设计习题练习一一、多项选择题1、下面列出的程序设计语言中（a）是面向问题的语言。

a、机器语言b、汇编语言c、高级语言D，0，1二进制语言解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言2、下面列出的程序设计语言中（c）不是面向对象的语言。

a、cb、c++c、javad、vb3、下列（d）不属于vb6.0的版本。

a、学习版b、专业版C、企业版D、共享版解释：vb6.0共有三个版本：标准版、专业版、企业版。

而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。

二、填空题1.从编程语言的发展过程来看，计算机编程语言分为机器语言、汇编语言和高级语言。

2、 vb6。

0采用面向对象和事件驱动（可视化编程）的编程机制。

3、启动vb6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。

练习2一、选择题1.如果表单对象的名称是forma1，backcolor是表单对象的一个属性，用于设置表单的背景色，那么将表单背景色设置为蓝色的正确语句是（a）a和forma1backcolor=vbblue、backcolor=vbbluec、forma1=vbblued、forma1′sbackcolorisvbblue.2.在以下方法中，无法打开代码编辑器（d）A.单击“视图”菜单上的“代码窗口”命令。

b、在窗体设计器中双击窗体或控件。

c、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。

d、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。

3、保存vb应用程序时，下列方法中正确的是（ａ）a、先保存窗体文件，再保存工程文件。

b、先保存工程文件，再保存窗体文件c、如果直接保存表单文件，系统将自动先保存表单文件，然后依次保存项目文件。

d、如果直接保存表单文件，系统将自动先保存项目文件，然后依次保存表单文件。

2、填空1、vb工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。

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程序设计及参考答案一、单选题（共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程序设计"分别代表（）。

一．[题目] 编一程序，显示所有的水仙花数，所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。

例如，153是水仙花数，因为153=13+53+33【编程要求】1、单击"计算"按钮，则将计算结果显示在多行文本框中Text1中；单击"结束"按钮，程序停止运行。

2、界面应与给出的参考界面相似，不得增加或减少控件。

3、求出范围100-999之间的水仙花数【参考代码】Text1.Text = ""For i = 100 To 999a = i \ 100c = i Mod 10b = i \ 10 Mod 10If i = a ^ 3 + b ^ 3 + c ^ 3 ThenText1.Text = Text1.Text & i & vbCrLfEnd IfNext i二．[题目] 输入两个数，求最大公约数和最小公倍数。

[编程要求]1、输入数值后，按"计算"按钮，计算出最大公约数和最小公倍数按"清除"按钮，则将所有文本框中的内容清空，并将光标焦点指向text1。

按"结束"按钮，结束程序的执行。

2、程序中有一个过程，该过程的功能是求两个数的最大公约数。

【参考代码】Dim k As IntegerDok = m Mod nm = nn = kLoop While (k <> 0)gcd = mNext i三．输入一个正整数k，将k的各位数字分离后，累加求和。

程序界面如下图所示。

【编程要求】1、单击"计算"按钮，将结果在文本框中显示出来。

2、单击"清除"按钮，将二个文本框中的内容清空；单击"结束"按钮，程序停止运行。

3、界面应与给出的参考界面相似，不得增加或减少控件；4、运行程序，并输入123456检验。

『单项选择』以下关于vb 语言的说法中,正确的是(B).A:vb 是一种面向过程的语言B:vb 是一种面向对象语言C:vb是一种低级语言D:vb 是一种机器语言变量未赋值时,数值型变量的值为(A).A:0B:空C:1D:无任何值窗体的Caption属性的作用是(B).A:确定窗体的名称B:确定窗体的标题C:确定窗体的边界类型D:确定窗体的字体(D)对象具有Clear方法.A:图片框B:窗体C:复选框D:列表框vb 程序设计中的窗体在OOP 中称为(C).A:屏幕B:事件C:对象D:控件VisualBasic集成环境的大部分窗口都可以从主菜单项(B)的下拉菜单中找到相应的打开命令.A:编辑B:视图C:格式D:调试当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该窗体被移开之后,如果要保持该所画图形的完整性,可以选择触发(A)事件来完成图形的重画工作.A:PaintB:LoadC:ClickD:ActiveVisualBasic的编程机制是(D).A:可视化B:面向对象C:面向图形D:事件驱动答案：D〖第9题〗『单项选择』(2分)(题号:231)vb 中的坐标系最小刻度为(A).A:缇B:象素C:厘米D:一个标准字符宽度窗体设计器是用来设计(B).A:应用程序的代码段B:应用程序的界面C:对象的属性D:对象的事件Rnd函数不可能产生的(B)值.A:0B:1C:0.1234D:.00005RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB (红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(A)属性.A:Max和MinB:Smallchange和LargeChangeC:Scroll和ChangeD:Value不管一个对象的属性如何设置,程序运行时始终都能接收焦点的方法是(D).A:用Tab键B:用鼠标C:用方向键D:不能实现vb 中的坐标圆点位于(B).A:容器右上角B:容器左上角C:容器正中央D:容器右下角VisualBasic是一种(B)程序设计语言.A:过程式B:非过程式C:机器D:低级VB认为下面(A)组变量是同一个变量.A:A1和a1B:SUM和SUMMARYC:A VER和A VERAGED:A1和A_1vb 应用程序是分层管理的,其最高的层次为(A). A:工程B:模块C:窗体D:过程(C)对象不能作为控件的容器.A:FormB:PictureBoxC:ShapeD:FrameVB应用程序的运行模式是(C).A:解释运行模式B:编译运行模式C:两者都有D:汇编模式窗体的Enable属性的属性值是(C)类型的数据.A:整型B:字符型C:逻辑型D:实型INT(100*RND(1))产生的随机整数的闭区间是(A). A:[0,99]B:[1,100]C:[0,100]D:[1,99](D)对象不具有Caption属性.A:LabelB:OptionC:FormD:Timer"对象"是计算机系统运行的(D).A:程序单位B:逻辑单位C:物理实体D:基本实体函数InStr("VB程序设计教程","程序")的值为(C). A:1B:2C:3D:4语句PRINT"INT(-13.2)";INT(-13.2)的输出结果为(D).A:INT(-13.2)=-13.2B:INT(-13.2)=13.2C:INT(-13.2)=-13D:INT(-13.2)=-14产生[10,37]之间的随机整数的VisualBasic表达式是(B). A:In t(Rnd(1)*27)+10B:Int(Rnd(1)*28)+10C:Int(Rnd(1)*27)+11D:Int(Rnd(1)*28)+11表达式4+5\6*7/8Mod9的值是(B).A:4B:5C:6D:7表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(C).A:4^5B:3*4C:x+1D:SIN代数式exSin(300)2x/(x+y)lnx对应的VB表达式是(C).A:E^X*Sin(30*3.14/180)*2*x/x+y*log(x)B:Exp(x)*Sin(30)*2*x/(x+y)*ln(x)C:Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*log(x)D:Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*ln(x)设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D).A:5B:6C:0D:-1Line(100,100)-Step(400,400)将在窗体(C)画一直线.A:(200,200)到(400,400)B:(100,100)到(300,300)C:(100,100)到(500,500)D:(100,100)到(400,400)代数式x1-|a|+ln10+sin(x2+2л)/cos(57o)对应的VisualBasic 表达式是(A).A:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)B:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57*3.14/180)C:X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)D:X1-Abs(A)+Log(10)+Sin(X2+2*л)/Cos(57)表达式25.28Mod6.99的值是(C).A:1B:5C:4D:出错常量-0.00013579的科学计数法是(C).A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4以下各表达式中, 计算结果为0的是(D).A:INT(12.4)+INT(-12.6)B:CINT(12.4)+CINT(-12.6)C:FIX(13.6)+FIX(-12.6)D:FIX(12.4)+FIX(-12.6)系统符号常量的定义通过(A)获得.A:对象浏览器B:代码窗口C:属性窗口D:工具箱表达式Mid("SHANGHAI",6,3)的值是(D).A:SHANGHB:SHAC:ANGHD:HAI表达式X+1>X是(D).A:算术表达式B:非法表达式C:字符表达式D:关系表达式\、/、Mod、*等4个算术运算符中,优先级最低的是(C). A:B:/C:ModD:*函数Int(10*Rnd)是在(D)范围内的整数.A:[0,1]B:[1,10]C:[1,9]D:[0,9]函数Ucase(Mid("visualbasic",8,8))的值为(D).A:visualB:basicC:VISUALD:BASIC如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(B). A:0.01*int(x+0.05)B:0.01*int(100*(x+0.005))C:0.01*int(100*(x+0.05))D:0.01*int(x+0.005)不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0"的布尔表达式(D).A:A*B=0ANDA<>BB:(A=0ORB=0)ANDA<>BC:A=0ANDB<>0ORA<>0AND B=0D:A*B=0AND(A=0ORB=0)标准工具箱中的控件(B).A:数目是固定不变的B:数目可以增加或减少C:包含了VisualBasic所有控件D:在窗体建立对象时不一定被使用表达式(7\3+1)*(18\5-1)的值是(C).A:8.76B:7.8C:6D:6.67表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(C).A:0.48B:0.048C:.5D:.05函数Len(Str(Val("123.4")))的值为(C).A:11B:5C:6D:8求以10 为底X 的常用对数的表达式为(A).A:LOG(X)/LOG(10)B:LN(X)C:LOG(X)/LOG(E)D:LOG(X)语句listl.removeitem 1 将删除list.listindext等于(D)的项目..A:0B:2C:3D:1以下可以作为VB变量名的是(B).A:SIN B:CO1 C:COS(X) D:X(-1)MSGBOX函数中有4个参数,其中必须写明的参数是(C).A:指定对话框中显示按钮的数目B:设置对话框标题C:提示信息D:所有参数都是可选的要在图片框P1中打印字符串"HowAreYou",应使用语句(C).A:Picture1.Print="HowAreYou"B:P1.Picture=LoadPicture("HowAreYou")C:P1.Print"HowAreYou"D:Print"HowAreYou"InputBox函数返回的函数值的类型是(C).A:数值B:字符串C:数值或字符串D:根据需要可以是任何类型数据要使得标签能自动扩充以满足字体大小则可对其(C)属性进行设置. A:alignmentB:usemnemonicC:autosizeD:tag如果要在命令按钮上显示图形文件,应设置命令按钮的(B).A:Style属性和Graphics属性B:Style属性和Picture属性C:Picture属性D:Graphics属性要在命令按钮控件上显示图像应(C).A:设置Picture属性B:实现不了C:先将Type设置为1,然后再设置Picture属性D:以上都不对工具栏中的"启动"按钮的作用是(A).A:运行一个应用程序B:运行一个窗体C:工程管理窗口D:打开被选中对象的代码窗口下列字符串常量中,最大的是(C).A:"北京"B:"上海"C:"天津"D:"广州"货币型数据需(D)字节.A:2B:4C:6D:8设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是(B).A:TrueB:FalseC:1D:出错信息列表框控件中的列表内容是通过(C)属性设置的.A:NameB:CaptionC:ListD:Text下列哪一种文件打开方式是以顺序文件方式打开文件并作写操作(A). A:Open "c:\file1.dat"For Output as #1B:Open "c:\file1.dat" For Input as #1C:Open "c:\file1.dat" For Append as #1D:Open "c:\file1.dat" For Write as #1清除列表框的所有选项应选择下列哪种方法(A).A:ClearB:ClsC:ClearItemD:RemoveItem要使标签所在处透明显示背景,应把其Backstyle属性设置为(A).A:0B:1C:2D:3骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为(A).A:int(rnd*6+1)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)下列数据类型中,占用内存最小的是(B).A:BooleanB:ByteC:IntegerD:Single要使得窗体一开始运行就充满整个屏幕则须设置()属性.A:borderstyleB:appearanceC:windowstateD:drawmode下面(C)是日期型常量.A:"12/19/99"B:12/19/99C:#12/19/99#D:{12/19/99}以下叙述中错误的是(C).A:打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件B:保存VisualBasic程序时,应分别保存窗体文件及工程文件C:VisualBasic应用程序只能以解释方式执行D:事件可以由用户引发,也可以由系统引发将焦点主动设置到指定的控件或窗体上,应采用(B)方法.A:SetDataB:SetFocusC:SetTextD:GetGata下列(A)是窗体的扩展名.A:frmB:basC:clsD:dll下列语句中正确的是(D).A:txt1.text+txt2.text=txt3.textB:=cmdokC:12label.caption=1234D:a=inputbox(hello)形状控件所显示的图形不可能是(D).A:圆B:椭圆C:圆角正方形D:等边三角形以下控件中不属于容器的是(C).A:Form控件B:PictureBoxC:ImageD:Frame如果TAB函数的参数小于1,则打印位置在第(B)列.A:0B:1C:2D:3将CommonDialog通用对话框的类型设置为字体对话框,可设置该控件的(D)属性.A:FontB:FilterC:flagsD:Action要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为(D).A:0B:1C:2D:3已知A?B?C中C最小,则判断A?B?C可否构成三角形三条边长的逻辑表达式是(B).A:A>=B And B>=C And C>0B:A+C>B And B+C>A And C>0C:(A+C)>=C And A-C <=C) And C>0D:A+B>C And A-B>C And C>0退出VisualBasic的快捷键是(C).A:Ctrl+QB:Shift+QC:Alt+QD:Ctrl+Alt+Q下列方法中可用于列表框动态添加数据的是(B).A:addB:additemC:addlistD:removeitem运行下面的程序:CLSLINE (100,100)-(200,50)LINE - (150,150)LINE -(100,100)屏幕上显示的是(D).A:三条放射形直线B:四条放射形直线C:矩形D:三角形不具有输入数据功能的控件是(D)控件.A:文本框B:选项按钮C:列表框D:窗体以下这段在FORM的CLICK事件中的程序运行后的结果是(D). CurrentX=1500CurrentY=500Line-(3000,2000)Line-(1500,2000)Line-(1500,500)A:三条直线B:矩形C:三角形D:等腰直角三角形为使文本框显示滚动条,必须首先设置的属性是(A).A:MulitilineB:AutosizeC:AlignmentD:Scrollbars设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一个命令按钮的名称不能是(C).A:cmdcB:cmdbC:cmdAD:Command1设组合框Combo1中有3个项目,则以下能删除最后一项的语句是(B). A:Combo1.RemoveItemTextB:Combo1.RemoveItem2C:Combo1.RemoveItem3D:Combo1.RemoveItemCombo1.Listcount如果在图片框上使用绘图方法绘制一个圆,则图片框的(B)属性不会对该圆的外观产生影响.A:BackColorB:ForeColorC:DrawWidthD:DrawStyle为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为(D).A:5B:500C:300D:5000激活属性窗口使用的键是(C).A:F2B:F3C:F4D:F5如果没有在列表框中选择项目,且列表框的MultiSelect属性值为默认值(0~None),则执行语名List1.RemoveItemList1.ListIndex的结果是(C).A:删除列表框的最后一项B:删除列表框的第一项C:出错D:删除列表框中的最后添加的一项为了在按下回车键时执行某个按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是(D).A:ValueB:CancleC:EnableD:Default要想返回文本框中输入的内容则可利用其(B)属性进行编程.A:captionB:textC:nameD:righttoleft每个窗体对应一个窗体文件,窗体文件的扩展名是(C).A:.basB:.clsC:.frmD:.vbp控件是(A).A:建立对象的工具B:设置对象属性的工具C:编写程序的编辑器D:建立图形界面的编辑窗口下列可缩放图片的属性是(C).A:autosizeB:pictureC:stretchD:OleDrawMode设置列表框选中的文本用(D)属性.A:selectedB:captionC:textD:list为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为(C).A:0B:1C:2D:3列关于窗体上控件的基本操作错误的是(A).A:按一次DEL键只能删除一个控件B:按下一次DEL键可以同时删除多个控件C:按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D:按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件要在窗体上显示图片,需设置窗体的(C)属性.A:CaptionB:IconC:Picture&nbsp;D:ControlBox如果要改变窗体的标题,则需要设置的属性是(A).A:CaptionB:NameC:BackColorD:BorderStyle1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。

《VB程序设计》期末考试注意事项：（1）题型：选择题40道，判断题10道，每题2分，满分100分。

（2）答题时间：60分钟。

（3）请在规定时间内作答并提交。

1、VB程序设计语言是一种（）。

[单选题] *A．汇编语言B．机器语言C．高级语言(正确答案)D．数据库语言2、VisualBasic最突出的特点是（）。

[单选题] *A．结构化程序设计B．程序开发环境C．程序调试技术D．事件驱动编程机制(正确答案)3、VB中，.frm是（）文件的扩展名。

[单选题] *A．工程文件B．可执行文件C．窗体文件(正确答案)D．标准模块文件4、VB中，.vbp是（）文件的扩展名。

[单选题] *A. 工程文件(正确答案)B. 可执行文件C. 窗体文件D. 标准模块文件5、在设计窗体时，双击窗体的任何地方，可以打开的窗口是（）。

[单选题] *A. 代码窗口(正确答案)B. 属性窗口C. 工程管理窗口D. 以上3个选项都不对6、VB是一种面向对象的程序设计语言，下面（）不是面向对象包含的三要素。

[单选题] *A. 变量(正确答案)B. 事件C. 属性D. 方法7、不论任何控件，共同具有的是（）属性。

[单选题] *A. TextB. CaptionC. BackColorD. Name(正确答案)8、要使Form1窗体的标题栏显示“欢迎使用Visual Basic 6.0! ”,以下（）语句是正确的。

[单选题] *A. Form1.Caption =" 欢迎使用Visual Basic 6.0! "(正确答案)B. Form1.Caption =’欢迎使用Visual Basic 6.0! ’C. Form.Caption = " 欢迎使用Visual Basic 6.0! "D. Form.Caption = ’欢迎使用Visual Basic 6.0! ’9、有下面的程序代码：Command1.Caption ="确定"，则Command1，Caption和"确定"分别代表（）。

VB程序设计笔试题题库一、选择题1 下列常量中，是 Integer类型常量的是（C ）。

A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . （ A ）A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。

A、IDE是设计、调试、运行 VB程序的工具。

B、用户不能随意关闭 IDE中的窗口。

C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。

D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。

4 len( “程vb序设计”)=( C ) 。

A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后， A= （ A ）。

A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。

A、将 True 转换为 1 ，将 False 转换为 0B、将 True 转换为 1 ，将 False 转换为 -1C、将 True 转换为 0 ，将 False 转换为 -1D、将 True 转换为 -1 ，将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ，则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值（ B ）。

A、不能计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。

VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1．当进入vb集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。

2.在BMP图形文件之后加载命令按钮的图片属性时，所需的图形不会显示在选项按钮上，因为该属性未设置为1（图形）。

3．在文本框中，通过属性能获得当前插入点所在的位置。

4.要编辑文本框中的现有内容，请按键盘上的键，但该键不起作用，因为该属性已设置为true。

6．在vb中，1234、123456＆、1.2346e+5、1.2346d+5四个常数分别表示、、、。

7.整数变量x存储两位数。

要交换两个数字的位置，例如，13变为31，表达式为。

8．表示x是5的倍数或是9的倍数的逻辑表达式为。

9.如果a=3.5、B=5.0、C=2.5和d=true，则表达式a>=0anda+C>B+3ornotd的值为。

10．int(-3.5)、int(3.5)值分别是、。

11．表达式ucase(mid(\的值是。

12.要将以下语句循环20次，循环变量的初始值应为：fork=to-5step-213．下面程序段显示个“*”。

fori=1到5 Forj=1打印\nextjnexti14．复选框属性设置为2－grayed时，变成灰色，禁止用户选择。

15．属性设置为1，单选按钮和复选框的标题显示在左边。

16．属性设置为1，单选按钮和复选框以图形方式显示。

17.程序运行时，如果框架属性设置为false，框架标题为灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。

18．列表框中项目的序号是从开始的。

19.指示列表框中最后一项的序列号。

20.方法可以清除列表框中的所有内容。

21．组合框是组合了文本框和列表框的特性而形成的一种控件。

风格的组合框不允许用户输入列表框中没有的项。

22.VB程序存储在模块中，模块分为______________三种类型。

123.如果希望每15秒生成一次计时器事件，interval属性应设置为。

大学VB考试题库一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。

A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。

A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（B）。

A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。

A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个VisualBasic应用程序，应当（D）A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（.bas）D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要（A）。

A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是（C）。

A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏B、菜单栏C、状态栏D、工具栏9、以下叙述中错误的是(C)。

A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器)D、Visual Basic中控件的某些属性只能在运行时设置10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。

《程序设计语言VB》课程习题集一、单选题1. Visual Basic是一种面向（D ）的程序设计语言。

A. 用户B. 事件C. 程序D. 对象2.在Visual Basic6.0中规定工程文件的扩展名是（A）。

A. vbpB. forC. frmD. bas3. Visual Basic6.0中规定窗体文件的扩展名是（B ）。

A. forB. frmC. vbpD. bas4.如何使一个标签或按钮控件在运行时不可用（C）。

A. 把它的Visible属性设置成FalseB. 把它的Visible属性设置成TrueC. 把它的Enabled属性设置成FalseD. 把它的Enabled属性设置成True5.控件的字体可在属性窗口的（A）属性中调整？A. FontB. ColorC. TextD. Caption6.若要将某命令按钮设置为默认命令按钮。

则应设置为True的属性是（C ）。

A. ValueB. CancelC. DefaultD. Enabled7.在VB中，记录对象数据的是（C）。

A. 方法B. 事件C. 属性8.在文本框上显示文本的属性是（B）。

A. ValueB. TextC. PrintD. Enabled9. InputBox函数返回值的类型为（A）。

A. 字符串B. 数值C. 变体D. 数值或字符串（视输入的数据而定）10.设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（A）。

A. 字符串"20"B. 字符串"120"C. 默认值100D. 数值12011.下列控件中可用于接受用户输入文本，又可用于显示文本的是（B）。

A. Label控件B. TextBox控件C. Timer控件D. CommandButton控件12.语句PRINT "25*4"的输出结果是（A）。

第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、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〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 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= “副教授〞 Thenn=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=0引用列表框 (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 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔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集成环境后，发现没有显示“工具箱〞窗口，应选择视图菜单的工具箱选项，使“工具箱〞窗口显示。

【程序设计：选择3】当程序开始运行时，在Textl文本框中，输入成绩高于60分，使程序运行显示【合格】，否则显示【不合格】，运行结果如下图所示。

（注：编写双分支行语句命令）【参考代码】If X > = 60 Then S ="合格"Else S ="不合格"【程序设计：选择2】当程序开始运行时，在三个文本框Textl、Text2、Text3中，任意输入三个整数，单击［最大值］【参考代码】max = xIf y > max Thenmax = yEnd IfIf z > max Then max = zEnd If【程序设计：选择4】当程序开始运行时，在Textl 文本框中，输入成绩高于60分，使程序运行显示【合格】，否则 显示【不合格】，运行结果如下图所示。

（注：编写双分支块语句命令）【参考代码］If X > = 60 ThenS = “合格“ElseS = “不合格“End If【程序设计：选择1】当程序开始运行时，在三个文本框Textl 、Text2、Text3中，任意输入三个整数，单击［最大值］ W 单分支融 IsklMfiM请分别输入3个整数：如下图所示。

按钮，在Label2上显示三个数中的最大值, （注：使用单分支行语句来编写代码）【参考代码］max = xIf y > max Then max = yIf z > max Then max = z【程序设计：循环9】己经创建如图5所示的窗体界面。

要求：编写程序代码，程序运行时，在文本框Textl 中输入一个正整数n ,单击命令按钮Commandl后，在标签控件Label2上，显示Sum=l+2+3+ +n之和，完成程序后请运行程序，并保存程序。

（注：变量Sum表示累加单元，变量x表示循环控制变量，变量n表示Textl的值，必须使用Do Until .................... Loop语句。

VB 程序设计一、判断题1. 同一Form 窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。

（ X ）2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（）3. 单选按钮与复选框对象的 Value 属性类型不同，且只能取值 True 和False。

（√）4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。

（）5. 图片框的Move 方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。

（√）6. “A=B=C”是一个合法的 Visual Basic 语句。

（）7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。

（）8. Visual Basic 程序的运行可以从 Main （）过程启动，也可以从某个窗体启动。

（√）9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。

（）10. 对于文件系统控件，当驱动器控件 Drivel 中的驱动器符改变时，文件夹列表控件 Dir1 中显示的文件夹也作相应的改变，可以在Drive1 中的Change 事件中使用如下命令。

Dir1. Path＝ Drive1. Drive（√）11. 滚动条控件可作为用户输入数据的一种方法。

（√）12. 单选按钮控件和复选框控件都具有 Value 属性，它们的作用完全相同。

（）13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。

（√）14. Visual Basic 提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。

（√）15．注释语句 REM 可自成一语句。

（√）16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （）17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。