这个知道了~~我是想问我设计了个转换的Command，那里要怎么写调用那个funtion过来~~~谢啦
答案:2 悬赏:30 手机版
解决时间 2021-02-05 08:49
- 提问者网友：鼻尖触碰
- 2021-02-04 15:59
这个知道了~~我是想问我设计了个转换的Command，那里要怎么写调用那个funtion过来~~~谢啦
最佳答案
- 五星知识达人网友：往事隔山水
- 2021-02-04 17:24
p字符串你在函数中没有设置啊！！
我已尽量按你原来的程序写了一个。
Public Function change(p As String, n As Integer) As Integer
Dim k, sum As Integer
sum = 0
k = 0
For i = Len(p) To 1 Step -1
sum = sum + Val(Mid(p, i, 1)) * n ^ k
k = k + 1
Next i
change = sum
End Function
Private Sub Form_Click()
Dim s As String
Dim n As Integer
s = InputBox("请输入要转换的数")
n = Val(InputBox("请输入要转换的进制"))
Print change(s, n)
End Sub
我已尽量按你原来的程序写了一个。
Public Function change(p As String, n As Integer) As Integer
Dim k, sum As Integer
sum = 0
k = 0
For i = Len(p) To 1 Step -1
sum = sum + Val(Mid(p, i, 1)) * n ^ k
k = k + 1
Next i
change = sum
End Function
Private Sub Form_Click()
Dim s As String
Dim n As Integer
s = InputBox("请输入要转换的数")
n = Val(InputBox("请输入要转换的进制"))
Print change(s, n)
End Sub
全部回答
- 1楼网友：人類模型
- 2021-02-04 18:31
同问。。。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