VB实验--------所有实验题目

实验题目

本学期的所有的实验题目，希望同学们都要认真做，

并要求：

（1）先画出处理界面（窗体）；

（2）再给出处理步骤，

（3）写出程序代码：

可参考下面的例题：

例如：设计程序，求1+2+3+...+N 的和值。

其处理过程是：

（一）设计界面（在纸上画出界面，并注明各控件的名称）：

（二）处理步骤：

单击命令按钮，按以下步骤处理

（1）定义3个变量：N ，s ，x ，分别用于存放：输入的数值，和值，控制循环

（2）将文本框1的值，提供给变量N ；

（3）s=0（累加前，将变量s 初始化为0）；

（4）X=1（设置循环的开始值）

（5） 当X<=N 时 重复执行

S=s+x

X=X+1

（5）在文本框2中显示和值S

（三）编写有关的代码：

Private Sub Command1_Click()

Dim n%，s%，x%

N=val(text1.text)

S=0

X=1

Do while x<=n

S=s+x

X=x+1

Loop

Text2=s

End Sub

文本框1：TEXT1 文本框2：TEXT2

1：Command1

标签1：Label1 标签2：

第一次课：用语言或流程图描述处理步骤(1次)

1.判定一个数X是否是偶数的处理步骤;

2.写出求5的阶乘的计算步骤;

3.写出求1+2+3+...... +100的计算过程;

4.写出计算1!+2！+3！+4！+......+20!的计算步骤;

5.写出求一元二次方程解的处理步骤;

6.给出将三个整数A,B,C按从小到大的顺序排列的处理步骤;

实验表达式及其运算的实现(1次)

1.设计一个程序，完成利用文本框输入任意两个数的乘法运算，并显示计算结果。

2.进一步完善程序，完成利用文本框输入任意两个数的加法、减法、乘法、除法运

算，并显示计算结果，

3.再进一步，改进，完成，利用随机函数，产生任意两个100到200之间的整数，

并完成两个数的加法、减法、乘法、除法运算，并显示计算结果。

4．求方程AX+B=0的解。

5．表达式：

2

3z

y

x

x

e x+

+

+

+

当输入x,y,z值求该表达式的值.

6．思考: 求方程AX2+BX+C=0 的解.

7．对于第4题,当提供A,B的值后,输出该式子

例如,当A=3,B=4, 输出:3X+4=0

实验顺序程序设计(1次)

1．利用InputBox函数输入一个正实数，用Print方法在窗体上打印出其平方值、平方根、立方值,结果保留2位有效数字。

2．编写一个华氏温度与摄氏温度之间的转换程序，运行界面如图2-3-5所示。转换公式为：F＝9/5×C＋32及C＝5/9（F－32）；其中，F：华氏温度；C：摄氏温度。

3求方程AX+B=0的解。当提供A,B的值后,输出该式子

例如,当A=3,B=4, 输出:3X+4=0，并输出方程的解。

实验分支程序设计(1次)

1．已知3个数，设计一个求出最大值的程序。

2．输入一个整数，判定是正数还是负数，并输出结果

3．输入x,y,z三个数，按从小到大的次序显示。显示形式：由小到大输出

4．输入一元二次方程ax2 +bx+c=0的系数a,b,c，计算并输出一元二次方程的两个实根x1,x2。

实验循环程序设计(1次)

1．求1+2+3+...+N的和，N利用inputbox（）函数输入，

2．设计一个程序，对Sum=1+2+3+...+N，求Sum不超过10000的最大整数项数N。

6求出100到200之间所有的素数及其平均值,并输出

7 利用循环，打印输出下列图形：

A

AAA

AAAAA

AAAAAAA

AAAAAAAAA

AAAAAAAAAAA

AAAAAAAAAAAAA

AAAAAAAAAAA

AAAAAAAAA

AAAAAAA

AAAAA

AAA

A

8．找出1000以内的所有的完全数。

完全数是指等于其所有因子和的数（包括1因子，但1不是完全数）；

例如：6的因子有1、2、3，并且6=1+2+3，则6是完全数。

实验数组的应用(2次)

1.输入一组不重复的数据(10个数据)，同时找出最大值和最小值,并输出它们.

2体操运动员参加自由体操决赛，有10个评委为他们打分。选手的成绩计算方法是：10个评委分数中，去掉一个最高分和一个最低分，余下分数的平均值为选手的最后得分。编程序求选手的成绩。

3输出如图所示的下三角数据

4 设某一个班共有60个学生，期末考试5门课程，请编一程序评定学生的奖学金，要求打印输出一、二等奖学金学生的学号和各门课成绩。

（奖学金评定标准是：总成绩超过全班总平成绩20%发给一个奖学金，超过全班总平成绩10%发给二个奖学金。）

5.用随机函数产生50个[10，100 ）的随机整数，并按照由小到大的顺序打印出来(10个数一行)。

程序界面如下：