16年《选修模块》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．：：：。

通用属性：修改对象的前景颜色：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属性。

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作业参考答案(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基础知识问答题及答案一、数据类型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 步长语句。

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概述习题答案习题一、选择题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课后习题参考答案第一章习题参考答案一、填空题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。

VB考试参考答案VB考试参考答案VB（Visual Basic）是一种广泛应用于软件开发的编程语言，它简单易学，适用于各种应用场景。

对于学习VB的人来说，参加考试是检验自己学习成果的一个重要环节。

在这篇文章中，我将为大家提供一些VB考试的参考答案，希望能对大家的学习和备考有所帮助。

第一部分：基础知识1. 什么是VB？VB是一种基于事件驱动的编程语言，它可以用于开发Windows应用程序、数据库应用程序等。

2. VB中的数据类型有哪些？VB中的数据类型包括整数型（Integer）、浮点型（Single、Double）、字符型（String）、布尔型（Boolean）等。

3. 如何声明和初始化一个整数变量？在VB中，可以使用Dim语句来声明一个整数变量，并使用赋值语句来初始化它。

例如：Dim num As Integernum = 104. VB中的条件语句有哪些？VB中常用的条件语句有If语句和Select Case语句。

If语句用于根据条件执行不同的代码块，而Select Case语句用于根据不同的条件执行不同的代码块。

5. VB中的循环语句有哪些？VB中常用的循环语句有For循环、Do循环和While循环。

For循环用于指定循环次数，Do循环和While循环则根据条件来控制循环的执行。

第二部分：应用实例现在，让我们通过一些应用实例来加深对VB的理解。

1. 实现一个计算器程序通过VB编写一个简单的计算器程序，可以实现基本的加减乘除运算。

用户输入两个数和运算符，程序根据运算符进行相应的计算，并输出结果。

2. 实现一个学生成绩管理系统通过VB编写一个学生成绩管理系统，可以实现学生信息的录入、查询、修改和删除等功能。

程序可以根据学生的成绩进行排名，并显示成绩统计信息。

3. 实现一个简单的游戏通过VB编写一个简单的游戏，比如猜数字游戏。

程序随机生成一个数字，用户通过输入猜测的数字来猜测正确的数字，程序根据用户的输入给出相应的提示，直到用户猜对为止。

算法与程序设计VB知识点一、数据类型Integer 整型Long 长整型Single 单精度实型Double 双精度实型String 字符型二、常量与变量1、常量的定义Const 常量名 as 类型=表达式2、变量的定义Dim 变量名 as 类型三、运算符1、算术运算符+ - / ^ \ mod2、字符运算符& +3、关系运算符>, >= , < , <= , <> , = 4、逻辑运算符And not or四、函数1、sinx2、cosx3、fixx4、intx5、sqrx6、absx五、赋值语句格式：变量=表达式六、输入语句变量=inputbox““,““七、输出语句Print 内容八、条件语句1、If 条件 then 语句2、If 条件 then 语句1 else 语句2或者：1、 If 条件 then语句End if2、 If 条件 then语句1Else语句2End if九、循环语句1、for 循环变量=初值 to 终值循环体Next 循环变量2、do while until 条件循环体Loop或者do循环体Loop while until 条件第一课时一、VB的简单介绍VB是visual basic 的简称,是一种可视化的程序工具; VB的界面介绍及相关控件和窗口的介绍：1、控件工具箱标签、文本框、按钮控件2、设计窗口3、属性窗口强调标签的caption、font属性,文本框的text属性,按钮的caption、font 属性4、代码窗口二、程序的初步尝试编写1、设计界面2、进入代码窗口,编写如下程序：Private Sub Command1_ClickDim a,b,c as integera=text1.textb=text2.textc=abtext3.text=c或者text3.text=text1.texttext2.textEnd Sub3、运行程序单击“运行”——“启动”4、对程序进行调试,查看运行结果5、思考：对程序进行修改,将“”修改为“-”或者“/”后运行程序;若修改为“+”呢;第二课时一、数据类型1、integer 整型只能够表示-32768——32767之间的整数;——3、single 单精度实型可以用来表示小数4、string 字符型例如：”zhongguo”,”中国”,”123456”案例1：求1×2×3×……×10的值;Private Sub Command1_ClickDim i As integerDim s as integers = 0i = 1For i = 1 To 10s = s iNext iPrint sEnd Sub案例2：求圆的面积Private Sub Command2_ClickConst pi As Single = 3.14Dim r As SingleDim s As Singler = InputBox"r="s = pi r rPrint "圆的面积s="; sEnd Sub二、运算符1、算术运算符^乘方、、/、\整除、mod取余、+、-2、关系运算符>、>=、<、<=、=、<>3、字符运算符&、+4、逻辑运算符Not 、and、 or案例：若a=5,b=7,c=-2,d=1,求下列式子的结果a+b>c+d and a>=5 or not c>0 or d<0 三、函数Sqrx x的平方根Absx x的绝对值Intx 不大于x的最大整数int-4.5结果是-5int4.5结果是4Fixx 取整Fix4.5 结果是 4Fix-4.5 结果是 -4Cintx/clngx 四舍五入取整四、表达式例题：a=1,b=3,c=2,求x1=a acb b24 2-+-,x2=a acb b24 2---的值;X1=-b+sqrb^2-4ac/2aX2=-b-sqrb^2-4ac/2aPrivate Sub Command1_Clicka = 1b = 3c = 2X1 = -b + Sqrb ^ 2 - 4 a c / 2 aX2 = -b - Sqrb ^ 2 - 4 a c / 2 aPrint X1Print X2End Sub第三课时程序的顺序结构一、赋值语句赋值语句的基本格式：变量=表达式这里“=”是赋值符号,它的含义是将表达式的值赋给左边的变量二、输入函数格式： inputbox提示信息,标题,默认值,位置例如：Private Sub Command1_ClickA = InputBox"A=", "输入", 12, 100, 20End Sub三、输出函数格式： print 输出内容说明：1、如果输出的内容是数、变量、表达式,则输出的是它们的值;如果是用引号引起来的字符串,则原样输出;2、输出内容可以是一个或多个;如果是多个,则输出内容之间可以用逗号或分号分隔；如果用分号,则后面一个输出紧跟前一个输出；如果是逗号,则按照分区格式输出;3、如果输出内容后面没有符号,则表示下一个PRINT换行输出；如果Print中没有输出内容,则表示输出一个空行;案例1：书本第38页Private Sub Command1_Clicka = ValInputBox"a=", "输入"b = ValInputBox"b=", "输入"Max = a + b / 2 + Absa - b / 2Print "Max="; MaxEnd Sub案例:2：已知长方体的长宽高,求长方体的全面积和体积;Private Sub Command1_Clicka = InputBox"a="b = InputBox"b="c = InputBox"c="s = 2 a b + a c + b cv = a b cPrint "全面积S="; s, "体积v="; vEnd Sub第四课时程序的选择结构一、条件语句的格式1、If 条件 then 语句2、If 条件 then 语句1 else 语句2或者：1、 If 条件 then语句End if2、 If 条件 then语句1Else语句2End if案例1：比较a 和b 的大小,并输出最大的值;Private Sub Command1_Clicka=inputbox“a=”b=inputbox“b=”if a> b thenprint “a=”;aelseprint “b=”;bend ifEnd Sub案例2：某商场为了对苹果进行促销,规定购买2千克以上可以在原价每千克1.5元的基础上打8折;请设计一个程序计算购买x千克苹果的应付款;Private Sub Command1_ClickX=inputbox“x=”,”请输入苹果的重量”If x>2 thenY=1.50.8xElseY=1.5xEnd ifPrint “苹果的应付款为”;y;”元”End Sub第五课时程序的循环结构循环结构的格式1、for 循环变量=初值 to 终值循环体Next 循环变量2、do while until 条件Loop或者do循环体Loop while until 条件案例1：求1+2+3+……+100的值Private Sub Command1_ClickDim I as integerDim s as integerS=0For i=1 to 100S=s+iNext iPrint “s=”;sEnd Sub案例2：已知s=1+2+3+……+n,找出一个最大的整数n,使得s<30000.编写程序解决这个问题Private Sub Command1_Clickn=0S=0Do while s<30000S=s+nLoopPrint n-1End SubDO循环语句四种形式的比较案例：判断一个大于2的自然数M是否是素数,如果是素数,则输出“这是一个素数”,否则输出“这不是一个素数”Private Sub Command1_ClickDim M as integer, I as integerM=Inputbox“输入一个数：”I=2Do until M mod I=0 or i=M-1I=I+1LoopIf M mod I=o thenPrint M;”不是素数”ElsePrint M;”是素数”End ifEnd sub循环的嵌套Private Sub Command1_ClickDim se As StringPrint Tab35; "乘法表"For I = 1 To 9For j = 1 To 9se = I & "×" & j & "=" & I jPrint Tabj - 1 9; se;Next jNext IEnd Sub。

2016vb试题及答案一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是（）。

A. DimB. DeclareC. FunctionD. Sub答案：A2. 下列哪个选项不是VB中的控件事件（）。

A. ClickB. LoadC. OpenD. KeyPress答案：C3. VB中，用于结束一个程序的语句是（）。

A. EndB. ExitC. CloseD. Quit答案：A4. 在VB中，用于创建一个数组的语句是（）。

A. Dim arr(10) As IntegerB. Declare arr(10) As IntegerC. Function arr(10) As IntegerD. Sub arr(10) As Integer答案：A5. VB中，用于读取文件内容的函数是（）。

A. ReadB. WriteC. OpenD. Close答案：A6. VB中，用于在文本框中显示文本的属性是（）。

A. TextB. CaptionC. NameD. Value答案：A7. VB中，用于循环执行一段代码的语句是（）。

A. DoB. LoopC. ForD. While答案：C8. VB中，用于判断条件是否满足的语句是（）。

A. IfB. ElseC. Select CaseD. Switch答案：A9. VB中，用于定义一个函数的关键字是（）。

A. FunctionB. SubC. DimD. Declare答案：A10. VB中，用于定义一个过程的关键字是（）。

A. FunctionB. SubC. DimD. Declare答案：B二、填空题（每题2分，共20分）1. VB中，用于声明常量的关键字是（）。

答案：Const2. VB中，用于定义一个类模块的关键字是（）。

答案：Class3. VB中，用于定义一个模块的关键字是（）。

答案：Module4. VB中，用于定义一个用户自定义类型的关键字是（）。

课程作业第一章VB基础知识1 填空题（1）在代码中设置属性，格式为。

（2）调用对象方法的格式为：。

（3）VB中的控件有三种类型，分别是。

（4）窗体文件的扩展名为。

（5）当完成完成的全部文件后，通过编译工程可以将此工程转换成。

（6）在窗体上复制控件，如果复制的控件名称相同，系统会出现一个是否创建的对话框。

2 编程题（1）窗体上放置一个标签，通过单击窗体，使标签内容改变为“窗体被单击”，双击窗体时，标签内容为“窗体被双击”（2）编写一个程序，要求用单击命令按钮要显示或隐藏标签或文本框。

第二章VB语言基础1 填空题（1）VB中有两种类型的字符串；分别是变长字符串与。

（2）定义aa 为一个10个字符的字符串，使用语句。

（3）对象变量赋值，必须使用关键字。

（4）要强制使用变量声明，使用语句。

（5）使用语句声明公有的模块级变量。

（6）为了建立建立应用程序都有效的变量，应该在进行变量声明。

（7）在VB中，对于没有声明的变量，其默认的数据类型是。

（8）如果今天是星期五，那么print weekday(now())输出的结果是。

（9）输入对话框inputbox的返回值的数据类型是：。

（10）msgbox 函数提供了3个参数，它们是。

2 写出下列表达式的值（1）（2+8*3）/2 （2）3^2+8（3）#11/22/06# -10 （4）”zyx”&”123”&”abc”3 写出下列函数的值（1）int(-3.14159)（2）sqr(64)（3）fix(-3.14) （4）ABS(-50.76)（5）VAL(“A123”) （6）Format(Str(123.567), "0.00")（7）LEFT(“HELLO”,2) （8）LEN(“远程教育”)4 如果X是正实数，对X的第4位小数四舍五入的表达式是（）（1）0.001 * Int(1000 * (x + 0.0005)) （2）0.01 * Int(100 * (x + 0.005))（3）0.001 * Int( (x + 0.0005)) （4）0.001 * Int (x + 0.005)第三章顺序结构程序设计1 填空题（1）使用方法可以将信息直接输出到窗体或者picturebox中。

习题一一、简答题1. 简述VB的特点。

2. 安装Visual Basic系统程序应具备什么条件？3. 启动Visual Basic有几种方法？4．退出Visual Basic有几种方式？5．什么是对象？什么是类？简述它们之间的关系。

6．VB环境有哪些部分组成？7．VB有几种工作模式？8．属性窗口由哪几个部分组成？9．设置属性有哪些方法？10．简述Visual Basic应用程序的建立步骤。

11．Visual Basic应用程序中有哪些文件？12．Visual Basic的对象有哪三要素？13．VB应用程序的执行步骤是什么？14．Visual Basic应用程序中有哪几种类型的错误？二、填空题1. Visual Basic是一种面向的可视化程序设计语言，采取了的编程机制。

2. 在VB集成开发环境中，运行应用程序的方法有两种是：或。

3．Visual Basic的对象主要分为和两大类。

4. 在Visual Basic中，用来描述一个对象外部特征的量称之为对象的。

5. 在Visual Basic中，设置或修改一个对象的属性的方法有两种，它们分别是和。

6. 在Visual Basic中，最基本的对象是。

7. 在Visual Basic中，默认窗体名为，默认工程名为。

8. 若用户单击了窗体Form1，则启动的事件名为。

9. 调用方法的具体调用格式为。

10．在代码中设置对象属性的格式为。

三、单项选择题1. 窗体的标题栏显示内容由窗体对象的属性决定。

A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。

A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。

A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。

Vb选择题知识点辨析：https://ks.sojump.hk/jq/7920293.aspx一、常量：1、数值常量：表示数字，如3568，0 ，-6.2356 ，25648952.232、字符常量：用””作为分隔符，如” abcd”，“324”，” 36+54”等等，双引号是英文半角3、逻辑常量：true、false4、日期型常量: #月-日-年#或#年-月-日#，用“#”作为分隔符，内部可用“-”或“/”符号。

比较大小时按年、月、日顺序比较，数字越大值越大，如 #2013-4-1# > #2013/1/31#，#2013-4-1# - #2013-3-31#=15、定义常量: const pi as single =3.14 此时pi为常量而不是变量，值为3.14 ，常量pi在程序运行中值不会变化。

如以下程序运行，系统将提示“不能给常量赋值”Private Sub Command1_Click()Const pi As Single = 3.14pi = 3.14159Print pi二、变量：1、变量名规则：以字母开头，后面跟上字母、数字、下划线，如 abc_342a，注意，VB中已经使用的保留字如：IF DIM END + = - 不能作为变量名。

2、定义变量： dim 变量名 as 类型，如 dim a_1 as single3、变量类型：dim 变量名 as 类型，如 dim a_1 as single。

整型integer，长整型long，单精度实型single，字符型string ，布尔型（逻辑型）boolean，日期型date。

1）整型：integer，在内存中占2字节，只能表示的数的范围为-32768 ~ 32767，如30333 ,超过范围则出错，需定义为长整型。

2）长整型：long，在内存中占4字节，只能表示的数的范围为-2147483648 ~ 147483647 ，如333333,超过此数范围的只能定义成single或double，一般double不常用。

一、判断题1.属性是Visual Basic对象性质的描述，对象的数据就保存在属性中。

2.控件的属性值不可以在程序运行时动态地修改。

3.许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。

4.所谓保存工程，是指保存正在编辑的工程的窗体。

5 .面向对象的程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。

6.为了使一个控件在运行时不可见，应该将该控件的Enabled属性设置为False07.保存Visual Basic文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。

8.事件是由Visual Basic预先定义的对象能够识别的动作。

9.方法是Visual Basic对象可以相应的用户操作。

10.窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。

11.山Visual Basic语言编写的应用程序有解释和编译两种执行方式。

12.在打开一个Visual Basic工程进行修改后，要另存为一个版本，只需单击“工程另存为...”就行，因为系统将同时保存其他文件。

13.当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate事件.二、选择题1.要使某个控件不可操作，要对属性进行设置。

A、EnabledB、VisibaleC、CaptionD、Name2.下列不属于对象的基本特征的是oA、属性B、方法C、事件D、函数3.当运行程序时，系统自动执行启动窗体的事件过程。

A、ClickB、LoadC、DblClickD、Unload4.Visual Basic中“程序运行”允许使用的快捷键是。

A、F2B、F5C、Alt+F3D、F85.改变控件在窗体中的左右位置应修改该控件的属性。

A> Top B、Left C、Width D、Right6.工程文件的扩展名为oA、.exeB、.basC、.frxD、.frm7.在Visual Basic中，称对象的数据为=A、属性B、方法C、事件D、封装8.下列选项中不属于属性的是=A、NameB、CaptionC、ShowD、Text9.将Visual Basic编制的程序保存在磁盘上，至少会产生何种文件。