vb教程参考答案

课本第3章习题参考答案（第100页）

1. 输入梯形的上边长、下边长及高度，计算梯形的面积并输出。要求使用InputBox 函数输入，使用Print方法输出。

2. 输入小时、分、秒，将它们换算为秒，然后输出。要求使用文本框分别输入，使用标签输出。

3. 输入直角三角形的两个直角边，输出其斜边、周长和面积。要求使用InputBox函数输入，使用Print方法输出。

4. 输入4课成绩，输出总成绩和平均成绩。通过InputBox 函数输入数据，使用消息框MsgBox 进行输出。

6.

编写程序，输入x,输出如下分段函数y 的值。

10. 编写程序，输入n ，计算1 + 2 + 3 + … + n 的和。

3x+2, x<0

0，

x=0

2x-1, x>0

11. 编写程序计算11+ 22 +33 + 44 + …+ 1010的和。

12. 编写程序，输入10个同学的成绩（0～100），输出最高成绩和最低成绩。

13. 编写程序，输出100以内的素数。

14. 输入若干个学生的成绩，统计其中90分以上、70～89分、60～69分、小于60分的人数并输出。当输入的成绩小于0时结束输入。

16. 用矩形法求指定区间内函数f (x)的积分 1

)(dx

x f ，其中发f (x) =1 + sin (x)。

17. 输入任意一个字符串，将其逆序后输出，例如，输入的字符串为“abcde”，则输出为“edcba”。

18. 输入任意一一个字符串，分别统计其中字母A、E和Z的个数，不区分大小写。

课本第4章习题参考答案（第136页）

1. 编写程序，将2，4，6，…，18，20共10个数据赋予一个数组，然后将各数组元素按相反顺序输出。

2. 输入10个学生的成绩，计算总分与平均分。

3. 输入10个学生的成绩，输出最高分和最低分。

5. 编写程序，将长度为5的一维数组中的数组元素循环右移动一个位置，最后一个元素移到第一个元素位置上。例如，若数组元素各个值为1，2，3，4，5，则移动后的值为5，1，2，3，4。

6. 编写程序，为一个3×4 的二维数组输入任意整数，然后计算该二位数组中所有数组元素之和及平均值。

7. 编写程序，为一个3×3的二维数组输入任意整数，之后输出最大值及其行号和列号。

10. 利用动态数组，输入学生人

数n，然后输入n个学生的学号

和一门课程的成绩，进行如下计

算：

1) 计算该门课程的总分和平均

分。

2) 求出最高分、最低分并显示对

应的学号。

3) 输出超过平均分的学生的学

号和成绩。

课本第5章习题参考答案 （第162页）

1. 编写程序，求s=A! + B! +c!，其中A 、B 、C 分别由3个文本框输入，阶乘的计算分别用sub 子过程和函数过程两种方法实现。

sub 子过程 函数过程

2. 编写函数

主程序中调用函数计算

3. 编写函数完成f (n) =1 x 2 + 2 x 3 +3 x 4 + …+ n x (n + 1)的运算，n为任意一个整数。

4. 试编写一函数实现闰年的判断，形参为任一年数，如为闰年，函数返回结果为True，否则返回结果为False。（能被4整除且不能被100整除或能被100整除且能被400整除的年份是闰年）

vb实验教程答案

