算法与程序设计(选修)上机操作题

上机题练习1

1、将下列窗体及其窗体中的控件对象设计成适合于求圆面积的程序界面。要求如下：（本题满分15分） ⑴Form1对象：标题内容为“求圆的面积”，窗体背景色设置为黄色（RGB值为&H0000FFFF&）⑵Label1对象：标签内容为“输入圆半径”，字体设置为“宋体”“小五”，标签长与宽设置为“300”与“1300”。 ⑶Label1对象：标签内容为“输出圆半径”，字体设置为“宋体”“小五”，标签长与宽设置为“300”与“1300”。 ⑷Text1对象：文本内容初值设置空，长与宽设置为“450”与“1200”。 ⑸Text2对象：文本内容初值设置空，长与宽设置为“450”与“1200”。 ⑹Command1对象：按钮颜色设置为粉红色（RGB值为&H008080FF&），按钮内容为“计算”，字体设置为“宋体”“小四”。 2、完善下列程序，通过输入对话框，输入10个30000以内的整数，输出其中的最大数。（本题满分10分） Prvite sub form_click() Dim x as integer Dim max as integer Dim I as integer Max = inputbox(“请输入数据”,”输入10个数”) For I = 1 to 9 X= inputbox(“请输入数据”,”输入10个数”) If _________then max=x Next i Print “10个数中的最大值为：”,_______________ End sub 3、为北京2008年奥运会设计一个奖牌总数统计的程序。输入金、银、铜牌数，输出奖牌总数。程序界面如图。（本题满分15分）

上机题练习2

1、 界面设计。（本小题满分15分） ① 新建一个标准EXE工程，添加以下对象（如图）

② 按下表设置各对象属性：

对象	属性	值	得分	对象	属性	值	得分
Label1	Caption	底面半径	1	Text3	Text	（空）
Label1	Caption	圆柱的高	1	Command1	caption	写入
Label1	Caption	体积为	1	Command2	caption	读取
Text1	Text	（空）	1	Command3	caption	计算
Text2	Text	（空）	1	Form1	caption	求圆柱的体积

③将工程文件和窗体文件分别取名为T1.vbp和T1.frm，保存到考生目录下T1文件夹中。 2、编一个程序，输入货物的数量及单价，求总价并输出。程序界面如下图所示。（本题满分阶10分）

当用户输入货物的数量与单价后，单击“总价=”按纽，输出正确结果。要求： ① 打开考生目录下的T2文件夹下的工程文件T2．VBP ② 添加适当的事件过程代码,使得该程序实现以上功能 ③ 按原文件名分别保存工程与窗体文件 ｛测试数据｝

输入		输出	得分
30	1.5	45	3
0	15.3	0	3
56	2.18	122.388	3
4	2.5	10	3
100	2.88	288	3

3、设计一程序，计算“1*2+2*3+3*4+4*5+…+N*(N+1)”的和（N≦60）。程序界面如下图所示。（本题满分15分）

当用户输入N后，单击“求1*2+2*3+3*4+4*5+…+N*(N+1)”按纽后，输出正确结果。

要求：

④ 打开考生目录下的T4文件夹下的工程文件T4．VBP ⑤ 添加适当的事件过程代码,使得该程序实现以上功能 ⑥ 按原文件名分别保存工程与窗体文件 ｛测试数据｝

输入	输出	得分
1	2	3
3	20	3
20	3080	3
50	44200	3
60	75640	3