《VB程序设计基础》习题答案
《Visual Basic程序设计基础》教材习题参考答案第六章
![《Visual Basic程序设计基础》教材习题参考答案第六章](https://img.taocdn.com/s3/m/0b8c3c0702020740be1e9bb1.png)
第6章图形控件和图形方法一、判断题1.√2.×3.√4.×5.√6.×7.×8.×9.√10.√二、选择题1.C 2.B 3.C 4.A 5.A 6.C 7.A 8.C 9.C 10.B 11.A 12.B 13.B 14.C 15.C三、填空题1.Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002.LoadPicture 3.AutoSize、Stretch、False、False 4.选中、属性5.形状、矩形6.Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")7.图片框、其他控件8.缇、SclaeMode 9.颜色10.颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序1. 转动一条红色直线,其轨迹形成一个圆程序2. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。
程序3. 在图片框内绘制多个黄色边框矩形,填充样式在“实心”、“透明”间交替变换。
五、程序填空题1.(1)Combo1.ListIndex (2)Shape1.BorderStyle (3)Combo2.AddItem Str(i) 2.(1)Call pic (2)False (3)n = n + 1 (4)LoadPicture("c:\windows\1.bmp") (4)LoadPicture(fn)六、程序设计题程序1.界面设计略,过程设计如下:Private Sub Form_Load()Picture1.ScaleMode = 3End SubPrivate Sub Command1_Click()Dim x1 As Single, y1 As Single, x2 As Single, y2 As Singlex1 = InputBox("x1="): y1 = InputBox("y1=")x2 = InputBox("x2="): y2 = InputBox("y2=")Picture1.Line (x1, y1)-(x2, y2), , BEnd Sub程序2.界面设计略,过程设计如下:Private Sub Form_click()Dim r As Single, xo As Single, yo As SingleIf Form1.ScaleHeight < Form1.ScaleWidth Thenr = Form1.ScaleHeight / 3Elser = Form1.ScaleWidth / 3End Ifxo = Form1.ScaleLeft + Form1.ScaleWidth / 2yo = Form1.ScaleTop + Form1.ScaleHeight / 2Form1.FillStyle = 0: Form1.FillColor = vbBlueForm1.DrawWidth = 2: Form1.ScaleMode = 6Form1.Circle (xo, yo), r, vbYellowEnd Sub程序3.界面设计略,过程设计如下:Private Sub Form_Load()Dim i As IntegerFor i = 1 To 7: List1.AddItem i: Next iForm1.ScaleMode = 1End SubPrivate Sub List1_Click()Form1.Cls: Form1.ScaleMode = List1.TextForm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub。
visual basic 程序设计课后习题参考答案
![visual basic 程序设计课后习题参考答案](https://img.taocdn.com/s3/m/312573d189eb172ded63b723.png)
[Exit Function] End Function
(4). Function 过程的调用方法: ①直接调用 像使用 VB 内部函数一样,只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程,当用这种方法调用 Function 过程时,将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的,过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类:事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
《VB程序设计》课后题答案
![《VB程序设计》课后题答案](https://img.taocdn.com/s3/m/4a770848e45c3b3567ec8b1e.png)
第二章一、问答题1.叙述建立一个完整的应用程序的过程。
答:界面设计编写事件过程代码运行、调试保存文件2.当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。
问该工程涉及到几个文件要保存?若要保存该工程中的所有文件,正确的操作应先保存什么文件?再保存什么文件?若不这样做,系统会出现什么信息?答:涉及到两个文件要保存。
先保存窗体文件(.frm),再保存工程文件(.vbp)。
若先保存工程文件,系统也会先弹出“文件另存为”对话框,要求把窗体文件先保存。
3.假定在W indows环境中,要保存工程文件时,若不改变目录名,则系统默认的目录是什么?答:VB984.当标签框的大小由Caption属性的值进行扩展和缩小,应对该控件的什么属性进行何种设置?答:将标签的Autosize设置为True.5.VB6.0提供的大量图形文件在哪个目录下?若你的计算机上没有安装,则怎样安装这些图形文件?答:VB6.0提供的图形文件在Graphics目录。
6.在VB6.0中,命令按钮的显示形式可以有标准和图形两种选择,这通过什么属性来设置?若选择图形的,则通过什么属性来装入图形?若已在规定的属性里装入了某个图形文件,但该命令按钮还是不能显示该图形,而显示的是Caption属性设置的文字,怎样改正?答:按钮Style的属性设置为Graphical(或1)。
通过Picture属性来装入图形。
不能显示图形是因为Style的属性设置为Standard(或0),只要改为Graphical(或1),一般还将Caption 属性的值设置为空。
7.标签和文本框的区别是什么?答:文本是否可编辑。
8.当窗体上有三个文本框和一个命令按钮,若程序运行时,需把焦点定位在第三个文本框处,应对何控件的什么属性进行何种设置?答:应对Text3控件进行Text3.TabIndex=0的设置。
9.简述文本框的change与keypress事件的区别。
答:文本框内容变化,change与keypress事件都会发生,所不同的是Keyprees还将返回一个Keyasii参数10.当某文本框输入数据后(按了回车键),进行判断认为数据输入错,怎样删除原来数据?怎样使焦点回到该文本框重新输入?答:假定文本框的名称为Text1,则事件过程如下:Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf 出错条件判断成立ThenText1=””…先删除原来数据Text1.SetFocus …焦点回到Text1End If……End IfEnd Sub11.在程序运行前,对某些控件设置属性值,除了在窗体中直接设置外,还可以通过代码设置,这些代码一般放在什么事件中?例如,程序要将命令按钮定位在窗体的中央,请写出事件过程。
VB程序设计习题及答案第2章VisualBasic语言基础知识
![VB程序设计习题及答案第2章VisualBasic语言基础知识](https://img.taocdn.com/s3/m/7e0faff6de80d4d8d05a4f56.png)
第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程序设计教程课后参考答案概要](https://img.taocdn.com/s3/m/dafcaf3414791711cd791715.png)
VB程序设计教程课后参考答案习题一一、填空题1.对象、事件驱动2.窗体、控件3.属性4.属性窗口、编程设置5.事件过程6.对象名、下划线、事件名7.Form_click8.Print form1.print “我的VB”9.主窗口、属性、工具箱、代码、窗体、工程资源管理10.菜单、快捷键二、选择题1.C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题(略)习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1.Controlbox、Maxbutton、Minbutton2.Multiline TRUE3.******4.单文档界面(SDI)多文档界面(MDI)5.窗体显示6.Passwordchar7._change()三、编程题(略)习题三一、基础知识题(略)二、填空题1.整型、长整型、单精度、双精度2.(x mod 10)*10+x\103.Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4.(a+b)/(1/(c+5)-c*d/2)5.X mod 5=0 or x mod 9=06.False7.-4、3、-3、3、-4、48.CDEF10.TRUE11.变量、属性12.‘_ :13.(略)14.“”#15.Public、通用/模块、Dim、static、private16.+ 、&、+17.Now() 、time()、日期18.Inputbox()、字符串、val()19.Msgbox()三、选择题1.B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是:" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是:", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉,不能构成合法的方程!"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是:" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是:"Print "第一个根是:", x1Print "第二个根是:", x2Else2Print "该方程有两个虚根:"Print "第一个虚根是:" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是:" & -b / (2 * a) & "-" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是:" & sElsePrint "很抱歉,不能构成合法的△三角形!"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是:" & jiPrint "兔的个数是:" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是:" & aveEnd Sub9. ‘同学们,这道题方法很多,主要考察你对选择结构的理解,我给出其中一种方法。
VB程序设计试卷与答案-2
![VB程序设计试卷与答案-2](https://img.taocdn.com/s3/m/151134592b160b4e767fcf66.png)
《VB程序设计基础》试题一、选择题:(每空 2 分,共 20 分)1. VB不具备以下的________________特点。
A. VB是结构化程序设计语言B. VB是面向过程的程序设计语言C. VB采用面向对象的程序设计方法D. VB提供了可视化的工具2. 在Visual Basic中,语句Dim x As Single所说明的变量x属于____________。
A. 整数型B. 逻辑型C. 字符串型D. 单精度实数型3. 在Visual Basic中,表达式Fix(-13.8)的值是_____________。
A. -13B. -14C. 13D. 144. 下列属于正确的Visual Basic表达式是()A. a2+b*|c|B. 2n-1C. b3+2D. 2·h/g5. 设x是正数,下列能用于描述"x是否为偶数"的Visual Basic条件表达式是_____________。
A. x % 2 = 0B. x / 2 = 0 C.x \2 = 0 D. x Mod 2 = 06. 图片框有一个属性,可以自动调整图片框的大小,以适应图片的尺寸,这个属性是__________。
A. AutosizeB. StretchC. AutoRedrawD. Appearance7.语句Print Format(136.459862,“0.000”)的输出结果是___________。
A. 1.365B. 6.459C. 136.460D. 136.4598. 设S=“380”,表达式Mid(S,2,1)+ Right(S,1)+ Left(S,1)的值为__________。
A.“083”B.“803”C.“038”D.“308”9.一个数组说明为Dim a(3,4) As Integer,则该数组共有_________个元素。
A. 12B. 3C. 4D. 2010. 在过程定义中用__________表示形参的传值。
VB教材课后习题答案
![VB教材课后习题答案](https://img.taocdn.com/s3/m/a6b24338580216fc700afd33.png)
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ :2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段:Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段:Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码:Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码:Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1.从键盘输入三个值,判断它们能否构成三角形的三个边。
如果能构成一个三角形,则计算三角形的面积。
vb程序设计题及答案
![vb程序设计题及答案](https://img.taocdn.com/s3/m/7abd63cecc7931b764ce15a6.png)
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。
2005《Visual Basic程序设计基础》习题参考答案
![2005《Visual Basic程序设计基础》习题参考答案](https://img.taocdn.com/s3/m/071932a0b9d528ea81c77972.png)
《Visual Basic程序设计基础》教材习题参考答案第1章Visual Basic 6.0程序设计概述一、判断题1.√2.√3.×说明:同类控件(如两个标签)相互重叠,设计时可以设置“置前”、“置后”属性。
4.√5.×6.√7.×8.√9.√10.×11.√12.√13.×14.√15.×16.√17.√18.√19.√20.√二、选择题1. C2. B 3.D 4.C 5.B 6.A 7.D 8.A 9.B 10.A 11.C 12.D三、填空题1.对象、事件2.属性、方法、事件3.控件、屏幕(Screen)4.对象5.Left、Top 6.属性、<对象名>.<属性名>=<表达式>7.网格8.F orm19.Load或Initialize或Resize或Activate(自动执行的先后顺序也按此排列)10.Activate、Deactivate四、程序设计题程序1.界面设计参看图10-1、10-2以及表10-1。
表10-1 实例2各控件的主要属性设置过程设计如下:Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = False13Label1.Caption = Text1.Text + ": 欢迎使用" + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2.界面设计略,过程设计如下:Private Sub Command1_Click() '字体变大Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时,不得连续、过多次单击“字体变小”按钮,因为当FontSize属性值小于0会产生适时错误。
《Visual Basic程序设计基础》习题
![《Visual Basic程序设计基础》习题](https://img.taocdn.com/s3/m/313d96d7bb68a98270fefa9a.png)
《Visual Basic程序设计基础》习题《Visual Basic程序设计基础》教材习题第1章 Visual Basic 6.0程序设计概述习题一、判断题1.Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2.属性是Visual Basic对象性质的描述,对象的数据就保存在属性中。
3.同一窗体中的各控件可以相互重叠,其显示的上下层次的次序不可以调整。
4.在Visual Basic 中,有一些通用的过程和函数作为方法供用户直接调用。
5.控件的属性值不可以在程序运行时动态地修改。
6.许多属性可以直接在属性表上设置、修改,并立即在屏幕上看到效果。
7.所谓保存工程,是指保存正在编辑的工程的窗体。
8.在面向对象的程序设计中,对象是指可以访问的实体。
9.决定对象是否可见的属性是Visible属性,决定对象可用性的属性是Enabled属性。
10.保存Visual Basic文件时,若一个工程包含多个窗体或模块,则系统先保存工程文件,再分别保存各窗体或模块文件。
11.xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。
12.事件是由Visual Basic预先定义的对象能够识别的动作。
13.事件过程可以由某个用户事件触发执行,它不能被其他过程调用。
14.窗体中的控件,是使用工具箱中的工具在窗体上画出的各图形对象。
15.同一个窗体文件只能用于一个工程中。
16.由Visual Basic语言编写的应用程序有解释和编译两种执行方式。
17.在打开一个Visual Basic工程进行修改后,要另存为一个版本,只需单击“工程另存为…”就行,因为系统将同时保存其他文件。
18.单击“启动”菜单项将窗体装入内存时,一定触发窗体的load事件和Activate 事件。
19.“方法”是用来完成特定操作的特殊子程序。
20.“事件过程”是用来完成事件发生后所要执行的程序代码。
VB程序设计教材习题及参考解答
![VB程序设计教材习题及参考解答](https://img.taocdn.com/s3/m/c62ceff1ba0d4a7302763acc.png)
第 1 章概述一、叙述题1.简述VB具有哪些特点。
(1)面向对象的可视化设计工具(2)事件驱动的编程机制(3)易学易用的应用程序集成开发环境(4)结构化的程序设计语言(5)充分利用Windows资源(6)开放的数据库功能与网络支持2.简述事件驱动的程序设计原理。
解答:VB程序的运行没有固定的顺序,它通过事件来激活某个对象,随着该对象的活动,会引发新的事件,这个事件又可能使另一个对象激活,对象之间就是以这种方式联系在一起的。
每个事件都可以通过一段程序(称为“事件过程”)来响应,在事件发生时,系统将自动执行相应的事件过程,用以实现指定的操作并达到运算、处理的目的。
为不同对象响应不同事件编写的事件过程构成了一个完整的应用程序,这就是VB事件驱动的程序设计原理。
3.VB的集成开发环境由哪些元素组成?解答:标题栏、菜单栏、工具栏、工具箱、窗体窗口、代码窗口、工程资源管理器窗口、属性窗口及窗体布局窗口等。
4.VB集成开发环境的工具栏能否自行定义?标准工具栏中包含一些什么按钮?解答:VB集成开发环境的工具栏可以自定义,方法是:用鼠标右击标准工具栏的任意位置,可以打开或关闭其余工具栏。
标准工具栏中包含的按钮有:添加Standard EXE工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视组件管理器及窗体位置与大小等。
5.当创建只有一个窗体的应用程序后,该工程涉及多少个要保存的文件?若要保存该工程中的所有文件,应先保存什么文件?后保存什么文件?解答:涉及两个文件要保存。
先保存窗体文件(.frm),再保存工程文件(.vbp)。
6.简述用VB开发应用程序的一般步骤。
(1)创建应用程序界面(2)设置界面上各个对象的属性(3)编写对象响应事件的程序代码(4)保存工程(5)运行和调试应用程序(6)创建可执行程序二、单选题1.D VB是一种面向对象的可视化程序设计语言。
《Visual Basic程序设计基础》教材习题参考答案第九章
![《Visual Basic程序设计基础》教材习题参考答案第九章](https://img.taocdn.com/s3/m/b67a530aba1aa8114431d9b3.png)
第9章数据库与数据访问技术一、判断题1. √2. √3. ×4. √5. ×6. ×7. √8. √9. ×10.×11.√12.√13.√14.√15.√16.×17.×18.×19.√20.√21.√22.×二、选择题1.A2.D3.C4.B5.C6.A7.C8.D9.D 10.C 11.A 12.D 13.A 14.B 15.B 16.C三、程序设计题程序1.(1)数据访问控件以及数据绑定控件的相关属性设置如下Data1:Connect("Access")、DatabaseName("d:\学籍.mdb")、RecordSource("学生)" Text1:DataSource("Data1")、DataField("学号")Text2:DataSource("Data1")、DataField("姓名")Check1:DataSource("Data1")、DataField("性别")Text3:DataSource("Data1")、DataField("出生日期)Text4:DataSource("Data1")、DataField("奖学金")Text5:DataSource("Data1")、DataField("简历")OLE1:DataSource("Data1")、DataField("照片")Adodc1:ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False") CommandType("1-adCmdText")、RecordSource("select * from 成绩") DataGrid1:DataSource("Adodc1")(2)主要事件过程代码Option ExplicitPrivate Sub Form_Load()Caption = "学籍信息编辑浏览"Label1.Caption = "学号:" : Label2.Caption = "姓名:"Label3.Caption = "出生年月:" : Label4.Caption = "奖学金:"Label5.Caption = "简历:" : Label6.Caption = "照片:"Check1.Caption = "性别(选中表示男,否则为女)"Label7.Caption = "成绩信息查询显示": Adodc1.Visible = FalseEnd SubPrivate Sub Data1_Reposition()Adodc1.RecordSource = "select 成绩.课程号,课程名,成绩from 学生,课程,成绩" _ & "where 学生.学号= 成绩.学号and " & "成绩.课程号= 课程.课程号and " & _ "成绩.学号='" & Data1.Recordset("学号") & "'" & " order by 成绩.课程号" Label7.Caption = Trim(Data1.Recordset("姓名")) & "成绩信息查询显示" Adodc1.RefreshEnd Sub程序2.(1)数据访问控件以及数据绑定控件的相关属性设置如下:Adodc1:ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False"CommandType("1-adCmdText")、RecordSource("select * from 学生)DataGrid1:DataSource("Adodc1")(2)主要事件过程代码Option ExplicitPrivate Sub Form_Load()Dim i As IntegerCaption = "学籍信息查询浏览": Adodc1.Visible = FalseLabel1.Caption = "选择查询方式:": Combo1.Text = "全部都显示"Label2.Caption = "全部表文件数据浏览表格:" : Label3.Visible = False Text1.Visible = False: Text1.Text = ""For i = 0 To 2Combo1.AddItem Mid("全部都显示按学号查询按姓名查询", 5 * i + 1, 5) Next iEnd SubPrivate Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.Visible = False: Label3.Visible = FalseAdodc1.RecordSource = "select * from 学生"Label2.Caption = "全部表文件数据浏览表格:": Adodc1.Refresh Case 1Label3.Caption = "输入查询条件(学号):" : Text1.Visible = True Label3.Visible = True: Text1.SetFocusCase 2Label3.Caption = "输入查询条件(姓名):" : Text1.Visible = True Label3.Visible = True: Text1.SetFocusEnd SelectEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenIf Combo1.ListIndex = 1 ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "学号='" & Text1.Text & "'"If Adodc1.Recordset.EOF ThenAdodc1.RecordSource = "select * from 学生"Label2.Caption = "全部表文件数据浏览表格:"Adodc1.Refresh: MsgBox "查无此人!"ElseAdodc1.RecordSource = "select * from 学生 " & "where _学号='" & Text1.Text & "'"Label2.Caption = "学生" + Text1.Text + "的数据浏览表格:"End IfElseAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "姓名='" & Text1.Text & "'"If Adodc1.Recordset.EOF ThenAdodc1.RecordSource = "select * from 学生"Label2.Caption = "全部表文件数据浏览表格:"Adodc1.Refresh: MsgBox "查无此人!"ElseAdodc1.RecordSource = "select * from 学生 " & _"where 姓名='" & Text1.Text & "'"End IfEnd IfAdodc1.RefreshEnd IfEnd Sub程序3.(1)数据访问控件以及数据绑定控件的相关属性设置如下:Adodc1(xs):ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("2-adCmdTable")、RecordSource("学生")Adodc2(kc):ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("2-adCmdTable")、RecordSource("课程")Adodc3(cjcx):ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("1-adCmdText")RecordSource(" select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, _ 成绩.成绩 from 学生,课程,成绩 where 成绩.课程号 = 课程.课程号 _and 成绩.学号 = 学生.学号 "DataGrid1:DataSource("cjcx")DataList1:RowSource("xs")、ListField ("姓名")、BoundColumn("学号") DataList2:RowSource("kc")、ListField("课程名")、BoundColumn("课程号")(2)主要事件过程代码Option ExplicitDim p As BytePrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 4Label1(i).Caption = Mid("优秀良好中等及格差等", 2 * i + 1, 2)Text1(i).Text = "": Text1(i).BackColor = RGB(205, 205, 192)Text1(i).Locked = TrueNext icjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, " _ & "成绩.成绩from 学生,课程,成绩 " & _"where 成绩.课程号=课程.课程号 and 成绩.学号=学生.学号"cjcx.Refresh: Label2.Caption = "成绩信息列表"Label3.Caption = "选择学生姓名:" : Label4.Caption = "选择课程名:" xs.Visible = False: kc.Visible = False: cjcx.Visible = False Caption = "学籍信息查询": p = 0End SubPrivate Sub DataList1_Click()p = 0: Call cjdctjEnd SubPrivate Sub DataList2_Click()p = 1: Call cjdctjEnd SubPrivate Sub cjdctj()Dim cjdcjs(5) As Integer, dcase As Byte, i As ByteIf p = 0 Thencjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号, " _ & "课程.课程名,成绩.成绩 from 学生,课程,成绩 " _& "where 成绩.学号='" & DataList1.BoundText & "' " _& "and (成绩.课程号=课程.课程号 and " _& "成绩.学号=学生.学号) order by 成绩.课程号"Frame1.Caption = "单位:门"Label2.Caption = Trim(DataList1.Text) & "成绩信息列表"Elsecjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号, " _ & "课程.课程名,成绩.成绩 from 学生,课程,成绩 " _& "where成绩.课程号='" & DataList2.BoundText & "' " _& "and (成绩.课程号=课程.课程号 and " _& "成绩.学号=学生.学号) order by 成绩.学号"Frame1.Caption = "单位:人"Label2.Caption = Trim(DataList2.Text) & "成绩信息列表"End Ifcjcx.RefreshIf Not cjcx.Recordset.EOF Then cjcx.Recordset.MoveFirstWhile Not cjcx.Recordset.EOFIf cjcx.Recordset("成绩") < 60 Thendcase = 0Elsdcase = (cjcx.Recordset("成绩") \ 10) – 5End IfSelect Case dcaseCase 4, 5: cjdcjs(0) = cjdcjs(0) + 1Case 3: cjdcjs(1) = cjdcjs(1) + 1Case 2: cjdcjs(2) = cjdcjs(2) + 1Case 1: cjdcjs(3) = cjdcjs(3) + 1Case 0: cjdcjs(4) = cjdcjs(4) + 1End Selectcjcx.Recordset.MoveNextWendFor i = 0 To 4: Text1(i).Text = cjdcjs(i): Next iEnd Sub程序4.(1)数据访问控件以及数据绑定控件的相关属性设置如下:Adodc1:ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False")CommandType("2-adCmdTable")、RecordSource("学生")LockType("4-adBatchOptimistic)Adodc2:ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("2-adCmdTable")、RecordSource("课程")LockType("4-adBatchOptimistic")Adodc3:ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False")CommandType("2-adCmdTable")、RecordSource("成绩")LockType("4-adBatchOptimistic")Text1:用于显示编辑"学号",但是本字段不设置数据绑定属性,输入或修改后的"学号"数据通过代码方式写入数据源中。
《Visual Basic程序设计基础》习题参考答案
![《Visual Basic程序设计基础》习题参考答案](https://img.taocdn.com/s3/m/5b1eb113f90f76c660371aae.png)
第7章对话框与菜单程序设计一、判断题1.√2.√3.√4.×5.×6.×7.√8.√9.√10.√二、选择题1.D 2.A 3.C 4.C 5.B 6.D 7.A 8.B 9.D 10.B三、填空题1.窗体控制菜单、下拉式菜单、快捷菜单2.ShowFont3.打开文件、另存为、颜色、字体、打印对话框4.工程、部件5.CommonDialog1.Action =3、CommonDialog1.ShowColor6.提示信息、对话框类型、对话框标题7.Click8.工具9.代码窗口、Click 10.相同、正四、程序阅读题程序1. 显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。
程序2. 显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。
五、程序填空题1.(1)Int(Rnd*100) (2)Str(i) (3)Exit For2.(1)False (2)Date (3)CommonDialog1.Color (4)m1六、程序设计题程序1.界面设计略,过程设计如下:Private Sub Command1_Click()CommonDialog1.ShowOpenList1.AddItem CommonDialog1.FileNameEnd Sub程序2.界面设计略,过程设计如下:Private Sub Command1_Click()CommonDialog1.ShowSaveList1.AddItem CommonDialog1.FileNameEnd Sub程序3.界面设计如图10-9、表10-2所示,过程设计如下:Private Sub Sqr_Click()Shape1.Shape = 1End SubPrivate Sub Rec_Click()Shape1.Shape = 0End SubPrivate Sub Oval_Click()Shape1.Shape = 2End SubPrivate Sub Circle_Click()Shape1.Shape = 3End SubPrivate Sub Rrec_Click()Shape1.Shape = 4End SubPrivate Sub RSqr_Click()Shape1.Shape = 5End SubPrivate Sub Shp_Click()Shape1.FillStyle = 2End SubPrivate Sub Shzh_Click()Shape1.FillStyle = 3End SubPrivate Sub Xiex_Click()Shape1.FillStyle = 4End SubPrivate Sub ShPJ_Click()Shape1.FillStyle = 6End SubPrivate Sub XJ_Click()Shape1.FillStyle = 7End SubPrivate Sub FillColor_Click()CommonDialog1.ShowColorShape1.FillColor = CommonDialog1.ColorEnd SubPrivate Sub Exit_Click()EndEnd Sub第8章文件一、判断题1.×2.√3.×4.√5.√6.×7.√8.×9.√10.√11.×12.×13.√14.×15.×二、选择题1.A 2.C 3.B 4.B 5.A 6.C 7.C 8.B 9.C 10.B 11.D 12.B 13.B三、填空题1.ChDir 2.FileLen 3.Change 4.EOF 5.Line Input四、程序阅读题程序1. y= 1 a= 1 程序2. NO. 1 3 程序3.y= 3 a= 2 NO. 2 4 窗体:36 25 16 9 4 1y= 6 a= 3 NO. 3 7 文件:1 4 9 16 25 36y= 10 a= 4 NO. 4 11程序4. 程序5. 1 程序6. 1窗体上显示内容:20 2 2 1 2文件中内容:4 6 8 10 12 3 3 3 1 2 34 4 4 45 5 5 5 5五、程序填空题1.(1)Dim n As Integer (2)"C:\windows\calc.exe"(3)Output (4)End2.(1)For Output As #2 (2)0 (3)"temp.dat" As "c:\a1.dat"3.(1)Open "e:\dataout.txt" For Output As #1(2)t1 Mod t2 = 0 (3)If flag Then (4)Print coun六、程序设计题程序1.界面设计如图10-10所示,过程设计如下:Dim fn As StringPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathEnd SubPrivate Sub File1_Click()If Right(File1.Path, 1) = "\" Thenfn = File1.Path + File1.FileNameElsefn = File1.Path + "\" + File1.FileNameEnd IfEnd SubPrivate Sub Command1_Click()Dim yesno As Byteyesno = MsgBox("确认要删除吗?", vbYesNo, "删除文件")If yesno = vbYes Then Kill fnFile1.RefreshEnd Sub程序2.建立4个文本框控件依次输入姓名、出生年月、外语、计算机成绩,按“确认”按钮追加该记录到磁盘文件d:\student.dat。
最新VisualBasic-程序设计基础(川版)-习题答案资料
![最新VisualBasic-程序设计基础(川版)-习题答案资料](https://img.taocdn.com/s3/m/b69d8d6ab52acfc789ebc9c1.png)
VB习题答案(1-4)习题1一、选择题1. 以下叙述中,错误的是_________。
(A)一个Visual Basic 应用程序可以含有多个标准模块文件(B)一个visual Basic 工程可以含有多个窗体文件(C)标准模块文件可以属于某个指定的窗体文件(D)标准模块文件的扩展名是.bas标准模块文件(.bas)不属于任何一个窗体文件。
参考答案为C。
2. 以下叙述中错误的是_________。
(A)一个工程可以包括多种类型的文件(B)Visual Basic应用程序既能以编译方式执行,也能以解释方式执行(C)程序运行后,在内存中只能驻留一个窗体(D)对于事件驱动型应用程序,每次运行时的执行顺序可以不一样内存中可以驻留多个窗体,当前窗体只能有一个。
参考答案为C。
3. Visual Basic的窗体设计器主要是用来___________。
(A)建立用户界面(B)添加图形、图像、数据等控件(C)编写程序源代码(D)设计窗体的布局参考答案为A。
4. Visual Basic是一种结构化高级程序设计语言,它采用的是_________驱动方式。
(A)键盘(B)鼠标(C)事件(D)函数参考答案为C。
5. Visual Basic程序设计语言属于_________。
(A)面向过程的语言(B)机器语言(C)面向对象的语言(D)汇编语言参考答案为C。
6. Visual Basic一共有设计、运行和中断三种模式,要使用调试工具应该_________。
(A)进入设计模式(B)进入运行模式(C)进入中断模式(D)不用进入任何模式VB中三种模式分别为:设计模式下可以进行界面设计和代码的编写;运行模式下执行代码,接受用户的操作;中断模式下可以修改代码,但不能改变界面,这个模式下通常进行代码调试,当运行出错时,默认转到该模式下进行调试。
参考答案为C。
7. 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
VB程序设计练习册参考答案
![VB程序设计练习册参考答案](https://img.taocdn.com/s3/m/db2bd0310b4c2e3f5727633e.png)
参考答案第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)流程图。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
<Visual Basic>程序设计基础P16 习题一一,判断题1,错2,对3,错4,错5,6,7,对二,单选题1,B 2,B 3,D 4,A 5,D 6,B 7,B 8,C 9,D三, 程序设计题5, Private Sub Command1_Click()Form1.FontName = "宋体"Form1.Print "中文字体宋体"End SubPrivate Sub Command2_Click()Form1.FontName = "楷体_GB2312"Form1.Print "中文字体楷体"End SubPrivate Sub Command3_Click()Form1.FontName = "仿宋_GB2312"Form1.Print "中文字体仿宋"End SubP42 习题二一,判断题1,2,3,7,10,对4,5,6,8,9,11,12,13,14 错二,单选题1,A 2,C 3,C 4,B 5,B6,A 7,B 8,C 9,B 10,C11,C 12,D 13,B 14,A 15,D16,B 17,B 18,C 19,B 20,B 21,B 22,D 23,A 24,C 25,B 26,A 27,D 28,B三,简答题1. (1) 2 * Cos(alfa) * Sin(alfa/ ( 2 * a )(2) Sqr( s*(s–a)*(s–b )*(s - c))(3) ( A^2 + B*C*(X +Y)) / (A+B)(4) ( 2* 3.14159*r +Exp(-5))* Log(x)(5) 1/( x + 1/(y+1) )(6) k / ( 1 + a * Exp(-b*x) )(7) 5 + 6*x / ( 3 * (x^2-1) - 2*x )(8) Sqr( y^3 + 3 * (a^2+b^2) / (x^2+y^2) )2. (1) (a+b) Mod c (2)Sqr(Abs(x))(3) Int(x) + 1 (4) Int(Rnd*101)+2003. Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As Integer, y As Longa = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")y = a ^ 2 + 2 * b ^ 2 + 2 * c ^ 2Print " y = "; yEnd Sub4。
(1) F (2)T (3) F (4) T5 . (1)1<=x And x<12 (2)T+3<>V-2 And (T+V)>100(3)(a+b) >= c or (a-c) <= c(4)a>0 And Int(a)=a And b>0 AndInt(b)=b or a<0 And b<0(5)x<=y Or x>=z(6)a=0 And b<>0 or a<>0 And b=0 四, 编程题1. Private Sub Form_Click()Dim a As Integer, b As IntegerDim c As Integer, y As Singlea = InputBox("请输入正整数a的值")b = InputBox("请输入正整数b的值")c = InputBox("请输入正整数c的值")y = (a + b + c) / 3Print " 平均值y = "; yEnd Sub2. Private Sub Form_Click()Dim r As Integer, s As SingleConst Pi = 3.14159r = InputBox("输入圆半径", "输入", 10)s = Pi * r * rMsgBox "圆面积Area =" & Str(s)End SubP78 习题三一,1,A 2,B 3,B 4,A 5,C二,1,37,55,64,28,192,y=KIGECA3, 1121123211234321123454321123456543214,cHINA!三,1,t As Doubles=1Abs(t)>=1e-5s=s+t2, s+c-1s3, m=nm To nSum=Sum+jSum=i四,1,Private Sub Form_Click()Dim x As Single, f As Singlex = InputBox("输入x: ")If x < -5 Thenf = 3 * x * x + 2 * x - 1ElseIf x <= 5 Thenf = x * Sin(x) + 2 ^ xElsef = Sqr(x - 5) + Log(x) / Log(10) End IfLabel1.Caption = fEnd Sub2.Private Sub Form_Click()Dim i As Integer, flag As IntegerDim t As Double, y As Doubley = 0flag = 1t = 0.5i = 1While Abs(t) >= 0.00001t = 1 / i / (i + 1)y = y + flag * tflag = -flagi = i + 1WendPrint "y="; yEnd SubY=0.3862893854756693.Private Sub Form_Click()Dim n As Integer, i As Integer, flag As Integer, s As Single, t As Integern = InputBox("请输入n的值:")sum = 0t = 1flag = -1For i = 1 To nflag = -flagt = t * is = s + flag * i / tNext iPrint "s="; sEnd Sub4.Private Sub Command1_Click()For i = 1 To 9For j = 1 To iPrint i; "*"; j; "="; i * j;Next jPrintNext iEnd Sub5.Private Sub Form_Click()For i = 1 To 5Print Tab(6 - i);For j = 1 To 2 * i - 1Print "*";Next jPrintNext iFor i = 4 To 1 Step -1Print Tab(6 - i);For j = 1 To 2 * i - 1Print "*";Next jPrintNext iEnd SubP104 练习四一、单选题1,D 2,C 3, C 4,C 5,D二、程序阅读题1,12 10 92,011 2 323、div = 3三、程序填空题1、Len(str1)Mid(str1, i, 1)p = ji <> p2、l = Len(St$)a(i) = Mid(St$, i, 1)p = s - 96x(p) = x(p) + 13、a(1 To 4, 1 To 5)s = 0a(i, 5) = s / 4四、程序设计题1.Private Sub Form_Click()Dim a(50) As IntegerFor i = 1 To 50a(i) = Int(Rnd * 71) + 30Print a(i);If i Mod 5 = 0 Then PrintNext iMin = a(1): Max = a(1): s = 0For i = 2 To 50If Min > a(i) Then Min = a(i)If Max < a(i) Then Max = a(i)s = s + a(i)Next iPrint "max="; Max, "min="; Min, "average="; s / 50End Sub2.Private Sub Form_Click()Dim max As Integer, min As IntegerDim a() As Integern = Val(InputBox(""))ReDim a(n) As IntegerFor i = 1 To na(i) = Int(Rnd * 100)Print a(i);Next iFor i = 1 To nIf a(i) Mod 2 = 0 Then min = a(i) Else max = a(i)If min <> 0 And max <> 0 Then Exit For Next iFor i = 1 To nIf a(i) Mod 2 = 0 And min > a(i) Thenmin = a(i)ElseIf a(i) Mod 2 = 1 And max < a(i) Thenmax = a(i)End IfNext iPrint "max="; max, "min="; minEnd Sub3.冒泡法:Private Sub Form_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = tNext jNext iFor i = 1 To 10Print a(i);Next iEnd Sub选择法:Private Sub Form_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);Next iPrintFor i = 1 To 9For j = i + 1 To 10If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = tNext jNext iFor i = 1 To 10Print a(i);Next iEnd Sub4、Private Sub Form_Click()Dim a(20) As Integer, score(5) As IntegerFor i = 1 To 20a(i) = Int(Rnd * 101)Print a(i);Next iPrintFor i = 1 To 20If a(i) >= 90 Thenscore(1) = score(1) + 1ElseIf a(i) >= 80 Thenscore(2) = score(2) + 1ElseIf a(i) >= 70 Thenscore(3) = score(3) + 1ElseIf a(i) >= 60 Thenscore(4) = score(4) + 1Elsescore(5) = score(5) + 1End IfNext iFor i = 1 To 5Print score(i)Next iEnd SubP126 练习五一.对:1,2,3, 4,6,7,9错:5,8二.1,D 2,C 3,A 4,B 5,D 6,?7,?8,D三.1,1)a() As Single, m As Integer2)j = i + 1 To m3)a(i) < a(j)4)Call pf(b, n)2,1)Int(Rnd * 21) + 302)For j = i + 1 To 103)Call Swap(a(i), a(j))4)a(10)3,1)If Isprime(i) = True And Isprime(x - i) = True Then2)Isprime = True3)If x Mod i = 0 Then四,1.9 762, 4-93, 6 4 648 36 424,269五、1、Private Sub Command1_Click()Dim a() As Single, n As Integer, s As Single Dim v As Single, i As Integern = InputBox("请输入n的值")ReDim a(n)For i = 1 To na(i) = InputBox("")Next iv = f(a, n)For i = 1 To ns = s + (a(i) - v) ^ 2Next is = Sqr(s) / nPrint sEnd Sub2、Private Function fsum(a() As Single, n As Integer) As SingleDim i As IntegerFor i = 1 To nfsum = fsum + a(i)Next iEnd Function3、Private Sub ff(x() As Single, m As Byte, n As Byte, xmax As Single, ki As Byte, kj As Byte)Dim i As Integer, j As Integerxmax = x(1, 1): ki = 1: kj = 1For i = 1 To mFor j = 1 To nIf x(i, j) > xmax Then xmax = x(i, j): ki = i: kj = jNext jNext iEnd SubP153 练习六一,对:5错:1,2,3,4,6,7,8,9, 10二.1,D 2,D 3,题目有错(应改为True)A 4,C 5,C6,D 7,C 8,D 9,与2重复10,C11,B 12,B 13,B 14,B 三.1.(1)Dim a As Integer, b AsInteger(2)Str(n) + Str(n_error)(3)KeyPress(4)KeyAscii <> 13(5)Command1.Enabled = True2.(1)1 To 2*i–1(2)Command2.Enabled = True(3)Command2.Enabled = False四.1.GFEDCBA2.小,你好!小李,你好!3.您好欢迎使用Visual Basic!五.1.Private Sub Command1_Click(Index As Integer) Dim y As SingleSelect Case IndexCase 0y = Val(Text1.Text) + Val(Text2.Text)Label4.Caption = Text1.Text + "+" + Text2.Text + "=" + Str(y)Case 1y = Val(Text1.Text) - Val(Text2.Text)Label4.Caption = Text1.Text + "-" + Text2.Text + "=" + Str(y)Case 2y = Val(Text1.Text) * Val(Text2.Text)Label4.Caption = Text1.Text + "*" + Text2.Text + "=" + Str(y)Case 3y = Val(Text1.Text) / Val(Text2.Text)Label4.Caption = Text1.Text + "/" + Text2.Text + "=" + Str(y)End SelectEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Label1.Caption = "数一"Label2.Caption = "数二"Label3.Caption = "结果表达式:"Label4.Caption = ""Command1(0).Caption = "加"Command1(1).Caption = "减"Command1(2).Caption = "乘"Command1(3).Caption = "除"End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then '判断为非数字键KeyAscii = 0 '改变键入文本框的显示为空字符,即不显示End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") ThenKeyAscii = 0End IfEnd SubP176 练习七一,对:2,4,5,6,9,10错:1,3,7,8二,1,B 2,C 3,D 4,C 5,B 6,D 7,A 8,A 9,D三,1.(1)List3.Clear(2)List1.ListCount – 1(3)List2.ListCount – 1(4)Exit For(5)j < List2.ListCount2,(1)Timer1_Timer(2)Label1.Left = -Label1.Width四,1,(1)C (2)A (3)C2,(1)B (2)D (3)D (4)D3,y=6y=144,(1)A (2)A (3)B (4)D 5,n=4n=12n=286,4567897,上海乌鲁木齐浙江杭州北京P207 练习八一,对:1,2,7错:3,4,5,6,8,9二,1,A 2,D 3,C 4,B 5,C 6,D 7,C 8,D 9,D 10,C 三,1,(1)ScaleMode = 6(2)Scale (-ScaleWidth / 2, ScaleHeight / 2)-(ScaleWidth / 2, -ScaleHeight / 2)(3)Circle (0, 0), 30, , -3.14159 * 4 / 3, -3.14159 * 22,(1)Picture1.FillStyle = 0(2)-2 * PI, -a * x(3)vbBlue(4)K < Asc("0") Or K > Asc("9")3,(1)b = Picture1.Point(x, y)(2)r = Int(c Mod 256)(3)Next j, I四,1.2.3.4.月亮环饶太阳转P234 练习九一,1,A 2,B 3,C 4,D 5,B 6,B 7,A二,1,m1.Visible = False FalseCommonDialog1.ColorCommonDialog1.FontItalic PopupMenu m1, 2 2,Static i As Integer Button = 1P251 练习十一,1,B 2,D 3,A 4,B 5,B二,NO 1 3NO 2 4NO 3 7NO 4 11NO 5 18三、1. list1.clearinput #1, nprime(n as integer) as boolean2. Filter=“文本文件|*.txt”not eof(1)四、3.Private Sub Command2_Click()Open "g:\myfile1.txt" For Input As #1Open "g:\myfile2.txt" For Output As #2Do While Not EOF(1)Input #1, c$, n1%, n2%, n3%Sum% = n1% + n2% + n3%ave% = Sum / 3Write #2, c$, n1%, n2%, n3%, Sum%, ave% LoopCloseEnd SubPrivate Sub Command1_Click()Text1.Text = ""Open "g:\myfile1.txt" For Input As #1Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & Chr(13) & Chr(10)LoopClose #1End Sub。