怎么在VB中求和我是想编一个简单计算器,编到求和这块不太会了,下面是我写的代码,麻烦帮我想一下Sub op()T1.En
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/20 06:54:42
怎么在VB中求和
我是想编一个简单计算器,编到求和这块不太会了,下面是我写的代码,麻烦帮我想一下
Sub op()
T1.Enabled = True
T1.Visible = True
T1.SetFocus
End Sub
Sub oi()
T1.Enabled = False
T1.Visible = False
End Sub
Private Sub Command1_Click()
)
ElseIf O7 Then
T5 = Tan(T3 * 3.141592653 / 180)
ElseIf O8 Then
T5 = 1 / Tan(T3 * 3.141592653 / 180)
ElseIf O9 Then
If T3 < 0 Then
MsgBox "被开方数不能小于零",2 + vbExclamation,"错误"
T3 = ""
T3.SetFocus
Exit Sub
End If
T5 = Sqr(T3)
ElseIf O10 Then
T5 = Abs(T3)
ElseIf O11 Then
T5 = Exp(T3)
ElseIf O12 Then
If T3
我是想编一个简单计算器,编到求和这块不太会了,下面是我写的代码,麻烦帮我想一下
Sub op()
T1.Enabled = True
T1.Visible = True
T1.SetFocus
End Sub
Sub oi()
T1.Enabled = False
T1.Visible = False
End Sub
Private Sub Command1_Click()
)
ElseIf O7 Then
T5 = Tan(T3 * 3.141592653 / 180)
ElseIf O8 Then
T5 = 1 / Tan(T3 * 3.141592653 / 180)
ElseIf O9 Then
If T3 < 0 Then
MsgBox "被开方数不能小于零",2 + vbExclamation,"错误"
T3 = ""
T3.SetFocus
Exit Sub
End If
T5 = Sqr(T3)
ElseIf O10 Then
T5 = Abs(T3)
ElseIf O11 Then
T5 = Exp(T3)
ElseIf O12 Then
If T3
你的问题不够具体…那么我给你一个例子,你参考下:
Private Sub Form_Load()
Dim a(1 To 50)
Show
For i=1 To 50
a(i)=101*RND
sum=sum+a(i)
Next i
Print sum
End Sub
以上希望能给你帮助,求和主要是用到循环,可以用For和Do.
Private Sub Form_Load()
Dim a(1 To 50)
Show
For i=1 To 50
a(i)=101*RND
sum=sum+a(i)
Next i
Print sum
End Sub
以上希望能给你帮助,求和主要是用到循环,可以用For和Do.
怎么在VB中求和我是想编一个简单计算器,编到求和这块不太会了,下面是我写的代码,麻烦帮我想一下Sub op()T1.En
matlab中求和求积怎么编
用C语言怎么编一个求和的程序?
vb编程求和代码我在左侧输入了一个textbox,右面建立了10个textbox,想编写一段代码,当左面输入为5时则求右
请问这个求和的式子在matlab里怎么编?
MATLAB 编一个求和函数
VB 1到N的平方求和怎么写.程序
vb编计算器中连续运算的代码,以及按等号后得出的数如何继续运算?
我想在用VB作一个科学计算器,怎样实现sin.cos.tan等功能代码怎么写
用C#编个计算器,那个0键和小数点的代码要怎么写?
Matlab为什么编的级数求和不对.
我想请问一下 已经在matlab中定义了两个函数 怎么把他们求和,获得新的函数.