VB编程,求步骤有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的
答案:2 悬赏:20 手机版
解决时间 2021-03-03 06:36
- 提问者网友：了了无期
- 2021-03-03 01:36
VB编程,求步骤有一根长度为546米的钢材料,要将它截取成两种规格a、b的长度分别为19米和28米的
最佳答案
- 五星知识达人网友：西岸风
- 2021-03-03 02:24
'19米14,28米10,剩余0 加个text,设为多行显示Text1.MultiLine = TruePrivate Sub Command1_Click()Dim tmp As VariantDim tmp1 As Single, tmp2 As Single, s_tp As StringDim tmp3 As VariantDim s1 As String, ss As String, l_tp As SingleDim i As Long, l As Long, x As Long, k1 As Long, k2 As Long, k3 As Long, k4 As Long, kk As Longkk = 546k1 = 19k2 = 28k3 = kk \ k1k4 = kk \ k2For i = 1 To k3 For l = 1 To k4 l_tp = i * k1 + l * k2 If l_tp tmp2 Then s_tp = tmp(i) tmp(i) = tmp(x) tmp(x) = s_tp End If NextNextPrint tmp(UBound(tmp))ss = k1 & 米, & k2 & 米, & 剩余For i = UBound(tmp) To 0 Step -1 ss = ss & vbCrLf & tmp(i)' Print tmp(i)NextText1.Text = ssMsgBox 利用率最高的方法是 & tmp(UBound(tmp))End Sub
全部回答
- 1楼网友：污到你湿
- 2021-03-03 02:44
好好学习下
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