第一章 答案： 一、单项选择题 1.B 2. C 3. D 4.D 5.D 6.D 7.D 8.C 9.B 10.B 11.A 12.D 13.B 14.C 二、判断题 1.T 2.T 3.F 4.F 5.F 6.T 7.T 8.T 9.T 10.T 11.T 第二章 一、单项选择题 1. B 2. D 3. A 4. D 5. B 6.A 7. D 8. D 9. D 10. A 11. A 12. A 13. C 14. C 15. A 16. C 17. A 18. D 19. A 20. D 21. B 22. C 23. B 24. A 25. B 26. A 27. C 28. D 29. D 30. B 31. C 32. D 33. B 34. C 35. C 36. C 37. C 38. D 39. C 40. A 41. D 二、判断题 1. True 2. True 3. False 4. False 5. False 6. False 7. False 第三章 一、单项选择题 1.A 2.D 3.D 4.B 5.B 6.D 7.C 8.D 9.B 10.B 11.D 12.D 13.C 14.D 15.A 16.C 17.B 二、判断题 1.T 2.F 3.T 4.T 5.F 6.F 7.F 8.F 9.F 10.F 11.T 12.F 13.F 14.T 15.F 16.T 17.T 18.F . 第四章 一、单项选择题 1.D 2.A 3.C 4.C 5.B 6.C 7.B 8.B 9.C 10.B 11.A 12.A 13.B 14.C 15.C 16.D 17.A 18.D 19.B 20.A 21.D 22.B 23.A 24.D 25.D 26.B 27.D 28.A 29.D 30.A 31.D 二、判断题 1.F 2.T 3.F 4.F 5.T 6.F 7.T 三、操作题 1.参考代码： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer Dim sum As Integer For i = 2 To 10000 sum = 0 For j = 1 To i / 2 k = i Mod j If 0 = k Then sum = sum + j End If Next j

vb程序设计实验教程习题答案

实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5

（3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③

VB程序设计教程(第3版)课后实验答案最新版2

1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5

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 BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案

一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、 ASCII、1、2 4、 public、通用、Dim、Static、Private、Static 5、 &、+、+ 6、 Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（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))

VB课后实验6答案

实验6 数组 6-1 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10) As Integer, t As Integer Print "交换前数据：" For i = 1 To 10 a(i) = ……‘生成20-80之间的随机数 Print ……;‘注意这里用分号，表示在一行上紧密输出各数组元素的值， ‘如不用分号和逗号，则分行输出各数组元素的值。 Next i Print ‘输出空行,表示后面的输出换到新的一行。 For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换（第一' 个和最后一个的交换，第二个和第九个的交换，以此类推） ‘以下实现数据交换，必须通过第三个变量实现两两数据交换 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next i Print "交换后数据：" ‘必须单独做循环输出数据，不能放在上面的循环里输出，因为上 面循环只有5次，只能输出5个元素。 For i = 1 To 10 Print ……; Next i End Sub 6-2 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, aver As Integer Dim max As Integer, imax As Integer Dim min As Integer, imin As Integer, sum As Integer Print "输入评委的评分" ‘①输入数组元素 For i = 1 To 10 a(i) =…… if a(i)<5 or a(i)>10 then ‘出错信息 ‘i控制变量作何处理？ endif

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 BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题

1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 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） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub

VB程序设计实验报告

《VB程序设计》实验报告 专业：信息管理与信息系统 班级：1502班 学号： 姓名： 日期：2016年12月20日

一、实验题目：记事本程序的设计 二、实验目的 1、掌握菜单编辑器的使用方法。 2、掌握菜单事件的编程方法。 3、初步掌握多窗体程序设计方法。 三、实验内容与步骤 1、实验内容：设计一个记事本程序。 2、界面设计（贴出对象属性表和界面设计图）。 ①在窗体frmPad上添加一个文本框text1，并根据下表修改窗体及控件属性。 对象窗体属性设置 对象名属性值 FrmPad Caption “记事本” Text1 MultiLine True ScrollBars 2-Vertical Text 清空 ②使用菜单编辑器在窗体上建立菜单：选中窗体frmpad后，单击“工具”菜 单的“菜单编辑器”命令，弹出“菜单编辑器“对话框，如下图所示。 ③根据下表设置菜单。 菜单设置 菜单项标题菜单项名称快捷键其他属性编辑mnuEdit ···剪切mnuCut Ctrl+X ···复制mnuCopy Ctrl+C ···粘贴mnuPaste Ctrl+V

