2020年大一VB的实验报告.doc

大一vb的实验报告 一、实验目的和要求 1、掌握正确书写表达式、赋值语句的规则。 2、掌握InputBox与MsgBox的使用。 3、掌握Print方法和Format格式使用。 4、掌握单分支与双分支条件语句的使用。 5、掌握多分支条件语句的使用。 6、掌握For语句和Do语句的各种形式的使用。 7、掌握如何控制循环条件，防止死循环和不循环。 二、实验内容和原理 1、输入半径，计算圆周长和圆面积。 为了保证程序运行的正确，对输入半径要进行合法性检查，数据检查调用IsNumeric函数；若有错，利用MsgBox显示错误信息，通过SetFocus方法定位于出错的文本框处，重新输入；计算结果保留两位小数。 提示：使用Text1_KeyPress事件，按Enter键，返回参数“KeyAscii”的值为13表示输入结束。 2、随机产生三个整数，按从小到大的顺序显示。 3、计算的近似值，的计算公式为： ?2n?224262 =22n-1?2n+11?33?55?7注意：、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？ 、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。 三、主要仪器设备 计算机 四、实验结果与分析 实验界面： 1、输入半径，计算圆周长和圆面积。 程序： PrivateSubForm_Activate() Text1.Text=输入半径值 Text1.SetFocus Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger)圆面积，周长 Dimr r=Text1.Text ConstPI=3.14159 IfKeyAscii=13Then Cls IfIsNumeric(r)Then Print当圆的半径为;r;时： Print圆面积为：;Format(PI*r2,0.00) Print圆面积为;Format(PI*r2,0.00) Else Text1=半径值输入有误 EndIf Text1.SetFocus Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) Else EndIf EndSub 运行结果： 输入值 :2 2、随机产生三个整数，按从小到大的顺序显示。 程序： PrivateSubCommand1_Click() Cls Dimx%,y%,z%,a% Randomize x=Int(Rnd*101) y=Int(Rnd*101) z=Int(Rnd*101) Print随机产生三个整数：;x;Spc(2);y;Spc(2);z;Spc(2) IfxyThen a=x:x=y:y=a EndIf IfyzThen a=y:y=z:z=a IfxyThen a=x:x=y:y=a EndIf EndIf Print从小到大排序：;x;Spc(2);y;Spc(2);z;Spc(2) EndSub 运行结果： 3、计算的近似值 、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？ 、要防止大数相乘时结果溢出的问题，将变量类型改为长整型或实数型。程序： PrivateSubCommand2_Click() Cls DimnAsLong,PI,iAsLong n=1 Do n=n*10 PI