当前位置:文档之家› VB实验八

VB实验八

VB实验八
VB实验八

第八次上机题目

【实验目的】

掌握二维数组的简单应用

掌握动态数组的基本应用

【复习】:

1.二维数组元素的定义和赋初值

用两重循环和inputbox函数:

dim a%(1 to 3,1 to 3)

For i = 1 To 3

For j = 1 To 3

A(I,j) =Val(InputBox("输入a(" & i & "," & j & ")的值")) Next j

Next i

用两重循环和随机函数rnd :

dim a%(1 to 3,1 to 3)

For i = 1 To 3

For j = 1 To 3

A(I,j) =int(100*rnd)

Next j

Next i

2.二维数组的输出

For i = 1 To 3

For j = 1 To 3

Print A(I,j);

Next j

Print

Next i

3.动态数组的赋值Dim a()

A=array(1,3,5,7,9) 4.一维数组元素的输出For each x in a

Print x;

Next x

【实验内容】

在Z盘新建一个“实验八”文件夹。然后在此文件夹下新建七个文件夹,分别命名为“第1题”,“第2题”,……,“第7题”。

1、参考例4.14,打印任意多行的杨晖三角,要求在窗体上添加一个文本框控

件和标签控件,用来输入杨辉三角的行数,单击命令按钮产生杨辉三角并打印在窗体上。用动态二维数组实现。如下图:

杨辉三角:第1列和对角线上的元素为1,其余元素为上1行前1列的元素和上1行同1列的元素之和

2、把一个给定的数插入到有序数组中,插入后的数列仍然有序。其中,有序数

组由Array函数赋值。注意该函数的下标默认从0开始。

3、生成若干个0~99之间的整数存于数组a中,删除指定位置的元素,并显示

删除前、后结果。其中数组个数和删除元素的位置通过InputBox函数输入。

要求使用动态数组完成。

4、例4.20 P127,使用Split函数来产生数组,排序方法用选择法或冒泡法。

5、程序设计题10。

6、程序设计题13。

7、打印如下学生成绩:定义一维数组a,存放学生名单;定义一维数组b,存

放成绩表表头(即字段名);定义一个二维数组,存放10个学生4门功课的成绩及平均分。单击窗体,打印成绩表在窗体上。打开sy8-8.vbp,根据给出的代码补充语句完整。

数组中常见错误和注意事项

1.错误: 静态数组声明下标出现变量,例如:

n = InputBox("输入数组的上界")

Dim a(1 To n) As Integer

2.错误:数组下标越界

引用的下标比数组声明时的下标的范围大或小。

Dim a(1 To 30) As Long, i%

a(1) = 1: a(2) = 1

For i = 2 To 30

a(i) = a(i - 2) + a(i - 1) ; a(0)不存在

Next i

Print a(i) ; 错,i=31,a(31) 不存在

3.数组维数错

数组声明时的维数与引用数组元素时的维数不一致。

Dim a(3, 5) As Long

a(i)=10 ;错,a是二维数组,不能用一维数组形式引用a 4.Aarry函数使用问题:只能对Variant 的变量或动态数组赋值。

5.可用Ubound、Lbound函数获得数组的上界、下界

VB实验报告

VB实验报告 实验一、VB控制结构 [实验目的] 1.掌握选择语句的使用 2.掌握循环语句的使用 [实验内容] 一、VB编程基础 练习:在应用程序的代码窗口中分别输入以下四段代码,当程序运行 时在窗体上单击,分别会发生什么情况,为什么? ①Private Sub Form_Click() I = 10 Print I End Sub ②Private Sub Form_Click() Dim I% I = 10 Print I End Sub ③Option Explicit Private Sub Form_Click() I = 10 Print I End Sub ④Option Explicit Private Sub Form_Click() Dim I% I = 10 Print I

End Sub 第一个程序运行的结果是: 点击一次窗体便会出现一个“10” 第二个程序的运行结果是: 也是点击一次窗体出现一个“10” 第三个程序运行的结果是:无法运行,显示变量未定义第四个程序运行的结果是:

