VB常用的内部函数

《VB常用的内部函数》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、（一）VB常用的内部函数：Abs(x)：求x的绝对值例：Abs（-3.2）=3.2Sqr(x)：求x的平方根例：Sqr（9）=3Int(x)：求不大于给定数x的最大整数例：Int(-1.6)=-2Mod:整除取余数例：9Mod5=4（二）阅读下列程序段，写出运行结果。1、x=3y=Abs(-4.8)*2z=x+yPrinty,z运行结果：（）2、A=Sqr(4)*3B=Int(1.9)+3PrintA+B运行结果：（）3、A=9.8B=8Mod4C=Int(9.8)S=A*B+CPrint“S=”;S运行结果：（）4、下列程序的功能是求长方体的体积，请将程序补充

2、完整，并上机验证。Privatesubcommand1_click()DimAAsSingleDimBAsSingleDimHAsSingleDimVAsSingleA=Val(InputBox(“A=”,”输入长”))B=Val(InputBox(“B=”,”输入宽”))H=Val(InputBox(“H=”,”输入高”))V=_________________________________PRINT“长方体的体积V=”;VEndSub顺序题小李同学参加了一场模拟考试，其一道题目是已知长方体的长为10，宽为3，高为5，求长方体的体积V，小李同学编写出了如下的

3、不完整程序：一、′算法描述：′注意事项：′1、请在func()函数中实现算法，返回算法结果′2、请不要修改main()过程Functionfunc()DimaasintegerDimbasintegerDimhasintegerDimvasintegerA=10B=3H=5V=Func=”长方体的体积V=”&vEndfunction二、′算法描述：′注意事项：′1、请在func()函数中实现算法，返回算法结果′2、请不要修改main()过程Functionfunc()DimrasintegerDimsasintegerr=5s=Func=”圆的面积S=”&SEn

4、dfunction三、已知A=2011，B=2030，请将A、B交换Functionfunc()DimAasintegerDimBasintegerT=AB=TFunc=”交换后的结果”&AEndfunction注意：求圆形的面积，体积，圆柱体的体积，将一个数顺序输入，倒序输出（书上有这个题）等等，都是利用数学公式计算，顺序计算，仔细读题。