vb编程题输入任意一个整数 判定该数的奇偶性

窗体中做三个文本框,分别放A,B,及A、B的最大分约数.PrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)Dor=aModba=b

你的程序中判断素数并加和的部分有问题在你的基础上修改如下PS:main不需要改动# include <stdio.h>int SumPrime(int&nbs

创建两个text控件和一个command按钮控件再输入以下代码PrivateSubCommand1_Click()Fori=1ToLen(Text1.Text)a=Mid(Text1.Text,i,1

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

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

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

input"请输入4位数字:"tonshuziifvartype(nshuzi)='N'cshuzi=allt(str(nshuzi))iflen(cshuzi)=4cxulie='零壹贰叁肆伍陆柒捌

PrivateSubCommandButton1_Click()DimnNumAsLongIfIsNumeric(TextBox1.Text)ThennNum=Val(TextBox1.Text)If

#includeintmain(){intn,sum=0;printf("请输入一个整数：");scanf("%d",&n);while(n){sum=sum+n%10;n/=10;}printf("

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

PrivateSubCommand1_Click()Dima,b,cAsIntegerDimmaxRandomizea=Int(900*Rnd+100)b=Int(900*Rnd+100)c=Int(

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

PrivateSubForm_Click()DimxAsStringDima%,b%,c%,y%x=InputBox("请输入三位数","提示框")IfLen(x)=3Thena=Val(Mid(x,

inti,j,a[20],t,number,k;\x09\x09for(i=0;i

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

写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo

#include#includevoidmain(){\x09intn,i;\x09scanf("%d",&n);\x09if(n==1)\x09{\x09\x09printf("1isnothing

PrivateSubCommand1_Click()Text2.Text=""Fori=1ToVal(Text1.Text)Text2.Text=Text2.Text&Int(Rnd*100)&""N

Line8这个赋值语句不对.再问：为什么？？再答：很明显。b2=(x-b2*100)/10;你这语句也太奇葩了，b2根本就没有值，它是一个很奇怪的数，结果出来个负的当然很正常。你可以尝试以下代码：#i