文本风格mnuStyle ···粗体（&B）mnuBold "复选"属性为True ···斜体（&I）mnuItalic "复选"属性为True 弹出菜单popMenu "可见"属性为True ···剪切popCut ···复制popCopy ···粘贴popPaste 设计好程序窗体如下图所示。 菜单编辑器

界面设计 3、编写程序代码。 Private Sub Form_Load() Text1.FontSize = 16 Text1.Text = "Visual Basic程序设计" mnuBold.Checked = False mnuItalic.Checked = False End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" End Sub '复制

VB实验二 实验答案

实验报告二 实验目的 （1）掌握分支结构（if、if else、select case）语句 （2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句 （3）掌握循环嵌套结构 （4）掌握素数算法 （5）能综合运用循环控制结构解决较复杂的问题 实验内容 一、选择结构程序设计 【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求： ①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。 ②账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。 ③密码输入时，屏幕上不能显示输入字符，以“*”代替。 ④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。 ⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。 图3-2 密码检验运行界面图3-3 输入密码错误显示信息掌握简单if语句的使用 实验结果： 【请将你的代码粘贴到下面】

【请将你的典型结果的截图粘贴到下面】 【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分） ①当收入为200 元以内（含200元）时，免征； ②当收入为200 ~ 400 元（含400元）时，将超过200 元的部分纳税3% ； ③当收入为400 ~ 5000元（不含5000元）时，将超过400 元的部分纳税4% ； ④当收入为5000 元或5000元以上时，将超过400元的部分纳税5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求 纳税程序界面 掌握多分支if语句的使用，可自行用select语句改写。 实验结果： 【请将你的代码粘贴到下面】 【请将你的典型结果的截图粘贴到下面】 【实验3-3】猜数游戏 程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）

vb实验编程答案

实验教程 实验三顺序结构程序设计编程题参考答案（第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。 3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。 实验四选择结构程序设计编程题参考答案（第58页） 1. 输入一个，判断其是否能同时被3和7整除。 2. 输入三个数，输出其中的最大值。 6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值 7. B；20～29 为青年，输出B； 50 8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。实验五循环结构程序设计编程题参考答案（第77页） 1.编写程序，求s=1×2×3 + 2×3×4 + … + n×(n+1) ×(n+2)的值，n由程序输入。 Y=

2.有一个分数序列 ，求出这个序列前 20项的和。 3. 求∑= 10 1 ! n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…20，并输出。 2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。 3.输入5个学生的姓名与一门课程的成绩，按成绩的升序输出姓名和成绩。分别使用比较 ,... 13 21 , 8 13 , 5 8 , 3 5 , 2 3 , 1 2

VB程序设计教程 实验2答案

41011066付乾峰资源1103实验2 自测练习1，程序 Private Sub Command1_Click() Dim s s = Text1.Text Label1.Caption = Left(s, 2) End Sub Private Sub Command2_Click() Dim s s = Text1.Text Label2.Caption = Right(s, 2) End Sub Private Sub Command3_Click() Dim s s = Text1.Text Text1.Text = Label1.Caption & Label2.Caption End Sub 截图

自测练习2，程序 Private Sub Command1_Click() Dim m%, a%, b%, c%, d% m = V al(Text1.Text) a = m Mod 10 b = m \ 10 Mod 10 c = m \ 100 Mo d 10

d = m \ 1000 a = (a + 7) Mod 10 b = (b + 7) Mod 10 c = (c + 7) Mo d 10 d = (d + 7) Mod 10 Print "加密前的4位整数是" & m Print "加密后的结果是" & a & b & c & d End Sub Private Sub Command2_Click() End End Sub 截图 “我和校庆合张影，我给校庆送祝福”——北京科技大学学生公寓九斋活动策划

一、活动名称 “我和校庆合张影，我给校庆送祝福” ——北京科技大学学生公寓九斋活动 二、活动意义 1.在校庆前，表达九斋学员对北科60年校庆的祝福 2.展现九斋学子积极向上的精神风貌 3.加深学生与楼层长之间的友谊便于以后的管理 4.调动大家对校庆的热情与关注欲望 5.增进同学与同学之间的联系 活动地点及时间 地点：九斋一楼大厅校篮球场 时间：2011年3月20日-25日 三、活动对象 北京科技大学九斋公寓所有学生 四、内容： 1.活动时间推进表 时间任务