在应用程序的代码窗口中分别输入以下两段代码,当程序运行时在窗体上反复单击,分别会发生什么情况,为什么? Private Sub Form_Click() Dim n As Integer n = n + 1 Print n End Sub Private Sub Form_Click() Static n As Integer n = n + 1 Print n End Sub 第一个程序运行结果是: 第二个程序运行的结果是:

二、选择语句 程序1:创建应用程序。要求:单击窗体可弹出输入框,任意输入三个数,然后按从小到大的顺序输出到窗体上。 Private Sub Text1_Change() Dim X1 As Single, X2 As Single, X3 As Single, Temp As Single '定义x1,x2,x3,temp X1 = CSng(InputBox("请输入第1个数:", "输入数据")) '弹出请求输入数据x1的文本框 X2 = CSng(InputBox("请输入第2个数:", "输入数据")) '弹出请求输入数据x2的文本框 X3 = CSng(InputBox("请输入第3个数:", "输入数据")) '弹出请求输入数据x3的文本框 If X1 > X2 Then Temp = X1: X1 = X2: X2 = Temp '比较x1,x2,若x1大于x2将两值交换 End If If X1 > X3 Then Temp = X1: X1 = X3: X3 = Temp '比较x1,x3,若x1大于x3将两值交换 End If If X2 > X3 Then Temp = X3: X3 = X2: X2 = Temp '比较x2,x3,若x2大于x3将两值交换 End If Print: Print Print "输出结果:" ’在屏幕上输出“输出结果:” Print Print x1,x2,x3 ’在屏幕上输出x1,x2,x3 End Sub

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实验报告8

台州学院 《VB程序设计》实验报告实验八:图形的绘制 班级:14制药3班 学号: 姓名: 实验日期:2015.6.5

一、实验目的和要求 1.掌握Visual Basic 容器坐标系的设计方法; 2.熟练掌握Pset、Line和Circle方法的格式及其使用; 3.掌握与图形有关的常用属性,方法。 二、实验主要仪器和设备 计算机一台,Windows XP / Win7操作系统,Visual Basic环境。 三、实验内容 实验8.1 下列程序运行时,先输入各公司月销售额,然后单击命令按钮,图片框中将显示各公司销售额的圆饼图(如图8-1所示)。要求:在文本框中只能输入数字字符;在圆饼图中分别用红、绿、篮色显示A、B、C公司的扇区填充色。 图8-1 程序运行时的界面 四、实验原始纪录 实验8.1 程序的界面设计。

程序代码。 Const pi = 3.1415926 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, d As Integer a = Text1.Text b = Text2.Text c = Text3.Text d = a + b + c Picture1.FillStyle = 0 Picture1.FillColor = vbRed Picture1.Circle (2000, 2000), 1000, vbBlack, -2 * pi, -(a / d) * pi * 2 Picture1.FillColor = vbGreen Picture1.Circle (2000, 2000), 1000, vbBlack, -(a / d) * pi * 2, -((a + b) / d) * pi * 2 Picture1.FillColor = vbBlue Picture1.Circle (2000, 2000), 1000, vbBlack, -((a + b) / d) * pi * 2, -pi * 2 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub 五、实验结果及分析 实验8.1运行结果。

VB实验报告一

本科实验报告 课程名称:人机界面程序设计基础 实验项目:一、VB环境和可视化编程基础实验地点: 专业班级:学号: 学生姓名: 指导教师:李何 年月日

一、实验目的和要求 1、掌握启动与退出Visual Basic的方法。 2、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。 3、掌握定义变量、常量的方法;了解运算符和表达式的使用;熟悉内部函数。 4、掌握基本控件的应用。 二、实验内容和原理 1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。 提示:使用Form_Click事件;文本框计数Text1=Val(Text1)+1。 2、使用Print方法,掌握“,”和“;”的区别;以及Spc(n)函数、Tab(n)函数、属性Current X和Current Y的定位输出。 3、编写一程序,在标签上实时显示系统时间,系统时间要求00:00:00AM/PM格式 提示:使用Timer控件、Format函数和Now函数。 4、对教材上例4-13进行改动,用输入框函数完成输入,用消息框函数显示结果。 5、使用Len()函数、LenB()函数、Rnd函数和Randomize语句、Shell函数,并对运行结果进行分析。 三、主要仪器设备 计算机

