VB基本結(jié)構(gòu)

　　1．下面的程序運行后，顯示的結(jié)果是________。

　　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”，執(zhí)行語句x=Iif((ad),”A”,”B”)后，x的值為___________。

　　A)”a”

　　B)”b”

　　C)”B”

　　D)”A”

　　4．下列程序段中，若要使輸出結(jié)果為輸入的兩個數(shù)中較大者的平方，空白處應填寫__________語句。

　　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．下面的程序段，顯示的結(jié)果是 ______。

　　Dim x

　　x= Int(Rn

　　D）+ 5

　　Select Case x

　　Case 5

　　Print “優(yōu)秀”

　　Case 4

　　Print “良好”

　　Case 3

　　Print “及格”

　　Case Else

　　Print “不及格”

　　End Select

　　A）不及格

　　B）良好

　　C）及格

　　D）優(yōu)秀

　　6．下面程序段求兩個數(shù)最大數(shù)，________不正確。

　　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．下列循環(huán)語句能正常結(jié)束的是________。

　　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．下面的程序段的運行結(jié)果是 ________。

　　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

參考答案

1	2	3	4	5	6	7	8	9	10
B	D	D	C	D	D	C	B	C	B
11	12	13	14	15
A	A	B	C	D

10．下列哪個程序段不能正確顯示1！、2！、3！、4！的值________。

　　A）for i = 1 to 4

　　n = 1

　　for j = 1 to i

　　n = n*j

　　next j

　　print n

　　next i

　　B）for i = 1 to 4

　　for j = 1 to i

　　n = 1

　　n = n*j

　　next j

　　print n

　　next i

　　C）n = 1

　　for j = 1 to 4

　　n = n*j

　　print n

　　next j

　　D）n = 1

　　j = 1

　　do while j <= 4

　　n = n*j

　　print n

　　&nb, sp; j = j+1

　　loop

　　11．有如下程序：

　　For i=1 to 3

　　For j=5 to 1 Step –1

　　Print i*j

　　Next j

　　Next i

　　則語句Print i*j的執(zhí)行次數(shù)是________。

　　A）15

　　B） 16

　　C）17

　　D）18

　　12．在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim i As Integer, x As Integer

　　For i = 1 To 6

　　If i = 1 Then x = i

　　If i <= 4 Then

　　x = x + 1

　　Else

　　x = x + 2

　　End If

　　Next i

　　Print x

　　End Sub

　　程序運行后，單擊命令按鈕，其輸出結(jié)果為________。

　　A）9

　　B） 6

　　C）12

　　D）15

　　13.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　c = "ABCD"

　　For n = 1 To 4

　　Print _________

　　Next n

　　End Sub

　　程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：

　　D

　　CD

　　BCD

　　ABCD

　　則在程序段的“Print ________”處應填入的內(nèi)容為________。

　　A）Left(c,n)

　　B）Right(c,n)

　　C）Mid(c,n,1)

　　D）Mid(c,n,n)

　　14．執(zhí)行以下程序段

　　Dim x As Integer, i As Integer

　　x=0

　　For i = 20 To 1 Step -2

　　x = x + i 5

　　Next i

　　后，x的值為________。

　　A）16

　　B） 17

　　C）18

　　D）19

　　15．在窗體上畫一個命令按鈕和一個文本框,名稱分別為Command1和Text1,然后編寫如下程序：

　　Private Sub Command1_Click()

　　a = InputBox("請輸入日期(1~31)")

　　t = "旅游景點：" _

　　& IIf(a > 0 And a <= 10, "長城", ""）_

　　& IIf(a > 10 And a <= 20, "故宮", ""）_

　　& IIf(a > 20 And a <= 30, "頤和園", "")

　　Text1.Text = t

　　End Sub

　　程序運行后，如果從鍵盤輸入16，則在文本框中顯示的內(nèi)容是________。

　　A）旅游景點：長城故宮

　　B）旅游景點：長城頤和園

　　C）旅游景點：頤和園

　　D）旅游景點：故宮

參考答案

1	2	3	4	5	6	7	8	9	10
B	D	D	C	D	D	C	B	C	B
11	12	13	14	15
A	A	B	C	D