VB程序设计教程实验指导与习题解答上机答案

自测1 程序代码 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize + 3 End Sub Private Sub Command2_Click() Label1.FontBold = True End Sub Private Sub Command3_Click() Label1.FontUnderline = True End Sub Private Sub Command4_Click() Label1.FontSize = 10 Label1.FontBold = False Label1.FontUnderline = False

— End Sub 初始窗口： 单机放大之后窗口： 单机下划线之后窗口：

单击加粗之后窗口： 单击还原之后窗口：

自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口：

单击显示之后窗口：

—单击交换之后的窗口： 自测题3 Private Sub Command1_Click() Label1.FontSize = Label1.FontSize * (0.5) End Sub Private Sub Command2_Click() Label1.Top = Label1.Top + 30 Label1.Width = Label1.Width + 20 Label1.Alignment = 1 End Sub

(完整版)VB程序设计实验报告

湖北文理学院 VB程序设计课程实验报告 学院物电学院 专业自动化 班级 1211 学号

姓名王亮 任课教师王福林 实验一、VB控制结构 一、实验目的 1.掌握选择语句的使用 2.掌握循环语句的使用 二、实验内容 1、选择语句 程序1：创建应用程序。要求：单击窗体可弹出输入框，任意输入三个数，然后按从小到大的顺序输出到窗体上。 程序2：创建应用程序。要求：单击窗体可弹出一输入框，任意输入一个正整数，在窗体上显示该整数是否为素数的字样。 2、循环语句 程序3：创建应用程序。要求：单击窗体可显示一个由“*”组成的平行四边形图案。 程序4：创建应用程序，其功能是显示所有的水仙花数。 三、实验记录 程序1如下： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, t As Integer '

定义a,b,c,t为整形变量 Cls '清屏 a = Val(InputBox("请输入第1个数：")) '给a赋值 b = Val(InputBox("请输入第2个数：")) '给b赋值 c = Val(InputBox("请输入第3个数：")) '给c赋值 If a > b Then t = a: a = b: b = t '如果a>b，把a的值赋给t，b的值赋给a，t的值赋给b If b > c Then '嵌套，如果b>c t = b: b = c: c = t '把b的值赋给t，b 的值赋给c，t的值赋给c If a > b Then '再次嵌套，如果a>b t = a '把a的值赋给t a = b 'b的值赋给a b = t 't的值赋给b End If End If Print a; "、"; b; "、"; c '输出 a "、"b;"、"; c End Sub Private Sub Command2_Click() End '退出程序 End Sub 程序2如下： Private Sub Command1_Click() Dim i As Integer, k As Integer, n As Integer '定义整形变量

vb程序设计实验指导习题答案

P178 五 1 Private Sub Form_DblClick() '双击窗体时，通过InputBox输入n，求1/2+1/2^2....+1/2^n Dim n As Integer n = InputBox("输入n的值：") For i = 1 To n s = s + 1 / 2 ^ i Next Print "1/2+1/2^2+...+1/2^" & n & "=" & s End Sub P185五 Dim a(9) As Integer Private Sub Command1_Click() '在文本框显示10个两位随机整数，逗号分隔 Text1.Text = "" For i = 0 To 9 a(i) = Int(Rnd * 90 + 10) Text1.Text = Text1.Text & a(i) & "," Next i Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub Private Sub Command2_Click() '消息框显示最小值 m = a(0) For i = 1 To 9 If a(i) < m Then m = a(i) Next MsgBox "10个数的最小值为：" & m End Sub Private Sub Command3_Click() '消息框显示最大值 m = a(0) For i = 1 To 9 If a(i) > m Then m = a(i) Next MsgBox "10个数的最大值为：" & m End Sub Private Sub Command4_Click() '消息框显示平均值 For i = 0 To 9 m = m + a(i) Next MsgBox "10个数的平均值为：" & m / 10 End Sub P169 2 P169 3 Private Sub Command1_Click() Label1.Top = Label1.Top - Label1.Height / 2 Label1.Height = Label1.Height * 2 Label1.Left = Label1.Left - Label1.Width / 2 Label1.Width = Label1.Width * 2 Label1.FontSize = Label1.FontSize * 2 End Sub P169 4 Private Sub VS1_Change() Text1.Text = VS1.V alue End Sub Private Sub VS1_Scroll() Text1.Text = VS1.V alue End Sub P169 5 Private Sub Command1_Click() For i = List1.ListCount - 1 To 0 Step -1 List2.AddItem List1.List(i) Next i List1.Clear End Sub