四、实验步骤 1、编写一程序,在文本框中统计在该窗口上鼠标单击的次数。 提示:使用Form_Click事件;文本框计数Text1=Val(Text1)+1。 打开VB软件,建立标准exe,在窗体设计器中添加Command1,更名为“按钮” 添加text1,删掉名称。 双击按钮,编写程序如图

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实验报告(含答案)

实验报告 课程名称_程序设计基础Visual Basic_ 班级______ ______姓名_____ ____

实验一 VB环境和创建一个简单的VB程序 一.实验目的: 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二.实验内容: 1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为”显示”和”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息;单击”清除”按钮,则清除文本框中的内容,运行界面如图所示。 图实验1-1 运行界面 三.实验结果:对象属性设置 对象属性属性值说明 caption我的第一个vb程序窗体Form1 caption请输入姓名标签Label1 text““文本框Text1 caption显示命令按钮Command1 caption清除命令按钮Command2 四.实验思考: 1.标签label控件设置的属性代码有哪些 =“请输入姓名” =24 =True 2.两个按钮所使用的是什么事件代码分别是什么 Private Sub Command1_Click() =“姓名”

实验二简单程序设计数据类型及常用内部函数的简单应用 一.实验目的: 1.掌握Visual Basic数据类型的基本概念。 2.掌握用Visual Basic的各种运算符及表达式。 3.学习使用Visual Basic内部函数和数据输入、输出方法。 4.掌握命令按钮、文本框和标签。 5.设计顺序程序。 二.实验内容: 1.编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏温度,用msgbox输出转换后的摄氏温度。转换公式是:C= 5 / 9(F - 32)。F为华氏温度,C为摄氏温度。 2.用三种除法运算(/ 、\、Mod)做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。 图2-1 图2-2 三.实验结果:对象属性设置 1.温度转换 对象属性属性值说明 Form1Caption Inputbox与msgbox窗体

VB实验一 实验报告

实验报告一 课程VB程序设计实验项目Visual Basic环境 顺序选择程序设计(4学时) 成绩 专业班级 姓名学号实验日期 实验目的 (1)熟悉Visual Basic6.0集成开发环境 (2)掌握Visual Basic程序的开发过程,能够运行一个完整的Visual Basic程序(3)掌握选择控制结构(If、Select case)语句实现程序分支 (4)掌握控制结构相关控件(单选按钮、复选框) (5)能综合运用选择及循环控制结构解决较复杂的问题 实验内容 一、VB环境和顺序结构 【实验1】设计一个简单VB程序(10分) 它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"Visual Basic 程序设计示例",当用户单击命令按钮“显示”时,文本框中出现“欢迎使用Visual Basic 6.0”,窗体上显示“你好”,单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容,单击命令按钮“结束”时,结束程序。 实验结果: 【实验1 代码】 【实验1 典型结果】 【实验2】编写程序,其功能为输入三角形的三边,求三角形的面积。计算公式为:

S=(a+b+c)/2,面积=sqr(s*(s-a)*(s-b)*(s-c)) (20分) 程序界面如下所示 实验结果: 【实验2 代码】 【实验2 典型结果】 【选做1】单击窗体时,随机产生一个三位正整数,然后逆序输出该数,产生的数与逆序数同时显示,结果如下所示,要求用两种方法实现(使用数字的逆序和字符串的逆序)(15分) 实验结果: 【方法1 代码】 【方法1 典型结果】 【方法2 代码】 【方法2 典型结果】

VB课程实验报告

山西财经大学《程序设计(VB+Acces)》实验报告 ****年*月**日实验题目1选择结构程序设计 选课课号2015-2016-2-N081002S00-08034- 学院 ***** 学院 班 级 ******* 姓名*** 学 号 ********* 理论课教师李平珍 上机指 导教师 李平珍 实验目的及要求: 1.掌握条件表达式和分支语句 2.正确使用If...Then...Else和If...Then...ElseIf等语句3.使用选择性控件实现程序应用 编写以下程序段: 求一元二次方程ax2+bx+c=0的根 设计一个四则运算计算器 实验的详细操作步骤、程序代码及运行截图: 一. Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim R1 As Single, R2 As Single A = Val B = Val

