在vb代码窗口指定位置修改完善程序代码,实现求9-300之间

普通螺纹M12螺距1.5配合6g;.倒角2处分别为C1.5(1.5X45度),C2(2X45度);三处退刀槽:2X2

'设控件text1为文本text2为开始位置text3为长度代码如下：Private Sub Command1_Click()'设text1为文本 tex

既然后边都会用abs了,为何前边不用.iy(0)相当于i-y(0)0iy(0)+-1相当于i-y(0)+-1如果i和y(0)都是integer,那么可以这样写abs(i-y(0))>1以此类推j,k

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

Option Base 1Private Sub Command1_Click()Dim a(4, 5) As Inte

DimNum1AsDoubleDimNum2AsDoubleDimEqualAsDoubleDimMAsDoubleDimEqual2AsIntegerDimStrNum1AsStringDimStr

ound((ProgressBar1.Value/Text2.Text)*10)不过最好执行公式之前判断text2.text是否为数值且不能为0val(text2.text)会比较好点

DimAx#,Ay#,Bx#,By#,Cx#,Cy#,AB#,BC#,CA#,角A#,角B#,角C#Ax=1:Ay=0:Bx=0:By=0=0:Cx=1:Cy=1'举例为第一象限45度三角形AB=Sq

三角形面积的计算公式是area=Sqr(s*(s-a)*(s-b)*(s-c)),其中,s=(a+b+c)/2PrivateSubForm_Load()DoDimaAsSingle,bAsSingle

dimiaslong,jaslong,kaslongfori=1to1000forj=ito1000fork=jto1000ifi*i+j*j=k*kthenprinti,":",j,":",knex

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

以前有回答过这问题了,先在要下刀的位置画个点,然后串联要加工的部分完了以后再来点这个点,就会淡出刀具选择框了,要是不明白的话再找找看,我之前有回答了,而且有图片,忘记在哪了

Private Sub Command1_Click() Dim i As Integer, j As Int

使用计时器控件,使控件移动即可.再问：具体的，么么再答：会使用计时器控件吗？再问：会，但是不知道语句怎么编写，大概知道要用到timer,command再答：再问：好厉害，不过我还是不知道你是怎么弄出来

不知你需要什么种类的三角函数,我编了一种,你可以依样画葫芦编出其他Constpi=3.14159PrivateSubCommand1_Click()DimxAsDoublex=InputBox("x=

PrivateSubCommand1_Click()DimiAsIntegerDimPiAsSingleDimxAsSingleDimyAsSingleDimrAsSinglePi=3.1415926

选A撒!

建立控件数组Text2(0To9)PrivateSubCommand1_Click()DimSumAsDoubleForI=Val(Text1.Text)-1To0Step-1Sum=Val(Text

一、你没有考虑a＝0的情况二、n=和m＝这两句,你要把2*a用()括起来做分母或者你把*号,换成除号/就不用括起来了!还有楼上说的,分子也要括起来!哈哈