VB程序设计题精选
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程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的方法？A. FunctionB. SubC. PropertyD. Class答案：B2. VB中的单精度浮点数类型是什么？A. IntegerB. SingleC. DoubleD. Long答案：B3. 如果想要在VB中实现多态，可以使用哪种机制？A. 继承B. 接口C. 重载D. 封装答案：B4. 在VB中，以下哪个控件可以用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B5. VB中的“Option Explicit”语句的作用是什么？A. 声明变量类型B. 强制变量声明C. 定义常量D. 创建对象实例答案：B6. 在VB中，如何实现一个事件处理程序？A. 使用Sub过程B. 使用Function过程C. 使用Property过程D. 使用Handles关键字答案：D7. 如果要使一个变量在多个窗体之间共享，应该使用哪种变量作用域？A. PublicB. PrivateC. FriendD. Protected答案：A8. 在VB中，以下哪个不是标准的控件属性？A. NameB. TextC. VisibleD. Color答案：D9. VB中的“With”语句用于什么目的？A. 初始化对象B. 创建对象实例C. 链式调用同一对象的多个属性或方法D. 定义对象的生命周期答案：C10. 在VB中，以下哪个不是Visual Basic Power Packs控件？A. LineB. OvalC. ShapeD. DataGrid答案：D二、填空题（每空2分，共20分）11. VB中的“_____”关键字用于定义一个类。
答案：Class12. 当需要在VB中捕获并处理异常时，可以使用“_____”语句。
答案：Try...Catch13. 在VB中，一个窗体的标题可以通过“_____”属性来设置。
vb程序设计书习题和参考答案
vb程序设计书习题和参考答案练习题习题⼀⼀、判断题1．Visual Basic是以结构化的Basic语⾔为基础、以事件驱动作为运⾏机制的可视化程序设计语⾔。
2．⾯向对象的程序设计是⼀种以对象为基础，由事件驱动对象的编程技术。
3．事件是由Visual Basic预先定义的对象能够识别的动作。
4．新建⼯程时系统会⾃动将窗体标题设置为Form1。
5．控件的属性值不可以在程序运⾏时动态地修改。
6．决定对象是否可见的属性为Visible属性，决定对象可⽤性的属性是Enabled属性。
7．保存Visual Basic⽂件时，若⼀个⼯程包含多个窗体或模块，则系统先保存⼯程⽂件，再分别保存窗体或模块⽂件。
8．单击“启动”菜单项将窗体装⼊内存时，⼀定触发窗体的Load事件。
9．“事件过程”是⽤来完成事件发⽣后所要执⾏的程序代码。
10．在打开某窗体时，初始化该窗体中的各控件，应选⽤Load事件。
⼆、选择题1．⼯程⽂件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2．下列不属于对象的基本特征是。
A、属性B、⽅法C、事件D、函数3．在设计模式双击窗体将显⽰的窗⼝是A、⼯程窗⼝B、⼯具箱C、代码窗⼝D、属性窗⼝4．VB中运⾏程序的快捷键是A、F2B、F5C、Alt+F35．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。
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程序设计30道编程题
V B程序设计30道编程题------------------------------------------作者xxxx------------------------------------------日期xxxx'1.输入3个数，输出最大的数Private Sub Command11_Click()Dim max%X1=Val(InputBox("input"))X2=Val(InputBox("input"))x3=Val(InputBox("input"))max=X1If max<=X2 Thenmax=X2End IfIf max<=x3 Thenmax=x3End IfMsgBox("3个数之中的最大数max="&max)End SubPrivate Sub Command12_Click()'2.'有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根a=Val(InputBox("input"))B=Val(InputBox("input"))c=Val(InputBox("input"))s=B^2-4*a*cIf a<>0 ThenIf s=0 ThenMsgBox("两个相等实根")ElseIf s>0 ThenMsgBox("两个不相等实根")ElseIf s<0 ThenMsgBox("两个不相等虚根")End IfElseMsgBox("无解")End IfEnd SubPrivate Sub Command13_Click()'3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示"恭喜！成绩通过！"，若小于60，则弹出消息框，显示"抱歉！成绩没有通过！"X=Val(InputBox("input"))If X>=60 ThenMsgBox("恭喜！成绩通过！")ElseMsgBox("抱歉！成绩没有通过！")End If End SubPrivate Sub Command14_Click()'4.输入一年份，判断它是否为闰年，并显示有关信息。
VB程序设计习题
A．0 B．-1 C．TRUE D．FALSE
4．函数String(n，"str")的功能是（B）
A．把数值型数据转换为字符串B．返回n个由字符串首字符组成的字符串
C．从字符串中取出n个字符D．从字符串中第n个字符的位置开始取子字符串
14．滚动条控件的LargeChange属性所设置的是（A）
A． 单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量
B． 滚动条中滚动块的最大移动位置C． 滚动条中滚动块的最大移动范围
D． 滚动条控件无该属性
15．设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（D）
B． 在运行Windows帮助引擎时，控件能够显示帮助信息
C． 控件显示的对话框由控件的方法决定
D． 设计时在窗体上将该控件显示成一个图标，此图标的大小可以调整
二、写出下列程序的运行结果
１．如下程序运行后，分别输入100和200，然后单击命令按钮：
Private Sub Command1_Click()
5．运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性值时，将触发文本框的（D）事件
A．ClickB．DblclickC．GotfocusD．Change
6．下列表达式Int(-4.8) * 6 \ 3 ^ 2 + 11 Mod 3 * Fix(-4.8)的值为（C）
Private Sub Command1_Click( )
x=InputBox(“x=?”)
If x^2=9 Then y=x
VB程序设计题库(全)
程序设计第一题、题目：（事件）单击窗体（响应）求50以内所有偶数的和，并在窗体上输出来。
将结果存入变量S中。
代码：Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目：（事件）双击窗体（响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目：（事件）单击窗体（响应）求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中代码：Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目：（事件）单击窗体（响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。
将结果存入变量M中。
代码：Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目：（事件）双击窗体（响应）求100以内奇数的和，并将结果输出在窗体上。
将结果存入变量SUM中。
代码：Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目：（事件）单击窗体（响应）已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码：Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目：（事件）双击窗体（响应）求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码：Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目：（事件）单击窗体（响应）求1—1/2+1/3—1/4+….+1/99—1/100的值。
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。
VB程序设计习题
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)。
2024年VB语言程序设计试题库
ＶB程序设计一、判断题1．同一Ｆoｒm窗体中的各控件能够相互重叠，其显示的上下层次的次序不能够调整。
（X ）ﻫ2．一个对象的若能识别多个事件,我们只能对其中一个事件编程( )ﻫ3．单项选择按钮与复选框对象的Vａlｕe属性类型不一样，且只能取值Ｔrｕｅ和Falｓe。
（√ )4. 事件过程由某个用户事件或系统事件触发执行,它不能被其他过程调用。
( )5． 图片框的Move措施不但能够移动图片框,并且还能够变化该图片框的大小，同时也会变化该图片框有关属性的值。
( √ )6. “A=B=C”是一个合法的Vｉsual Bａsic语句。
( )７. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（ )ﻫ8. Visｕal Bａsｉｃ程序的运行能够从 Ｍａiｎ（）过程开启,也能够从某个窗体开启。
( √ ）ﻫ９. 在图片框中放置的控件既能够在该图片框内移动,也能够移出该图片框外。
( ）１0. 对于文献系统控件，当驱动器控件Drivｅl中的驱动器符变化时，文献夹列表控件Dir1中显示的文献夹也作对应的变化,能够在Dｒive1中的Cｈange事件中使用如下命令。
Dｉｒ1. Path＝ Drivｅ1．Ｄrｉve( √）11. 滚动条控件可作为用户输入数据的一个措施。
（ √）ﻫ１２．单项选择按钮控件和复选框控件都具备Vaｌuｅ属性，它们的作用完全相同。
( ）ﻫ13. 静态变量是一个局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
( √ )ﻫ14． Vｉsual Basｉｃ提供的几个标准坐标系统的原点都是在绘图区域的左上角，假如要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√ ）ﻫ15．注释语句ＲＥM可自成一语句。
( √ )ﻫ１6．用鼠标选中某菜单控件时，触发Clｉcｋ事件；而用键盘选中该菜单控件时，触发 KeyPress（ ）17．组合框兼有文本框和列表框二者的功效,用户能够通过键人文本或选择列表中的项目来进行选择。
VB程序设计试题 及 参考答案
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程序设计"分别代表（）。
VB程序设计题
一．[题目] 编一程序，显示所有的水仙花数，所谓水仙花数，是指一个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程序设计例题12例
索引一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。
再画一个命令按钮，其名称为C1，Visible属性为False。
编写适当的事件过程。
程序运行后，如果在文本框中输入字符，则命令按钮出现。
二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。
程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。
（要求在未输入半径前两个按钮呈灰色不可用。
）三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。
程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。
四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。
程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。
单击退出按钮则程序退出。
五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。
（2）收入在200~400元，超过200元的部分纳税3%。
（3）收入超过400元的部分，纳税4%。
（4）当收入达5000元或超过时，将4%税金改为5%。
编程序实现上述操作。
六、给定三角形的三条边的边长，计算三角形的面积。
编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。
当输入-1时结束程序。
七、编程求100以内的全部素数。
八、编程打印钻石图案。
九、输出杨辉三角形。
十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。
VB程序设计练习题及参考答案
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程序设计练习题及参考答案
Visual Basic程序设计练习题1．Visual Basic是一种面向对象的可视化程序设计语言，采取了A的编程机制。
A．事件驱动B．按过程顺序执行C．从主程序开始执行D．按模块顺序执行2．在Visual Basic中最基本的对象是C，它是应用程序的基石，是其他控件的容器。
A．文本框B．命令按钮C．窗体D．标签3．多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把B 指定为启动窗体。
A．不包含任何控件的窗体B．设计时的第一个窗体C．包含控件最多的D．命名为Frm1的窗体4．若有程序代码如下：text1.text="Visual Basic"则：text1，text和"Visual Basic" 分别代表C。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值5．Visual Basic是一种面向对象的程序设计语言，A不是面向对象系统所包含的三要素。
A．变量B．事件C．属性D．方法6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是C。
A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口7．保存新建的工程时，默认存放的位置是B。
A．My Documents B．VB98 C．\ D．Windows 8．若要使标签控件显示时不覆盖其背景内容，要对D属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle 9．若要使命令按钮不可操作，要对A属性设置。
A．Enabled B．Visible C．BackColor D．Caption 10．文本框没有D属性。
A．Enabled B．Visible C．BackColor D．Caption 11．不论何控件，共同具有的是B属性。
A．Text B．Name C．ForeColor D．Caption 12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下D语句是正确的。
vb程序设计试题及答案
vb程序设计试题及答案为了帮助大家更好地理解和掌握VB程序设计，下面将为大家提供一套VB程序设计试题及答案。
通过完成这些试题，相信能够对VB程序设计有更深入的了解和应用。
请注意，以下试题中给出的是简要描写，实际编写程序时请适当完善。
试题一：计算两个数字的和与差要求：编写一个VB程序，输入两个数字，然后输出它们的和与差。
答案：```vbPrivate Sub btnCalc_Click()Dim num1, num2, sum, diff As Integernum1 = Val(txtNum1.Text)num2 = Val(txtNum2.Text)sum = num1 + num2diff = num1 - num2lblSum.Caption = "和：" & sumlblDiff.Caption = "差：" & diffEnd Sub```试题二：学生成绩统计要求：编写一个VB程序，输入3位学生的成绩，然后计算并输出平均成绩和最高成绩。
答案：```vbPrivate Sub btnCalc_Click()Dim score1, score2, score3, average, max As Integerscore1 = Val(txtScore1.Text)score2 = Val(txtScore2.Text)score3 = Val(txtScore3.Text)average = (score1 + score2 + score3) / 3max = WorksheetFunction.Max(score1, score2, score3)lblAverage.Caption = "平均成绩：" & averagelblMax.Caption = "最高成绩：" & maxEnd Sub```试题三：简单计算器要求：编写一个VB程序，实现一个简单的计算器功能，包括加减乘除四则运算。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1．在窗体上建立命令按钮“command1”（显示）和“command2”（退出）。
运行时，“command2”按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用VB!”，同时命令按钮1的标题改为“清除”，再单击“清除”按钮后，界面恢复窗体装入时的初始状态。
Private Sub Command1_Click()If Command1.Caption = "显示" ThenPrint "欢迎使用VB!"Command1.Caption = "清除"ElseClsCommand1.Caption = "显示"End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub2.用InputBox函数输入一个学生成绩，评定其等级。
方法是：90～100分为"优秀"，80～89分为"良好"，70～79分为"中等"，60～69分为"及格"，60分以下为"不及格"。
Private Sub Command1_Click()Dim score！score = Val(Text1.Text)Select Case scoreCase 90 To 100Text2.Text = “优秀” …不同结果每个条件及时输出Case 80 To 89Text2.Text = "良好"Case 70 To 79Text2.Text = “中等”Case 60 To 69Text2.Text = "及格"Case 0 To 59Text2.Text = “不合格"Case ElseText2.Text = "输入成绩无效"End SelectEnd Sub3. 设计一个求解一元二次方程02=++C Bx Ax 的程序，只要求考虑实根的情况。
图3Private Sub Command1_Click()Dim a!, b!, c!Dim Xl!, X2!, d!a = Val(Text1.Text)b = Val(Text2.Text)c = Text3.Textd = b * b - 4 * a * cIf d >= 0 ThenX1 = (-b + Sqr(d)) / (2 * a)X2 = (-b - Sqr(d)) / (2 * a)Text4.Text = "X1=" & Str(X1)Text5.Text = "X2=" & X2ElseText4.Text = "方程无实根"End IfEnd Sub4. 从键盘上输入一个数A ，完成以下判断：当A > 100时，B = 1；A < 100时，B = -1；当A = 100时，B = 0。
Private Sub Command1_Click()Dim a!, b!a = Val(Text1.Text)If a > 100 Thenb = 1ElseIf a < 100 Thenb = -1Elseb = 0End IfEnd IfText2.Text = Str(b)End Sub5. 编写程序：输入x、y、z三个数，按从小到大的次序显示。
Private Sub Command1_Click()Dim x!, y!, z!, temp!x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)If x > y Thentemp = xx = yy = tempEnd IfIf x > z Thentemp = zz = xx = tempEnd IfIf y > z Thentemp = zz = yy = tempEnd IfLabel1.Caption = x & "<" & y & "<" & zEnd Sub6. 顾客在商场购物时，若所选物品的总金额x在下述范围内，则实付款y可按对应折扣支付，请编程计算某顾客的实付款，总金额由键盘输入。
x x < 1000 Array0.9x 1000 <= x < 20000.8x 2000 <= x < 30000.7x x >= 3000Private Sub Command1_Click()Dim x!, y!x = InputBox("请输入x的值")Select Case xCase Is < 1000y = xCase Is < 2000y = 0.9 * xCase Is < 3000y = 0.8 * xCase Elsey = 0.7 * xEnd SelectMsgBox "y=" & yEnd Sub7. 输入一个年份，判断该年是否为闰年，程序运行效果参考如图所示，界面自定。
Private Sub Command1_Click()Dim y!y = Val(Text1.Text)If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 ThenLabel1.Caption = "是闰年"ElseLabel1.Caption = "不是闰年"End IfEnd Sub8. 编程，输入x ，求下列分段函数y 的值。
用InputBox 函数输入x ，计算结果输出到Text 控件。
Private Sub Command1_Click()Dim x!, y!x = Val(Text1.Text)If x < -5 Theny = 3 * x ^ 2 + 2 * x - 1ElseIf x > 5 Theny = x ^ (3 / 4)Elsey = 5 * x + 2 ^ xEnd IfEnd IfText2.Text = yEnd Sub9. 数入x 、n ，根据下列公式计算多项式p （n ，x ）的值，计算结果输出到Text 控件。
x n = 1 p(n,x)= (3x2-1)/2 n = 2(5x 2-3)x/2 n = 3Private Sub Command1_Click()Dim x!, n!,p!n = InputBox("请输入n 的值")x = InputBox("请输入x 的值")If n = 1 Thenx = xElseIf n = 2 Then3x 2+2x-1 x<-5 y= 5x+2x -5≤x ≤5x 3/4 x>5ElseIf n = 3 Thenp = (5 * x ^ 2 - 3) * x \ 2End IfMsgBox "p=" & pEnd Sub10. 编程，当x < y ，交换x 、y 的值，然后输出x 、y 的值（在Text 控件输入，输出到Label 控件）。
Private Sub Command1_Click()Dim x!, y!, temp!x = Val(Text1.Text)y = Val(Text2)If x < y Thentemp = xx = yy = tempEnd IfLabel1.Caption = "x=" & x & " y=" & yEnd Sub11. 编程，输入x 值，按下式计算并输出y 值，计算结果f(x)输出到Text 控件。
⎪⎪⎩⎪⎪⎨⎧≤<<≤≤>+==00103133)(2x x x x x x x x f yPrivate Sub Command1_Click()Dim x!, y!x = Val(Text1.Text)If x > 3 Theny = x + 3ElseIf x >= 1 Theny = x ^ 2ElseIf x > 0 Theny = Sqr(x)Elsey = 0End IfText2.Text = yEnd Sub12. 用Inputbox 函数输入3个任意整数，从大到小按序输出。
Private Sub Form_Click()Dim x%, y%, z%, temp%x = InputBox("请输入X 的值")y = InputBox("请输入Y 的值")z = InputBox("请输入Z 的值")If x < y Then temp = y: y = x: x = tempIf y < z Then temp = z: z = y: y = tempLabel1.Caption = "x:" & x & ">" & "y:" & y & ">" & "z:" & zEnd Sub13.编一冒泡程序，对已知整数按递减次序排列，用子过程Sub sort(a())Dim imin%, i%, j%For i = 0 To UBound(a) - 1For j = 0 To UBound(a) - 1 - iIf a(j＋1) > a(j ) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iEnd SubPrivate Sub Form_Click()Dim b(), i%b = Array(8, 9, 4, 2, 6)Call sort(b())For i = 0 To UBound(b)Print b(i);Next iEnd Sub14. 求10个三位正整数中的奇数之和。
正整数用随机函数Rnd产生，或由用户通过InputBox 函数输入。
Private Sub Form_click()S = 0For i = 1 To 10x = Int(900 * Rnd) + 100If x Mod 2 = 1 Then S = S + xNext iPrint "S="; SEnd Sub15. 编写程序，打印如下图形。