VB2级11and12年真题复习有答案.docVIP

语句 设x=5,执行语句 Print x = x + 10，则窗体上显示的是 A.15 B.5 C.True D.False 运算优先级 (19)设a=2,b=3,c=4,d=5,则下面语句的输出是___ Print 32*b Or a=c And bc or cd A)False B)1 C)True D)-1 函数1 Int(x),fix(x),rnd(x) Str(x),val(x) Chr(x),asc(x) Rnd 15.表达式D = Int(Rnd(0) * 50)所产生的随机数范围是 A.(0，,5) B.(1,50) C.(0,49) D.(1,49) 函数2 （16）设x=5，执行语句Print x = x + 10，窗体上显示的是 A）15 B）5 C）True D）False 字符函数1 （23）设有如下程序： Private Sub Form_Click() Cls a$ = 123456 For i = 1 To 6 Print Tab(12 - i); Next i End Sub 程序运行后，单击窗体，要求结果如图所示，则在 处应填入的内容为 A）Left(a$, i) B）Mid(a$, 8 - i, i) C）Right(a$, i) D）Mid(a$, 7, i) 字符函数2 （24）设有如下程序： Private Sub Form_Click() Dim i As Integer, x As String, y As String x = ABCDEFG For i = 4 To 1 Step -1 y = Mid(x, i, i) + y Next i Print y End Sub 程序运行后，单击窗体，输出结果是 A）ABCCDEDEFG B）AABBCDEFG C）ABCDEFG D）AABBCCDDEEFFGG 随机函数3 (14)下面可以产生20--30(含20和30)的随机整数的表达式是___ (A)Int(Rnd*10+20) (B)Int(Rnd*11+20) (C)Int(Rnd*20+30) (D)Int(Rnd*30+20) 选择1 (26)设窗体上有一个名为Text1的文本框和一个名为 Comamand1的命令按钮,并有以下事件过程 Private Sub Command1_Click() x!=Val(text1.text) Select Case x Case Is-10,Is=20 Print 输入错误 Case Is0 Print 20-x Case Is10 print 20 Case Is=20 Print x+10 End Select End Sub 程序运行时,如果在文本框中输入-5,则单击命令按钮后输出结果是___ A)5 B)20 C)25 D)输入错误 选择2 （19）设有分段函数： 5 x0 y = x*2 0≤x≤5 x*x+1 x5 以下表示上述分段函数的语句序列中错误的是 A） Select Case x B） If x 0 Then Case Is 0 y = 5 y = 5 ElseIf x = 5 Then Case Is = 5, Is =0 y = 2 * x y = 2 * x Else Case Else y = x * x + 1 y = x * x + 1 End If End Select C） y = IIf(x 0, 5, IIf(x = 5, 2 * x, x * x + 1)) D） If x 0 Then y = 5 If x = 5 And x = 0 Then y = 2 * x If x 5 Then y = x * x + 1 循环1 （21）Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4 For i = 1