2010秋VB笔试.docVIP

第二部分 Visual Basic 程序设计 选择题（用答题卡答题，答案依次填在21～30答题号内） 21． 21 。A． B． C． D． 22． 22 。A．List1.AddItem x, =, y B．Picture1.Print x, =, y C．Text1.Text = x, =,y D．Label1.Caption = x, =, y 23． 23 。A． B．’”可与注释语句定义符“Rem”互换使用 C． D． 24．I和J是整型变量，K是长整型变量。I已赋值32763，J和K分别赋值5。若接着执行以下语句，可正确执行的是 24 。A． B． C． D． 25． 25 。A．CInt(3.5) - Fix(3.5) = 0 B．CInt(3.5) - Int(3.5) = 0 C．Int(3.5) + Int(-3.5) = 0 D．Int(3.5) + Fix(-3.5) = 0 26．s, i, i)相同的是 26 。 A．L B．Left(Right(s, i) C．Left(Right(s, i– i + 1) D．L 27．数学表达式的 VB算术表达式为 27 。A．Sqr(x * y ^ 3) + Abs(xp(x) + Sin(x) ^ 3 / (x - y)) B．Sqr(x * y ^ 3) + Abs((xp(x) + Sin(x) ^ 3) / (x - y)) C．Sqr(x * y ^ 3) + Abs(xp(x) + Sin(x) ^ 3 / x - y) D．Sqr((x * y) ^ 3) + Abs((xp(x) + Sin(x) ^ 3) / (x - y)) 28． 28 。 A． B． C． D． 29．关的说法正确的是 29 。A．函数名在过程中只能被赋值一次 B．如果在函数体内没有给函数名赋值则该函数无返回值 C．如果在定义函数时没有说明函数的类型则该函数是无类型的 D．Exit Function语句退出函数 30． 30 。A． B． C． D． 填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行） 1．运行下面程序单击CmdRun在窗体上显示a的值是 1） ；b的值是 2） ；i的值是 3） 。Option Explicit Private Sub CmdRun_Click() Dim i As Integer, a As Integer, b As Integer a = 1: b = 10 For i = a To b Step a + 1 a = a + 1 b = b + 1 i = i + 1 Next i Print a, b, i End Sub 2．执行下面程序，单击Command1， （） ， （） ， （） 。Option Explicit Option Base 1 Private Sub Command1_Click() Dim n As Integer, i As Integer, j As Integer Dim a(3, 3) As Integer, k As Integer n = 3: k = 1 i = n: j = (n + 1) / 2 a(i, j) = k For k = 2 To n * n i = i + 1: j = j + 1 If i n And j = n Then i = 1 ElseIf i = n And j n Then j = 1 ElseIf i n And j n Then i = i - 2: j = j - 1 ElseIf i = n And j = n And a(i, j) 0 Then i = i - 2: j = j - 1 End If a(i, j) = k Next k For i = 1 To n For j = 1 To n Pic1.Print Right(