2011VB一模试题和答案.docVIP

2011VB一模 1、填空题(本题共计36分) 1、已知K=2，J=3，A=True，则VB表达式(K-J=K)AND(NOT A)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)____。 Private Sub Command1_Click( )?? dim x$, y$, z$??? x = NANJING??? y = BASIC??? z = INPUT??? z = InStr(Left(x,2)+Right(y,2),z)??? Print?? zEnd Sub 7、A=7，B=3，C=4，则表达式 A MOD 3+B^3/C\5的值为______。 8、语句Print 125+32=;125+32执行后，窗体上打印结果是_______ . 9、下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空： Const PassWordDim inpass As StringInpass=_______(请输入你的密码,输入密码)If inpass=PassWord Then?????????? EndElse?????????? _______对不起！你是非法用户，vbOKOnly+vbCritical,拒绝End IfOption ExplicitPrivate Sub Form_Click()?? Dim x%, s1%, n1%, n2%, i%?? Randomize?? For i = 1 To 10????????? x= __(1)____????????? Print x;????????? If x Mod 2 = 0 Then???????????????????? ___(2)___????????? else???????????????????? n2 = n2 + 1????????? End If????????? s=s+x??? Next i??? Print????Print奇数个数：;n1;偶数个数为：;n2;和为;sEnd Sub 12、宰相达依尔(国际象棋的发明者)想赢得象棋格子的麦子的故事大家都很熟悉，其麦子颗粒数的计算公式为： sum = 1+2+2^2+2^3+2^4+2^5+...+2^63，相应的计算程序如下，请将程序补充完整。Private Sub Command1_Click( )???????? Dim x As Single, n As Integer, sum As Single???????? Sum = 0???????? For? n = 0 To 63????????????????? x =___(1)____?????????????????____(2)______???????? Next? n???????? Print 麦子的总颗粒数为：；SumEnd SubOption ExplicitPrivate Sub Command1_Click( )???? Dim i As Integer，sum As Integer???? sum = 0???? For i = 3 To 100????????????? If i Mod 3 = 0 And i Mod 11 = 0 Then?? sum = sum + i????? Next i???? Print sumEnd SubPrivate Sub Form_Click()??? Dim i As Integer, s As Integer??? For i = 1 To 10?????????? s = s + i?????????? If s 10 Then??????????????????? Print s????????????????????s = 0???????????End If???? Next iEnd Sub 15、下列程序运行的结果为___(1)___ 。执行完该程序后，共循环了____(2)___次。 Private Sub Command1_Click( )????? Dim intsum As Integer????? Dim i As Integer????? For