在VB中输入COS45度-搜答案-灵鹊做题网

简单写一下代码流程dima(20)fori=0to19a(i)=inputbox(“输入第"+str(i+1)+"个数")nextisum=0fori=0to19sum=sum+a(i)nexti备注

publicsubcommand1_click()text3=(val(trim(text1))+val(trim(text2)))/2endsu

DimXAsInteger这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成DimXAsSingle

在VB中with.end

With语句在一个单一对象或一个用户定义类型上执行一系列的语句.语法Withobject[statements]EndWithWith语句的语法具有以下几个部分：部分描述object必要参数.一个对象

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

printval(a)+val(b)+val(c)

PrivateSubCommand1_Click()Dimaa=InputBox("请输入一个数")PrintStrReverse(a)EndSu

请用以下代码要求一个list1用来排序单词请将sorted属性设置为true.PrivateSubCommand1_Click()DimanoFori=1ToLen(Text1.Text)IfMid(

PrivateSubCommand1_Click()Doa=Val(InputBox("输入整数,-1结束:"))IfaMod2=0Thens=s+1LoopUntila=-1Print"共有";s;

cos(3.14/4)cos()’里面只能是弧度制把45°写成3.14/4吧

OptionExplicitPrivateSubCommand1_Click()DimAAsString,iAsInteger,DDAsSingleRandomizeDoDD=Int(Rnd*1000

去http://www.softhy.net/找一下吧

在vb中是什么意思

=相等>=大于等于

'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下OptionExplicitPrivateSubCommand1_Click()DimiAsLong,arr,nAsLongIf

从用户信息.mdb数据库中查询相关记录信息调用的时候传入一条sql语句返回一个记录集

是一个数组.不是函数,是一个数值,切确讲,是一个数组的数值.是一个按钮的数值.

呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex

'假设单词之间就一空格PrivateSubCommand1_Click()Dimnumnum=Trim(Text1)IfInStr(num,Space(1))Thennum=Split(num)Tex

privatesubCommand1_Click()n=0strold=""s=text1.textfori=1tolen(s)strnew=ucase(mid(s,i,1))if(strold"Z"

在VB中with是什么

With语句可以对某个对象执行一系列的语句,而不用重复指出对象的名称.例如,要改变一个对象的多个属性,可以在With控制结构中加上属性的赋值语句,这时候只是引用对象一次而不是在每个属性赋值时都要引用它