实验3简单的程序设计Word文档格式.docx

1、 String（3, 2 Print Tab（13）; String（5, 3 Print Tab（12）; String（7, 4End Sub操作提示：应先将Form窗体的AutoRedraw属性值设为True。实验3.4考察随机函数编程实现随机产生30个1009999之间的任意年份，并显示在列表框List1中，实验结果界面如图3-2所示。图3-2 实验3.4运行界面Private Sub Command1_Click（）Dim i, a As IntegerList1.Clear 清空列表框Randomize 产生随机数种子For i = 1 To 30 循环产生30个随机整数 a =

2、Int（Rnd * 9900） + 100 产生1009999之间的随机整数 List1.AddItem a 将产生的随机数添加到列表框Next i实验3.5简单输入输出设计一个程序让用户从键盘上输入一个人的出生年份，然后显示出该人的生肖。例如：1984年出生的人生肖为“鼠”，则1990年出生的人生肖计算公式为（1990-1984 Mod 12），则1990年出生的人生肖为“马”，因为十二生肖的顺序为：（鼠,牛, 虎兔龙蛇马羊猴鸡狗猪），程序要求：（1）使用inputbox函数读取用户输入的出生年份；（2）能够计算出1984年份后的生肖；（3）用msgbox函数输出结果。提示：本程序在窗体上设

3、计一个按钮即可。实验3.6温度转换实现华氏温度与摄氏温度之间转换计算，实验结果界面如图3-3所示。图3-3 实验3.6运行界面要使用转换的公式是： 摄氏温度转换为华氏温度，F为华氏华氏温度转换为摄氏温度，C为摄氏要求用两种方法进行转换：（1）用按钮实现转换。即单击“华氏转”按钮，则将摄氏温度转换为华氏温度：同样，单击“摄氏转”按钮，则将华氏温度转换为摄氏温度。（2）不用命令按钮，当文本输入时直接完成转换。当用户在摄氏温度文本框中输入结束（以按回车表示），激发KeyPress事件并KeyAscII的值为13时，将摄氏温度转换为华氏温度：同样，华氏转换为摄氏的实现也是如此。假定Textl存放C摄氏

4、温度、Text2存放F华氏温度，则C摄氏转换为F华氏的KeyPress事件过程为： Private Sub Textl_KeyPress（KeyAscii As integer） If KeyAscii = 13 Then Text2 = 9 / 5 * Textl + 32 End if End Sub注意：Text文本框存放的即使是数字也为String类型，为了使其参与数值运算，可通过Val（）函数将字符串转换为数值类型。实验3.7简单计算编程输入半径、计算圆周长和圆面积，实验结果界面如图3-4所示。要求：对输入的半径进行合法性检查，若发现输入的数中有非法数字，利用MsgBox显示出错信息

5、，利用SetFocus方法定位于出错的文本框，重新输入。图3-4 实验3.7运行界面思考：如何修改界面增加一个“保存”按钮，将三个文本框的内容，依次保存到一个文件中？试一试。实验3.8求解方程编程实现任意输入一元二次方程的系数a，b，c，计算并输出方程的两个根xl，x2。界面如图3-5所示。（1）输入a，c，c三个数，为了程序设计的方便可由三个文本框来实现，然后通过求根公式求得方程的根。计算的结果可通过文本框显示。（2）为了保证程序运行的正确，对输入的三个数要进行检查，若发现输入的数中有非法数字，利用MsgBox显示出错信息，利用Setfocus方法定位于出错的文本框处，重新输入。图3-5 实

6、验3.8运行界面 实验3.9 Shell函数在窗体上建立两个按钮，分别显示“计算器”和“记事本”（如图3-6所示），利用Shell函数执行对应的应用程序。图3-6 实验3.9运行界面实验3.10 数值计算编程随机产生一个五位整数，然后逆序输出，产生的数与逆序数同时显示。如：产生12345，输出54321。（注意五位整数的存储类型，不要利用StrReverse函数，利用算术方法）实验3.11 文字处理编程建立一个文本框，并输入文本。在该文本中，随机抽取连续6个字符作为流动密码待用。在右边文本框中显示密码，在左边文本框中将密码部分替换为“*”。实验结果如图3-7所示。图3-7 实验3.11运行界面

7、习题3习题3.1选择题1. 在一个语句内写多条语句时，每个语句之间用（ ）符号分隔。（A）， （B）： （C） 、 （D） ；2. 一句语句要在下一行继续写，用（ ）符号作为续行符。 （A）+ （B） （C） _ （D）3. 下面（ ）是合法的变量名。 （A）X_yz （B）123abc （C）integer （D）XY4. 下面（ ）是不合法的整常数。 （A）100 （B）&O100 （C）&H100 （D）1005. 下面（ ）是合法的字符常数。 （A）ABC$ （B）ABC （C）ABC （D）ABC6. 下面（ ）是合法的单精度型变量。 （A）num! （B）sum （C）xinte$

8、 （D）mm#7. 下面（ ）是不合法的单精度常数。 （A）100！ （B）100.0 （C）1E十2 （D）100.0D+28. 表达式16/425*8/4MOD 52的值为（ ）。 （A）14 （B）4 （C）20 （D）29. 数学关系3x10表示成正确的VB表达式为（ ）。 （A）3=x10 （B）3=x AND x=3 OR x10 （D）3=x AND f该程序的执行结果是（ ）。（A）1 （B）True （C）0 （D）False24. 如果在立即窗口执行如下语句：a$=Myfaverate: b$=Deletec$=b$ & ucase（mid（a,3,8）: print c则

