VB经典的程序设计题
VB考试程序设计题目
1.声明一个大小为100的数组，在里面存入1到100这样100个数，然后将这些数字累加求和。
2.用户自己输入一个可以变化的数字，然后判断这个输入的字符是否是数字，能用后，求它的阶乘大小，注意判断这个数字是否会造成溢出的错误处理。
3.用循环结构在窗体上打印一个三角形，用*字符来打印;这个三角形要能自己输入打印多少行，这个行数要用户自己输入。
注意错误处理。
4.在窗体上面显示一个9×9乘法表。
5.定义一个存放身份证的变量，然后用内置函数找出些身份证显示出的信息：生日，性别，年龄等等信息。
这些信息分别用标签表示出来，我后在后面用文本框的形式存放转换后的结果。
注意程序整体的美观。
6.计算一个三角形的面积（提示：先让用户输入任意的三条边，然后判断能不能构成一个三角形（任意二边之和大于第三边），能就将三边存放在三个变量里，利用Sqrt((周长-A边)+(周长-B边)+(周长-C边))的公式得出这个三角形的面积）7.将一个数组里面存入10个数字，然后把他们里面的值进行比较，从而从大到小进行一个排序，排序完成后将这些排序好的元素打印在窗体上。
8.打印扬辉三角（这个三角形每个元素左上角的2个数字相加得到它的下一行数字。
）如下图：11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 19 打印任意个数的九宫图（任意对角线相加得到一个相同的数字）如图：任意三个数和为：159.求100到999内的水仙花数（这个数每个数位上的数字的三次方之和为它本身，如153＝13+53+33）10.利用时间控件，在窗体上的一个标签上显示一个动态的文字，设置为每250ms出现I（I为每250ms加一次的变量）个汉字，如：显示“欢迎你”，先显示“欢”，再是“欢迎”，然后是“欢迎你”，接着是“欢”，循环显示。
11.输入如下图所示的图形11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 112用ADO代码连接数据库，并用Connection向这个表内插入一条记录。
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是以结构化的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程序设计题库(全)
程序设计第一题、题目：（事件）单击窗体（响应）求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程序设计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程序设计题库(全)(同名21559)
VB程序设计题库(全)(同名21559)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+i2End 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 103a=i*iSum =1/a + SumNextPrint 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经典的程序设计题VB经典的程序设计题VB经典的程序设计题是指那些常见的、经典的VB程序设计题目，这些题目涵盖了VB程序设计的各个方面，包括基础语法、界面设计、数据处理、算法等内容。
在考虑这些题目时，我们可以根据自己的需求和目标来选择合适的题目，以提高自己的VB编程能力。
下面是一些VB经典的程序设计题目，供参考。
一、VB基础语法题⒈编写一个程序，输入一个正整数n，输出从1到n的所有自然数。
⒉编写一个程序，输入一个整数n，输出该整数的倒序。
⒊编写一个程序，输入一个字符串，将它反转输出。
⒋编写一个程序，输入一个字符串，输出字符串中的所有数字。
⒌编写一个程序，输入一个字符串，将其中的大写字母转换为小写字母，将其中的小写字母转换为大写字母。
二、界面设计题⒈编写一个程序，设计一个登录界面，包括用户名和密码的输入框以及登录按钮。
⒉编写一个程序，设计一个计算器界面，包括数字按钮、运算符按钮和结果显示框。
⒊编写一个程序，设计一个图形界面，包括按钮和文本框，用于计算两个数的和、差、积和商。
⒋编写一个程序，设计一个学绩查询界面，包括学号和姓名的输入框以及查询按钮。
三、数据处理题⒈编写一个程序，输入一组整数，将它们按照从大到小的顺序排序并输出。
⒉编写一个程序，输入一组字符串，将其中的重复字符串去除并输出。
⒊编写一个程序，输入一组学绩，计算平均分并输出。
⒋编写一个程序，输入一组学绩，计算最高分和最低分，并输出。
四、算法题⒈编写一个程序，输入一个正整数n，判断它是否是素数。
⒉编写一个程序，输入一个正整数n，输出它的所有因子。
⒊编写一个程序，输入一个正整数n，计算它的阶乘。
⒋编写一个程序，输入一个正整数n，计算它的斐波那契数列的第n项。
附件：本文档没有涉及附件。
法律名词及注释：⒈ VB：Visual Basic的简称，是一种基于事件驱动的程序设计语言。
⒉程序设计题：指要求编写一个能够运行的程序来解决特定问题的问题描述。
⒊基础语法：指编程语言的基本语法结构和规则。
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题库-程序设计
一、程序设计'【程序设计】1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。
如：'两个数为15、20，结果显示"5"'要求使用Do...Loop语句来实现。
答案：Dor=mModnIfr=0ThenExitDom=nn=rLoopfun=n2.'答案：Nexti3,'题目：'(响应)求答案：sum=1NextPrintsum4,'题目：(响应)求答案：Fori=1To100sum=sum+iNextPrintsum----------------------5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。
答案：----------------------DimyAsDoubley=1IfiMod2=0Theny=y*iEndIfNextfun=y----------------------6,'题目：编写函数fun，函数的功能是：根据一个百分制成绩mark（整数），显示对应五级制的评定。
条件如下：mark大于等于90显示"优秀"mark小于90且大于等于80显示"良好"mark小于80且大于等于70显示"中等"mark小于mark小于答案：fun="优秀fun="良好fun="中等fun="及格CaseElsefun="7,'题目：答案：EndIfNextPrintsum8,'题目：'(响应)输100-200之间所有素数，并将这些数求和，求和结果存入所给变量SUM中。
答案：------------------------------------Fori=100To200Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfj>Int(Sqr(i))ThenSum=Sum+iEndIf------------------------------------9,'题目：将一个十进制整数m转换成→r(2－16)进制字符串。
(完整word版)VB程序设计试题题库及答案
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 ，则表达式And 3>x+3 的值（ B ）。
A、不可以计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。
A、Round( Rnd*50)B、 Int(Rnd*40+10)C、Round( Rnd*51)D、 10+Int(Rnd*41)12 每成立一个窗体 , 工程管理器窗口中就会增添一个 ( C ).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT(100*RND(1)) 产生的随机整数的闭区间是 ( B ).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14以下数据种类中 , 占用内存最小的是 ( D ). A、IntegerB、SingleC、BooleanD、Byte15 VisualBasic是一种( B ) 程序设计语言 .A、过程式B、非过程式C、机器D、初级16函数 Int(10*Rnd) 是在 ( A ) 范围内的整数 . A、[0,9]B、[0,1]C、[1,9]D、[1,10]17 以下合法的一组 Visual Basic 用户表记符是（ C ）A、Sum 和 8abcB、a#x 和 PiC、ForLoop 和 TotalD、Const 和 DoWhile18 函数 Len(Str(Val("123.4"))) 的值为 ( B ).A、5B、6C、8D、1119 Int(198.555*100+0.5)/100 的值为（ B ）A、B、C、200D、19820以下各表达式中 , 计算结果为 0的是 ( A ). A、FIX(12.4)+FIX(-12.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FIX(13.6)+FIX(-12.6)21 MsgBox() 的正确语法是（D）。
VB程序设计编程考试题及答案
VB程序设计编程考试题及答案1。
输入3个数，输出最大的数2。
有一元二次方程:aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根3。
输入一个百分制的成绩，若大于等于60，则用消息框弹出,显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！4。
输入学生的百分制成绩,转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好,70~79转换为中等，60~69转换为及格,0～60转换为不及格。
5。
随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
6。
输入两个整数，求它们的最大公约数。
7.分别统计1—100中,满足3的倍数、7的倍数的数各有多少。
8。
输入一串字符，统计其中字母A（不区分大小写)出现的次数。
9.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
10。
小猴有桃若干，第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个，问小猴原有桃多少？11.百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元,母鸡每只3元，编程求解购鸡方案。
12。
编程求斐波那契数列前11项。
(斐波那契数列:F(0）=f（1)=1, F（n)=F（n—1）+F(n —2) n〉=2 ）13。
已知有序数组a（)，编程插入x（x的值为14）。
数组a中的元素分别为{12，6,4，89，75,63，100,20,31}。
14。
找出被3、5、7除,余数均为1的最小的5个正整数。
15利用随机函数产生50～100范围内的20个随机数，显示其中的最大值、最小值和平均值. 16。
编一函数，统计字符串中汉字的个数。
1.输入3个数,输出最大的数Private Sub command1_click（）Dim maxFor i = 1 To 3n = Val（InputBox（"输入第" ＆i ＆"个数")）If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是”; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b,c，判断此方程是否有实根Private Sub Command1_Click(）Dim a，b, c，nb = Text2c = Text3n = b * b — 4 * a ＊cIf n >= 0 ThenLabel4 = ”方程有根”ElseLabel4 = ”方程无根”End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过!”，若小于60,则弹出消息框,显示“抱歉！成绩没有通过！Private Sub Form_Load(）Text1 = ""End SubPrivate Sub Command1_Click（）Dim nn = Text1If n 〉60 ThenVal （MsgBox（"恭喜！成绩通过!"）)ElseVal （MsgBox（”抱歉!成绩没有通过！"））End IfEnd Sub4.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀,80～89转换为良好,70~79转换为中等，60～69转换为及格，0～60转换为不及格。
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》课程习题集一、单选题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）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
累加求和1到100Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub1到100的奇数和Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 step 2sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()End求n!Private Sub Command1_Click()Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text)fact = 1For i = 1 To nfact = fact * iNextText2.Text = factEnd Sub累加求和1到100（Do while）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do While i <= 100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub（Do Until）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do until i >100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub求平均成绩Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As Single Dim pj As Singlea = 60:b = 70:c = 80:d = 90pj = (a + b + c + d) / 4Text1.Text = Str(pj)End Sub求圆的周长Private Sub Command1_Click()Dim r As DoubleConst pi = 3.1415926r = Val(InputBox("请输入圆的半径"))Print "圆的周长为:", 2 * pi * rEnd Sub输入两个整数m n，使得m>=n,并输出m nPrivate Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm = Val(InputBox("请输入m:", 输入, "m"))n = Val(InputBox("请输入n:", 输入, "n"))If n > m Thena = mm = nn = aEnd IfPrint "m=", mPrint "n=", nEnd Sub计算sum=1/1!+1/2!......+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和Private Sub Command1_Click()RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint "所有偶数的和为:", sEnd Sub输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。
（待修改）Private Sub Command1_Click()Dim a%, i%, k%, m%, s$a = Val(InputBox("请输入一个四位数"))i = a Mod 10j = (a Mod 100) \ 10k = (a Mod 1000) \ 100m = a \ 1000s="个位数字是:"&i&vbcrlf"十位数字是:"&j&vbcrlf&"百位数字是:"&k&vbcrlf&"千位数字是:"&mPrint sEnd Sub计算sum=2!+4!+6!+ (10)Private Sub Command1_Click()Dim a!, i%, sum!i = 1: a = 1Doa = 2 * iIf i Mod 2 = 0 Thensum = sum + aEnd Ifi = i + 1Loop While i <= 10Print sumEnd Sub用inputbox输入一个年份，判断该年份是否是闰年，若是则输出Yes,否则输出NoPrivate Sub Command1_Click()Dim j%j = Val(InputBox("请输入年份"))If j Mod 4 = 0 ThenMsgBox ("Yes")ElseMsgBox ("No")End IfEnd Sub计算并输出下面级数前n项（n=20）中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6+........+（-1）……（n-1）*n*(n+1)*(n+2)+.....Private Sub Command1_Click()Dim s!, i%For i = 1 To 20 Step 2s = s + i * (i + 1) * (i + 2)NextMsgBox (s)End Sub如果一个三位数等于其各位数字的立方和，则称其为水仙花数。
请输入一个三位数，并判断其是否为水仙花数。
若是，用MsgBox输出“yes”，否则输出“no”Private Sub Command1_Click()Dim a%, i%, j%, k%a = InputBox("请输入一个三位数！")i = a \ 100j = a \ 10 Mod 10k = a Mod 10If a = i ^ 3 + j ^ 3 + k ^ 3 ThenMsgBox ("yes")ElseMsgBox ("no")End IfEnd Sub某分段函数描述如下：（1）当x为偶数时，y的值为x的二分之一（2）当x为奇数时，y的值为x的二倍Private Sub Command1_Click()Dim x!, y!x = Val(InputBox("请输入X的值！"))If x Mod 2 = 0 Theny = x / 2y = 2 * xEnd IfMsgBox (y)End Sub输入三个数，判断其是否能够构成三角形...........Private Sub Command1_Click()Dim i As Integer, a(2) As Integer, p As Single, s As SingleFor i = 0 To 20a(i)=val(inputbox("输入第"&i&"条边的边长:"))Next iIf a(0) + a(1) > a(2) And a(0) + a(2) > a(1) And a(1) + a(2) > a(0) Thenp = (a(0) + a(1) + a(2)) / 2s=sqr(p*(p-a(0)*(p-a(1))*(p-a(2)))MsgBox (s)ElseMsgBox ("不能形成三角形!")End IfEnd Sub计算1*3*5....*9Private Sub Command1_Click()Dim sum As Long, i As Integersum = 1For i = 1 To 9 Step 2sum = sum * iNextMsgBox (sum)End Sub编写程序，求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4………（-1）∧（n-1）*1/n!+…..求和过程当某一项的绝对值小于0.0001时结束（注意，该项参与求和），计算并输出所求的和s，要求保留6位小数Private Sub Command1_Click()Dim m As Double, n As Integer, s As Double, f As Integers = 0: n = -1: m = 1: f = 1Do While 1 / m >= 0.0001m = m * ff = f + 1s = s + n / mLoops = Format(s, "0.000000")Print sEnd Sub随即输出一个位于【0,100】之间的整数Private Sub Command1_Click()RandomizeDim s%s = (101 * Rnd)Print sEnd Sub编写程序，计算并输出下面级数前n项（n=50)中的偶数项的和Private Sub Command1_Click()Dim s!, i%For i = 2 To 50 Step 2s = s + i * (i + 1)NextMsgBox (s)End Sub《VB期末范围题总汇》1．求随机10个整数的最大值、最小值、平均值以及和；Dim a(1 To 10)Private Sub Command1_Click()RandomizePicture1.Print "产生的随机数为："For i = 1 To 10a(i) = Int(Rnd * 99 + 1)Picture1.Print a(i);Next iPicture1.PrintEnd SubPrivate Sub Command2_Click()Dim max, min, avemax = a(1)min = a(1)ave = 0.1 * a(1)For i = 2 To 10If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)ave = ave + 0.1 * a(i)Next iPicture1.Print "最大数为："; maxPicture1.Print "最小数为："; minPicture1.Print "平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_Click()Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_Click()OutputWanNumber 1000End Sub5.求各位数字之和input a:'输入任意数dob=a mod 10:'取a的末位数sum=sum+b:'求和a=a \ 10:'去掉末位数loop until a=0print "sum=";sum:'输出end（dim n as stringinput nfor i = 1 to len(n)sum=sum+val(mid(n,i,1))next iprint sum）6.求最小公倍数Private Sub Form_Load()Form1.AutoRedraw = TrueDim n1%, m1%, m%, n%, r%n1 = InputBox("输入n1")m1 = InputBox("输入m1")If m1 > n1 Then '为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; nPrint "最小公倍数=", m1 * n1 / nEnd Sub7.求逆序数（感觉题目类型太多）9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(InputBox("请输入2的整数:"))I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I 1End IfLoop While N 1End Sub1. 判定素数过程Function isprime(Num As Long) As BooleanIf Num < 2 Then isprime = False: Exit Function Dim i As LongFor i = 2 To Sqr(Num)If (Num Mod i) = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_Click()Dim i As LongFor i = 1 To 1000If isprime(i) ThenPrint iEnd IfNext iEnd Sub2.求最大公约数过程；Function Max公约数(A As Long, B As Long) '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIf(A >= B, A, B) 'x存入最大值Y = IIf(A <= B, A, B) 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数 = YEnd Function3.冒泡排序过程Private Sub Command1_Click()Dim a(9) As IntegerDim i As IntegerFor i = 0 To 9a(i) = InputBox("输入整数")NextSort aFor i = 0 To 9Print a(i)NextEnd SubPrivate Sub Sort(ByRef a() As Integer)Dim i As IntegerDim j As IntegerDim t As IntegerFor i = LBound(a) + 1 To UBound(a)For j = UBound(a) To i Step -1If a(j - 1) > a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub4顺序查找过程Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint "原数组:"For i = 1 To 10a(i) = Rnd * 10Print "a(" & i & ") =" & a(i) & Space(2),If i Mod 2 = 0 Then PrintNext iPrintFor i = 1 To 9For j = i + 1 To 10If a(j) < a(i) Thent = a(i)a(i编程题（20分，正式试题为1题）1、编写一个身份证号码转换程序：(1) 老身份证是15位，先要增加两位年份，变成17位，再计算校验位。