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试题及答案一一、选择题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中事件处理的重要性及其在应用程序开发中的应用。
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程序设计考试题库——考试专用
程序设计题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程序设计试题及答案(一)
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程序设计习题
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程序设计试题 及 参考答案
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检验。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1. 参照下图制作一滚动字幕（滚动方式自由设计）。
任务1：完成学生成绩管理系统。
第五章
要求：1）利用数组实现各个按钮的功能。
2）动态数组。
2. 建立一个如下图所示的记事本应用程序（小图标也可用文字替代）。
任务1：完成学生成绩管理系统。
第五章
要求：1）利用数组实现各个按钮的功能。
2）动态数组。
3. 编写华氏温度与摄氏温度之间转换的程序。
任务1：完成学生成绩管理系统。
第五章
要求：1）利用数组实现各个按钮的功能。
2）动态数组。
4. 建立一个登录程序，界面参考下图。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
5. 编写一个自动贩卖机系统，运行界面如下图所示。
任务1：完成学生成绩管理系统。
第五章
要求：1）利用数组实现各个按钮的功能。
2）动态数组。
6. 编写如下图所示的猜数游戏程序。
7. 百元买百鸡。
假设小鸡每只0.5
元，公鸡每只2元，母鸡
每只3元，编程求解购鸡方案。
结果如下图所示。
任务1：完成学生成绩管理系统。
第五章要求：1）利用数组实现各个按钮的功能。
2）动态数组。
8. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩统计”功能。
任务1：完成学生成绩管理系统。
第五章
要求：1）利用数组实现各个按钮的功能。
2）动态数组。
9. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的功能必做，第二行完成“成绩排序”功能。
任务1：完成学生成绩管理系统。
第五章
要求：1）利用数组实现各个按钮的功能。
2）动态数组。
10. 编写一个简易“学生成绩管理系统”。
第一行3个按钮的
功能必做，第二行完成“成绩查询”功能。
任务1：完成学生成绩管理系统。
第五章
要求：1）利用数组实现各个按钮的功能。
2）动态数组。
11. 完成如下图所示的“课程管理系统”程序设计。
12. 随机生成3个正整数，其中1个一位数，1个二位数，1个三位数，计算它们的平均值，保留两位小数，运行界面如下图所示。
13. 输入一个合法的三位正整数数，然后逆序输出并显示，要求检查数据的合法性。
运行界面如下图所示。
14. 在购买某商品时，若所花钱x 在下述范围内，所付钱y 按对应折扣支付，请编程实现。
15. 编一程序输入上网时间，计算上网费用，计算方法如下。
同时为了鼓励多上网，每月收费最多不超过150元。
x (x<1000)
0.9x
(1000≤x<2000) y= 0.8x (2000≤x<3000) 0.7x (x ≥3000)
费用= 基数30元 上网时间<10小时 每小时2.5元 上网时间10—50小时 每小时2元 上网时间≥50小时
16. 编程实现如下分段函数的求解。
要求输入x的值，求解并输出y的值。
x2+3x+2 (x>20)
y= 3x-2 (10≤x≤20)
1/x+x (0<x<10)
17. 随机产生10个2位的正整数，并存放于一维数组中，按从小到大递增的顺序排列，并显示排序结果。
18.随机产生10个30—100（包含30，100）的正整数，求最大值、最小值和平均值，并显示整个数组的值和结果。
程序运行结果如下图所示。
19.输入一元二次方程ax2+bx+c=0的系数a、b、c，计算并输出一元二次方程的两个实根，运行界面如下图所示。
20. 编写“个人简历表”程序，程序运行界面如下图所示。
21.随机产生20个学生的成绩，统计各分数段的人数，并显示结果。
产生的数据在picture1显示，统计结果在picture2显示，如下图所示。
22.窗体上建立一个简单组合框，在组合框的文本框中输入数字字符，按回车键加入到组合框的列表框内，单击“交换”按钮，将列表框中最小值项目和第0个项目交换，最大值项目和最后项目交换，运行界面如下图所示。
输入数字数据交换后结果
23. 编程实现在一个有序的一维数组a中插入数值x（x的值运行时输入获得），使得插入新的数据后，保持原有排序顺序。
24. 编程一个求阶乘的函数f(n),主调程序为求组合数的程序，分3次调用，用来计算组合数的值，运行界面如图所示。
（编程时注意变量的类型设置）。