用程序解决数学问题-让圆算起来

[日期:2018-06-06] 作者:信息技术 次浏览 [字体: ]

 2020届10班 王智翔  指导教师  唐军

初中数学中的计算量真是大啊,如果把用于计算的时间做别的事,比如看看小说,运动锻炼,做其他作业,玩玩电…电脑?我不是在选修课中才学过VB编程吗?我可以用它编一个解决这种数学问题的小软件,不仅提高编程水平,又可以节约计算花费的时间,也算是一举两得了吧。

VB是Visual Basic的简称,是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。程序员可以轻松的使用VB提供的组件快速建立一个应用程序和许多有实际功能的小软件。对于我们中学生来说,学习VB程序相对简单,通过该课程的学习,能够用VB解决生活和学习中碰到的一些简单问题,培养逻辑思维能力。下面我给大家介绍我设计的计算圆面积的小软件。


首先,设计一个窗体(图1),两个command命令按钮用于计算和退出程序、四个label标签用于显示文字、两个text输入框用于输入半径和显示结果。双击一下计算按钮,会出现代码窗口。先定义两个变量数r和s,类型为Single,输入框text1.text内容为半径r,text2.text内容为面积s,然后通过if语句判断输入框输入的半径是否为数字,如果输入的是数字则计算圆面积(图2),否则MSGBox提示出错,并要求重新输入半径(图3)详细代码如下:


Private Sub Command2_Click()

Dim tuichu As Integer

tuichu = MsgBox("确定要退出吗?", 1, "退出")

If tuichu = 1 Then End

End Sub

Private Sub Command1_Click()

2

  Dim r, s As Single

  Const pi As Single = 3.14

  r = Text1.Text

  If IsNumeric(r) Then

    If r >= 0 And r < 1.1E+19 Then

      s = pi * r ^ 2

      Text2.Text = s

    Else

3

     MsgBox "请输入正确半径!", 48, "注意"

     Text1.Text = ""

      Text2.Text = ""

    End If

  Else

    MsgBox "请输入数字!", 16, "警告"

    Text1.Text = ""

    Text2.Text = ""

  End If

End Sub

这个程序只是最简单,最基础的,还有升级进步的空间。你可以按照你想象中最完善的样子来不断完善它。亲爱的同学们,想想如何进一步来完善它?