VB常用操作(计算机二级考试上机考试必备)

《VB常用操作(计算机二级考试上机考试必备)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一。随机数出一个小写字母PrivateSubCommand1_Click()DimaAsStringRandomizea=Chr(Int(97+26*26))MsgBox(a)EndSub二。计算1/1！+1/2！+。。。。+1

2、10！PrivateSubCommand1_Click()DimmAsInteger,nAsLong,sAsDoublen=1s=0Form=1To10n=n*ms=s+1/nNextPrintsEndSub三。编写一个函数，求两个数的最小数PrivateSubForm_Load()Dima%,b%a=Val(I

3、nputBox("a="))b=Val(InputBox("b="))Ifa>bThenPrint"a>b"ElsePrint"a

4、To50Step2sum=sum+i*(i+1)NextiPrintsumEndSub六。编写一个函数，其功能是判断某个整数是不是素数，调用该函数，判断100001是否是素数PrivateSubCommand1_Click()Dima%,i%a=InputBox("请输入a的值")Fori=1ToaIfaModi=0Thenm=m+1EndIfNextiIfm=2ThenMsgBox("a是素数")ElseMsgBox("a不是素数")EndIfEndSub七。计算sum=1+3+5+...+99PrivateSubCommand1_Cl

5、ick()DimiAsInteger,sumAsIntegersum=0Fori=1To100Step2sum=sum+iNexttext1.Text=sumEndSub八。输入一个两位数，分别输入它的个位数字和十位数字Dima%,b%,c%a=val(inputbox"a=")b=aMod10c=a10Print"各位数字为：";b;"十位数字为："EndSub九。计算1/1!+1/3！+1/5!+.....+1/99!PrivateSubForm_Load()Dimi%,sum%,fact%Fori=1To9fact=fact*iI

6、fiMod2=0Thensum=sumsum=sum+1/factNextPrintsumEndSub十。编写程序，建立一个6*6的整型二维数组（数据由程序调用rnd函数产生{0,15}的随机），输出数组中所有元素和PrivateSubForm_Load()OptionBase1Fori=1To6Forj=1To6a(i,j)=Int(Rnd*15)NextjNextiSum=0Fori=1To6Forj=1To6Sum=Sum+a(i,j)NextjNextiPrintSumEndSubVB中MsgBox是一个很常用的函数，功能不算很强

7、大，但还能算够用MsgBox就是弹出一个信息框，显示出要提示的内容vbMsgBox简介vbmsgbox（消息框）按钮定义MsgBoxstrMsg1,c1+c2+c3,strMsg2其中strMsg1为msgbox的提示信息strMsg2为msgbox的标题内容c1+c2+c3定义按钮形式，具体如下：c1:按钮的类型0vbOkOnly只有一个按钮“确定”1vbOkCancel两个按钮“确定”和“取消”2vbAbortRetryIgnore三个按钮“终止”、“重试”和“忽略”3vbYesNoCancel三个按钮“是”、“否”和“取消”4vbY

8、esNo两个按钮“是”和“否”5vbRetryCancel两个按钮“重试”和“取消”msgbox返回值：vbOk1确定vbCancel2取消vbAbort3终止vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否c2:图标的类型16vbCritical×32vbQuesion？48vbExclamation！64vbInformationic3:默认焦点0vbDefalaultButton1左起第一个按钮自动获得焦点256vbDefalaultButton2左起第二个按钮自动获得焦点512vbDefalaultButton

9、3左起第三个按钮自动获得焦点和为：0000000000　Bc3c2c1例：1.i=MsgBox”是否要删除该条记录?“,1+32+0,”请确认”2.MsgBox”是否要删除!“,0+32+0,