实验教程
实验三顺序结构程序设计编程题参考答案（第47页）
1.输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print方法输出。
2.输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label 控件输出。
3.输入一元二次方程ax~+bx+c二0的系数a、b、c,输出两个实根。要求使用TextBox 控件分别进行输入，使用Label控件输出。
实验四选择结构程序设计编程题参考答案（第58页）
1.输入一个，判断其是否能同时被3和7整除。
Dim x As Integer
x — InputBox("input
If x Mod 3 = 0 And x Mod 7 = 0 Then Print金& “能冋时被3和7敕除“
E. lSe?
Print兄& ”不能冋时被3和7翌除”
End If
E nd Sub
2.输入三个数，输出其中的最大值。
6.编程及输出分段函数的值。由键盘输入t的值，计算y的值
t '使用if elseif话旬 Private Sub Command l_Click() Dim y As Single^ t As Single t - In putBox(11 input t") Ift< 1 Then y = t * t Elsclf t < 2 Then y = t * t - 1 Elself t < 3 Then y-t*t-2*t+ 1 Else y=t x t-i-4x t-17 End If Print ,,y=u; y End Sub '便用gglHl case借旬 Private Sub Command 1_C1 ick() Dim y As Single,, t As- Single t 一InputDox("input t") Select Case t Case Is w i y = t * t Case Is v 2 y - t+ t - 1 Case Is < 3 t2 Y= Y t2-l lWtv2 t2-2t+1 2Wtv3 a t2+4t-17 t>3 口n■工程1 - |nj x| |ConMftndl亍| j^Cli clr d|(7OBM ftnHl Jciiek Z1 y = t*t-2*t + 1 Ca.se El&e |y = t * t + 4 * t - 17 End Select Print y End Sub 『A LI 7.输入年龄，输出所处人群：9岁以下为儿童，输出A； 10?19为少年，输出B；20?29为青年，输出B； 30?49为中年，输出B； 50以上为老年，输出E；要求使用Select Case语句实现。 8.输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。 实验五循环结构程序设计编程题参考答案（第77页） 1.编写程序，求s=lX2X3 + 2X3X4 +…+ nX (n+1) X (n+2)的值，n由程序输 入。 2.有一个分数序列7，号,?,等，￥，目,...，求出这个序列前20项的和。 1 N n o 1 3 10 3.求工川(即1! +2! +3! + …+10!) /?=! 4.求一类三位数，该书中有某两位为相同数字，且该数是一个完全平方数，输出这些数并统计个数。 5.输出所有的“水仙花数”。“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如，371是一个水仙花数，因为37>33+73+13 (CocLe?》 Pirivatie Sxil> C oi MXIMXFKXX cl 1_CliclcO ~ Dim k>ai% Fo” i — lOO To 999 = i Moul 10 slai = (i Mod 1OO) \ IO bai = i \ 1OO i>i 八3 + ba. 3 = i Then Print i; If Be A 3 + s E IM cl If Zuxt i 6.打印如图所示的乘法表 实验六定长数组的使用编程题参考答案（第96页） 1.定义一个包含10个数组元素的数组％为其数组元素分别赋值为2、4、6、8、?
相关主题
文本预览