vb实验编程答案

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

实验教程

实验三顺序结构程序设计编程题参考答案(第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

互换法、选择法和冒泡法实现。

4. 输出5×5的矩阵,除对角线上的元素为1外,其他数组元素的值均为0。

5. 输入5×5的矩阵,求出每列元素之和,并把和值最大的那一列上的各元素和第一列各元素进行对调。

7. 输入十个学生的三门课程的成绩,并进行如下操作。

(1) 计算并输出每门课程的平均分。

(2) 输出每门课程中的最高分与最低分。

(3) 计算每个学生的平均分。

(4) 按学生的平均分进行降序排序。

实验七 动态数组、控件数组与自定义类型的数组编程题参考答案 (第10页)

6. 自定义学生类型,包括学生姓名、学号和成绩,输入学生人数n ,并输入学生的信息,按成绩进行降序排序后输出。程序界面设计如下图。

实验七 过程编程题参考答案 (第123页)

2.编写子过程Sub ArraySa(a() As Integer, sum As Single, aver As Single),该过程的功能是求一维数组a 的元素和与平均值,并通过参数sum 和aver 返回结果。

4.编程子过程Sub movearray(a() As Integer, lr As Boolean, n As Integer),该过

程的功能是使一维数组元素左移或者右移若干位。其中参数a()是数组、lr参数指示位移的方向(True向左移,False向右移)、n参数确定移动的位数。程序界面如下图

实验八函数过程编程题参考答案(第137页)

1.编写程序,利用Function函数计算下式的值。

实验十一 VB的常用控件编程题参考答案(第123页)

1.利用命令按钮控制改变文字的显示区域。程序界面如图所示,单击按钮“更该区域”按钮,将使“标签练习”几个字依次在上下两个显示区域(两个标签中)显示。

2.利用命令按钮控制改变文字的显示颜色。

在上题基础上,添加一个按钮并将其Cption设为“更改颜色”,单击按钮,使标签的字体颜色依次按红、绿、蓝变化。

提示:设置标签的字体颜色可以用RGB函数。例如:

Label1.ForeColor = RGB(255,0,0) ‘设置红色

Label1.ForeColor = RGB(0,255,0) ‘设置绿色

Label1.ForeColor = RGB(0,0,255) ‘设置蓝色

相关文档
最新文档