9、输出结果是（ ）。 （A）DeleteFAVERATE （B）DELEThFAVERATE （C）DeleteMYFAVERATE （D）MYFAVERATE25. 下列选项中，合法的变量名是（ ）。 （A）5X_yz （B）d%a （C）Else （D）sum_326. 下列表达式中，不合法的是（ ）。 （A）C= Del + 123 （B）C=1+2/3 （C）C= & （D）C=3*7+6-5/627. 下面（ ）是合法的字符常数。 （A）True$ （B）True （C）True （D）True28. 表达式64/2342*8/4 MOD 72的值为（ ）。 （A）4 （B）16 （C

10、）6 （D）829. 数学关系5y7表示成正确的VB表达式为（ ）。 （A）5=y7 （B）5=y OR y=5 AND y7 （D）5=y AND =0 AND a+cb+3 OR NOTd的值是（ ）。7. Int（-3.5）、Int（3.5）、Fix（-3.5）、Fix（3.5）、Round（-3.5）、Round（3.5）的值分别是（ ）、（ ）、（ ）、（ ）、（ ）、（ ）。8. 表达式Ucase（Mid（abcdefgh, 3, 4）的值是（ ）。9. 在直角坐标系中，（x，y）是坐标系中任意点的位置，用x与y表示在第一或第三象限的表达式是（ ）。10. 要以x x x x年x

11、x月x x日形式显示当前机器内日期的Format函数表达式为（ ）。11. 计算离你毕业（假定毕业年月为2010年7月3日）还有多少个星期的函数表达式是（ ）。12表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为（ ）。1.整型、长整型、单精度型、双精度型2（x mod 10）*10+x103sin（15*3.14180）+sqr（x+exp（3）abs（x-y）-log（3* x）4（a+b）（1（c+5）c*d2） 5x mod 5=0 or x mod 9=0 6False 7 -4, 3, -3, 3, -4, 4 8CDEF9x0 And Y 0 or x0 And Y=”

12、A” And UCase（s）b AND cc（2）32*b OR a=c AND bc OR cd（3）NOT a=c OR 4*cb2 AND bac8. 改正下列语句中的错误：（1）A$abc （2）Print a3423（3）x5，y6 （4）Print c：56（5）Text1.Print * （6）A*5B2习题3.4操作题1. 在“立即”窗口中试验下列函数的操作：（1） print chr（65）（2） print sgn（3） print sqr（2）（3） a$=”Happy”b$=”New Year”print a$+b$print a$ & b$（4） m$=”ABCDE

13、FGHIJK”print left$（m$）print right$（m$）print mid$（m$2,3）print len（m$）print instr（m$,”bcd”）print lcase（m$）（5） print now print day（now） print month（now） print year（now） print weekday（now） （6） print rndFor i=1 to 5: print rnd :next i2. 写出下列语句的输出结果，并上机验证：（1）Print 2532；2532 （2）x12.5 Print xx （3）s$China s$

14、Beijing Print s$ （4）a%3.14156 print a%（5）Print ，TianjinShanghaiWuhan,Print NanjingShenyangChongqingWulumuqi Print ,Guangzhou，chengdo（6）Print Tab（5）；100；Space$（5）；200，Tab（35）；300 Print Tab（10）；400；Tab（23）；500；600（7）aSqr（3） print Format$（a,”000.00”） print Format$（a,”#.#00”） print Format$（a,”00.00E+00”

15、） print Format$（a,”-#.#”）3. 写出下列程序的输出结果： Sub Form_Click（） a=10:b=15:c=20:d=25 Print a;spc（5）;b;spc（7）;space$（8）;space（5）; Print c;spc（3）;”+”; Print spc（3）;”=”;c+d4. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） a InputBox（”Enter the First integer”） b InputBox（”Enter the Second integer”） Print

16、 ba End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，输出结果是什么？习题3.5设计题1利用InputBox输入三角形三条边的长度a, b, c，计算并显示三角形的面积。公式为：面积=，其中s=（a+b+c）/22用InputBox输入一个正实数，用Print方法在一行上显示出它的平方和平方根、立方和立方根，每个数保留三位小数，之间有间隔3. 从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输人数据，并在窗体上显示和及平均值。4. 编写程序，要求用户输人下列信息：姓名、年龄、通信地址、邮政编码、电活，然后将输人的数

17、据用适当的格式在窗体上显示出来。5. 编写程序，求解鸡兔同笼问题。一个笼子中有鸡x只，兔y只。每只鸡有2只脚，每个兔有4只脚。今知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各若干？根据数学知识，可以写出如下联立方程式： x+y=h 2x+4y=f由以上二式可推导出： x=（4h-f）/2 y=（f-2h）/2可按上式编写程序。用InputBox函数输入h和f的值，设h71，f158，请编写程序并上机运行。6. 自由落体位移公式为： S1/2gt2+0t其中，0为初始速度，g为重力加速度，t为经历的时间。编写程序，求位移量S。0=4.8m/s，t0.5s，g9.81m/s2。在程序中把g定义为

18、符号常量，用InputBox函数输人0和t两个变量的值。1.参考程序： Dim a&, b&, c&, s# a = InputBox（请输入三角形a边的长度 b = InputBox（请输入三角形b边的长度 c = InputBox（请输入三角形c边的长度 s = （a + b + c） / 2 Text1 = Sqr（s * （s - a） * （s - b） * （s - c）2. 参考程序：Dim a#a = InputBox（请输入一个正实数Print format（a 2,“0.000“），format（Sqr（a）,“0.000“），Print format（a 3 ,“0.000“）, format（a （1 / 3） ,“0.000“）3. 参考程序：Private Sub Form_Click（） Dim a!, b!, c!, d!, sum!, aver!a=?b=?c=? d = InputBox（d=? sum = a + b + c + d aver = sum / 4sum=; sum, aver= aver4. 参考程序： Dim xm$, nl%, txdz$, y