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的函数，返回值为整数，应该使用语句________。
完整word版VB程序设计试题题库及答案
VB程序设计笔试题题库选择题1下列常量中，是Integer类型常量的是（C ）。
A、123&B、-38844C、123%D、327682下面选项中（）是字符连接运算符•（A ）A、&B、AndC、%D、M od3 下面关于VB的集成开发环境（IDE ）的叙述中，不正确的是（B ） oA、IDE是设计、调试、运行VB程序的工具。
B、用户不能随意关闭IDE中的窗口。
C、”窗体设计”窗口是用来设计应用程序界面（窗体）的。
D、打开/关闭各窗口的命令主要在IDE的”视图”菜单中。
4 len（"程vb 序设计”）=（C）。
A、5B、2C、6D、105表达式15 Mod4 +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 ) oA、将True转换为1 ,将False转换为0B、将True转换为1 ,将False转换为-1C、将True转换为0 ,将False转换为-1D、将True转换为-1 ,将False转换为09表达式2+3*4A5-SIN(X+1)/2中最先进行的运算是(D ).A、SINB、4A5C、3*4D、x+110 如果x=2 ,则表达式x+1 >2 Or sin(x)>0.9 And 3>x+3 的值(B ) oA、不能计算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(l))产生的随机整数的闭区间是( 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以下合法的一组VisualBasic 用户标识符是(C )A、S um 和8abcB、a#x 和PiC、F orLoop 和TotalD、C onst 和Do While18函数Len(Str(Val(n123.4n))) 的值为(B ).A、5B、6C、8D、1119Int(198.555*100+0.5)/100 的值为( B )A、199.6B、198.56C、200D、19820以下各表达式中，计算结果为0的是(A ). A、FIX(12.4)+FIX(-12.6)B、C INT(12.4)+CINT(-12.6)C、I NT(12.4)+INT(-12.6)D、F IX(13.6)+FIX(-12.6)21MsgBox（）的正确语法是（D ）。
程序设计语言VB填空题及答案
《程序设计语言VB》填空题1. Private Sub Command1_Click()a=3b=1For i=1 To 3f=a + ba=bb=fNext iPrint fEnd Sub以上程序段运行后，f的结果为。
2.设有如下通用过程：Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = 2* iNextfun arr, nText1.Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是。
3.阅读下列程序段Option ExplicitPrivate Sub Command1_Click()Dim str1 As StringDim str2 As Stringstr1 = "ABCDEFG"MySub str1, str2Print str2End SubPrivate Sub MySub(ByVal a As String, b As String) Dim c As StringDim i As IntegerFor i = Len(a) To 1 Step -1c = c+ Mid(a, i, 1)Nextb= cEnd Sub程序运行后，“print”语句的输出结果是___ _。
4.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = Int(Rnd) + 6If x ^ 2 > 25 Then y = x ^ 2 + 5x = Int(Rnd) + 4If x ^ 2 < 25 Then y = x ^ 2x = Int(Rnd) + 5If x ^ 2 = 25 Then y = x ^ 2 - 5Print yEnd Sub程序运行后，单击命令按钮，其输出结果为__ _。
VB程序改错40题
第52题（1.0分）题号:450'------------------------------------------------'【程序改错】'------------------------------------------------'题目：统计一顺序文件text.txt中的空格、字母、数字和其它字符个数。
'------------------------------------------------Option ExplicitPrivate Sub Command1_Click()Dim s As String, C As StringDim I As Integer, L As Integer, spac As Integer, character As Integer, digit As Integer, other As Integer'**********FOUND**********Open App.Path & "\text.txt" For Output As #1'**********FOUND**********Do Until EOF(0)Line Input #1, sL = Len(s)For I = 1 To LC = Mid(s, I, 1)If C >= "a" And C <= "z" Or C >= "A" And C <= "Z" Thencharacter = character + 1ElseIf C = " " Thenspac = spac + 1'**********FOUND**********ElseIf C >= "0" And C < "9" Thendigit = digit + 1Elseother = other + 1End IfNext ILoopClose #1Print "字符个数为："; character; "数字个数为："; digitPrint "空格个数为："; spac; "其它个数为："; other End Sub答案：=======(答案1)=======Open App.Path & "\text.txt" For Input As #1=========或=========Open "text.txt" For Input As #1=======(答案2)=======Do Until EOF(1)=========或=========Do While Not EOF(1)=======(答案3)=======ElseIf C >= "0" And C <= "9" Then第57题（1.0分）题号:465'------------------------------------------------ '【程序改错】'------------------------------------------------'题目：用InputBox函数输入一个字符串，编写程序按与' 输入的字符相反的次序用Msgbox函数输出这个字' 符串。
中职VB语言程序设计程序填空题综合练习(二)
VB语言程序设计综合练习：程序填空题程序填空题1. 题目：文本框txtin输入一个十进制整数将其转化为二进制数。
程序运行界面如下图所示。
单击“转换”按钮，标签lblre中输出二进制数。
Private Sub Command1_Click()Dim n As Longlblre.Caption = ""n = Val(txtin.Text)DO While n <> 0r =lblre.Caption = r & lblre.CaptionLOOPEnd Sub2. 题目：单击“打印”按钮command1在图片框picture1中输出如图下所示的图形。
（涉及的循环要求用for循环）Private Sub command1_Click()For i = 1 To 5picture1.Print Tab(10 + i); "$";For j =picture1.Print "*";Next jpicture1.Print "$";picture1.PrintNext iTab(10 + i); "*";End Sub3. 题目：单击form1窗体：重新定义坐标系为（-10，300）-（300，-10）；在窗体上按公式：y=x2÷255，其中x=0~255。
用Pset方法绘制如图所示图形，其中线宽为3。
（要求for循环实现）Private Sub Form_Click()Scale (-10, 300)-(300, -10)DrawWidth = 3Line (-10, 0)-(300, 0): Line (0, 300)-(0, -10)For x =y =PSet (x, y)Next xEnd Sub4．题目：判断文本框text1中输入的字符是否全是字母,并在标签label1中显示判断结果：“全是字母”或“不全是字母”。
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程序改错和程序设计
【程序改错】'题目：该程序的功能是求出100到200之间的全部素数，并且按每行4个、每个数据之间有10个空格的格式输出。
'注意：不可增加或删除程序行，也不可以更改程序结构' Private Sub Form_Click()dim k as integer,i as integer,j as integerk = 0For i = 100 To 200'**********FOUND**********For j = 1 To i - 1If i Mod j = 0 Then Exit ForNext jIf j = i Then'**********FOUND**********Print i; Tab(10);k = k + 1'**********FOUND**********If k Mod 5 = 0 Then Print;End IfNext iEnd Sub答案：1). For j = 2 To i - 1 或For j = 2 To -1 + i2). Print i; Space(10);3). If k Mod 4 = 0 Then Print━━━━━━━━━━━━━━━━'【程序设计】' '题目：(事件)单击窗体。
(响应)求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中答案：26__________________________________Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum'【程序改错】'------------------------------------------------'题目：在下面的程序段中过程pd可以判断任意三个数能' 否构成三角形的三边，利用该过程的判定结果，对能构成三角形的计算其面积，构不成的显示"不能构成三角形Option ExplicitPrivate Sub Form_Click()'**********FOUND**********Dim x%, y%, z%, s%, b As Boolean,h as Singlex = InputBox("请输入三角形的边长")y = InputBox("请输入三角形的边长")z = InputBox("请输入三角形的边长")= InputBox("请输入三角形的边长")b = pd(x, y, z)h = (x + y + z) / 2'**********FOUND**********If not b Thens = Sqr(h * (h - x) * (h - y) * (h - z))Print "三角形面积是"; sElsePrint "不能构成三角形"End IfEnd Sub'**********FOUND**********Public Function pd( ) As BooleanIf x > 0 And y > 0 And z > 0 And x + y > 0 And x + z > y And y + z > x Thenpd = TrueElsepd = FalseEnd IfEnd Function答案：1). Dim ★x%★, ★y%★,★z%★, ★s!★, ★b★As Boolean★, ★h As Single2). If b Then3). Public Function pd(x%, y%, z%) As Boolean━━━━━━━━━━━━━━━━三、程序设计共1题（共计15分)'题目：(事件)双击窗体。
VB程序改错40题含答案
【程序改错】题目：该程序实现将输入的 0 - 255 之间的正整数转换成二进制数Option ExplicitPrivate Sub Form_Click()Const n = 8Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox("请输入一个 0 - 255 之间的正整数："))Print xFor m = 1 To na(m) = x Mod 2x = x / 2Next ms = " "For m = n To 0 Step -1s = Str(a(m))Next mPrint sEnd Sub答案：=======(答案1)=======For m = 0 To n=======(答案2)=======x= x \ 2=========或=========x= int(x/2)=======(答案3)=======s = s + Str(a(m))第3题（1.0分）题号:463'【程序改错】'题目：以下程序功能是输入三个数，由大到小排序。
Option ExplicitDim A As IntegerDim B As IntegerDim C As IntegerPrivate Sub Form_Click()Dim nTemp As IntegerA = Val(InputBox("Please input first integer", "输入正整数"))B = Val(InputBox("Please input second integer", "输入正整数"))C = Val(InputBox("Please input third integer", "输入正整数"))If A <= C ThennTemp = AA = BB = nTempEnd IfIf B <= C ThennTemp = AA = CC = nTempEnd IfIf A <= B ThennTemp = BB = CC = nTempEnd IfPrint "The integers in order is"; A; B; CEnd Sub答案：=======(答案1)=======If A <= B Then=========或=========If B >= A Then=======(答案2)=======If A <= C Then=========或=========If C >= A Then=======(答案3)=======If B <= C Then=========或=========If C >= B Then第4题（1.0分）题号:127'【程序改错】'题目：下面程序可输出如下图形：' *' ***' *****' *******' *********'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4m = 1s = "*"For i = 5 To 1 Step -1Print Spc(n)For j = 1 To 2 * m - 1Print s;Next jPrintn = n + 1m = m - 1Next iEnd Sub答案：=======(答案1)=======Print Spc(n);=========或=========Print Spc(i);=========或=========? Spc(n);=========或=========? Spc(i);=======(答案2)=======n = n - 1=========或=========n = - 1+n=======(答案3)=======m = m + 1第5题（1.0分）题号:469'【程序改错】'题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法' 在图片框中显示其图形。
VB程序设计复习题及答案
中南大学现代远程教育课程（专科）考试复习题及答案《VB程序设计与应用》一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。
1. Visual Basic程序中分隔一行中各语句的字符是（）。
[ ]A)‘B):C)\D)_2. 下列可作为Visual Basic的变量名的是（）。
[ ]A: Filename B: A（A＋B）C: A%D D : Print3. 要让菜单项无效，应将（）属性值设置为False。
[ ]A. VisibleB. EnabledC. MoveableD. Checked4. 以下过程是（）事件。
Prviate Sub Form_Load( )……End Sub [ ]A: 命令按钮的单击B: 命令按钮的装载C; 窗体的装载D: 窗体的单击5. Vb中描述文件扩展名的是（）属性。
[ ]A: Drive B: PatternC: FileName D: Path6. 关于Visual Basic中事件的说法中，不正确的为（）。
[ ]A)事件是由Visual Basic预先定义好的，能够被对象识别的动作B)DblClick（双击）是Visual Basic中的一种事件C)一个对象可以识别一个或多个事件D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义7. 下列控件中可设置滚动条是（）。
[ ]A. 检查框（复选框）B. 框架C. 文本框D. 标签框8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。
[ ]A. Form1B. Form2C. FormxD. Form109. Const One&=1，则One为（）类型的常数。
[ ]A)整型B)字节型C)长整型D)单精度型10. 关于逻辑型数据，下列说法错误的是（）。
[ ]A. 逻辑型数据只有两种可能值：True或者FalseB. 当把逻辑值转换为数值时False转为0，True转为1C. 当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为FalseD. 逻辑型数据以2个字节存储11. 以下（）不是Visual Basic的特点。
中职VB语言程序设计程序填空题综合练习(六)
VB语言程序设计综合练习：程序填空题41.题目：程序功能：求1+2+3……，直到其和超出3000为止，并输入结果。
'------------------------------------------------ Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim s As Singlei = 1Dos = s + iLoopPrint "从1 到:"; i; "的和是"; sEnd Sub42.题目：以下程序段用于输出100-300的所有素数'------------------------------------------------ Option ExplicitDim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2k = Int(Sqr(n))i = 2If n Mod i = 0 Thenswit = 1ElseEnd IfWendIf swit = 0 ThenPrint n;End IfNext nEnd Sub43.题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。
'------------------------------------------------Option ExplicitDim Temp As IntegerDim I As IntegerDim N As IntegerDim X(10) As IntegerDim J As IntegerN = 10Print "数据："For I = 1 To NPrint X(I);Next IPrintPrint "排序："For I = 0 To N - 1For J = I + 1 To NX(J) = X(I) X(I) = Temp End IfNext JPrint X(I);Next IPrintEnd SubPrivate Sub Command1_Click()CreateRNDEnd Sub44.题目:输入两个正整数m和n，求其最大公约数。
计算机等级考试二级VB程序设计填空题
计算机等级考试二级VB程序设计填空题不论从事何种工作，如果要想做出高效、实效，务必先从自身的工作计划开始。
有了计划，才不致于使自己思想迷茫、头脑空洞，不知从哪里着手开展工作。
下面是小编搜索整理的计算机等级考试二级VB程序设计填空题，供大家参考学习！计算机等级考试二级VB程序设计填空题填空题(每空1分，共20分)1.VB是一种面向 [ 1 ] 的可视化程序设计语言，采取了_[ 2 ]_的编程机制。
2.算术表达式 |x+y|+35 写成VB表达式的形式为 [3 ] 。
3.使文本框可以获得焦点的方法是 [ 4 ] 。
4.Inputbox函数的返回值是[5] 类型，Msgbox函数的返回值是[6] 类型。
5.在调用自定义函数时，参数的传递有 [ 7 ] 和 [ 8 ] 两种形式。
6.在如下数组声明语句中 Dim s(4，4) As Integer，第一个数组元素的引用形式是 [9 ] 。
7.如果要每隔0.5 s触发一个Timer事件，则Interval属性应设置为 [ 10 ] 。
8.单选按钮和复选框都有Value属性，但二者该属性值的类型不一样，其中单选按钮该属性值类型为[ 11 ] ，复选框该属性值类型为[ 12 ] 。
9.要在程序中显示通用对话框，要对CommonDialog控件的[ 13 ] 属性赋以正确的值。
10.VB提供了三种访问文件的模式，按照访问模式可以把文件分为顺序文件、 [ 14 ] 和二进制文件。
11.使用Line方法画矩形，必须在指令中使用关键字 [ 15 ] 。
12.窗体上有一命令按钮，程序运行时，决定该按钮是否可用应设置的属性是 [ 16 ] ，决定该按钮是否显示应设置的属性是 [ 17 ] 。
13.VB程序设计语言具有结构化程序设计的三种基本结构，即[18 ]、 [19 ] 、[20 ] 。
答案：[1]对象[2] 事件驱动[3]Abs(x+y)+3^5[4]SetFocus[5]字符型[6] 数值(整型)[7] 传值[8] 传址[9]S(0，0)[10]500ms[11] 逻辑型[12] 数值型(整型)[13]Action[14]随机文件[15]B[16]Enabled[17]Visible[18]顺序结构[19] 选择结构[20]循环结构1.计算机等级考试二级VB程序设计题2.计算机等级考试二级VB程序设计模拟试题3.计算机等级考试二级VB考试题及答案4.计算机等级考试二级VB考点：VB的过程设计5.2017计算机考试二级VB语言程序设计考试大纲6.计算机等级考试二级VB考点：程序调试7.计算机等级考试二级VB考点：窗体的常用方法8.计算机等级考试二级C语言程序设计考试大纲9.计算机等级考试二级VB考点：数组的概念10.计算机等级考试二级VB考点：常用文件操作语句和函数。
VB程序设计练习册参考答案
参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时，各窗体在屏幕上的显示位置6 内部（标准）7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或？“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、（1）建立应用程序用户界面。
选择”新建”工程，进入窗体设汁器，在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。
（2）设置对象属性，见表。
（可自由设置）3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示：Ucase、Lcase的使用2.提示：属性设置中，“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示：（1）流程图。
VB程序设计（复旦出版社）习题答案
VB程序设计（复旦出版社）习题答案项目一习题参考答案一、选择题1.A2.ABD3.A4. B5.BCD6.C7.D8.C9.B 10.C 11.AB 12.ABD 13.D 14.A 15.BC 16.C 17.B 18.C 19.BD二、填空题1.属性2.窗体3.代码4.冒号5.退出(&X)6.Image7.Cursor 8. GotFocus 9. Click 10. 使大小相同11. F5 12. MultiLine 13. SelStart 14. LTrim15. Xor 16.# 17.Single 18.Option Explicit On19.(x1*y2+2*z)^6 20.x Mod 3 = 0 Or x Mod 5 = 021. 15 22.Left(Trim(Text1.Text),2)="VB"项目二习题参考答案一、选择题：1. D2. C3. C4. B5.BCD6.ABD7.ABD 8．C 9．C 10．C 11．A 12．ACD 13．ABC 14．ABD 15．C 16．C 17．A 18．C 19．BCD 20．ACD 21．ACD二、程序填空题1. ①“str的值是在（0，5）内”②“提示信息”2．① m \ 100 ② (m - a * 100) \ 10 ③ Str(c * 100 + b * 10 + a)3．①100 ②Left4．①Chr(Asc(e.KeyChar)) = "(" ②Chr(Asc(e.KeyChar)) = ")"③num = 0 ④num > 0 5．①Trim(TextBox3.text) ②TextBox2.Focus6．①(a = (b Mod 10)) Or (a = (b Mod 100)) Or (a = (b Mod 1000))7．①Len(RTrim(strin)) ②Mid(strin, i, 1) ③Chr(chasc)8．①Mid(TextBox1.Text, i, 1) ②CurC9．①t = 0②t = t * 10 + a10．①1 To 9 ②i ^ 3 + j ^ 3 + k ^ 3三、程序改错题1. Label3.Text = Int(Rnd() * 99) + 1，除数不能为0.2. y = c & b & a3. If n >= 1 And n <= 50 Then项目三习题参考答案一、选择题1．A 2．C 3．D 4．B 5．B 6．A 7．C 8．D 9．B 10．A 11．B 12．D二、填空题1．0 2．Preserve 3．24 4．外5．6三、程序填空1．⑴0 ⑵step 2 ⑶i + 2 ⑷(n \ 2) * 2 2．(1)0 ⑵UBound(a)(3)a(i) > 0 ⑷s2+a(i)3．⑴9 To 0 Step -1 ⑵A(0) = b ⑶mod4．(1) A(i) = key (2) A(j-1) = A(j) (3) Preserve A(n - 1)项目四习题参考答案一、单选题1. A2.A3. B4. C5.A6.A7.D8.C二、多选题1. A B A B C 3.B C D 4.C D三、填空题1. 不被改变2.窗体模块声明段中3.ublic4.不被初始化5.位置四、程序填空1. addsum = x + y2. x = y3. (1) max = x(i)(2) Call Amax(k, m)4．在代码窗口的窗体模块声明段中声明：Dim x As Integer, y As Integer项目五习题参考答案一、选择题1. B2. A3. B4.B5.C6.C7.C8.A9.A 10.D 11.C 12.C 13.D 14. C 15. A 16. A 17. B二、填空题1.（1）TabIndex （2）02. Enabled3. SmallChange4. Sorted5. -16. Remove7. Add8. Min9. LargeChange10. SmallChange11. 212. 613. 组合框或者：ComboBox14. Text 或者：文本15. 300016. Clear17. Interval18. ComboBox1.Items.Remove(ComboBox1.Items(2))19. (1)"Text Files(*.txt) |*.txt" (2) OpenFileDialog1.FileName 项目六习题参考答案一、选择题1. A2. D3. C4. B二、填空题1.下拉菜单弹出式菜单2.项目属性应用程序3.e.shift4.ContextMenu项目七习题参考答案一、选择题1.D2.C3.B4.B5.B6.C7.D8.A9.A 10.D11.C 12.B 13.B 14.D 15.A 16.A 17.C 18.C二、填空题1.对象(或object)2.class3.new4.类型.名称5.protected.private.friend6.继承(或inherit)7.is-a或继承.has-a或合成8.public9.Mybase 10.复用项目八习题参考答案一、选择题1. A2. C3. D4. C5. A6. B7. C8. B9. D 10. A 11. B 12. B 13. C D 14. B 15. A 16. C 17. C 18. A二、填空题1. ASCⅡ码文本编辑软件2.不等长文件顺序批量处理3. Output、Append Input4. 1~5115.模块Public Private6.定长字符串7. 等长有惟一的记录号记录号对该记录读写 8. 将返回文件的字节数 9. 将返回一个表示文件指针是否到达文件末尾的值三、程序填空题1.(1) FileOpen(1, "D:\students.txt", OpenMode.Output)(2) Write(1, s.s_name, s.s_sex, s.s_birthday, s.s_score)(3) FileClose(1)2.(1) FileOpen(1, "D:\students.txt", OpenMode.Input)(2) Not EOF(1)(3) Input(1, str)3.(1) UCase(Trim(TextBox1.Text))(2) FileClose(1)(3) Write(1, TextBox1.Text)4.(1) StrIn = LineInput(2)(2) StrSort(StrIn)(3) Print(2, StrOut)t(4) ReDim(5) StrSort = StrSort & sArr(i) 5.(1) OpenMode.Input(2) OpenMode.Output(3) Not EOF(1)(4) str1 = LineInput(1)(5) FileClose()(6) Kill "C:\old.txt"6.(1) OpenMode.Append (2) OpenMode.Inpu7.(1) FilePut(1, xData)(2) FileGet(1, xData, i)项目九习题参考答案一、单选题1. A2. B3. D4. C5. C6. C7. A8. B9. A 10. C二、填空题1．CreateGraphics() 2. 画布 3. Dispose 4. 子类 5. SolidBrush6. 47. 38. Region9. System.Drawing 10. System.Drawing2D项目十习题参考答案一、单选题1. B2. D3.B4.A5.B6.C7.A8.B二、填空题1.select * from 基本情况 where 专业=’物理’2.命令对象（Command）3.连接对象（Connection）4. VB可以访问的数据库有以下3类：(1)Jet数据库。
程序设计语言VB综合设计题及答案[精选五篇]
![程序设计语言VB综合设计题及答案[精选五篇]](https://img.taocdn.com/s3/m/13d8e03f2379168884868762caaedd3383c4b579.png)
程序设计语言VB综合设计题及答案[精选五篇]第一篇：程序设计语言VB综合设计题及答案《程序设计语言VB》综合设计题1.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。
提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text = Now）。
2.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
3.编制程序：利用输入框输入10个不同的整数，将它们从小到大排序，并打印输出。
4.编制程序实现：设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示“Hello”字符。
5.编一程序能实现在窗体上打印出如下图所示的图形。
A AAA AAAAA AAAAAAA BBBBBBB BBBBB BBB B 6.编一程序用于判断一正整数是否为素数。
（提示：只能被1和本身整除的正整数称为素数。
为了判断一个数n是不是素数，可以将n被2到sqr(n)之间的所有整数除，如果都除不尽，则n就是素数，否则n是非素数。
）7.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。
8.有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成a、b比较大小的子过程，用c将大数回传。
要求按值传送a、b。
9.编一程序用于求所有的“水仙花数”。
所谓“水仙花数”是指一个3位数，其各位数字立方和等于该数本身。
例如：153就是一水仙花数，因为153 = 13+53+33。
10.设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。
11.编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形。
如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。
VB程序填空改错设计题库全汇编
1.'功能：以下程序段用于计算n的阶乘：n！。
（1！=1）2. 已知某城市一年的交通事故车辆报废情况，编程序计算该城市的交通事故一年损失金额。
3. 下面的程序用"冒泡"法将数组a中的10个整数按从小到大排列，请将程序补充完整。
4. '程序运行界面。
键盘输入3个数，将它们按由大到小的顺序输出，-1为结束标志。
5. '在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为'"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题'为"显示"。
要求程序运行后，如果选中某个复选框，则当单击'"显示"命令按钮时，则显示相应的信息。
例如，如果选中"体育"'和"音乐"复选框，则单击"显示"命令按钮后，在窗体上显示'"我的爱好是体育音乐"（如图1所示）；而如果选中"体育"、'"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"'我的爱好是体育音乐美术"。
6. 窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。
' 判断密码是否正确，并显示相应提示在加载窗体时设置密码框最大长度为8，密码显示字符为“*”7. 下面的程序用于求三个数中最大数8. 要求输入若干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。
9. 求A,B,C三个数的最大值。
10. 该程序通过For循环计算一个表达式的值，这个表达式是1/2+2/3+3/4+4/511. 用户单击命令按钮后，程序将文本框Text1中的文本反转显示，同时在文本框Text2中显示文本框Text1中字符串的个数12. 功能：单击“插入数据”按钮后，输入一个整型数据，该数据会被插入到一个有序的数组a(1 to 10)中,插入该数据后数组还是有序的。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
'以下程序段用于输出杨辉三角:结果样式如图1'Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To narr(I, I) = 1'**********SPACE**********【arr(I, 1) = 1】Next IFor I = 3 To nFor j = 2 To I - 1'**********SPACE**********arr(i, j) =arr(i-1,j-1)+arr(i-1,j)Next jNext IFor I = 1 To nFor j = 1 To I'**********SPACE**********【print arr(I,j)】Next jPrintNext IEnd SubOption Explicit'------------------------------------------------'【程序改错】'------------------------------------------------'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!，' 当x〉1或x〈-1时，函数值为0。
当n〈=0时，输入数' 据错误。
X、N都是由用户输入。
'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Command1_Click()Dim s As SingleDim n As Integer, x As Single, k As Integern = Val(InputBox("Please input a integer value:"))x = Val(InputBox("Please input a single value:"))If n <= 0 Thenk = MsgBox("数据输入错误！", vbRetryCancel + vbExclamation, "数据输入")Exit SubEnd Ifs = Sum(x, n)Print sEnd SubFunction Sum(x As Single, n As Integer)Dim i As Integer, ss As Longss = 1Sum = 0If x > 1 Or x < -1 Then'**********FOUND**********Exit Do 改为Exit FunctionElse'**********FOUND**********For i = 2 To n 改为For i = 2 To n+1ss = ss * i'**********FOUND**********Sum = x ^ (i - 1) / ss 改为Sum =sum+ x ^ (i - 1) / ssNext iEnd IfEnd FunctionOption Explicit'------------------------------------------------'【程序改错】'------------------------------------------------'题目:编程将一个数从已经有序（设从小到大排序）的数组' 中删除，使数组还继续保持有序而且其余元素按照下' 标连续存放。
'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------Private Sub Form_Click()Dim A() As Integer, N As Integer, Flag As IntegerDim i As Integer, X As Integer, P As IntegerFlag = 0N = InputBox("输入元素个数")'**********FOUND**********Dim A(N) 改为ReDim A(N)For i = 1 To NA(i) = InputBox("输入数组的第" & i & "个元素") Next iPrint "删除某元素前的数组"For i = 1 To NPrint A(i);Next iStart:X = InputBox("输入要删除的元素：")For i = 1 To NIf X = A(i) Then P = i: Flag = 1Next iIf Flag = 0 Then MsgBox ("没有此元素"): GoTo StartFor i = P To N - 1'**********FOUND**********A(i + 1) = A(i) 改为A(i) = A(i+1)Next i'**********FOUND**********N = N + 1 改为N = N- 1Print "删除元素后的数组:"For i = 1 To NPrint A(i);Next iEnd SubPrivate Sub Form_Click()'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)输出一个如图所示的由数字组成的倒三角形' 请将结果存入变量S中(要求利用msgbox函数' 显示结果，使用for...next语句完成程序)'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------Dim s As String'***************** Program **************Dim i%, j%, w$w = ""For i = 10 To 1 Step -1For j = 0 To i - 1w = w & CStr(j)Nextw = w & vbCrLfNextMsgBox ws = w'*************** End *************************Call YZJ(s)End SubPrivate Sub YZJ(i As String)Dim OUT As IntegerOUT = FreeFileOpen App.Path & "\out.txt" For Output As #OUTPrint #OUT, iClose #OUTEnd SubPrivate Sub Form_Click()'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。
' (响应)求100到500之间奇数的和，将结果输出' 在窗体上并存入变量SUM中。
' 使用do...loop until语句完成程序'-------------------------------------------------'注意：请在指定的事件内编写代码。
'-------------------------------------------------Dim sum As Long'***************** Program **************'*************** End ************************* Call YZJ(sum)End SubPrivate Sub YZJ(i As Long)Dim OUT As IntegerOUT = FreeFileOpen App.Path & "\out.txt" For Output As #OUTPrint #OUT, iClose #OUTEnd SubOption Explicit'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：下面的程序用于求三个数中最大数'请在【?】处填入正确的内容'-------------------------------------------------------'Private Sub Command1_Click()Dim a, b, c, max, min As Integera = Val(InputBox("请输入第一个数："))b = Val(InputBox(" 请输入第二个数："))c = Val(InputBox("请输入第三个数："))'**********SPACE**********【?】= amin = a'**********SPACE**********If b > max Then 【?】If b < min Then min = b'**********SPACE**********If 【?】Then max = cIf c < min Then min = cPrint "最大数为："; maxPrint "最小数为："; minEnd Sub'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。