If B ^ 2 - 4 * A * C < 0 Then MsgBox "该方程无解." ElseIf B ^ 2 - 4 * A * C = 0 Then R1 = -B / 2 / A MsgBox "该方程仅有一个根为" & R1 & "." Else R1 = (-B + Sqr(B ^ 2 - 4 * A * C)) / (2 * A) R2 = (-B - Sqr(B ^ 2 - 4 * A * C)) / (2 * A) MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "." End If End Sub 二. Private Sub cmdCal-Click() Dim x1 As Single,sign As String,x2 As Single X1=Val(txtA):sign=txtB:x2=Val(txtC)

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课后实验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环境和可视化编程基础

大学学生实验报告 开课学院及实验室:地理科学学院2014年4月1日

表A_1 对象属性设置 控件名属性 Form1 Caption=”实验A_1” Label1 Caption=”欢迎学习VisualBasic”;Font属性:字号为二号,字体为隶书 Label2 Caption=”请输入你的”Font属性:字体为楷体,有下划线 Text1 Text1=”” Command1 Caption=”” Label3 Caption=””,BorderStyle=1 ④窗体界面设计如图1: 图1 实验A_1窗体界面设计 ⑤代码设计如图2: 图2实验A_1代码设计 (3)实验结果

①运行结果如图3: 图3实验A_1运行结果 ②保存文件如图4: 图4实验A_1文件保存 A_2 (1)实验容:模仿教材例1.1,将事件过程自上而下移动改为自右向左移动,也要考虑文字出窗体边界的情况。各控件及属性窗口的设置参见表格A.2,背景图形文件可以选择自己喜欢的,按钮上的图标通过Windows 搜索功能查找。以Sy1-2为项目名保存。 (2)实验步骤: ①创建一个“标准EXE”工程; ②在窗体上添加标签Label1、命令按钮Command1和Command2及Timer1; ③设置对象属性;

表A_2 对象属性设置 控件名属性 Form1 Caption=”实验A_2”;Picture:为你喜欢的图片 Label1 Caption=”我开始学习程序设计”;Fontsize=36 Command1 Caption=””;Style=1;Piciture=”clock02.ico”;ToolTipText=” 自动” Command2 Caption=””;Style=1;Piciture=”key04.ico”;ToolTipText=” 手动” Timer1 Internal=0 ④窗体界面设计如图5: 图5 实验A_2窗体界面设计 ⑤代码设计如图6:

VB实验报告模板

课程编号:B080103140 https://www.doczj.com/doc/314508887.html,程序设计 实验报告 东北大学软件学院

1.实验目的 (1)练习https://www.doczj.com/doc/314508887.html,的控件的综合运用。熟悉https://www.doczj.com/doc/314508887.html,的集成开发环境,掌握https://www.doczj.com/doc/314508887.html, 编程技巧和开发过程。 (2)训练学生对https://www.doczj.com/doc/314508887.html,的基本语句、控件、文件等的综合运用。 2.实验内容 (1)https://www.doczj.com/doc/314508887.html,控件综合应用。 (2)https://www.doczj.com/doc/314508887.html,文件操作——具体的名称(需要替换并变为黑色)。 3.程序中使用的控件及其命名 把程序中用到的控件类型及对应的名称以表格的形式给出,表格的行数可以根据需要进行扩充。 正文字体为“宋体五号”,并且为黑色,首行缩进2个汉字,如包含英文,用“Times New Roman”,行间距为“多倍行距”,设置为1.25(从弹出菜单的“段落”菜单项进行设置,或利用“格式刷”直接从本说明刷取格式)。 注意说明文字需要删除,不能保留在文档中。 (1)实验1的控件及命名 (2)实验2的控件及命名 4.系统实现与调试 把主要实现的功能用语言进行描述,并给出调试时的截图(主要是功能验证的截图,在结算时,是否能正确的找零等) 如果包含图片,图片要居中,而且图片的高度不能超过页面高度的1/3。 (1)实验1的系统实现与调试 正文字体为“宋体五号”,并且为黑色,首行缩进2个汉字,如包含英文,用“Times New Roman”,行间距为“多倍行距”,设置为1.25(从弹出菜单的“段落”菜单项进行设置,或利用“格式刷”直接从本说明刷取格式)。 注意说明文字需要删除,不能保留在文档中。

