用程序解决数学问题-让圆算起来
[日期: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 |
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 |
Text1.Text = ""
Text2.Text = ""
End If
Else
MsgBox "请输入数字!", 16, "警告"
Text1.Text = ""
Text2.Text = ""
End If
End Sub
这个程序只是最简单,最基础的,还有升级进步的空间。你可以按照你想象中最完善的样子来不断完善它。亲爱的同学们,想想如何进一步来完善它?