vb设计一个计时程序.有一个文本框和两个按钮

privatesubform_click()dimnasinteger,iasintegerfori=7to1000ifimod7=0thenn=n+1nextprintnendsu

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

去网上下载一个计算器的源码,慢慢修改即可.读书的时候要认真听呢……再问：好吧其实这个我真不懂上课也没听明白只能百度了

根据成绩计算绩点的公式是什么?60分绩点是1,然后每增加1分,绩点就增加0.1,例如:80就是绩点为3,98就是绩点为4.是这样子吗?如果是这样子的~程序：dimphy,eng,mathphy=79'

这样就可以了,楼上的子函数M()没有用到DimpiAsDoubleDimrunTimeAsDoubleDimaAsSingle,bAsSingleDimcntXAsSingle,cntYAsSingl

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也

是VB,就做界面.先做一个窗体,其上有四个文本框,text1、text2、text3、text4依次输入边长a、b、角A的值,在text4中输出面积,你可以在前面加上标签说明再加一个命令按钮comma

PrivateSubCommand1_Click()DimI,J,X,Y,ZAsIntegerDimA(1To10000)AsIntegerDimFlagAsBooleanX=Int(InputBox

PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEnd

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

Dima(20)'如果不需要显示20个数的话,不需要数组,a(i)用X代替就可以Dimmax!,Min!,i%PrivateSubCommand1_Click()'按钮单击Fori=1To20a(i)

PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt

按照你的要求做的小程序,希望是你想要的,有问题可以追问,如果满意请采纳

1公尺=1m=3市尺=3.2808英尺PrivateSubCommand1_Click()Text2.Text=Text1.Text*3.2808EndSu

新建一个工程,双击Form1窗体空白区域,在出现的代码窗口中输入如下代码：PrivateSubForm_Load()a=InputBox("请输入边长：","计算正方形的面积")MsgBox"面积="

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi

这个难度不是很大的可以交流下

用PLC也行.还有就是用电子的计数器和定时器.