vb实验编程答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 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. 输入年龄，输出所处人群：9岁以下为儿童，输出A ；10～19为少年，输出B ；20～29为青年，输出B ；30～49为中年，输出B ；
50以上为老年，输出E ；要求使用Select Case 语句实现。
8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case 语句实现。
实验五 循环结构程序设计编程题参考答案 （第77页）
1. 编写程序，求s=1×2×3 + 2×3×4 + … + n ×(n+1) ×(n+2)的值，n 由程序输入。 Y= t 2 t<1 t 2-1 1≤t<2 t 2-2t+1 2≤t<3 t 2+4t-17 t ≥3
2.有一个分数序列，求出这个序列前20项的和。
3. 求
∑
=
10
1
!
n
n
（即1！+2！+3！+…+10！）
4. 求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。
,...
13
21
,
8
13
,
5
8
,
3
5
,
2
3
,
1
2
5. 输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为371=33+73+13
6. 打印如图所示的乘法表
实验六定长数组的使用编程题参考答案（第96页）
1.定义一个包含10个数组元素的数组a，为其数组元素分别赋值为2、4、6、8、…
20，并输出。
2. 输入十个评委的分数，去掉最高分和最低分后，计算最后的平均分并输出。
3.输入5个学生的与一门课程的成绩，按成绩的升序输出和成绩。分别使用比较互换法、选择法和冒泡法实现。
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函数计算下式的值。
p n
m
s
+
+
+
+
+
+
+
+
-
+
+
+
+
=
...
3
2
1
)
...
3
2
1(
)
...
3
2
1(
实验十一 VB的常用控件编程题参考答案（第123页）
1．利用命令按钮控制改变文字的显示区域。程序界面如图所示，单击按钮“更该区域”按钮，将使“标签练习”几个字依次在上下两个显示区域（两个标签中）显示。
2．利用命令按钮控制改变文字的显示颜色。
在上题基础上，添加一个按钮并将其Cption设为
“更改颜色”，单击按钮，使标签的字体颜色依次
按红、绿、蓝变化。
提示：设置标签的字体颜色可以用RGB函数。例如：Label1.ForeColor = RGB(255,0,0) ‘设置红色Label1.ForeColor = RGB(0,255,0) ‘设置绿色Label1.ForeColor = RGB(0,0,255) ‘设置蓝色