VB设计一个程序输入入一个正整数,程序对它是否是素数做出判断
来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 08:11:16
privatesubform_click()dimnasinteger,iasintegerfori=7to1000ifimod7=0thenn=n+1nextprintnendsu
'Text1输入,Text2结果PrivateSubText1_KeyPress(KeyAsciiAsInteger)Staticint1AsIntegerDebug.PrintKeyAscii'45
privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint
去网上下载一个计算器的源码,慢慢修改即可.读书的时候要认真听呢……再问:好吧其实这个我真不懂上课也没听明白只能百度了
privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(
根据成绩计算绩点的公式是什么?60分绩点是1,然后每增加1分,绩点就增加0.1,例如:80就是绩点为3,98就是绩点为4.是这样子吗?如果是这样子的~程序:dimphy,eng,mathphy=79'
其实从思想上来说,就是一个排序的思路问题.排序的方法有很多.说2个最简单的(设让结果从小到大排列)方法一假设10个数把第一个依次与他后面的比较,如果比后面的大,就把位子换下,这样当第一个看完后面9个数
这样就可以了,楼上的子函数M()没有用到DimpiAsDoubleDimrunTimeAsDoubleDimaAsSingle,bAsSingleDimcntXAsSingle,cntYAsSingl
OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons
PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=-b/a
4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1
'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The
main(){intnum;printf("请输入一个整数:\n");scanf("%d",&num);if(num%2){printf("\n这是一个奇数\n");}else{printf("\n这
PrivateSubCommand1_Click()DimI,J,X,Y,ZAsIntegerDimA(1To10000)AsIntegerDimFlagAsBooleanX=Int(InputBox
clearinput"请输入N:"tons=0fori=1toninput"请输入数据:"toxs=s+xendfor?"它们的和是:",s
PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt
呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex
PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问:那在窗体上输出九九乘法表??你会吗??真
ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"
桌面上放一个按钮控件,双击后输入下面程序,试试.PrivateSubCommand1_Click()R1=InputBox("R1=","输入")R2=InputBox("R2=","输入")Y=R1