16年《选修模块》VB 知识点及答案
VB课后习题参考答案
第1章Visual Basic概述一、判断题1．BASIC语言2．封装、继承和多态性3．对象4．方法5．控件6．属性7．对象列表框、属性列表框、属性说明8．对象9．Form110．对象第2章简单的Visual Basic程序设计三、程序填空题程序1：(1) Form1.FontName = "楷体_GB2312"(2)Form1.FontSize =Form1.FontSize + 2(3)Form1.FontBold = True(4)Form1.ForeColor = RGB(255, 0, 0)程序2： (1) Text1.MaxLength = 10(2)Text1.PasswordChar = ""(3)Command2.Enabled = False(4)KeyAscii = 13四、程序阅读题1．12345 123451234 1234123 12312 121 12．小，你好！小林，你好！3．1234564．越来越快五、程序设计题1．2．3．4．第3章Visual Basic语法基础一、判断题二、选择题1．String2．43．aaa4．1455．66．37．08．False9．（x mod 10）*10+x\1010．Int（rnd*90+10）11．a*b mod c12．Log（x）+sin（3.14*30/180）13．Const PI=3.141592614．日期15．Round（I+0.5)四、程序阅读题a=1 b=1a=3 b=2a=7 b=4五、程序设计题1．第四章Visual Basic程序设计基础一、判断题二、选择题三、程序填空题1. q*i s+p*i/q next2. r=0 m mod n四、程序阅读题1. 11112. 203. 194. 45. -321五、程序设计题1.Dim a As Single, b As Single, c As Single, t As Singlea = InputBox("a=?")b = InputBox("b=?")c = InputBox("c=?")If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tPrint "a="; a, "b="; b, "c="; c2.Dim x As Single, y As Singlex = InputBox("x=?")If x > 3 Theny = x + 3ElseIf x >= 1 Theny = x * xElseIf x > 0 Theny = Sqr(x)Elsey = 0End IfPrint "x="; x, "y="; y3.Dim i As Integer, j As IntegerFor i = 1 To 9For j = 1 To iPrint Tab(10 * j - 9); i & "*" & j & "=" & i * j;Next jPrintNext i4.Dim n As Integer, i As Integer, x As Single, s As Single, f As Integer, t As Single t = 1s = 1f = -1n = InputBox("n=?")x = 1While Abs(x) >= 1x = InputBox("x=")WendFor i = 2 To nt = t * xs = s + f * t / if = -fNextPrint "s="; s5．6．第五章数组一、判断题1．arr1(1) min=arr1(i)2．i+j-1 7-i print3．int(rnd*90+10) i+1 to 30 a(i)=a(j) a(i) mod 2 <> 0 四、程序阅读题1．52．273．134．21五、程序设计题1．2．第六章过程与函数三、程序填空题x(9) as single, y(9) as singlef1(x(i), y(i), x(j), y(j))四、程序阅读题2．69-1五、程序设计题1．3．第七章常用控件与界面设计方法二、选择题三、程序填空题1．Exit do list1.list(0)>list2.list(0) list2.listcount-1 四、程序阅读题1．HiHelloHiHello2．23453．61528454．1015五、程序设计题1．：2．：：3．：：：。
(完整版)VB知识点整理
通用属性：修改对象的前景颜色：ForeColor属性。
修改对象的背景颜色：BackColor属性。
对象的标题或内容：Caption属性。
对象是否需要三维立体的外观：Appearance属性。
对象是否自动对齐到它所在容器的边缘：Align属性。
对象是水平放置还是垂直放置：Orientation属性。
0为水平，1为垂直。
对象在它所在容器内的位置和大小：Left,Top,Width,Height属性。
对象内部坐标系统的左上角位置和内部大小:ScaleLeft,ScaleTop,ScaleWidth,ScaleHeight属性。
当鼠标在对象上时显示的不同形状：MousePointer属性。
当鼠标在对象上时显示的提示文字：TooltipText属性。
在对象外部是否包围有1个边框：BorderStyle属性。
对象边框的颜色：BorderColor属性。
改变对象上文字成不同字体：Font属性。
可分别开来：①是否要粗体：FontBold属性；②是否要斜体：FontItalic属性；③设置字体名称：FontName属性。
④设置字号大小：FontSize属性。
⑤是否要加删除线：FontStrikethru属性。
⑥是否要加下划线：FontUnderline属性。
由用户自定义的1个对象标记：Tag属性。
设置1个对象是否可自动拖放操作，同时不响应对象事件：DragMode属性。
对象在拖放过程中显示的图标：DragIcon属性。
当对象中内容很多，对象大小不够时，是否自动扩大对象的尺寸以完全显示对象的内容：AutoSize属性。
对象是否在界面中可见：Visible属性。
对象是否有效：Enabled属性。
当对象是对象数组时，确定对象的下标：Index属性。
对象是否可通过TAB键转移获得焦点：TabStop属性。
用TAB键转移焦点时本对象所处的顺序位置：TabIndex属性。
如果对象可设置为不同样式，选择各种样式：Style属性。
选修VB操作题(打印)讲解
186、举重比赛，60公斤级选手体重不能超过60公斤。
修改程序中的(1)(2)(3)，使得在文本Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！”，当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！”。
Private Sub Command1_Click()Dim t As Single '定义变量t，值由文本框Text1读入t = (1)If (2) ThenLabel1.Caption = "超重！不能参赛！" ElseLabel1.Caption = "合格，可以参赛！"(3)End Sub参考答案：(1) val(text1.text) (2) t>60 (3) End If 187、填空完成程序，使得单击"显示"按钮时，Label1、Label2分别显示30，10。
'程序代码:Private Sub Command1_Click()Dim x, y, t As Integerx = 10y = 30 If x < y Thent = (1)x = (2)y = (3)End IfLabel1.Caption = Str(x)Label2.Caption = Str(y)End Sub参考答案：(1) x (2) y (3) t188、某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。
'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。
Private Sub Form_Click()Dim i As SingleDim s As Integer '设s为所求年数,定义为整型,结果由窗体输出i = 1 '销售收入为1s = 0 '年数初始值为0Do While (1)i = (2)(3)LoopPrint "s="; sEnd Sub参考答案：(1) i<4 (2) i*1.1 (3) s=s+1189、填空完成程序，使得当单击"计算"按钮后，在Text1中显示出满足条件2+4+6+…+x < 80中最大的x的值。
VB实验指导书课后习题答案2016版
VB实验指导书课后习题答案2016版VB作业参考答案(xx年3月)第1次习题 VB程序设计概述一、选择题 1 A 2 A 3 D4 C5 A6 C7 C8 B9 B 二、1、在设计阶段利用属性窗口直接设置对象的属性值，程序运行时不能改变；2、在程序运行阶段通过赋值语句实现，即通过事件触发修改属性。
对象名.属性名=属性值第2次习题 VB可视化编程基础一、选择题 1 A 2 D 3B 4C 5 A 6 B 7 C 8 B 9 A 10 C 二、填空1 2 3第3次习题 VB语言基础一、选择题 1 BH 二、 1 231AutoSize MultiLine PasswordChar 2 B 3 C 4 B 5 A 6B 7 B 8C 9 B 10 C 11 C Abs(x+y)+Z^5 /(x*y) /(2*+EXP(X+Y))三、1 2 3 4 四、1 2 3 4 5 6第4次习题 VB控制结构一、选择chr(int(rnd*4)+65) int(rnd*90)+10 x mod 5=0 or x mod 7=0 10*(x mod 10)+x\\10 或 StrReverse(x) 188 30306 876554 ；8819 VISUAL C++ Programming 1 B 11 D 21 A2 D 12 A 22 C3 A 13 A 23 C4 B 14 B5 D 15 A6 B16 D 7 B 17 B 8 C 18 D 9 A 19 B 10 B 20 A 二、填空1 2 3270 Result * x m ; t ; m 三、程序设计题1. 求函数的值。
Dim y As Long, x As Integer, i%x = InputBox(\输入X的值：\ 或者 x=val() If x ElseIf x ElseIf x y = x * x 'or y=x^2 Elsey = 25 - x End IfPrint \2. 计算机：1+3+5+……+99的值。
vb基础知识问答题及答案
vb基础知识问答题及答案VB基础知识问答题及答案一、数据类型1. VB中常用的数据类型有哪些？答：VB中常用的数据类型有整型、长整型、单精度浮点型、双精度浮点型、字符型、字符串型、布尔型等。
2. 整型变量在VB中占几个字节？答：整型变量在VB中默认占用2个字节，范围为-32768~32767。
3. 如何定义单精度浮点型变量？答：可以使用Dim语句定义，例如：Dim num As Single。
二、变量和常量1. VB中变量和常量有什么区别？答：变量是值会随程序执行而发生变化的标识符，而常量则是指值在程序执行时不会改变的标识符，常量通常用来表示数学常量或程序中不可变的值。
2. 如何定义常量？答：使用Const语句定义常量，例如：Const PI = 3.14159。
3. 如何声明并初始化一个变量？答：使用Dim语句声明变量，并在后面加上赋值符号和初始值，例如：Dim num As Integer = 10。
三、运算符和表达式1. VB中有哪些运算符？答：VB中有加、减、乘、除等基本运算符以及逻辑运算符、关系运算符等扩展运算符。
2. 如何求一个数的平方？答：使用指数运算符（^），例如：num ^ 2。
3. 如何进行字符串连接？答：使用&符号进行字符串连接，例如：str1 & str2。
四、控制语句1. VB中有哪些常用的控制语句？答：VB中常用的控制语句有if-else语句、switch-case语句、for循环语句、while循环语句、do-while循环语句等。
2. 如何使用if-else语句？答：if-else语句的格式为：If 条件 Then 语句1 Else 语句2。
例如：If num > 10 Then MsgBox("num大于10") Else MsgBox("num小于等于10")。
3. 如何使用for循环语句？答：for循环语句的格式为：For 变量名 = 起始值 To 终止值 Step 步长语句。
VB课后习题答案1-4章
1、B2、A3、B4、答：属性：红色、充满氢气；事件：松手、针刺；方法：飞走、爆破。
5、答：事件是指对象能够识别并作出反映的外部刺激。
事件驱动又称消息驱动，事件驱动程序设计是指每个事件对应有相应的程序代码，仅在该事件发生时，该段代码才会被执行。
事件发生的顺序决定了代码执行的顺序，因此每次执行应用程序时，程序代码并不是按照程序编写的顺序来执行的。
6答：VB是一个包括界面设计、程序编码、调试、编译并创建可执行程序的集成开发环境。
VB的集成开发环境的主界面中包含：标题栏、菜单栏、工具栏、控件箱、工程资源管理器、属性窗口、“窗体布局”窗口、窗体设计器、代码编辑器等元素组成。
7、答：VB 菜单条通常情况下有：文件、编辑、视图、工程、格式、调试、运行、查询、图表、工具、外接程序、窗口、帮助等13 项菜单项组成。
8、答：工具栏可自行定义。
标准工具栏中通常情况下有：添加标准exe 工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤消、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视化元件管理器等按钮组成。
9、答：创建VB应用程序的一般步骤为：创建界面；设置窗体和控件属性；编写代码；保存工程；运行并调试程序；检查并排除错误；创建可执行文件。
10、Private Sub Command1_Click()Label1.Caption = "I love vb,I hate vb"End Sub1、2、3、S1 输入待判断自然数：N (N>=2;52i=2 ;S3判断i是否小于N-1，若不是转S5S4判断N除以i的余数是否为0,如果不是则i=i+1转S3;S5判断i是否等于N,若是输出“是素数”，否则输出“不是素数”。
4、S1 输入待判断自然数：N ;S2将N转换成字符S,计算S的长度K;53i=1 ；S4判断i是否小于K-1，若不是转S6；S5判断S中的第i位和第K-i+1位是否相等，如果是则i=i+1转S4,如果不是则转S6;S6判断i是否是中间位数，若是输出“是回文数”，否则输出“不是回文数”。
vb课后习题答案(红色参考书)
第一章VB开发环境与VB概述习题答案习题一、选择题1. B2. A3. A4. B5. D6. B7 A.8. A9. C10.B11. C12. D13. A14. D第二章常用控件与界面设计习题答案习题一、选择题1. C2.B3.C4.A5.A6.B7.B8.B9.C 10.C 11.B 12.B 13.D 14.A 15.B 16.B 17.B 18.C 19.C 20.D21.B 22.B 23.B 24.C 25.C26.C27. A28. B29.B 30.C 31.B 32.C 33.B 34.B35.D 36.B 37.D 38.D 39.B40.A 41.B 42.A 43.B44.B 45.D 46.A 47.A 48.B49.D 50.C 51.D 52.D 53.C54.D 55.D 56.C 57.A 58.C 59.C 60.B 61.B第三章实验与习题实验实验3_1‘算术运算Private Sub Command1_Click()Const a As Single = 3, b As Single = 2, c As Single = -1, d As Single = 6Dim x As Single, y As Single, z As Single, m As Singlex = 2: y = 1: z = 1: m = 1List1.ClearList1.AddItem a / (b + c / b)List1.AddItem (x + Sqr(x ^ 2 + 1)) ^ (1 / 3)List1.AddItem ((2 * y) / (a * x + b * y) * (a * x - b * y))List1.AddItem 1 + 1 / (1 + 1 / m)List1.AddItem 1 / 2 * (d / 3) ^ (2 * x)List1.AddItem Log(y + Cos(x) ^ 2)List1.AddItem Abs((Exp(x) + Sin(x) ^ 3) / (x + y))List1.AddItem Log((Exp(x * y) + Abs(1 / Tan(z) + Cos(x) ^ 3)) / (x + y - z))List1.AddItem Sin(45 * 3.1415 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)List1.AddItem Log(a) / Log(b)End Sub‘关系运算Private Sub Command2_Click()List1.ClearList1.AddItem Mid("Visual Basic", 1, 12) = Right("Language Visual Basic", 12)List1.AddItem "ABCRG" >= "abcde"List1.AddItem Int(134.69) >= CInt(134.9)List1.AddItem 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98List1.AddItem Str(32.345) = CStr(32.345)End Sub‘逻辑运算Private Sub Command3_Click()Dim x As Integer, y As IntegerDim C1 As Integer, C2 As Integer, C3 As IntegerC1 = 70: C2 = 80: C3 = 90x = 9: y = -2List1.ClearList1.AddItem x + y < 10 And x - y > 0List1.AddItem (x% >= 0 And y% >= 0) Or (x% < 0 And y% < 0)List1.AddItem x = 0 Xor y = 0List1.AddItem C1 + C2 + C3 >= 255 Or C1 > 90 And C2 > 90 And C3 > 80End Sub实验3_2略实验3_3略实验3_4‘零售结算Private Sub Command1_Click()Dim dj As Single, sl As Single, je As Single, n As IntegerLabel1.Caption = "金额："dj = InputBox("请输入商品的单价：", "单价框")sl = InputBox("请输入商品的数量：", "数量框", 1)je = dj * sln = MsgBox("共计金额=" & je, vbOKCancel + vbInformation, "结果")If n = vbOK Then Label1.Caption = "金额：" & Str(je) & "元"End Sub‘产生随机数Private Sub Command2_Click()Dim m As Integer, n As IntegerDim x1 As Integer, x2 As Integer, x3 As Integerm = Val(Text1.Text): n = Text2.TextRandomizex1 = Int(Rnd * (n - m + 1) + m)x2 = Int(Rnd * (n - m + 1) + m)x3 = Int(Rnd * (n - m + 1) + m)Label4.Caption = "结果为：" & Str(x1) & Str(x2) & Str(x3)End Sub‘求逆序数Private Sub Command3_Click()Dim a As Integer, h As Integer, t As Integer, n As IntegerRandomizea = Int(Rnd * (999 - 100 + 1) + 100)h = Mid(CStr(a), 1, 1)t = Mid(CStr(a), 2, 1)n = Right(CStr(a), 1)Label5.Caption = a & "-->" & Format(n * 100 + t * 10 + h, "000")End Sub实验3_5略习题选择题1.D2.B3.B4.D5.B6.D7.D8.B9.C 10.A11.D 12.D 13.D 14.C15.D16.D17B18.A19.D20.B21.D 22.C 23.D 24.A 25.A 26.B 27.A 28.A 29.C 30.A31.B 32.C 33.A 34.D 35.A 36.B 37.B38.B39.C40.D41.B42.C43.B44.D 45.C 46.C 47.A 48.D 49.B 50.A51.C 52.B 53.D 54.D 55.D56.DA7.B58.A59.A60.A61.B62.B 63.C 64.A 65.B 66.B 67.D 68.A 69.A 70.A 71.C72.B 73.B 74.D75.D 76.C 77.B 78.D 79.A 80.D 81.C 82.B 83.D 84.B 85.B 86.B 87.A 88.D 89.C填空题1、2 -32768~327672、整型长整型单精度双精度3、0 False “”4、Chr(Int(Rnd*(Asc(“L”)-Asc(“C”))+Asc(“C”)))x>0 And y>0 Or x<0 And y<0c>=”a” And c<=”z” Or c>=”A” And c<=”Z”x>=10 And x<20x<z Xor y<z5、False 2 True False True True True True6、188 200100 68.56 8765547、a=1 b=1a=2 b=1a=3 b=1a=4 b=18、Y Mod 4=0 And Y Mod 100<>0 Or Y Mod 400 =09、He Said, “Good morning”. 10、EDEF11、(A>0 And A<>Int(A)) And (B<0 And B<>Int(B))12、a+b+c+d (a+b+c+d)/4 sum aver13、(f-2*h)/2 (4*h-f)/2简答题1、略2、Private Sub Form_Click()Const g = 9.8Dim V0 As Single, t As SingleDim S As SingleV0 = InputBox("请输入V0的值：")t = InputBox("请输入时间t的值：")S = (1 / 2) * g * t ^ 2 + V0 * tMsgBox ("位移量为：" & S)End Sub3、Private Sub Command1_Click()Dim l As Single, w As Single, h As SingleDim s As Singlel = Text1.Textw = Text2.Texth = Text3.Texts = (l * w + l * h + w * h) * 2Label1.Caption = sEnd Sub第四章选择分支与循环实验答案实验4-1 方法一：x<=5 ; y 方法二：Is<=2 ;Case Else实验4-2 Shape1.BackColor=vbRed; Inter=15; Inter=Inter-1; Inter 实验4-3 b<c b=a a=k实验4-4 方法二：s*n ; t/s<10^-5实验4-5 方法一:m>=10^-4 ; (-1)^(n+1)*m实验4-6 x2=x3 ; <10^-6实验4-7实验4-8 i+2*j+5*k=10 ; n实验4-9 题目一：a) 5 b)i=16 p=12 n=5 c)i=9 p=8 n=1 题目二：120 10实验4-10 N=1 ；S=N& "*3 " & "+1 "实验4-11 Len(st); Ch=Lcase(ch) ; Case Else ; Mid(Char,I,1)&St实验4-12 i\100 ; (i Mod 100)\10习题一、选择题1.C2.C3.A4.D5.A6.B7.B8.D9.B二、填空题1．Is=0 ; 1 To 10 ; Is >10 2. 9 3. 3 ; 4 15 4. this is a book ;This Is A Book 5. 3 ; 3 ; 3 5 6. 32 0 7. 4 8. 15 19. 1 ; 401 ;104 10. 1 2 3 ;1 3; 1 11. (3)12. 2 0 24 13. 10 14 14. BAABC CBAABC15. X Mod P=0 ; X=X+1 ;Find=False 16. abs(t)<10^(-7) ; s+t17. Mid(n,1,1)=Mid(n,2,1) And Mid(n,3,1)=Mid(n,4,1) S=S+118. Mid(n,i,1)>Mid(n,i+1,1) 19. "输入n";N/I=0 ;Print I第五章数组实验5_1 Int(90 * Rnd) + 10 a(i) = a(21 - i) a(21 - i) = t5_2 k = x Mod 10 i = i + 15_3 s5_4 max < a(i, j) row = I col = j5_5 1 ReDim Preserve prime(m) prime(j)5_6 d Mod 25_7 Exit For a(j + 1) = a(j)5_8 N – I A(j) = A(j + 1)5_9 A(i, 1) J Min = Max Not Flag5_10 ch >= "0" And ch <= "9" P = P & ch ReDim Preserve C(k)5_11 Private Sub Form_Click()Dim x As Integer, i As Integer, k As Integer, j As IntegerDim a() As Integerx = InputBox("输入正整数x=")i = 2Print x; "的质因子为:";Do While x >= iIf x Mod i = 0 Thenk = k + 1ReDim Preserve a(k)a(k) = ix = x \ iElsei = i + 1End IfLoopFor j = 1 To UBound(a)Print a(j);Next jEnd Sub习题一选择题1.A2.C3.D4.C5.B6.D7.D8.B9.D 10.B 11.B 12.D二填空题1. Variant2. ReDim A(N) A(1) If M < A(I) Then M = A(I)3. Int(26 * Rnd) + 65 Chr(t) i + 1 To 10 A(i) > A(j)4. InStr(s, ",") Right(s, Len(s) - n) s5. 4 5 6 6 5 4 3 2 16. T – 1 I + 17. k = 6 - i – j max = m 8. j = a j = j - 39. i + 1 i = i + 1 10. 2 3 7三编程题1．Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("ê?è?m")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IFor I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopLoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As Integer A(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IText3.Text = SEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) ThenList1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub第六章参考答案实验实验6-11、Exit Do2、Y(X)3、X >= -1实验6-2 【题目二】42 、26、8实验6-3 1、s1, key 2、s As String 3、ch >= "a" And ch <= "z"4、Mid(s, i, 1) = Chr(Asc(ch) + k - 26)思考：解密函数Private Sub dec(s As String, k As Integer) '解密过程Dim i As Integer, ch As String * 1For i = 1 To Len(s)ch = Mid(s, i, 1)If "A" <= ch And ch <= "Z" ThenIf Asc(ch) - k < Asc("A") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于A的ASCII值则加上26ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfElseIf ch >= "a" And ch <= "z" Then '多分支格式，ch介于小写a与z之间If Asc(ch) - k < Asc("a") ThenMid(s, i, 1) = Chr(Asc(ch) - k + 26) '小于a的ASCII值则加上26ElseMid(s, i, 1) = Chr(Asc(ch) - k)End IfEnd IfNext iEnd Sub实验6-41、b() As Integer, st As String2、L <= R3、ReDim Preserve b(R)4、L = L + 1辗转相除法求最大公约数函数Private Function Gcd(ByVal p As Integer, ByVal q As Integer) As IntegerDim r As Integerr = p Mod qDo While r <> 0p = qq = rr = p Mod qLoopGcd = qEnd Function实验6-5 【题目一】age = age(n - 1) - 3【题目二】1、(Left + Right) / 2 2、Left = Mid + 1实验6-6 1、3 -1 2、7 4 3、3 -1 4、7 0 实验6-7 【题目一】1、Sqr(2 + t) 2、Abs(a - 1) < eps【题目二】1、Dim X As Integer 2、"S(" & I & ")=" & S(I)3、(j * i + 1)习题参考答案一选择题1.B2.D3.C4.C5.C6.B7.B8.B9.A 10.D 11.D 12.A 13.A 14.A 15.B 16.B 17.D18.C19.D20.B21.C 22.C 23.B 24.A 25.D 26.D 27.A 28.B二、填空1（1）形式、（2）实在2（1）按地址传递、（2）ByVal3（1）窗体模块、（2）标准模块、（3）类模块4（1） 6 5（1）4 20 1016（1） 6 26 、（2）-2 987（1）10 6 、（2） 5 -58（1） 6 5 、（2）8 79（1）11 、（2）710（1）Fun(i) 、（2）Fun=p11（1） 4 、（2）20.712（1）29 、（2）28.713（1）k = j 、（2）b() As Integer14（1）gec 、（2）ge 、（3） 315（1）p1 = True And p2 = True 或p1 And p2 、（2）p1 = p2 –2 、（3）Isp = True 、（4）m Mod i = 016（1）Convert(st) 、（2）Len(s) 、（3）"A" To "F" 、（4）k = k + p * h17（1）isualVi 、（2）sualVisu18（1）s + a 、（2）n + 1 、（3）x As Single, n As Integer 、（4）p * (x + i) / ((2 * i - 1) * i * x)三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean Dim K As IntegerReDim A(1)A(1) = 50———————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean) Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As Integer Dim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByVal idx As Integer Dim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub5、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit Sub Next IF = False ' F = TrueEnd Sub四、编程题1、编程验证任一大于2的偶数可以表示成两个素数之和。
vb课后习题参考答案
vb课后习题参考答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答：①向光驱中放入VB安装光盘；②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe；③根据提示逐一回答问题，并点击“下一步”；④点击“完成”；2、如何启动VB。
答：三种方法：①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启动VB；第二章习题参考答案一、选择题：1-10、DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1．窗体、控件2．属性值3．属性窗口设置、代码窗口设置4．事件过程5．对象名、下划线、事件名6．Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、ASCII、1、25、&、+、+6、Now()、Time、日期型三、解答题1、(3)2、(1 )3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量（7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度）4、315、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y)（3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c))6、7、（1）13 （2）17（3）#1999-11-12# （4）zxy123ABC8、（1）19 （2）8.16666666666667（3）5．25 （4）29、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello” （6）He7）16 （8）“-459.65” （9）510、（4）11、（2）12、（4）第四章习题参考答案一、选择题：1—7: DAABBCD二、填空题1．500.00%2．将字号扩大为原来的二倍3． B三、编程题（略）1．文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2．单价、数量、折扣和应付款对应的文本框的名称分别为：text1、text2、text3和text4，计算和清除命令按钮的名称分别为：command1和command2。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
16年春招Vb知识点及试题复习一、程序及算法：1.计算机程序设计语言可分为三大类：汇编语言和高级语言和（B ）。
[A] 翻译语言[B]机器语言[C] 自然语言[D] 通用语言2.下列计算机程序设计语言中都属于高级语言一组的是（B ）[A] 汇编语言、Visual Basic[B] Pascal、Visual Basic[C] 机器语言、Pascal[D] 汇编语言、Visual Basic3.下列关于程序与软件的叙述中不正确的是（A ）[A] 程序是指用于实现一定计算任务的一组计算机指令和有关数据[B] 程序就是软件[C] 程序、数据与相关文档资料构成软件[D] 软件一般都需要不断完善或升级4.为解决一个问题而采取的方法和有限步骤称为（B）。
[A] 程序[B] 算法[C] 程序设计[D] 解题5.下列关于算法的叙述不正确的是（B ）。
[A] 算法具有输入、输出、确定性、可行性、有限性等基本特征[B] 解决一个问题的算法只有一种[C] 算法是解决问题的有序步骤[D] 描述算法的方法主要有自然语言描述、框图法、伪代码6.用流程图描述算法中表示“输入输出”的图形符号是（B ）B. D.7.用流程图描述算法中，图形符号 B ）A.开始/结束B.条件判断C.处理D.输入/输出8.下列属于结构化程序的三种基本结构的是顺序结构、循环结构和（D ）。
A.模块结构B.情况结构C.流程结构D.选择结构9.下列关于算法的叙述，正确的是（ A ）A.有穷性是算法的基本特征之一B.可行性不属于算法基本特征C.算法对程序设计没有任何作用D.解决一个问题的算法只有一种考查知识点：1、用计算机解决问题的一般过程：提出问题分析问题设计算法编写程序调试运行，这个过程中，设计算法是核心。
2．算法：概念：算法是解决问题的步骤和方法描述：描述算法的三种方法主要有自然语言描述、流程图法、伪代码特征：算法具有有穷性、确定性、零个或多个输入、至少一个输出、可行性等基本特征3、结构化程序的三种基本结构的是: 顺序结构、选择结构（分支结构）、循环结构(1) 顺序结构. 见图1在这个结构中的各块是只能顺序执行的. (2) 判断选择结构.见图2根据给定的条件是否满足执行A块或B块.（3）循环结构.见图3表示的结构称为”直到型”循环,它的含义是:执行A块直到满足给定的条件为止(满足了条件就不再执行A块).图1 图2 图34、计算机程序设计语言的产生、发展可分为三大类：低级语言（机器语言、汇编语言）和高级语言。
机器语言：20世纪40年代产生，由二进制“0”和“1”组成机器指令。
所有的高级语言最后都要编译成机器语言让计算机执行。
汇编语言：20世纪50年中期代产生，用一种类似英语缩写的单词代替复杂的二进制编码来编写程序的语言,每一条汇编语言对应机器语言中的一条指令。
汇编语言写的程序需要翻译成机器语言，计算机才能执行。
高级语言：20世纪60年中期代产生，如C/C++/C#,PASCAL,FORTRAN,JAVA，BASIC二、常量：1.在VB语言中，下列数据中合法的字符型常量是 (D)A.”123456”B.’1234.56’C.12345AD.’A12345’2.下列各组声明中用于正确定义常量的是。
(B)[A] Dim PI As Single=3.14 [B] Const Pi As Single=3.14[C] Dim S As Integer [D] Const Pi As Integer=3.14知识点：常量：不变的量，常量有如下几种常见类型：数值常量（包括整型、长整型、实数型）： 123（整型）、1233.0（实数型）、-989990（长整型）、-678.78字符常量（用英文双引号“”）：“姓名”、“CHINA”日期常量（用英文#）：#2013-12-12#逻辑型常量： TRUE 、FALSE常量定义:Const Pi As Single=3.14159 (定义常量PI为实数且值为3.14159)变量数据类型：变量数据类型与常量一致，说明如下：一、数据类型概述1、整数型：整数型是指不带小数点和指数符号的整数。
按表示范围整数型分为：整型、长整型（1）整型（Integer）：取值范围：-32768 ~ +32767例如：15，-345，654都是整数型, 而45678则会发生溢出错误，需要定义成LONG。
（2）长整型（Long）：取值范围：-2147483648 ~ +2147483647例如：123456，45678&都是长整数型。
而如果数字大小超过长整型数的范围，则要定义成single（实型数）2、实数型（single-浮点数或实型数）：实数型数据是指带有小数部分的数。
注意：数12和数12.0对计算机来说是不同的，前者是整数，后者是实数,它们的区别是计算的精度不一样（1）单精度数(Single，类型符) ：在计算机程序里面不能有上标下标的写法，所以乘幂采用的是一种称为科学计数法的表达方法，这里用E或者e表示10的次方(E/e大小写都可以)比如：1.401298E-45表示1.401298的10的负45次方（2）双精度数（Double,类型符）比如17.88D5，表示它是一个双精度数，表示17.88乘以10的5次方，这里用D来表示10的次方3、日期型（Date）用#括起来放置日期和时间，允许用各种表示日期和时间的格式。
日期可以用“/”、“-”分隔开，可以是年、月、日，也可以是月、日、年的顺序。
例：#09/10/2000# 或#2000-09-12#五、逻辑型（Boolean）逻辑型数据只有两个可能的值：True（真）、False（假）例如：5>3 值为ture 5<3 值为false六、字符串( String)字符串是一个字符序列，必须用英文双引号“”括起来例如：”正确” “good ” 二、变量及定义： 考查知识点： 变量名及变量定义:1、 变量名：字母开头，后面跟上字母、数字、下划线、其它符号，VB 中的保留字如IF 、DIM 、-、=等到不能用。
六、字符串( String)字符串是一个字符序列，必须用英文双引号 “ ”括起来 例如：”正确” “good ” 定义字符型变量： Dim a as string a= ”李小双”1. 下列运算结果中，值最大的是。
[A] 6 \ 4 [B] 6 mod 3 [C] 6 / 4 [D] 6 mod 42. 数学表达式 a ac b 242- 在VB 中正确的表示方法是【16】。
A. (b*b －4*a*c)/2aB. (b*b －4*a*c)/2*aC. (b*b －4*a*c)/2/aD. (b*b －4*a*c)/(2/a)3. 在VB 语言中，下列表达式中合法的表达式是A.y x *B. y x ≈C. y xD.2y x ⨯4. 下列中求绝对值的函数是 。
[A] INT [B] SQR [C] MO D [D]ABS 5. 在Visual Basic 中，函数Int(6.8)返回的值是 A.6 B.7 C.8.6 D.6.86. 在Visual Basic 中，表达式abs(-9.8)的返回值为 A.1 B.9.8 C.3 D.97. 代数式2745x z yx +-对应的Visual Basic 表达式是A.(5x-4*y)/(7z+x*x)B.(5*x-4*y)/(7*z+x*x)C.5*x-4*y/7z+x*xD.(5x-4*y)/7z+x*x8. 下列能正确表示“x,y 全是奇数”的逻辑表达式是 。
[A]（x+y ）mod 2=1 [B] x mod 2=1 and y mod 2=1 [C] x mod 2=0 and y mod 2=0 [D]（x+y ）mod 2=09.下列能表示-1<x<1的表达式是。
[A] -1<x and x>1[B]-1<x or x<1[C] -1<x<1[D] -1<x and x<110.在VB语言中，下列逻辑表达式的值为"假"的是[A] 8 > 3 and 10> 9[B] 8 > 3 or 10 > 9[C] #1/11/2009# < #11/15/2009#[D] #1/11/2009# < #11/15/2008#11.若a=1，b=0，则下列逻辑表达式值为True的是A.a+b<>1B.a=0 or b=1C.a<>1 and b=0D.(a=0 or b=0 ) And a*b=012.在Visual Basic中，表达式 3 * 7 Mod 5 的值是A.4B.1C.2D.313.已知a=7,b=8,c=15,下列逻辑表达式的值为"假"的是A.b>a and a+b=cB.a > c and c < bC.b > a or a > cD.not a> b14.在Visual Basic中，"a大于b且a小于c" 的正确表达式是A.c>a>bB.a>b not a<cC.a>b and a<cD.a>b and b<c●知识点：●运算符：1、算术运算符：( )，^（乘方）, * /, \（整除）, MOD(求余), + -例：20 + 10 mod 3 – 15 *2\ 10 / 2= 152、关系运算符：>（大于），<（小于），>=（大于等于），<=（小于等于），< > （不等于）3、逻辑运算符：not(非) ，and(与) ，or（或）使用逻辑运算符：当有两个以上的关系运算时使用，如数学中的1<x<10,在VB中表示为x>1 and x<10 ,而不能错误表示成：1<x<10例子：not (4<3) 结果为true4>3 and 5=4 or 4 mod 3 >=1 and not ( 5 / 4 = 5 \ 4) = true●表达式：用运算符将常量、变量、函数等连接起来的式子例如：a+b 2*a-8●函数：绝对值函数：abs（x）abs(-5)=5平方根函数：sqr（x）sqr( 9 )=3取整函数：int ( x ) int( 5.6)=5 int(-5.6)= - 6四、三种结构及语句知识点：赋值语句：变量名=表达式，作用：将右边的表达式的值赋值给左边的变量，=左边只能是变量名，输入语句：PRINT 表达式作用：计算表达式的值并将表达式的值输出在屏幕上如：PRINT “a+b=”,3+5 结果显示：a+b=81.下列正确的赋值语句是。