VB实验教材习题答案 (1)

第1章VB集成环境与VB概述一、选择题 第2章常用控件与界面设计一、选择题

第3章数据、表达式与简单程序设计一、选择题 第4章选择分支与循环 一、选择题 二、填空题 1．5 7 13 12 14 11 2. 3 1 5 3 4 1 3. right(a$,i) 4. 4 5. 6-i 6. 6 11 10 21 13 34 7. 5 14 13 8. Is else end select

9. a*(2*i-1)*(-1)*x/(2*i+2) i+1 10. 0 n-1 11. 1 t*(-1)*x^2/((2*k-1)*(2*k)) Abs(t)>eps 12. count1=count+1 count1>0 13. sum=0 sum+j st & k & “+” 14. 9 x 三、编程题 1. Option Explicit Private Sub Command1_Click() Dim s As String, i As Integer, ch As String * 1 Dim a As Integer, b As Integer, c As Integer s = Text1.Text For i = 1 To Len(s) ch = Mid(s, i, 1) If (ch >= "0" And ch <= "9") Then a = a + 1 ElseIf (ch >= "A" And ch <= "Z") Or (ch >= "a" And ch <= "z") Then b = b + 1 Else c = c + 1 End If Next Print "数字个数"; a Print "字符个数"; b Print "其他字符"; c End Sub 2. Option Explicit Private Sub Command1_Click() Dim i As Integer, n As Integer Dim a As Integer, b As Integer, c As Integer For i = 1 To 50 n = Int(Rnd * 90 + 10) Print n; If i Mod 10 = 0 Then Print If n <= 40 Then a = a + 1 ElseIf n <= 70 Then b = b + 1 Else

vb程序设计教程(第2版)实验1