(2)实验2的系统实现与调试 正文字体为“宋体五号”,并且为黑色,首行缩进2个汉字,如包含英文,用“Times New Roman”,行间距为“多倍行距”,设置为1.25(从弹出菜单的“段落”菜单项进行设置,或利用“格式刷”直接从本说明刷取格式)。注意说明文字需要删除,不能保留在文档中。 5.创新点及存在问题 列举出主要的创新点和存在的问题。正文字体为“宋体五号”,并且为黑色,首行缩进2个汉字,如包含英文,用“Times New Roman”,行间距为“多倍行距”,设置为1.25(从弹出菜单的“段落”菜单项进行设置,或利用“格式刷”直接从本说明刷取格式)。注意说明文字需要删除,不能保留在文档中。 6.实验总结 正文字体为“宋体五号”,并且为黑色,首行缩进2个汉字,如包含英文,用“Times New Roman”,行间距为“多倍行距”,设置为1.25(从弹出菜单的“段落”菜单项进行设置,或利用“格式刷”直接从本说明刷取格式)。注意说明文字需要删除,不能保留在文档中。

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实验报告(含答案)

实验报告 课程名称_程序设计基础Visual Basic_ 班级______ ______姓名_____ ____

实验一 VB环境和创建一个简单的VB程序 一.实验目的: 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般 功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用 程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、 事件和方法。 二.实验内容: 1.设计一个简单的应用程序,要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序,并把命令按钮分别设置为”显示”和”清除”。程序运行后,单击”显示”按钮,在文本框中输出一行信息;单击”清除”按钮,则清除文本框中的内容,运行界面如图1.1所示。

实验二简单程序设计数据类型及常用内部函数的简单应用 一.实验目的: 1.掌握Visual Basic数据类型的基本概念。 2.掌握用Visual Basic的各种运算符及表达式。 3.学习使用Visual Basic内部函数和数据输入、输出方法。 4.掌握命令按钮、文本框和标签。 5.设计顺序程序。 二.实验内容: 1.编写一个华氏温度和摄氏温度之间的转换程序,如图2-2所示,要求用inputbox函数输入华氏 温度,用msgbox输出转换后的摄氏温度。转换 公式是:C= 5 / 9(F - 32)。F为华氏温度,C 为摄氏温度。 2.用三种除法运算(/ 、\、Mod)做计算。 要求:在窗体上画五个标签、五个文本框和一个命令按钮,如图2-2所示。程序运行后,在第一个文本框中输入被除数,在第二个文本框中输入除数,然后单击命令按钮,即可得到三种不同的相除结果。

VB实验四 实验报告2018

实验报告四 实验目的 (1)掌握Function过程和Sub过程的定义与调用 (2)理解参数按址传递和按值传递的本质 (3)理解变量和过程的作用域 (4)能熟练运用Function过程和Sub过程解决实际问题、简化程序 实验内容 【实验1】编写Function函数程序实现计算n!。程序界面如下图所示。(5分) 掌握函数过程的定义及使用 实验结果: 【实验1 代码】 Private Sub Command1_Click() n = Val(T ext1.T ext) T ext2.T ext = jiecheng(n) End Sub Private Function jiecheng(a) t = 1 For i = 1 T o a t = t * i Next i

jiecheng = t End Function Private Sub Command2_Click() End End Sub 【实验1 典型结果】 【实验2】编写Sub子函数过程实现计算n!。程序界面同上题。(5分)掌握Sub子过程的定义及使用 实验结果: 【实验2 代码】 Private Sub Command1_Click() n = Val(T ext1.T ext) Call jiecheng(n, t) T ext2.T ext = t End Sub

