UC知道VB累加的问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 19:55:05
Private Sub Command1_Click()
s = 0
For k = 1 To k
s = s + d(k)
Next k
Text2.Text = s
End Sub
如何修改下 让 TEXT2 显示出例如：12.6之类的数而不是 整数
我想让 TEXT1 鼠标点了之后 Text1 文字清空 如何设置语句...
s = 0
For k = 1 To k
s = s + d(k)
Next k
Text2.Text = s
End Sub
如何修改下 让 TEXT2 显示出例如：12.6之类的数而不是 整数
我想让 TEXT1 鼠标点了之后 Text1 文字清空 如何设置语句...
Private Sub Command1_Click()
dim s as single
s = 0
For k = 1 To k
s = s + d(k)
Next k
Text2.Text = s
End Sub
private sub text1_click()
text1.text=""
end sub
Private Sub Command1_Click()
dim s as double
s = 0
For k = 1 To k
s = s + d(k)
Next k
Text2.Text = s
End Sub
这样写S默认是整形变量
使用S前请先定义S为float
dim s as flaot