作业帮在VB中输入COS45度
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/06 07:36:32
简单写一下代码流程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
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/找一下吧
=相等>=大于等于
'不用这么复杂,你的代码太长没有看,如果一定用你的代码,我再给你修改一下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"
With语句可以对某个对象执行一系列的语句,而不用重复指出对象的名称.例如,要改变一个对象的多个属性,可以在With控制结构中加上属性的赋值语句,这时候只是引用对象一次而不是在每个属性赋值时都要引用它