Private Sub Comma nd1_Click() Labell.Ca ption ="我们这学期学习的 VB" End sub Private Sub Comma nd1_Click() Label1.Visible = True End Sub Private Sub Comma nd2_Click() Label1.Visible = False End Sub Cj Ifll ■ Mnnt IFomfl 7愛画 ft* ?在开始上课 J 同a JI?p fiaiLi Sa(M IftPJ 回0 AGd it5l￡) nU) Bm uitp WCUfl ?理 - n - "SI D - ? ni ■ '■話訊關 di CtM?J h 騷 A 阖 VS ? CnrrTTund^ E^BBaJhal I ■ esff I rw JT 沁讥 V a^JBWWWf. gjL Fdu- 丄r-… Di? dill Trai >tJuIr rdu- k^rlirhn-i (Horrij □ku -'l L*?J ? 0 - I UB J. Wl Tra h->fM *1$ S 如口 2 0 Icdii jrh I M K I L ET fcudtz 靳■Eur ?i MWT UT M .H I 'iiLlft/a >—L L F-I -L I □-MwLum- ■Kcu -J 0 - hfRllL D - hu Qkul ■ -T-- rHh 強 工S ： -Mgw 片―刖HlfckWtl Jl+ttn iiA|￡-i 疤凹 IftPJ Ac 曲 断園 BW? Uip WCfflO ■阙 卑-匕-F 口 E JL 码【■亡--* II)■ 时Ef 卩 甘整闫Jfa 竝皿1?4 跖 GtMnJ "T E A IS1 i “= E Q _l ? e ■■■ 谊埔入密码 ■iTextl )-M 期 追出(\1_ |T ?rid Tq ?if■ trtSB ||4MU ；B I U ?^H ?hL ^p^vun :■KhCdLir JLrdLj. :■HiRa"iIi dill Tm :WULdU 卜+[t ?? hib D - I □utLril Tiv IT-UI ] ■ D - !_■" JdhI r ■ -utiHKCOw- 'ta-URLicLi n griL Ir^ Udi LiCkZg 4>?r ?i LICV ra a ,

vb程序设计教程课后答案与实验题答案 (第三版)

习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。 类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。 VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。

VB课本各个实验课后题答案

实验3 3-2el Private Sub Command1_Click() Dim n% n = Abs(Val(Text1)) Label2 = Format(n ^ 2, "#.000") & Space(2) & Format(Sqr(n), "#.000") & Space(2) & Format(n ^ 3, "#.000") & Space(2) & Format(n ^ (1 / 3), "#.000") End Sub Private Sub Form_Load() End Sub 3-3 Private Sub Command1_Click() Dim x%, y% x = Int(Rnd * 900 + 100) Print "产生的随机数："; x y = (x Mod 10) * 100 + (x \ 10 Mod 10) * 10 + x \ 100 Print "反序数："; Format(y, "000") End Sub Private Sub Command2_Click() Dim x%, y As String x = Int(Rnd * 900 + 100) Print "产生的随机数："; x y = Trim(Str(x)) Print "反序数：" & Right(y, 1) & Mid(y, 2, 1) & Left(y, 1) End Sub Private Sub Form_Load() End Sub 3-4 Private Sub Command1_Click() Dim m%, n% Randomize m = Val(Text1): n = Val(Text2) x = Int(Rnd * (n - m) + m) y = Int(Rnd * (n - m) + m) z = Int(Rnd * (n - m) + m) Label3 = m & "到" & n & "之间的3个随机数为: " & x & Space(3) & y & Space(3) & z End Sub

vb实验编程答案

欢迎阅读 实验教程 实验三 顺序结构程序设计编程题参考答案 （第47页） 1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox 分别进行输入，使用Print 方法输出。 2. 输入圆的半径，输出其周长、面积。要求使用TextBox 控件进行输入，使用Label 3. 实验四1. 2. 6. 7. ；20～29508. 实验五1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输入。 2.有一个分数序列 ，求出这个序列前20项的和。 3. 求∑=10 1!n n （即1！+2！+3！+…+10！） 4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这 , (13) 21,813,58,35,23,12

些数并统计个数。 5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13 6. 打印如图所示的乘法表 （第 1.8、 (20) 2. 3.输入 4. 输出

5. 输入5×5的矩阵，求出每列元素之和，并把和值最大的那一列上的各元素和第一列各元素进行对调。 7. 输入十个学生的三门课程的成绩，并进行如下操作。 (1) 计算并输出每门课程的平均分。 (2) 输出每门课程中的最高分与最低分。 (3) (4) 实验七动态数组、控件数组与自定义类型的数组编程题参考答案（第10页） 6. 自定义学生类型，包括学生姓名、学号和成绩，输入学生人数n，并输入学生的信息，按成绩进行降序排序后输出。程序界面设计如下图。 实验七过程编程题参考答案（第123页）

vb程序的设计教程龚沛曾版课后答案

1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的部实现细节对用户来说是透明的。VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。 事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。 (10) MouseIcon属性：在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。 3.窗体的事件：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。 窗体的方法:（1）Print方法 用来显示文本容，格式：[对象.]print 表达式 （2）Cls方法 清除运行时在窗体或图形框中产生的文本或图形, Cls方法不能清除窗体在设计时的文本和图形。 格式：[对象.]cls （3）Move方法