VB设计一个程序输入入一个正整数,程序对它是否是素数做出判断

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