计算机作业

今天上机我们没有自己做程序，而是根据老师的要求做了实验二、三。实验二是关于数据类型、运算符、表达式和函数。运算符和表达式。

实验二中包括设计圆的面积和周长的程序。还有生成指定范围的随机整数。还有在立即窗口练习内部函数和表达式的使用。

一、圆的周长和面积代码。

Privete Sub Command1_Click()

Dim r As Single

Dim s As Single

Dim l  As Single

           Const PI =3.14

           r=Val(Text1.text)

           s=PI*r*r

              l=2*PI*r

           Text2.text=Str(s)

           Text3.text=Str(l)

End Sub

二、生成随机数代码

Private Sub Command1_Click()

     Dim m As Integer

     Dim n As Integer

     m=Val(Text1.text)

     n=Val(Text2.text)

  Text3.text=m+Int(Rnd*(n-m+1))

End Sub

Private Sub Form1_Load()

   Randomize

End Sub