np实验心得体会报告 实验课程报告心得体会(四篇)

当我们备受启迪时，常常可以将它们写成一篇心得体会，如此就可以提升我们写作能力了。大家想知道怎么样才能写得一篇好的心得体会吗？下面小编给大家带来关于学习心得体会范文，希望会对大家的工作与学习有所帮助。

关于np实验心得体会报告一

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

π=2…× 2n-1?2n 11?33?55?7 注意：①、分别显示当n=10、100、1000时的结果，由此可见，此计算公式收敛如何？

②、要防止大数相乘时结果溢出的问题，将变量类型改为长整型 或实数型。

三、主要仪器设备

计算机

四、实验结果与分析

实验界面：

1、输入半径，计算圆周长和圆面积。

程序：

private sub form_activate

= "输入半径值"

us

rt = 0

gth = len()

end sub

private sub text1_keypress(keyascii as integer) '圆面积，周长

dim r

r =

const pi = 3.14159

if keyascii = 13 then

cls

if isnumeric(r) then

print "当圆的半径为"; r; "时："

print "圆面积为： "; format(pi * r ^ 2, "0.00")

print "圆面积为"; format(pi * r ^ 2, "0.00")

else

text1 = "半径值输入有误"

end if

us

rt = 0

gth = len()

else

end if

end sub

运行结果：

输入值

:2

2、随机产生三个整数，按从小到大的顺序显示。

程序：

private sub command1_click

cls

dim x%, 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)

if x y then

a = x: x = y: y = a

end if

if y z then

a = y: y = z: z = a

if x y then

a = x: x = y: y = a

end if

end if

print "从