vb基础知识 实操考试实用总结.doc

《vb基础知识 实操考试实用总结.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、vb基础知识实操考试实用总结Vb基础实验实操考试重点一、各类代码a)定义代码Single,doubleIntegerStringBooleanDate数字整数文本逻辑(FalseorTrue)日期b)功能代码InputBoxC输入x")赋值输入框(提示”输入x”)Msgbox(a&b&c)输出abcInt(Rnd()*100)0-100的随机整数Len(y)文本y的长度StrReverse(y)文本y的反序排列Mid(y,4,3)从文本y中左起第四位取的3个字符Format(zl,使数字zl的格式为vbCrLf换行Str()数字变

2、成文本形式Xmod2x处以2的余数c)数学代码/Tan/Cos(y)Xmod2y的绝对值y的平方根y的正弦/正切/余弦y的四舍五入值y的以e为底的对数y的以10为底的对数常数兀x处以2的余数二、重要语句例题a）条件语句■1・在abc中找出最大数和最小数Ifa>bThenX二ay=bifc>aThenX=cy二bElselfb>cTheny二cx=aElsex=ay=bEndIfElselfc>bThenx=cy=aElselfa>cThenx=by二cElsey=ax二bEndIfMsgBoxC最大数"&x&"最小数"&y)ii.

3、用selectcase---endselect语句编写计算程序y二x(x+2)(0y二2x(-1y二xT(xSelectCasexCaseIsy=x-1CaseIsy=2*xCaseIsy=x*(x+2)CaseElsey=0EndSelectMsgBox(〃y二〃&y)b)循环语句i・给一个10个元素的数组赋10个任意值，然后计算奇数下标的元素和以及偶数下标的元素和.Dima(10)AsIntegerDimiAsIntegerDimxAsIntegerDimyAsIntegerx=0y=0Fori二1To10a(i)=Input

4、Box(/z请输入第〃&i&〃个数〃)IfiMod2二0Thenx=x+a(i)Elsey=y+a(i)EndIfNextMsgBox^下标为奇数的元素和为"&y&〃下标为偶数的元素和为"&x）ii.随机生成20个数，并从小到大排列（冒泡排序）Fori=0To19a.(i)二Int(Rnd()*100)x=x&a(i)&"NextFori=0To19Forj=19Toi+1Step-1Ifa(j)t=a(j)a(j)=a(j-1)a(j-1)=tEndIfNexty二y&a(i)&NextMsgBox(x&vbCrLf&y)iii

5、.用DoWhile・・・Loop语句计算1/(1x2)+1/(2x3)+…+1/(nx(n+l))的值n=InputBox(''inputn〃)i二1t二0s=0DoWhileit二1/(i*(i+1))i=i+1s=s+tLoopMsgBox(〃s二〃&s)