VB基本结构

　　1．下面的程序运行后，显示的结果是________。

　　x=0

　　If x Then Print x+1 Else Print x

　　A）1

　　B） 0

　　C ）显示错误信息

　　D）2

　　2．语句If x = 1 Then y = 1，下面说法正确的是______。

　　A）x = 1 和 y = 1均为赋值语句

　　B）x = 1 和 y = 1均为关系表达式

　　C）x = 1 为赋值语句，y = 1 为关系表达式

　　D）x = 1 为关系表达式，y = 1 为赋值语句

　　3．设a=”a”,b=”b”,c=”c”,d=”d”，执行语句x=Iif((ad),”A”,”B”)后，x的值为___________。

　　A)”a”

　　B)”b”

　　C)”B”

　　D)”A”

　　4．下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写__________语句。

　　x=Val(InputBox(“请输入 x的值：”))

　　y=Val(InputBox(“请输入 y的值：”))

　　s=x : ______________

　　s=s*s

　　Print s

　　A)If (x　　B)If x>y Then s=y

　　C)If (x　　D)If x>y s=y

　　5．下面的程序段，显示的结果是 ______。

　　Dim x

　　x= Int(Rn

　　D）+ 5

　　Select Case x

　　Case 5

　　Print “优秀”

　　Case 4

　　Print “良好”

　　Case 3

　　Print “及格”

　　Case Else

　　Print “不及格”

　　End Select

　　A）不及格

　　B）良好

　　C）及格

　　D）优秀

　　6．下面程序段求两个数最大数，________不正确。

　　A）Max = IIF(x > y, x, y)

　　B）If x > y Then Max = x Else Max = y

　　C）Max = x

　　If y >= x Max = y

　　D）If y >= x Max = y

　　Max = x

　　7．下列循环语句能正常结束的是________。

　　A）i = 5

　　Do

　　i = i + 1

　　Loop Until i < 0

　　B）i = 1

　　Do

　　i = i + 2

　　Loop Until i = 10

　　C）i = 10

　　Do

　　i = i - 1

　　Loop Until i < 0

　　D）i x = 6

　　Do

　　i = i - 2

　　Loop Until i = 1

　　8．下面的程序段的运行结果是 ________。

　　For i = 3 To 1 Step -1

　　Print Spc(5-i);

　　For j = 1 To 2 * i-1

　　Print “$”;

　　Next j

　　Print

　　Next i

　　A） $

　　$$$

　　$$$$$

　　B）$$$$$

　　$$$

　　$

　　C）$$$$$

　　$$$

　　$

　　D）$$$$$

　　$$$

　　$

　　9．下列程序当在文本框输入“ABCD”时，窗体上显示的是________。

　　Private Sub Text1_Change()

　　Print Text1.Text；

　　End Sub

　　A）ABCD

　　B）A

　　B

　　C

　　D

　　C）AABABCABCD

　　D）A

　　AB

　　ABC

　　ABCD

参考答案