用vb编写程序,任意输入一个整数,判断该整数的奇偶数

#include"stdio.h"intmain(){\x09inti,j,n;\x09inta[12];\x09intmin,mx;\x09scanf("%d",&n);\x09for(i=0;i

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

Text1.text用于输入正整数Label1.Caption存放各位数字之和的计算结果计算事件Command1_ClickPrivateSubCommand1_Click()DimvalueAsLo

+=functionadd(){varA=document.getElementById("a").value;varB=document.getElementById("b").value;varA

PrivateSubCommand1_Click()Dims$,i%,sMax$,sArr$()s=InputBox("任意输入一个英文句子","输入英文","Hello,thisisatestcom

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

#includeintmain(){intn;scanf("%d",&n);do{printf("%d",n%10);}while(n/=10);printf("\n");return0;}

Dimb()AsStringb()=Split(a,"")然后判断每一个b数组每一个数据的len即可

PrivateSubForm_Click()Dimi,n,tempn=Val(InputBox("N","",10))^3Fori=1TonStep2temp=fc(i,n)NextMsgBoxtem

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

a=InputBox("请输入a")b=InputBox("请输入b")c=InputBox("请输入c")Ifat=aa=bb=tEndIfIfat=aa=cc=tEndIfIfbt=bb=cc=t

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P

INPUTxa=xMOD2IFa=0THENPRINT"x是偶数"ELSEPRINT"x是奇数"ENDIFEND

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

Subtest()OnErrorGoTo10n=InputBox("输入一个整数")MsgBoxIIf(nMod2=0,"你输入的是个偶数","你输入的是个奇数"):ExitSub10:MsgBox"

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"

使用什么VB的话是INPUTNIFN\2=0THENPRINT'是'ELSEPRINT'否'ENDIFEND

我HI你吧,等一下