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个数一行)。

程序界面如下：
6 ：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来
7 .统计成绩分布
实验 子过程与函数过程(2次)
1．定义一个判断X 是否素数的子过程，并调用此过程打印出前100个素数。

提示：子过程的入口参数是X （整型），出口参数是W （整型），W 为1,表示X 是素数，W 为0，表示X 不是素数。

2.编写一个子过程(或函数过程)，功能是求阶乘，并调用该过程计算：S=1!+2!+3!+……+n ！的值，其中n 的值可以通过键盘随机输入，图2-7-1是程序界面。

3．给出计算
Sum=1+2+3+
……+(n-1)+n 的和值的递归函数，并通过命令按钮事件调用，计算输出结果。

4．设有两个文本框TEXT1和TEXT2 ，在TEXT1中输入字符。

当遇到回车键时，将刚输入的字符串，在TEXT2框中显示， 请设计程序完成该功能。

注意：回车键的ASCII 码是13，其扫描码也是13
图2-7-1 程序界面
5．设计一个程序，每间隔1秒，在文本框中显示数字，依次是：1 2 3 4 5 6 7 8 9 10 等等，直到显示30止。

6．设计一个程序，在窗体上当按下键盘上的“Ctrl”键并单击鼠标器的左键，然后在文本框中显示：“按下键盘上的Ctrl键并单击鼠标器的左键”。

7．编写一个子过程，对于输入在文本框TEXT1中给定的字符串，判断是否是回文，并在文本框TEXT2中，显示判定结果。

所谓回文是指正读与倒读内容相同。

例如：ABCDFDSSDFDCBA
ABCBA
都是回文。

实验文件操作(1次)
1．编程把一个文本框中的内容，以文件形式存入磁盘。

假定文件名为c:\Myfile.txt。

2．编程建立一个包含若干行字符串的文本文件，然后将该文件的内容按行读出，加上行号后复制到另外一个文本文件中。

3．由键盘输入10位同学的学号和成绩，以文件名”student.txt”存入D盘。

4．从上题建立的D盘上的”student.dat”的文件中读取学生的姓名和成绩，求出最高分、最低分的学生姓名及成绩存入D:\cj.txt中。