Sub jiecheng(a, t) t = 1 For j = 1 T o a t = t * j Next j End Sub Private Sub Command2_Click() End End Sub 【实验2 典型结果】 【实验3】编写计算n! 的函数过程,调用该过程,计算1!+2!+3!+……+10!之和(5分)掌握使用Function过程简化多重循环的方法,即把具有单一功能的内循环放到函数内部函数的作用是简化程序,不要把双重循环都放到函数内,无法达到简化程序的目的实验结果:

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实验报告答案

福建农林大学计算机与信息学院(计算机公共基础二级课程) 实验报告 课程名称:Visual Basic 程序设计 姓名:邹丽平 学院: 食品科学学院 专业:食品科学与工程 年级:2010级 学号:102258016001 指导老师:黄红兵 职称:讲师 2012 年5 月20 日

实验项目列表

福建农林大学计算机与信息学院实验报告 学院:食品科学学院专业:食品科学与工程年级: 2010级 姓名:邹丽平学号: 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间: 2012.3.5 指导教师签字:黄红兵成绩: 报告退发(订正、重做) 实验一 VB环境和简单应用程序设计 一、实验目的和要求 1.了解Visual Basic系统对计算机软件、硬件的要求。 2.掌握启动与退出Visual Basic的方法。 3.熟悉visual basic的集成开发环境(IDE)。 4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。 5.了解基本控件(窗体、标签、文本框、命令按钮)的简单应用。 二、实验内容 1.启动Visual Basic 6.0,熟悉其集成开发环境。 2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签( Label1和Label2),Label1的字体为隶书,并且其能根据文本大小自动调整尺寸,Label2的字型为倾斜;然后再设计一个初始文本为空的文本框Text1. 图1-1 运行界面 3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮(C1、C2和C3)。运行时,如果单击“禁止用C3”按钮,则C3按钮无效(如图10-2所示);如果单击“允许用C3”按钮,则C3按钮有效。 图1-2 运行界面 4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框(Text1和

VB实验报告1

台州学院 《VB程序设计》实验报告 实验一:Visual Basic环境和程序设计初步 班级: 学号: 姓名: 实验日期:

一、实验目的和要求 1.了解VB系统对计算机软、硬件的要求; 2.熟悉VB的系统环境,了解VB程序的编写、保存和编译的方法过程; 3.初步熟悉几个常用控件的使用方法。 4.掌握启动与退出VB的方法。 二、实验主要仪器和设备 计算机一台,Windows XP操作系统,Visual Basic环境。 三、实验内容 实验1.1设计一个程序,程序运行的初始界面如图1-1所示。当单击“显示”按钮时,在文本框中显示“欢迎使用VB!”(图1-1);当单击“清除”按钮时,清除文本框内的文本;当单击“退出”按钮时,结束程序运行。 图1-1 程序运行初始界面 图1-2 单击“显示”按钮后的程序界面 实验1.2 设计一个程序,程序运行的初始界面如图1-3所示,其中“显示”按钮为不可用。同时要求: (1)当单击“改变文字”按钮时,在左边标签文字内容改为“你好,张三!”,同时“改变文字”按钮变为不可用(图1-4); (2)当单击“隐藏”按钮时,将左边标签设为不可见,同时“隐藏”按钮变为不可用,“显示”按钮变为可用(图1-5); (3)当单击“显示”按钮时,重新显示左边标签,同时“隐藏”按钮变为可用,“显示”

按钮变为不可用(图1-4)。 图1-3 第1题的程序运行初始界面 图1-4 单击“改变文字”按钮后的程序界面 图1-5 单击“隐藏”按钮后的程序界面 四、实验原始记录 实验1.1 程序的界面设计。(可以是多张主要的图。下面的图要替换成你们自己设计的图。如何取图?设计好界面,按“Print Screen SysRq”键,打开画图软件,单击“编辑|粘贴”命令,利用菜单栏下方的“选定”功能,选中窗体,按“Ctrl + C”键,然后选中下面的实验样例图,按“Ctrl + V”键,替换掉)

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

相关主题
相关文档 最新文档