用VB编一个判断奇偶的程序

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

思路与方法:1,输入一个大于等于6的偶数n.2,采用循环:Fori=2ton-2ifi是素数Andn-i是素数Then输出:i,n-iExitForEndIfNexti再问：这个思路我也知道，但具体到

把变量的取值范围贴出来.再问：求公式p=v*Z*F(s,x,y)/I。其他的一样求，其中F(s,x,y)=π/M，M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+

dimiasintegerdimsumasintegeri=1方法1dowhilei100sum=sum+ii=i+1loop方法3dosum=sum+ii=i+1loopwhilei<100

a=input('请输入一个整数:\n');ifsign(a)==1&&mod(a,2)==0disp('正偶');elseifsign(a)==1&&mod(a,2)==1disp('正奇');el

=MOD(A1,2)结果为0时,为偶数.=IF(MOD(A1,2),"奇偶","偶数")

dimary(14),jgaslong,dimSerAim(),sumaslongrandomizefori=1to13ary(i)=int(rnd*1000)nextFori=1To12Forj=i

是单片机还是8086?通过哪个口控制,是低电平灯亮还是高电平灯亮?再问：单片机，低电平灯亮！再答：ORG0000HAJMPMAINORG0040HMAIN:MOVDPTR,@TABLE;通过查表法来取

DimsumAsInteger,iAsIntegersum=0Fori=1To100sum=sum+iNextDebug.Print"1+2+...+100=";sum

    tmp = InputBox("随便输入几个数,用逗号隔开就可以了.")   &n

intindex=2;intcount=0;while(true){if(index%2==1&&index%3==1&&index%4==1)break;elseindex++;}总共count个

importjavax.swing.JOptionpane;//导入JOptionpane类.publicclassTest{publicstaticvoidmain（Stringargs[]）{in

DimmAsIntegerPrivateSubCommand1_Click()a=InputBox("请输入数字")Fori=1ToVal(a)IfaModi=0Thenm=m+1NextIfm=2T

vars:string;a,b,c:longint;d:boolean;begind:=true;{试D先为true.｝read(s);c:=length(s);｛求字符串的长度.｝a:=cdiv2;

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

这个比较麻烦,我曾经写过这么个程序片段,现在贴上来,代码比较复杂Shape1是时钟的一个框,是Shape控件,设置Height1455Width1575LineHour,LineMinute,Line

quickbasic好像不行.32位正整数最大不过10位,如果你不做两个整数变量串联就无法计算更大的数..NET的ULong类型能够计算最大20位,18,446,744,073,709,551,615

PrivateSubCommand1_Click()a=InputBox("请输入数值")b=InputBox("请输入数值")IfVal(a)Fori=1ToVal(a)IfVal(a)Modi=0

vb6测试通过PrivateSubCommand1_Click()Dima(10)AsInteger,tempAsInteger,iAsInteger,jAsIntegerRandomizetemp=