vb题库程序设计题讲解
vb习题库程序设计习题讲解
题目：(事件)单击窗体' (响应)用输入框输入一自然数，判断是"正数"、"负数"或"零"，并根据输入的数用消息框显示"正数"、"负数"或"零"。
n = InputBox("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"'要求使用IF语句来实现。
Private Function fun(mark As Integer) As String'**********Program**********'********** End **********End FunctionIf mark >= 90 Thenfun = "优秀"ElseIf mark >= 80 Thenfun = "良好"ElseIf mark >= 70 Thenfun = "中等"ElseIf mark >= 60 Thenfun = "及格"Elsefun = "不及格"End If'题目：编写函数fun，函数的功能是：判断一个字符是'字母字符、数字字符还是其他字符，并做相应的显示。
'字母字符显示字符串"字母"'数字字符显示字符串"数字"'其他字符显示字符串"其他"'要求使用''''要求使用x = 10n = 0Loopfun = n''最大公约数，并显示。
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程序设计习题及答案第2章VisualBasic语言基础知识
第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。
【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。
2. 数值型：数值型数据分为整型数和浮点数两类。
3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。
变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。
VB程序设计题
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程序设计教案例题及解析
VB程序设计教案例题及解析程序设计教案例题及解析VB程序设计是一门非常重要的计算机科学技能，它在各行各业都有广泛的应用。
本文旨在提供一些VB程序设计练习题及解析，帮助初学者获取更多知识，并提高自己的技能水平。
一、VB程序设计实践题1.基础实践题目：设计一个VB程序，让用户输入两个数并输出两个数之和。
2.中级实践题目：设计一个VB程序，让用户输入一个数字并输出该数字的因数。
3.高级实践题目：设计一个VB程序，让用户输入文本并输出该文本中出现次数最多的字符。
二、VB程序设计实践解析1.基础实践题目解析：我们需要在VB程序中设计两个文本框和一个按钮，用于用户输入两个数并输出两数之和。
用户输入两个数后，我们需要通过VB程序获取用户输入的数值，并通过代码计算它们的和。
代码如下：Dim x As IntegerDim y As IntegerDim sum As Integerx = Val(Text1.Text)y = Val(Text2.Text)sum = x + yText3.Text = sum在代码中，我们使用了VB中的计算公式sum=x+y来计算两个数的和，并使用了Text3.Text将计算结果输出。
2.中级实践题目解析：在这个题目中，用户需要输入一个数字，并输出该数字的因数。
我们可以通过VB程序实现这个操作。
我们需要在VB程序中设计一个文本框和一个按钮，用于用户输入一个数字并输出该数字的因数。
用户输入数字后，我们需要通过VB程序获取用户输入的数值，并通过代码计算它的因数。
代码如下：Dim x As IntegerDim i As IntegerDim count As Integerx = Val(Text1.Text)For i = 1 To x Step 1If x Mod i = 0 Thencount = count + 1End IfNext iText2.Text = count在代码中，我们使用了VB中的For循环语句来遍历x的因数，并计算因数的数量（count）。
VB60程序设计实践教程习题及答案
VB60程序设计实践教程习题及答案Vb6.0第一章一、判断题1．属性是ViualBaic对象性质的描述，对象的数据就保存在属性中。
2．控件的属性值不可以在程序运行时动态地修改。
3．许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。
4．所谓保存工程，是指保存正在编辑的工程的窗体。
5．面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。
6．为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为Fale。
7．保存ViualBaic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
8．事件是由ViualBaic预先定义的对象能够识别的动作。
9．方法是ViualBaic对象可以相应的用户操作。
10．窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。
11．由ViualBaic语言编写的应用程序有解释和编译两种执行方式。
12．在打开一个ViualBaic工程进行修改后，要另存为一个版本，只需单击“工程另存为…”就行，因为系统将同时保存其他文件。
13．当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件.二、选择题1．要使某个控件不可操作，要对属性进行设置。
A、EnabledB、ViibaleC、CaptionD、Name2．下列不属于对象的基本特征的是A、属性B、方法C、事件D、函数3．当运行程序时，系统自动执行启动窗体的事件过程。
A、ClickB、LoadC、DblClickD、Unload4．ViualBaic中“程序运行”允许使用的快捷键是A、F2B、F5C、Alt+F3D、F85．改变控件在窗体中的左右位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6．工程文件的扩展名为A、.vbpB、.baC、.fr某D、.frm7．在ViualBaic中，称对象的数据为A、属性B、方法C、事件D、封装8．下列选项中不属于属性的是10．下列关于属性设置的叙述错误的是A．一个控件具有什么属性是VB预先设计好的，用户不能改变它B．一个控件具有什么属性值是VB预先设计好的，用户不能改变它C．一个控件的大多数属性既可以在属性窗口中设置，也可以用程序代码设置D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值第1页共75页三、填空题1．ViualBaic中可作为其它控件的容器除了窗体外，还有和2．在ViualBaic中，窗体和控件被称为3．窗体是用来存放的容器，窗体的left和top属性是相对对象的。
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程序设计试题及答案（一）一、单选题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程序设计教程_课后习题答案及练习
"VB程序设计"综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程〞菜单下的__________命令，可选择并添加Active*控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是〔〕A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是〔〕A．具有标准工具箱B．一个工程文件由假设干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、以下不能翻开属性窗口的操作是〔〕A．执行“视图〞菜单中的“属性窗口〞命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口〞按钮4、以下可以翻开立即窗口的操作是〔〕A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是〔〕A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几局部？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的根本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能承受焦点。
VB程序设计教程 习题解答
VB程序设计教程习题解答vb程序设计教程习题解答《VB编程课程》（第三版）问题解决习题1答案一、多项选择题1.1visualbasic6.0分为3种版本，不属于这3种版本的是a）学习版b）专业版c）企业版d）业余版【答】d。
1.2在以下方法中，无法退出Visual Basic的方法是a）按Alt+Qb）按下alt+f组合键，然后按esc键c）按f10键，然后按f键，再按x键d）打开“文件”菜单→“退出”命令【答】b。
1.3 visual basic集成的主窗口不包括a）属性窗口b）标题栏C）菜单栏d）工具栏[answer]a。
1.4下列操作可以打开立即窗口的是a）ctrl+db）ctrl+fc）ctrl+gd）ctrl+e【答】c。
二、填空题1.5与传统编程语言相比，Visual Basic最突出的特点是。
[答：]事件驱动编程机制。
1.6如果不使用鼠标，用键盘打开菜单和执行菜单命令，第一步应按____键。
[答：]功能键F10或alt。
1.7建立一个新的标准模块，应该选择____菜单下的“添加模块”命令。
【答】“工程”菜单。
三、思考问题1.8简述visualbasic的特点。
[答：]与通用编程语言相比，VB具有以下特点：（1）可视化设计平台；（2）面向对象设计方法；（3）事件驱动编程机制；（4）结构化设计语言；(5)充分利用windows资源；（6）开放数据库功能和网络支持。
1.9简述visualbasic集成开发环境的组成。
[答：]VB6 0集成开发环境不仅有标准Windows环境的标题栏、菜单栏和工具栏，还有工具箱、属性窗口、项目管理器窗口、表单设计器、即时窗口和表单布局窗口等有用的开发工具。
(1)标题栏和菜单栏：标题栏中显示的有窗体控制菜单图标、当前激活的工程名称、当前工作模式以及最小化、最大化m还原、关闭按钮。
菜单栏中显示了“文件”、“编辑”、“视图”、“工程”、“格式”等菜单项，其中包含了vb编程的常用命令。
VB经典的程序设计题
VB经典的程序设计题VB经典的程序设计题VB经典的程序设计题是指那些常见的、经典的VB程序设计题目，这些题目涵盖了VB程序设计的各个方面，包括基础语法、界面设计、数据处理、算法等内容。
在考虑这些题目时，我们可以根据自己的需求和目标来选择合适的题目，以提高自己的VB编程能力。
下面是一些VB经典的程序设计题目，供参考。
一、VB基础语法题⒈编写一个程序，输入一个正整数n，输出从1到n的所有自然数。
⒉编写一个程序，输入一个整数n，输出该整数的倒序。
⒊编写一个程序，输入一个字符串，将它反转输出。
⒋编写一个程序，输入一个字符串，输出字符串中的所有数字。
⒌编写一个程序，输入一个字符串，将其中的大写字母转换为小写字母，将其中的小写字母转换为大写字母。
二、界面设计题⒈编写一个程序，设计一个登录界面，包括用户名和密码的输入框以及登录按钮。
⒉编写一个程序，设计一个计算器界面，包括数字按钮、运算符按钮和结果显示框。
⒊编写一个程序，设计一个图形界面，包括按钮和文本框，用于计算两个数的和、差、积和商。
⒋编写一个程序，设计一个学绩查询界面，包括学号和姓名的输入框以及查询按钮。
三、数据处理题⒈编写一个程序，输入一组整数，将它们按照从大到小的顺序排序并输出。
⒉编写一个程序，输入一组字符串，将其中的重复字符串去除并输出。
⒊编写一个程序，输入一组学绩，计算平均分并输出。
⒋编写一个程序，输入一组学绩，计算最高分和最低分，并输出。
四、算法题⒈编写一个程序，输入一个正整数n，判断它是否是素数。
⒉编写一个程序，输入一个正整数n，输出它的所有因子。
⒊编写一个程序，输入一个正整数n，计算它的阶乘。
⒋编写一个程序，输入一个正整数n，计算它的斐波那契数列的第n项。
附件：本文档没有涉及附件。
法律名词及注释：⒈ VB：Visual Basic的简称，是一种基于事件驱动的程序设计语言。
⒉程序设计题：指要求编写一个能够运行的程序来解决特定问题的问题描述。
⒊基础语法：指编程语言的基本语法结构和规则。
(完整word版)VB程序设计试题题库及答案.doc
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程序设计含详解
合用标准文案1、编写程序，将26 个字母逆序输出。
教材 p87 【例 4-15】2、编写程序，在窗体上随机输出一个10--99 之间的两位整数。
Private Sub Form_Click()clRandomizePrint Int(Rnd() * 90) + 10End Sub3、在窗体的单击事件中编写程序，从键盘输入 3 个数，按从小到大的序次输出到窗体上。
Private Sub Form_Click()clsa = Val(InputBox("a="))b = Val(InputBox("b="))c = Val(InputBox("c="))If a > b Thent = a: a = b: b = tEnd IfIf a > c Thent = a: a = c: c = tEnd IfIf b > c Thent = b: b = c: c = tEnd IfPrint " 按从小到大排序后的结果 :"; a; " 、"; b; " 、"; c End Sub4、编写程序，要求随着不断单击命令按钮Command1，窗体的标题依次显示为：今天是星期一→今天是星期二→今天是星期三→今天是星期四→今天是星期五→今天是星期六→今天是星期日。
Private Sub Command1_Click()优秀文档Static i As Integeri = i + 1Select Case iCase 1Form1.Caption = "今天是星期一"Case 2Form1.Caption = "今天是星期二"Case 3Form1.Caption = "今天是星期三"Case 4Form1.Caption = "今天是星期四"Case 5Form1.Caption = "今天是星期五"Case 6Form1.Caption = "今天是星期六"Case 7Form1.Caption = "今天是星期日"i = 0End SelectEnd Sub5、编写程序，将字符串"" 山高人为峰 "" 按逆序 "" 峰为人顶峰 "" 输出。
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程序，实现一个简单的计算器功能，包括加减乘除四则运算。
vb考试题及答案详解
vb考试题及答案详解一、选择题（每题2分，共40分）1. 在Visual Basic中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 以下哪个关键字用于声明一个过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C3. 如果变量x的值是5，那么表达式x > 3 And x < 10的结果是？A. TrueB. FalseC. 5D. 3答案：A4. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给变量str？A. str = TextBox.TextB. str = TextBoxC. str = TextD. str = Text.Text答案：A5. 下列哪个控件用于在窗体上显示图像？A. PictureBoxB. ImageBoxC. LabelD. Button答案：A6. Visual Basic中的哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A7. 如何在Visual Basic中声明一个整型变量？A. Dim intVar As IntegerB. Declare intVar IntegerC. Var intVar IntegerD. Integer intVar答案：A8. 在Visual Basic中，哪个事件用于响应鼠标单击？A. ClickB. MouseDownC. MouseUpD. DoubleClick答案：A9. 下列哪个不是Visual Basic的内置控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D10. 在Visual Basic中，如何使用If语句进行条件判断？A. If condition ThenstatementsEnd IfB. If condition ElsestatementsEnd IfC. Both A and BD. None of the above答案：C11. Visual Basic中哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C12. 如何在Visual Basic中声明一个数组？A. Dim arrayName() As TypeB. Declare arrayName() As TypeC. Var arrayName() As TypeD. Array arrayName() As Type答案：A13. 在Visual Basic中，哪个属性用于设置文本框的只读状态？A. ReadOnlyB. ReadOnlyC. CanReadD. CanWrite答案：A14. 如何在Visual Basic中声明一个类？A. Class classNamedeclarationsEnd ClassB. Declare classNamedeclarationsEnd DeclareC. Var classNamedeclarationsEnd VarD. Type classNamedeclarationsEnd Type答案：A15. 在Visual Basic中，哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
vb程序设计题库及答案详解
vb程序设计题库及答案详解在编写VB程序设计题库及答案详解时，我们通常会按照以下结构进行排版：1. 题目编号：为每个题目分配一个唯一的编号，方便索引和查找。
2. 题目描述：清晰地描述题目要求，包括输入、输出、功能等。
3. 解题思路：简要说明解题的步骤和方法。
4. 代码实现：提供完整的VB代码实现，包括必要的注释。
5. 运行结果：展示程序运行后的结果，可以是截图或文本描述。
6. 注意事项：列出在编写程序时应注意的问题或常见的错误。
7. 拓展思考：提供一些拓展问题或变体，引导读者进一步思考。
以下是一篇符合标题的正文内容示例：题目编号：001题目描述：编写一个VB程序，实现用户输入两个整数，程序输出这两个整数的和。
解题思路：1. 使用InputBox函数获取用户输入的两个整数。
2. 将输入的字符串转换为整数类型。
3. 计算两个整数的和。
4. 使用MsgBox函数显示结果。
代码实现：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = Val(InputBox("请输入第一个整数："))num2 = Val(InputBox("请输入第二个整数："))sum = num1 + num2MsgBox "两个整数的和是：" & sum```运行结果：程序将弹出两个输入框，用户输入两个整数后，将显示一个消息框，展示这两个整数的和。
注意事项：- 确保输入的是整数，否则Val函数可能会失败。
- 输入框中不要包含非法字符。
拓展思考：- 如果用户输入的不是数字，程序应如何处理？- 能否修改程序，使其能够计算两个数的平均值而不是和？请注意，这只是一个示例，实际的题库及答案详解会根据具体题目的不同而有所变化。
VB题库 (1)
'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求100以内偶数的和，并将结果输出在窗体上。
' 将结果存入变量SUM中'-------------------------------------------------【参考代码】Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum===============【考生代码】'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求1!+2!+3!+……+10!的值，并在窗体上输出。
' 结果存入变量L中。
'-------------------------------------------------【参考代码】Dim i As IntegerDim s As LongDim j As Integers = 1For i = 1 To 10s = s * il = l + sNextPrint Str(l)===============【考生代码】'------------------------------------------------'【程序改错】'------------------------------------------------'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程' fact实现'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim i As Integer, s As Long'**********ERROR**********For i = 2 To 8s = s + fact(i)Next iPrint sEnd Sub'**********ERROR**********Public Function fact()Dim t As LongDim i As Integert = 1For i = 1 To nt = t * iNext i'**********ERROR**********fact = iEnd Function【改错1】错误【学生答案】For i = 2 To 8【参考答案】For i=2 To 8 Step 2============================================================【改错2】错误【学生答案】Public Function fact()【参考答案】Public Function fact(ByVal n As Integer)Public Function fact(n As Integer)Public Function fact(n%)Public Function fact(n)Public Function fact(ByVal n%)Public Function fact(ByVal n)============================================================【改错3】错误【学生答案】fact = i【参考答案】fact = t============================================================'------------------------------------------------'【程序改错】'------------------------------------------------'题目：下面程序将10个整数从大到小排序'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10a(m) = Int(10 + Rnd() * 90)Print a(m); " ";Next mPrintFor m = 1 To 9t = m'**********ERROR**********For n = 2 To 10'**********ERROR**********If a(t) > a(n) Then n = tNext n'**********ERROR**********If t = m Thenw = a(m)a(m) = a(t)a(t) = wEnd IfNext mFor m = 1 To 10Print a(m)Next mEnd Sub【改错1】错误【学生答案】For n = 2 To 10【参考答案】For n=m+1 To 10============================================================【改错2】错误【学生答案】If a(t) > a(n) Then n = t【参考答案】If a(t) < a(n) Then t=nIf a(n)>a(t) Then t=n============================================================【改错3】错误【学生答案】If t = m Then【参考答案】If t<>m ThenIf not t=m ThenIf not m=t then============================================================编写一个华氏温度和摄氏温度之间转换的程序，在窗体上添加2个标签、2个文本框、2个命令按钮，如图1所示，在属性窗体修改控件的属性，使其运行时图2所示。
VB程序习题(附答案解析)
VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框显示的容为：5+7=12。
A、Text1.T ext = a + b + cB、Text1.T ext = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
（事件）单' （响应）用输入框输入一自然数，判断是”正数”、”负数”或”零”，并根据输入的数用消息框显示”正数”、"负数"或”零”。
n = lnputBox（" 输入一个自然数"）If n > 0 Thenresult =" 正数"Elself n < 0 Thenresult =" 负数"Elself n = 0 Thenresult =" 零"End IfMsgBox"输入的数据"& n & " 为："& result题目编写函数fun，函数的功能是：判断一个字符是'字母字符、数字字符还是其他字符，并做相应的显示。
'字母字符显示字符串"字母"'数字字符显示字符串"数字"'其他字符显示字符串"其他"'要求使用IF语句来实现。
If UCase（n） >= "A" And UCase（n） <= "Z" Thenfun =" 字母"ElseIf n >= "0" And n <= "9" Thenfun =" 数字"Elsefun =" 其他"End If'题目：编写函数fun，函数的功能是：根据一个百分制'成绩mark （整数），显示对应五级制的评定。
条件如下：'mark大于等于90显示"优秀"'mark小于90且大于等于80显示"良好"'mark小于80且大于等于70显示"中等"'mark小于70且大于等于60显示"及格"'mark小于60显示"不及格"'要求使用IF语句来实现。
Private Function fun(mark As Integer) As String**********Program ********************End **********End FunctionIf mark >= 90 The nfun =" 优秀"ElseIf mark >= 80 The nfun =" 良好"ElseIf mark >= 70 Then fun = " 中等 "ElseIf mark >= 60 Then fun = " 及格 "Elsefun = " 不及格 "End If' 题目：编写函数 fun ，函数的功能是：判断一个字符是 ' 字母字符、数字字符还是其他字符，并做相应的显示。
' 字母字符显示字符串 " 字母 "' 数字字符显示字符串 " 数字 "' 其他字符显示字符串 " 其他 "' 要求使用 Select Case 语句来实现。
Private Function fun(n As String) As StringI********* *Program **********I********** End **********End FunctionSelect Case nCase "a" To "z", "A" To "Z"fun = " 字母 "Case "0" To "9"fun = " 数字 "Case Elsefun = " 其他 "End Select' 题目：编写函数 fun ，函数的功能是：当 x 的初值为 10，'每年增长率为千分之八，计算多少年以后x的值能达到y,' 并显示所需年数的值（变量名必须为n）。
' 要求使用 Do While ... Loop 语句来实现。
x = 10n = 0Do While x < y x = x * 1.008 n = n + 1Loop fun = n'题目：编写函数fun,函数的功能是：计算两个正整数的' 最大公约数，并显示。
如：' 两个数为15、20，结果显示"5"' 要求使用Do ... Loop 语句来实现。
Dor = m Mod nIf r = 0 Then Exit DoLoopfun = n编写函数fun，函数的功能是：求1~1000以内能同时被m、n整除的数的总和并显示。
Sum = 0For i = 1 To 1000If i Mod m = 0 And i Mod n = 0 ThenSum = Sum + iEnd IfNext ifun = Sum'题目：编写函数fun，函数的功能是：求从m到n的乘积并显示, Product = 1For i = m To nProduct = Product * iNext ifun = Product'题目：(事件)单击窗体。
' (响应)一球从100米高度自由落下，每次落地返回' 原高度的一半，求第10次落地时，共经过多' 少米？并将结果在窗体上输出。
Dim j, i As Integers = 0j = 100For i = 2 To 10j = j / 2s = s + 2 * jNexts = 100 + sPrint (CStr(s))题目：(事件)单击窗体。
' (响应)求岀1000-9999之间具有如下特点的四位数字，' 它的平方根恰好就是它中间的两位数字，例如，' 2500开平方为50，恰为2500的中间两位，找岀' 所有这样的四位数。
并求岀所有这样的数的和' 存入SUM中Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j = Val(Mid(Trim(Str(i)), 2, 2))If j 人 2 = i ThenPrint i,sum = sum + iEnd IfNext'题目：(事件)双击窗体。
' (响应)把一元钞票换成一分、二分和五分的硬币' (每种至少有一枚)，求出其所有的换法，' 把结果输出在窗体上。
' 将所有的换法的数目存入变量N 中Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext'题目：(事件)双击窗体。
' (响应)写程序解决百钱买百鸡问题：公鸡3元1只，' 母鸡5 元1 只，小鸡一元3 只，怎样用100 元买' 100 只鸡。
把结果输出到窗体上。
' 将答案数存放在变量N 中Dim i, j, k As IntegerFor i = 1 To 20 ' 母鸡For j = 1 To 33 ' 公鸡For k = 3 To 100 ' 小鸡If ((k Mod 3) = 0) And ((i * 5 + j * 3 + k / 3) = 100) And ((i + j + k) = 100) Then Print (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext'题目：(事件)单击窗体。
' (响应)求10~20 之间所有素数的乘积并输出在窗体上。
' 将结果存入变量L 中。
Dim i As IntegerDim j As IntegerDim b As Booleanl = 1b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd If b = FalseNextPrint Str(l)'题目：(事件)单击窗体。
' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100 的值' 将结果存入变量J 中。
Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j 题目：(事件)双击窗体。
' (响应)求1+2+3+5+8+13+ ……前20项的和，并将结' 果在窗体上输出。
将结果存入变量SUM 中。
Dim i As Integer Dim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = iElsej(i) = j(i - 1) + j(i - 2)End Ifsum = sum + j(i)NextPrint sum'题目：有一根长度为321 米的钢材，要将它截取为两种规格的' 短料，两种规格的长度分别为 a 米、b 米。
每种至少一段。
' 编写函数fun ，函数的功能是:' 求出分割成两种规格后剩余残料r 最少的值，并显示。
如：'a 为51 、b 为61 时，则显示"5"' 要求使用For 语句来实现。
Dim r!, t!, a0%, b0%r = 321For b0 = 1 To (321 - a) \ bFor a0 = 1 To (321 - b * b0) \ at = 321 - b0 * b - a0 * aIf t >= 0 And t < r Then r = t End IfNext a0 Next b0 fun = r。