vb中用输入框输入一自然数,判断是否正数.负

a=val(inputbox("请输入一个数"))b=1fori=1toab=b*inextiforj=1tolen(str(b))ifmid(str(b),j,1)="0"thenc=c+1endi

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

1.PrivateSubCommand1_Click()a=InputBox("")Fori=1ToaIfaModi=0ThenPrintiNextEndSub2.PrivateSubCommand1

Private Sub Command1_Click()   Dim a()   Dim i&nbs

稍后为你提供代码

PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu

        Dim a As Double = 0 &#

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

在A1里输入=(COLUMN())&"×"&(ROW())&"="&(COLUMN())*(ROW())然后根据需要进行下拉和右拉

PrivateSubform_load()a=InputBox("","输入一个数","")IfIsNumeric(a)ThenIfaMod15=0ThenMsgBoxa&"能被3和5同时整除"Els

法一office2007的word中的大括号操作...插入,选公式,选插入新公式,点击结构中的括号,滚动滑条,在事例和堆栈中可以看到大括号吧..法二在mathtype中,运行程序后,在第三排的第12个

Privatesubform_click()Dimnasinteger,sumasdouble,kasintegerN=val(inputbox(“n=”,”请输入自然数n（n>0且nn!Label1

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

dima,b,casdoublePrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa+

那你直接用下拉列表框多方便呢,或者你非要这么做的话在text1_Change里面写验证ifNOT(text1="A++"ORtext1="A+"ORtext1="A")THENMSGBOX"请输入A或

这个可以PrivateSubForm_Load()DimaAsStringa=Right(InputBox("输入"),1)SelectCaseAsc(a)CaseAsc("a")ToAsc("z")

PrivateSubCommand1_Click()Dima()AsIntegern=Val(InputBox("N="))ReDima(n)Print"Before:&

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I