VB统计计算器1/2

最新推荐文章于 2024-09-26 12:20:58 发布

peter_young1990

最新推荐文章于 2024-09-26 12:20:58 发布

阅读量442

点赞数

分类专栏： VB或VBA 数学文章标签： vb6

本文链接：https://blog.csdn.net/peter_young1990/article/details/115532363

版权

数学同时被 2 个专栏收录

27 篇文章 0 订阅

订阅专栏

VB或VBA

6 篇文章 0 订阅

订阅专栏

该博客介绍了使用VB编写的统计计算器程序，详细展示了如何通过输入数字进行最大值、总和、最小值、平均值和计数等统计计算。用户可以通过依次点击数字按钮输入数值，然后点击Max、Sum、Min、Ave和Counter按钮获取相应的统计结果。部分源代码展示了数字按钮的响应事件及结果显示逻辑。

摘要由CSDN通过智能技术生成

1.运行程序，输入参数，结果如下。

1.1 最大值

分别点击按钮：1、NextNum、3、NextNum、6，将三个数存入计算器中。
点击按钮：Max，结果如下：
在这里插入图片描述

1.2 总和

点击按钮：Sum，结果如下：
在这里插入图片描述

1.3 最小值

点击按钮：Min，结果如下：
在这里插入图片描述

1.4 平均值

点击按钮：Ave，结果如下：
在这里插入图片描述

1.5 计数

点击按钮：Counter，结果如下：
在这里插入图片描述

1.6 重试

点击按钮：Retry，结果如下：
在这里插入图片描述

2.部分源代码

Option Explicit
Dim counter As Integer
Dim data As Single
Dim max As Single
Dim min As Single
Dim sum As Single
Dim ave As Single

Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub

***

Private Sub Command13_Click()
Text1.Text = Val(min)
Text2.Text = "Min="
End Sub

Private Sub Command14_Click()
Text1.Text = Val(sum)
Text2.Text = "Sum="
End Sub

Private Sub Command15_Click()
Text1.Text = Val(sum / counter)
Text2.Text = "Ave="
End Sub

******

Private Sub Command18_Click()
Text1.Text = Val(counter)
Text2.Text = "Counter="
End Sub

Private Sub Command19_Click()
Text1.Text = "-" + Text1.Text
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text + "."
End Sub

Private Sub Command17_Click()
Text1.Text = Val(max)
Text2.Text = "Max="
End Sub