VB二级考试模拟试题5

《VB二级考试模拟试题5》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一单选题1、A2、D3、D4、A5、C6、D7、C8、B9、A10、C11、C12、C13、B14、D15、C16、C17、B18、A19、B20、B21、C22、D23、D24、B25、B26、C27、A28、C29、D30、A31、D32、A33、D34、D35、C36、C37、A38、A39、C40、A二填空题1、(10*x+sqr(3*y))/(x*y+2)2、计算机成绩3、Int(Rnd*101)4、a(i)mod5=05、i=j6、a(i,j)=17、Mid(strN,i,1)8、Val(t)9、f(I,x1)10、f(n-2,x)三读程序1、x=242

2、、163、304、285、12四写程序1、PrivateSubForm_click()Dima(1To10)AsIntegerDimmaxAsIntegermax=0Fori=1To10a(i)=Int(Rnd*900+100)Ifmax

3、(num)ThenMsgBox("这是个奇数")ElseMsgBox("这是个偶数")EndIfEndSub3、设置窗体Form1的Caption为“航空订票”，PrivateSubCommand1_Click()DimpriceasSingleDimnumasintegerDimmonthasintegerprice=val(text1):month=val(text2):num=val(text3)if(month>=2andmonth<=5)OR(month>=9andmonth<=12)thenifnum>20thenText4=num*price*0.7i

4、fnum>10andnum<=20thenText4=num*price*0.8ifnum<=10thentext4=num*priceelsetext4=num*priceendifEndSub