vb计算的问题

VB里面TEXT里面同时输入多个数据，数据之间用空格间隔开，如何把里面的每一个数据都同时除以某一个数？（例如同时除以60）刚刚开的问问，所以没有什么分，望各位高手解决下。谢谢。

在窗体上添加一个按钮Command1，然后添加如下代码测试

Private Sub Command1_Click()
Dim data() As String
Dim i As Integer
data = Split(Text1.Text, " ")
Text1.Text = ""
For i = 0 To UBound(data)
data(i) = Round(Val(data(i)) / 60, 2)
If VBA.Left(data(i), 1) = "." Then
Text1.Text = Text1.Text & "0" & Round(data(i), 2) & " "
Else
Text1.Text = Text1.Text & data(i) & " "
End If
Next
End Sub

'添加text、command控件各1 Const n = 60 '除以60 Private Sub Command1_Click() Dim arr, i arr = Split(Text1) Text1 = "" For i = 0 To UBound(arr) Text1 = Text1 & Space(1) & Format(Val(arr(i)) / n, "0.000000") Next End Sub Private Sub Form_Load() Text1 = "1 2 3 4 5 6 7 8 9" End Sub

用

a=SPLIT（text1.text," "）

'这样就把各数送给了数组A

for each x in a

print x/60

next

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息