在VB中输出100---300之间的所有素数
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/15 17:21:29
liuyuwxj说的基本正确但举例的结果不对I=2,J=3时输出应该是3X2=6分析一下,J,I是数值变量引号括起来的"x","="是字符,&符号是字符连接符,就是把两个字符串对象连起来的意思*是乘法
简单写一下代码流程dima(20)fori=0to19a(i)=inputbox(“输入第"+str(i+1)+"个数")nextisum=0fori=0to19sum=sum+a(i)nexti备注
先把text1的MultiLine属性设为TruePrivateSubCommand1_Click()Fori=10To99IfiMod3=0ThenText1.Text=Text1.Text&Str
flag应该是布尔型变量boolean有true和false两个值(真假)true即为1..false为0
Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=
With语句在一个单一对象或一个用户定义类型上执行一系列的语句.语法Withobject[statements]EndWithWith语句的语法具有以下几个部分:部分描述object必要参数.一个对象
10=1010(二进制)7=0111(二进制)1010AND0111=0010=2(十进制)and在逻辑运算中是“与”的意思,在二进制计算中,只有and左右两边都是1,结果才是1,其它情况都是0
PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu
在VB中,Print语句具有计算功能,它能计算表达式的值,然后再输出它.所以,这里先计算2-2=0,然后就输出0.如果写Print2+3*10的话就会输出32.
OptionExplicitPrivateSubCommand1_Click()DimA(9)AsInteger,i%,m%,t%,AA%Fori=0To9RandomizeA(i)=Int(Rnd*
PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd
constN=100dimi,iCountiCount=0'计数dimsum:sum=0fori=1toNifimod5=0orimod7=0theniCount=iCount+1textBox1.T
PrivateSubForm_Click()DimiAsIntegerFori=1To100IfiMod3=0AndiMod7=0ThenPrintiEndIfNextEndSu
=相等>=大于等于
从用户信息.mdb数据库中查询相关记录信息调用的时候传入一条sql语句返回一个记录集
sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum
PrivateSubCommand1_Click()Dima()AsInteger,i,j,m,nAsIntegerPrint"产生100个100~300之间的整数"RandomizeFori=1To
是一个数组.不是函数,是一个数值,切确讲,是一个数组的数值.是一个按钮的数值.
PrivateSubCommand1_Click()Text2="该数是由"&Mid(Text1,1,1)&"个百"&Mid(Text1,2,1)&"个十"&Mid(Text1,3,1)&"个个"&"
With语句可以对某个对象执行一系列的语句,而不用重复指出对象的名称.例如,要改变一个对象的多个属性,可以在With控制结构中加上属性的赋值语句,这时候只是引用对象一次而不是在每个属性赋值时都要引用它