1、一、单选题1、下列程序运行后消息对话框显示的结果是（ ）。Dim x%, y%x = Int（Rnd（） + 3If x 2 8 Then y = x 2 + 1If x 2 = 9 Then y = x 2 - 2If x 2 8 Then y = x 3MsgBox（y）A.10B.27C.7D.17答案：C2、有如下程序段：Dim intResult%, intX%, intY%intX = 100 : intY = 50intResult = IIf（intX = intY, intX * 2, intY - 50）执行该段程序后，intResult的值为（ ）。A.50B.200C.
2、0D.100答案：C3、计算分段函数值。下列程序段正确的是（ ）。A.If x 0 Theny = 1ElseIf x 1 Theny = 2Elsey = 3End IfB.If x = 2 Theny = 3ElseIf x = 1 Theny = 2ElseIf x =0 Theny = 1Elsey = 0End IfC.If x 0 Then y = 0If x 1 Then y = 1If x = 2 Then y = 3D.If x = 2 Then y = 3If x = 1 Then y = 2If x 0 Then y = 1If x 0 Then y = 0答案：B4、有
3、如下程序段：Dim a%, b%, c%a = 10 : b = 100 : c = 500If a a Then TextBox1.Text = b Else TextBox1.Text = c End IfElse TextBox1.Text = aEnd If执行该段程序后，TextBox1中显示的内容为（ ）。A.10B.0C.500D.100答案：D5、有下列程序段，其中存在着1个错误，发生在（ ）语句。Const pi = 3.14!Dim i%, s!i = 4.6pi = 3.14159If i Then s = pi * i * i Else s = 1MsgBox（s）A.pi = 3.14159B.If i Then s = pi * i * i Else s = 1C.Const pi = 3.14!D.i = 4.6答案：A
