2011vb一模试题及答案

《2011vb一模试题及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2011VB一模1、填空题(本题共计36分)1、已知K=2，J=3，A=True，则VB表达式(K-J<=K)AND(NOTA)OR(K+J>=J)的值为_____。2、表示"A和B之一为零但不同时为零"的VB表达式为______。3、能正确产生[1,30]之间的随机整数的表达式是________。4、表达式Fix(-48.65)+Int(-52.15)的值是________。5、A的绝对值大于等于B同时不等于C的表达式是____(1)____.6、下面程序运行后，输出的结果为____(1)____。PrivateSubCommand1_Click(

2、)  dimx$,y$,z$   x="NANJING"   y="BASIC"   z="INPUT"   z=InStr(Left(x,2)+Right(y,2),z)   Print  zEndSub7、A=7，B=3，C=4，则表达式AMOD3+B^3/C5的值为______。8、语句Print"125+32=";125+32执行后，窗体上打印结果是_______.9、下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空：ConstPassWord="12345678"DiminpassAsStringInpas

3、s=_______("请输入你的密码","输入密码")Ifinpass=PassWordThen          EndElse          _______"对不起！你是非法用户"，vbOKOnly+vbCritical,"拒绝"EndIf10、InputBox函数返回值的类型为_________。11、下面程序的功能是统计随机产生的10个三位正整数中偶数与奇数的个数，并求出该10个数的总和。请将程序补充完整。OptionExplicitPrivateSubForm_Click()  Dimx%,s1%,n1%,n2%,i%  Randomi

4、ze  Fori=1To10         x=__(1)____         Printx;         IfxMod2=0Then                    ___(2)___         else                    n2=n2+1         EndIf         s=s+x   Nexti   Print    Print"奇数个数：";n1;"偶数个数为：";n2;"和为";sEndSub12、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉，其麦子颗粒数的计算公式

5、为：sum=1+2+2^2+2^3+2^4+2^5+...+2^63，相应的计算程序如下，请将程序补充完整。PrivateSubCommand1_Click()        DimxAsSingle,nAsInteger,sumAsSingle        Sum=0        For n=0To63                 x=___(1)____                 ____(2)______        Next n        Print"麦子的总颗粒数为："；SumEndSub13、下列程序执行后，打印结果是

6、______。OptionExplicitPrivateSubCommand1_Click()    DimiAsInteger，sumAsInteger    sum=0    Fori=3To100             IfiMod3=0AndiMod11=0Then  sum=sum+i     Nexti    PrintsumEndSub14、运行下面程序，单击窗体后在窗体上显示的第一行结果是____；第二行结果是____；第三行结果是__(3)__。PrivateSubForm_Click()   DimiAsInteger,sAsI

7、nteger   Fori=1To10          s=s+i          Ifs>10Then                   Prints                    s=0           EndIf    NextiEndSub15、下列程序运行的结果为___(1)___。执行完该程序后，共循环了____(2)___次。PrivateSubCommand1_Click()     DimintsumAsInteger     DimiAsInteger     Fori=1To17Step2           

8、  intsum=intsum+i     Nexti     Print  intsumEndSub16、