Question

vb语言 帮做程序 有1根长度为321米的钢材料,要将他截取成两种规格a.b.

Answer 1

Private Sub Command1_Click() Dim Anum%,Bnum%,R%,tmp%,a%,b%'定义一些变量 tmp = 321’初始化中间数据 For Anum = 1 To Int(321 / 17)'开始循环,从A=1开始比较 Bnum = Int((321 - Anum * 17) / 27) '求B的个数 R =...