包含vb.net期末考試題的詞條

VB期末考試

第一套

在鐵東等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、成都外貿(mào)網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作定制開發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站制作,網(wǎng)絡(luò)營銷推廣,成都外貿(mào)網(wǎng)站制作,鐵東網(wǎng)站建設(shè)費(fèi)用合理。

一、判斷題

1、Visual Basic程序開發(fā)的特點(diǎn)是面向?qū)ο蟮氖录?qū)動(dòng)。（√）

2、Print_Text是一個(gè)不合法的變量名。（×）

3、窗體的AutoRedraw屬性實(shí)現(xiàn)了屏幕圖像的重建。（√）

4、設(shè)置字體大小應(yīng)使用Font屬性（×）

5、Sub過程可以實(shí)現(xiàn)嵌套調(diào)用（√）

6、IIF函數(shù)中的三個(gè)參數(shù)都不能省略。（√）

7、塊結(jié)構(gòu)條件語句以End If結(jié)束，而單行結(jié)構(gòu)條件語句沒有End IF。（√）

8、當(dāng)終值小于初值時(shí)，步長為負(fù)數(shù)。（√）

9、執(zhí)行While-Wend循環(huán)時(shí)，如果一開始條件就不成立，則語句塊一次也

不會(huì)執(zhí)行。（√）

10、關(guān)于數(shù)組的引用,在程序中,凡是簡(jiǎn)單變量可以出現(xiàn)的地方都可以出現(xiàn)數(shù)組元素的引用 (√)

二、單項(xiàng)選擇題

1．Print Format（123，”####”）執(zhí)行之后的結(jié)果為

A）＃123 B）123 C）123＃ D）＃＃＃＃

2．下面可以表示注釋語句開頭的為

A）Re B）R C）Rem D）dim

3．下列選項(xiàng)中窗體載入事件為

A）Load事件 B）Click事件 C）DblClick事件 D）Unload事件

4．Timer控件可以使用下列哪種事件

A）Click事件 B）Timer事件 C）Dblclick事件 D）Change事件

5．在InputBox函數(shù)中哪一個(gè)參數(shù)是必須的

A）Prompt B）Buttons C）Title D）Context

6．以下敘述中錯(cuò)誤的是：

A）如果過程被定義為Static類型，則該過程中的局部變量都是Static類型

B）Sub過程中不能嵌套定義Sub過程

C）Sub過程可以嵌套調(diào)用Sub過程

D）事件過程可以像通用過程一樣由用戶定義過程名

7．要填加一個(gè)標(biāo)準(zhǔn)模塊，可使用“_____”菜單中的“添加模塊”命令。

A）文件 B）視圖 C）工程 D）工具

8．在塊結(jié)構(gòu)條件語句If-Then / Endif中

(A) 必須至少有一個(gè)Elseif語句

(B ) 可以有任意多個(gè)ElseIf-Then語句

(D ) 給定的條件只能是關(guān)系表達(dá)式或邏輯表達(dá)式

9．以下Case語句中錯(cuò)誤的是

(A) Case 10 To 1

(B) Case Is10

(C)Case Is10 , Is50

(D) Case 3,5,Is10

10．對(duì)Do Until…Loop循環(huán)，正確的是( )。

A．如果循環(huán)條件為常數(shù)0，則一次循環(huán)也不執(zhí)行

B．如果循環(huán)條件為常數(shù)0，則至少執(zhí)行一次循環(huán)

C．如果循環(huán)條件是不為0的常數(shù)，則至少執(zhí)行一次循環(huán)

D．無論循環(huán)條件是否為"True"，則至少執(zhí)行一次循環(huán)

11．語句Dim arr(-3 To 5, 2 To 6) As Integer定義的數(shù)組元素有_______個(gè)。

A) 45 B) 40 C) 11 D) 54

12．下列關(guān)于Option Base語句說法錯(cuò)誤的是______D

A) Option Base語句只能出現(xiàn)在窗體層或模塊層

B) Option Base語句不能出現(xiàn)在過程中

C) Option Base語句必須位于數(shù)組的定義之前

D) Option Base語句只對(duì)一維數(shù)組有效

13、Visual Basic的特點(diǎn)不包括下面的（A）

A 不需編程 B 面向豆象的程序設(shè)計(jì)

C 可視化程序設(shè)計(jì) D 時(shí)間驅(qū)動(dòng)的程序設(shè)計(jì)

14、從鍵盤上能夠輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是（D）

A Left B Mid

C String D Instr

15、如果將布爾常量值True賦值給一個(gè)整型變量，則整型變量的值為（B）

A 0 B -1

C True D false

16、下列符號(hào)常量的聲明中，（C）是不合法的。

A Const a As Single = 1.1 B Const a As Integer = “12”

C Const a As Double = Sin(1) D Const a =”O(jiān)K”

17、四個(gè)字符“E”,“y”,“B”,“8”的ASCII碼值最大的是（B）

A “E” B “y”

C “B” D “8”

18、將變量k四舍五入保留2位小數(shù)的表達(dá)式是（C）

A Int((k+0.5)*100)/100 B Int((k*100)/100)+0.5

C Int(k*100+0.5)/100 D Int(k*(100+0.5))/100”

19、30．將數(shù)學(xué)表達(dá)式Cos2(a+b)+5e2寫成Visual Basic的表達(dá)式，其正確的形式是（A）

A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2)

C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2)

20、在順序文件中，當(dāng)使用Write#語句時(shí)，文件打開的方式必須是（B）

A Output和Input B Output和Append

C Output D Append

三、程序分析題

1．以下語句的輸出結(jié)果是（注：■表示一個(gè)空格）

a = 123

b = 456

Print a; b

A）123■456 B）■123■456 C）■123■456■ D）■123■■456

2．下列程序執(zhí)行的結(jié)果為

x = -6 ^ 2

Print Sgn(x) + Abs(x) + Int(x)

A）－36 B）1 C）－1 D）－72

3．在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Label1的標(biāo)簽，然后編寫如下的事件過程：

Private Sub Command1_Click()

s = 0

For i = 0 To 15

X = 2 * i - 1

If X Mod 3 = 0 Then s = s + 1

Next i

Label1.Caption = s

End Sub

程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容為

A）1 B）5 C）27 D）45

4．在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Label1、Label2、Label3的標(biāo)簽，然后編寫如下的事件過程：

Private x As Integer

Private Sub Command1_Click()

Static y As Integer

Dim z As Integer

n = 10

z = n + z

y = y + z

x = x + z

Label1.Caption = x

Label2.Caption = y

Label3.Caption = z

End Sub

運(yùn)行程序后，連續(xù)三次單擊命令按鈕后，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是

A）10 10 10 B）30 30 30 C）30 30 10 D）10 30

5．在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Label1、Label2的標(biāo)簽，然后編寫如下的事件過程：

Private x As Integer

Private Sub Command1_Click()

x = 5: y = 3

Call Proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub Proc(ByVal a As Integer, ByVal b As Integer)

x = a * a

y = b + b

End Sub

運(yùn)行程序后，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是

A）5和3 B）25和3 C）25和6 D）5和6

6.下面程序段求兩個(gè)數(shù)中的大數(shù)，不正確的是

（A）If x＞y Then Max=x Else Max=y

（B） Max=IIf(x＞y,x,y)

（C）If y＞=x Then Max=y

Max=x

(D)If y＞x Then Max=y

Max=x

7．如果x的值大于或等于y的立方，則打印“OK”，表示這個(gè)條件的單行格式的If語句是

A）If x=y^3 Print “OK”

B）If x=y*y*y Then “OK”

C）If x=y^3 Then Print “OK”

D）If x=y*y*y Then Print “OK” End If

8．下列程序段執(zhí)行結(jié)果為

x = 5

y = -6

If Not x 0 Then x = y - 3 Else y = x + 3

Print y - x; x - y

A) 3 －3

B) －9 5

C) －3 3

D) 5 －6

9．已知x的值，計(jì)算分段函數(shù)f(x)，下面選項(xiàng)不正確的是

當(dāng) x＞=1， f(x)= ；

當(dāng)x＜1 ，f(x)= x2+3

(A) Select Case x

Case Is1

f= x^2+3

Case else

f=sqr(x+1 )

End Select

(B) Select Case x

Case x=1

f=sqr(x+1 )

Case x1

f= x^2+3

End Select

(C ) Select Case x

Case Is=1

f=sqr(x+1 )

Case Is1

f= x^2+3

End Select

(D) IF x=1 then f=sqr(x+1 ) else f= x^2+3

10．執(zhí)行完下面的程序段后，循環(huán)執(zhí)行了( )次。

For i = 1.7 To 5.9 Step 0.9

a = a + 1

Print a

Next I

A．3 B．4 C．5 D．6

11．下列程序段的執(zhí)行結(jié)果為( )。

n = 0

j = 1

Do Until n 2

n = n + 1

j = j + n * (n + 1)

Loop

Print n; j

A．0 1 B．3 7 C．3 21 D．3 13

12．以下正確的For…Next結(jié)構(gòu)是

（A） For x=1 To 10

for y=1 to 10

…

（B）For x=1 To 10

for y=1 to 10

…

Next y , x

（C）For x=1 To 10

for y=1 to 10

Next x

Next y

（D）For x=1 To 10

for y=1 to 10

…

Next x , y

13．下列程序中，第一個(gè)Do語句共執(zhí)行了( )次循環(huán)。

Dim i As Integer, j As Integer

i = 1

j = 1

Sum = Sum + j

j = j + 2

Print j;

Loop Until j 3

i = i + 2

Loop Until i 10

Print Sum

A．10 B．20 C．5 D．7

14．下列語句中，a是一個(gè)數(shù)組，則使用正確的是______

A) Option Base 2

B) Redim a

C) Erase a

D) a = Array()

15.在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click()

Dim array1(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

for j = 2 To 4

array1(i, j) = i + j

next j

next i

Text1.Text = arrry1(2, 3) + array(3, 4)

End Sub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是______

A) 12 B) 13 C) 14 D) 15

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

Private Sub Command1_Click()

Dim a (10,10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

for j = 1 To 3

a (i, j) = (i – 1) * 3 + j

Print a(i, j );

next j

next i

End Sub

程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是______

A) 1 2 3

2 4 6

3 6 9

B) 2 3 4

3 4 5

4 5 6

C) 1 4 7

2 5 8

3 6 9

D) 1 2 3

4 5 6

7 8 9

17.設(shè)有如下程序：

Option Base 0

Private Sub Form_Click()

Dim a

Dim i As Integer

a = Array(1,2,3,4,5,6,7,8,9)

For i = 0 To 3

Print a(5 – i);

End Sub

程序運(yùn)行后，單擊窗體，則在窗體上顯示的是______

A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4

18．執(zhí)行以下Command1的Click事件過程在窗體上顯示_______。

Private Sub Command1_Click()

Dim a

a = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)

Print a(1); a(3); a(5)

End Sub

A) a b c B) b d f C) a c e D) 出錯(cuò)

19、設(shè)有語句

Open"c:\Test.Dat"For Output As#1

則以下錯(cuò)誤的敘述是（B）

A）該語句打開C盤根目錄下一個(gè)已存在的文件Test.Dat

B）該語句在C盤根目錄下建立一個(gè)名為Test.Dat的文件

C）該語句建立的文件的文件號(hào)為1

D）執(zhí)行該語句后，就可以通過Print#語句向文件Test.Dat中寫入信息

20、以下代碼完成對(duì)順序文件test1.txt追加打開的是（C）

A）Open test1.txt For Input As #1

B）Open test1.txt For Output As #1

C）Open test1.txt For Append As #1

D）Open test1.txt For Redom As #1

四、上機(jī)題

1．小王有存款A(yù)元，年利率為P,存儲(chǔ)時(shí)間為T年.請(qǐng)編寫一個(gè)程序計(jì)算本利合計(jì)。（A 、P、 T均使用Inputbox輸入）

2．求100以內(nèi)的素?cái)?shù)，素?cái)?shù)是指一個(gè)數(shù)x除了1和它本身，不能被其他任何整數(shù)整除。要求每行輸出10個(gè)素?cái)?shù)。

單擊窗體，運(yùn)行結(jié)果如圖所示：

答案

在單擊窗體的事件過程中添加代碼，程序代碼如下：

Private Sub Form_click()

Const N = 100

Dim i, j, Line, a(N) As Integer

For i = 0 To N - l ' 置初值

a(i) = i

Next i

For i = 2 To Sqr(N)

For j = i + 1 To N

If a(i) 0 And a(j) 0 Then

If a(j) Mod a(i) = 0 Then a(j) = 0 ' 能整除就賦0

End If

Next j

Next i

Print "顯示出100以內(nèi)的素?cái)?shù)"

For i = 2 To N - 1

If a(i) 0 Then

Print a(i); Spc(1);

Line = Line + 1

End If

If Line 0 And Line Mod 10 = 0 Then Print ' 每行顯示10個(gè)數(shù)

Next i

End Sub

評(píng)分標(biāo)準(zhǔn)：

1、正確給數(shù)組賦值（2分）

2、正確判斷素?cái)?shù) （3分）

3、正確輸出顯示結(jié)果（2分）

4、文件存盤（2分）

5、程序結(jié)構(gòu)合理、清晰（1分）

求一些大一的vb期末考試題和答案

我在鄭州上學(xué)，這是我們的試卷，中原工學(xué)院經(jīng)管院大一的試題希望對(duì)你有用！

一、單項(xiàng)選擇題（共10分）

1．在代碼中引用一個(gè)控件時(shí)，應(yīng)使用控件的（）屬性。

A．Caption B．Name C．Text D．Index

2．設(shè)變量x = 4，y = -1，a = 7，b = -8,下面表達(dá)式（）的值為“假”。

A．x+a = b-y B． x 0 AND y 0

C．a(chǎn) = b OR xy D． x+y a+b AND NOT (y b)

3．表達(dá)式Int(Rnd*71)+10產(chǎn)生的隨機(jī)整數(shù)范圍是（）。

A．（10，80） B．（10，81） C．[10，80] D．[10，81]

4．函數(shù)Sgn(3.1416)的返回值是（）。

A．-1 B．0 C．1 D．以上都不對(duì)

5．67890屬于（）類型數(shù)據(jù)。

A．整型 B．單精度浮點(diǎn)數(shù) C．貨幣型 D．長整型

6．下列變量名中正確的是（）。

A．3S B．Print C．Select My Name D．Select_1

7．下列賦值語句（）是有效的。

A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0

8．以下的控件或方法具有輸入和輸出雙重功能的為（）。

A．Print B．Textbox C．Optionbutton D．Checkbox

9．若要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過訪問（）屬性來實(shí)現(xiàn)。

A．Name B．ListIndex C．ListCount D．Text

10．下列代碼的運(yùn)行結(jié)果為（）。

Private Sub command1_click()

Dim m(10)

For k = 1 To 10

m(k) = 11 - k

Next k

x = 5

Print m(2 + m(x))

End Sub

A．2 B．3 C．4 D．5

二、填空題（10分）

1．寫出整數(shù)n能同時(shí)被13和17整除的Basic表達(dá)式。

2．代碼窗口中有兩個(gè)下拉列表框：左側(cè)是列表框，右側(cè)是過程列表框。

3．寫出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表達(dá)式。

4．函數(shù)Len(“abcdef”)的返回值是。

5．設(shè)a = 2，b = 5，c = -2，d = 100，則a b = c AND a b = d的值為。

6．要使標(biāo)簽的大小自動(dòng)與所顯示的文本相適應(yīng)，可以通過設(shè)置屬性為True來實(shí)現(xiàn)。

7．若要在一行書寫多條語句，則各語句間應(yīng)加分隔符，Visual Basic的語句分隔符為。

8．要強(qiáng)制顯式聲明變量，使用__________語句完成。

9．在VB中，用戶定義常量使用語句，聲明變量使用語句。

三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式。（6分）

1．a(chǎn)2+2ab+b2 __________________________

2． __________________________

3．8exln10 __________________________

4．2sin(450)cos(450) _______________________________

5． ___________________________________________

6． ___________________________________________

四、判斷題，正確打“√”，錯(cuò)誤打“×”（10分）

1．在VB中，控件的事件只能通過用戶的操作觸發(fā)。（）

2．字符型數(shù)據(jù)以雙引號(hào)作為定界符，輸出時(shí)雙引號(hào)本身不會(huì)顯示在屏幕上。（）

3．保存工程時(shí)，窗體文件和工程文件的文件名不能相同。（）

4．改變控件的大小，可以使用鼠標(biāo)和鍵盤，還可以通過修改代碼。（）

5．同一過程中，數(shù)組和簡(jiǎn)單變量可以同名。（）

6．VB函數(shù)中的參數(shù)可以是常量、變量、表達(dá)式，還可以是另一個(gè)函數(shù)。（）

7．代碼Const Number1=15：Number1=10合法。（）

8．允許將塊If-Then語句結(jié)構(gòu)中的所有語句都寫在一行上（）

9．定義數(shù)組語句Dim a(b) As Integer 是正確的（）

10．在過程調(diào)用中，“實(shí)參表”和“形參表”中對(duì)應(yīng)的變量名不必相同，但是變量的個(gè)數(shù)必須相等，而且實(shí)際參數(shù)的類型必須與相應(yīng)形式參數(shù)的類型相符。（）

五、根據(jù)題意，將下列程序補(bǔ)充完整。（16分）

1．產(chǎn)生20個(gè)[10，100] 之間的隨機(jī)整數(shù)，每行輸出10個(gè)數(shù)據(jù)。

Private Sub command1_click()

Dim a(1 To 20) As Integer

Randomize

i = 0

Do While i 20

i = i + 1

a(i) = ( )

If （）Then

Print a(i);

End If

If i = 10 Then Print a(i)

If i 10 Then Print a(i);

Loop

End Sub

2．打印九九乘法表

Private Sub command1_click()

For i = 1 To 9

For j = 1 To 9

Print （）

Next j

（）

End Sub

3．判斷一個(gè)數(shù)是否素?cái)?shù)

Private Sub command1_click()

x = InputBox("請(qǐng)輸入一個(gè)整數(shù)")

flag = 1

For i = 2 To （ )

If x Mod i = 0 Then

flag = 0

End If

Next i

If （）Then Print x; "是素?cái)?shù)" Else Print x; "不是素?cái)?shù)"

End Sub

4．利用數(shù)組輸出Fibonacci數(shù)列的前15項(xiàng)。

該數(shù)列的第1項(xiàng)和第2項(xiàng)為1，其余各項(xiàng)均為其前兩項(xiàng)之和。

Private Sub Command1_Click()

（）

f(1) = 1 : f(2) = 1

List1.AddItem f(1) : List1.AddItem f(2)

For i = 3 To 15

f(i) = （ )

List1.AddItem f(i)

Next i

End Sub

六、寫出下面程序的輸出結(jié)果。（每題3分，共18分）

1． Private Sub command1_click()

x = InputBox("enter x") ' x 的輸入值為-8

Select Case Sgn(x) + 2

Case 1

Print "y="; x ^ 2 + 1

Case 2

Print "y="; x - 4

Case 3

Print "y="; x ^ 3 + 100

End Select

End Sub

2． Private Sub command1_click()

Dim a, b, c, d, e As String

a = "Zheng Zhou"

b = "Zhong Yuan Gong Xue Yuan"

c = a + " " + b

d = Left(a, 1) + Mid(a, 7, 1)

e = Left(b, 1) + Mid(b, 12, 1)

Print c

Print d; e

End Sub

3．設(shè)有Sub過程：

Private Sub p1(x As Integer, ByVal y As Integer)

x = 4 ：y = 5 ：z = 6

End Sub

則如下程序段的運(yùn)行結(jié)果是:

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 1: y = 2: z = 3

Print x, y, z

Call p1(x, y)

Print x, y, z

End Sub

4． Private Sub command1_click()

k = 0

For i = 1 To 3

k = k + 1

a = i * i * k

Print a;

Next i

End Sub

5． Private Sub command1_click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 5

a(i, j) = i * 2 + j

Print a(i, j);

Next j

Next i

End Sub

6．設(shè)有Function過程:

Private Function f1(b, a)

a = a * a: b = b * b

f1 = a - b

End Function

則如下程序段的運(yùn)行結(jié)果是什么？

Private Sub command1_click()

a = 4: b = 3

a = f1(a, b)

Print a

End Sub

七．編程題（共30分）

注意：藝術(shù)類學(xué)生（環(huán)藝、裝潢、表演、服設(shè)）做第1、2、5、6小題；

其他學(xué)生做第1、2、3、4 小題。

1．給出一個(gè)百分制的成績(jī)，要求輸出成績(jī)的相應(yīng)等級(jí)。（7分）

90分以上為“A”，80～89分為“B”，70～79分為“C”，60～69分為“D”，60分以下為“E”。

2．求n!,n由鍵盤輸入。（7分）

3．產(chǎn)生20個(gè) [0，99] 之間的隨機(jī)整數(shù)，并按從小到大的順序輸出。（8分）

4．產(chǎn)生并輸出一個(gè)6×6的二維數(shù)組A：（8分）

（1）兩條對(duì)角線上元素的值為1，其余元素為小于30的隨機(jī)整數(shù)。

（2）計(jì)算各行元素的平均值，輸出平均值最大和平均值最小的行號(hào)。

5．輸出1+2+……+100的和，并求出1～100 之間能被17整除的數(shù)據(jù)的個(gè)數(shù)（8分）

6．從鍵盤輸入10個(gè)數(shù)，求出其中的最大數(shù)，最小數(shù)和平均值。（8分）

VB試題答案及評(píng)分標(biāo)準(zhǔn)

一、單項(xiàng)選擇題（每題1分，共10分）

1．B 2．A 3．C 4．C 5．D

6．D 7．A 8．B 9．D 10．B

二、填空題（每空1分，共10分）

1．n Mod 13=0 And n Mod 17=0

1、對(duì)象

3．LEFT(“Visual Basic 6.0”,6)

4．6

5．False

6．Autosize

7．： 8．Option Explict 9．Const Dim

三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換成VB表達(dá)式（每題1分，共6分）

1、 a^2+2*a*b+b^2

2、 x^(1/3)*y^(1/4)

3、 8*exp(x)*log(10)

4、 2*sin(3.1416/4)*cos(3.1416/4)

5、 (x+y+z)/sqr(x^2+y^2+z^2)

6、 log(1+abs((a+b)/(a-b)))

四、判斷題（每題1分，共10分）

1．× 2．√ 3．× 4．√ 5．×

6．√ 7．× 8．× 9．× 10．√

五、根據(jù)題意，將下列程序補(bǔ)充完整（每空1分，共10分）

1．（1） int(rnd*91)+10 （2） I10

2．（1） i*j （2） next i

3．（1）int(sqr(x))或者x-1 （2） flag=1

4．（1）dim f(15) as integer （2）f(I-1)+f(I-2)

六、寫出下面程序的輸出結(jié)果（每題4分，共24分）

1、 y=65

2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分

ZZZG 2分

3．1 2 3

4 2 3

4．1 8 27

5．3 4 5 6 7

5 6 7 8 9

7 8 9 10 11

9 10 11 12 13

11 12 13 14 15

6．-7

七、編寫程序

1. private sub command1_click()

dim x as integer,grade as string 1分

x=text1.text 1分

select case x 4分

case 90 to 100

grade=”A”

case 80 to 89

grade=”B”

case 70 to 79

grade=”C”

case 60 to 69

grade=”D”

case is60

grade=”E”

case else

msgbox “請(qǐng)重新輸入”

end select

print “該學(xué)生成績(jī)?yōu)椤?grade 1分

end sub

2．Private Sub command1_click()

Dim n as integer,f as long 1分

n=text1.text 1分

f=1

for I=1 to n 3分

f=f*I

next I

text2.text=f 2分

end sub

3． Private Sub Command1_Click()

Dim a(1 To 20) As Integer ' 1分

Randomize

For i = 1 To 20 2分

a(i) = Int(Rnd * 100)

Print a(i);

For i = 1 To 19 3分

For j = i + 1 To 20

If a(i) a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

For i = 1 To 20 2分

Print a(i);

Next i

End Sub

4． Private Sub Command1_Click()

Dim a(1 To 6, 1 To 6) As Integer ' 1分

Dim aver As Single

Randomize

For i = 1 To 6 3分

For j = 1 To 6

If i = j Or i + j = 7 Then

a(i, j) = 1

Else

a(i, j) = Int(Rnd * 30)

End If

Print a(i, j);

Next j

Next i

Max = 0: Min = 30 4分

For i = 1 To 6

s = 0

For j = 1 To 6

s = s + a(i, j)

Next j

aver = s / 6

If aver Max Then Max = aver: row_max = I

If aver Min Then Min = aver: row_min = i

Next i

Print row_max, row_min

End Sub

5． Private Sub Command1_Click()

Dim i As Integer, c As Integer

Dim s As Integer

For i = 1 To 100 4分

s = s + i

If i Mod 17 = 0 Then c = c + 1

Next i

Print "1+2+...+100="; s 2分

Print "能被17整數(shù)的數(shù)據(jù)有"; c; "個(gè)" 2分

End Sub

6． Private Sub Command1_Click()

Dim x As Integer

x = InputBox("x=") 1分

Print x;

Max = x: Min = x: s = x 2分

For i = 2 To 10 3分

x = InputBox("x=") ：Print x;

s = s + x

If x Max Then Max = x

If x Min Then Min = x

Next i

Print s / 10 1分

Print Max, Min 1分

End Sub

VB期末考試的幾道程序修改題目求解!!!

1.求輸入任意兩個(gè)數(shù)的最大公約數(shù)~!!

代碼如下:Private Sub Command1_Click()

Dim m, n, s As Single

m = Val(Text1.Text)

n = Val(Text2.Text)

'下行已改正

Do While (n 0)

s = m Mod n

m = n

n = s

Loop

'下行已改正

Text3.Text = m

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

2.輸出100到1000以內(nèi)的所有水仙花數(shù)

Private Sub Command1_Click()

Dim a, b, c

For i = 100 To 999

a = Int(i / 100)

'下行已改正

b = Int((i - a * 100) / 10)

c = i Mod 10

If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then

'下行已改正

Print a * 100 + b * 10 + c

End If

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

3.設(shè)計(jì)程序,計(jì)算出S=1*(1*2)*(1*2*3)*.....*(1*2*3*....*n)的積

Private Sub Command1_Click()

Dim n As Integer, i As Integer, j As Long, s As Long

n = Val(Text1.Text)

'下行已改正

j = 1

s = 1

For i = 1 To n

j = j * i

'下行已改正

s = s * j

Next i

Text2.Text = s

End Sub

vb期末考試試題誰有啊

這有一份

VB期末考試試題一、填空題

1、VB程序設(shè)計(jì)的主要特點(diǎn)是（1）和（2）。

2、在VB中，最主要的兩種對(duì)象是（3）和（4）。

3、工程是構(gòu)成應(yīng)用程序文件的（5）。

4、方法是VB提供的一種（6），用來完成一定的操作。

5、浮點(diǎn)類型數(shù)據(jù)包括單精度型和___（7）__數(shù)據(jù)。

6、事件是窗體或控件對(duì)象識(shí)別的___（8）____。

7、可用窗體的___（9）_ 方法在窗體中顯示文字。

8、復(fù)選框控件Value屬性指示復(fù)選框處于____（10）___或禁止?fàn)顟B(tài)(暗淡的)中的某一種。

9、在VB中，修改窗體的（11）和（12）屬性值，可改變窗體的大小。

10、雙擊工具箱中的控件圖標(biāo)，可在窗體的（13）出現(xiàn)一個(gè)尺寸為缺省值的控件。

11、在MsgBox函數(shù)中，如果缺省title參數(shù)，則使用（14）作為消息框的標(biāo)題。

12、設(shè)x＝34.58，語句Print Format(x,“000.0”)的輸出結(jié)果是（15）。

13、在VB 中，數(shù)值型變量的初值為（16），Varant型變量的初值為（17），布爾型變量的初值為（18）。

14、設(shè)置窗體的（19）屬性，可在窗體上顯示圖片。

15、程序運(yùn)行工程中，清除MP圖片框中的圖片應(yīng)使用語句（20）。

二、選擇題

1、菜單控件只包括一個(gè)事件，即（1），當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵時(shí)觸發(fā)該事件，除分隔條以外的所有菜單控件都能識(shí)別該事件。

A、GotFocus B、Load C、Click D、KeyDown

2、滾動(dòng)條控件(如圖所示)的Max屬性所設(shè)置的是（2）。

A、滾動(dòng)框處于最右位置時(shí)，一個(gè)滾動(dòng)條位置的Value屬性最大設(shè)置值

B、單擊滾動(dòng)條和滾動(dòng)箭頭之間的區(qū)域時(shí)，滾動(dòng)條中滾動(dòng)塊的最大移動(dòng)量

C、單擊滾動(dòng)條的箭頭區(qū)域時(shí)，滾動(dòng)條中滾動(dòng)塊的最大移動(dòng)量

D、滾動(dòng)條控件無該屬性

3、SQL 語句 Select * Form student 中的 *表示（3）。

A、所有記錄 B、所有字段 C、所有表 D、都不對(duì)

4、以下選項(xiàng)中，不屬于標(biāo)簽的屬性是（4）。

A、Enabled B、Caption C、Default D、Font

5、要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是（5）。

A、Caption B、Name C、Text D、Label

6、設(shè)置一個(gè)單選按鈕(OptionButton)所代表選項(xiàng)的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的屬性是（6）。

A、Caption B、Name C、Text D、Value

7、允許在菜單項(xiàng)的左邊設(shè)置打勾標(biāo)記，下面哪種論述是正確的？（7）。

A、在標(biāo)題項(xiàng)中輸入，然后打勾 B、在索引項(xiàng)中打勾

C、在有效項(xiàng)中打勾 D、在復(fù)選項(xiàng)中打勾

8、當(dāng)執(zhí)行以下過程時(shí)，在窗體上將顯示（8）。

Private Sub Command1_Click( )

Print "VB";

Print "Hello! ";

Print "VB"

End Sub

A、 VBHello!VB B、 VB

Hello!VB

C、 VB D、 VB

Hello! VB Hello!

9、語句Print "The answer is:";20/4-2的結(jié)果為（9）。

A、The answer is 20/4-2 B、The answer is 3

C、The answer is "20/4-2" D、非法語句

10、下列哪個(gè)控件是容器控件（10）。

A、Image B、Picture C、ComboBox D、FileListBox

11、若要將窗體從內(nèi)存中卸載出去，其實(shí)現(xiàn)的方法是（11）。

A.Show　 B.Hide　　 C.Load　　 D.UnLoad

12、以下選項(xiàng)中，不是 Visual Basic控件的是（12）。

　 A.窗體 B.定時(shí)器 C.單選框　　 D.命令按鈕

13、雙擊窗體中的對(duì)象后，Visual Basic將顯示的窗口是（13）。

A.代碼窗口　 B．工具箱　 C．項(xiàng)目（工程）窗口　 D．屬性窗口

14、可決定窗體的左上角是否有控制菜單的屬性是（14）。

A.ControlBox B.MinButton

C.MaxButton　　 D.BorderStyle

15、設(shè)有如下語句：

Strl＝InputBox（"輸人"，""，"練習(xí)"）

從鍵盤上輸人字符 “示例”后，Strl的值是（15）。

A．“輸入” B．“ ” C．“練習(xí)” D．“示例”

16、窗體Form1的Name屬性是Frm1,它的單擊事件過程名是（16）。

A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click

17、窗體的hide屬性的含義是（17）。

A.隱藏 B.展現(xiàn) C.裝入 D.卸載

18、若要設(shè)置定時(shí)器控件的定時(shí)時(shí)間，需設(shè)置的屬性是（18）。

A．Enabled B．Value C．Interval D．Text

19、能夠改變復(fù)選框中背景顏色的屬性是（19）。

A．Value B．FontColor C．BackColor D．Font

20、窗體能響應(yīng)的事件是（20）。

A．ActiveForm B．Load C．Drive D．Change

三、判斷題(判斷下列正確與否，正確的打√，錯(cuò)誤的打ⅹ。)

1、三種方式的組合框都允許用戶輸入哪些不在列表框中的選項(xiàng)。

2、圖象框中的Stretch屬性為true時(shí)，其作用是圖形自動(dòng)調(diào)整大小以適應(yīng)圖象控件。

3、在菜單編輯器中使用“索引”時(shí)，可有一組菜單項(xiàng)具有相同的“名字”。

4、通過改變屬性窗口中的Name屬性，來改變窗體的標(biāo)題。

5、創(chuàng)建VB應(yīng)用程序的三個(gè)主要步驟是：(1)創(chuàng)建應(yīng)用程序界面(2)設(shè)置控件(3)編寫代碼。

6、變量是指在程序運(yùn)行過程中其值可以改變的那些量，而值不能改變的是常量。

7、已知P＝MsgBox(“Howareyou?"，VbYesNo+VbQuestion，“Hello!”)，變量P是Integer數(shù)據(jù)類型。

8、工程文件的擴(kuò)展名是 .vbg 。

9、VB允許設(shè)計(jì)和使用用戶自己設(shè)計(jì)的控件。

10、OptionButton控件沒有DblCliek事件。

11、同一條記錄中的各數(shù)據(jù)具有相同的類型。

12、使用Data控件可以直接顯示數(shù)據(jù)庫中的數(shù)據(jù)。

13、ImageList 是一個(gè)圖像容器控件，可用作工具欄的圖像庫。

14、當(dāng)用戶單擊工具欄按鈕時(shí)，將觸發(fā)工具欄按鈕的ButtonClick事件。

15、在VB的工程資源管理器中，如果從工程中移除已經(jīng)保存過的文件，該文件仍然被物理刪除（真正刪除）。

16、如果列表框的ListConut的屬性為10，則列表框最后一項(xiàng)的ListIndex值為10。

17、要是某個(gè)命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。

18、使用數(shù)組定義語句：Dim D$（10），則數(shù)組D中各元素的值為空。

19、如果在一行中輸入多條語句，各語句之間用使用；分隔。

20、在代碼窗口中輸入某行代碼并按回車鍵之后，如果代碼變成紅色，說明該行代碼有語法錯(cuò)誤。

四、讀程序題，寫出程序運(yùn)行結(jié)果

1、 Private Sub Form_Click()

Static SUM As Integer

I = 1

Do While I=10

SUM = SUM + I

I = I + 1

Loop

Print SUM

End Sub

運(yùn)行程序，第一次單擊窗體：

第二次單擊窗體：

2、 Private Sub Form_Click()

Print "*"; Tab(6); 2, Tab(15); 5

For I = 15 To 16

Print I;

For j = 2 To 6 Step 3

Print Tab(3 * j); j * I;

Next j

Next I

End Sub

程序運(yùn)行結(jié)果：

五、編程題

（一）窗體中有圖片框(Picture1)和計(jì)時(shí)器(Timer1)兩個(gè)控件，運(yùn)行程序時(shí)，將圖片加載到圖片框中，然后圖片框以每2秒鐘一次的速度向窗體的右下腳移動(dòng)，每次向左、向右移動(dòng)100twip（20分之一像素）。請(qǐng)?zhí)羁眨?/p>

Private Sub Form_load( )

（1） =loadPicture(“c:\pic\ball.ico”)

（2） .Interval=200

End Sub

Private Sub Timer1_Timer( )

Static x , y As Integer

x=x+100

y=y+100

Picture1.Move （3）

End Sub

（二）有一個(gè)單擊按鈕過程，其作用是產(chǎn)生50個(gè)60～100的隨機(jī)數(shù)，統(tǒng)計(jì)其中被6整除余2的個(gè)數(shù)，并將這些數(shù)輸出。請(qǐng)?zhí)羁眨?/p>

Private Sub Command1_Click()

Dim x As Integer, N%

Dim Counter As Integer

(1) Timer

For N=1 To 50

X=Rnd()* (2)

If (3) =2 Then

Print x

Counter= (4)

(5)

Next N

Print Counter

End Sub

《VB程序設(shè)計(jì)與應(yīng)用》參考答案

一、填空題 1 2 3 4 5

答案可視化設(shè)計(jì) 事件驅(qū)動(dòng)編程窗體（form）控件集合

題號(hào) 6 7 8 9 10

答案特殊子程序雙精度動(dòng)作 Print 選中

題號(hào) 11 12 13 14 15

答案高度（Height）寬度(Width) 中央工程1 34.6

題號(hào) 16 17 18 19 20

答案 0 空 False Picture Cls

二、選擇題 1 2 3 4 5

答案 C A B C A

題號(hào) 6 7 8 9 10

答案 D D A B B

題號(hào) 11 12 13 14 15

答案 D A A A D

題號(hào) 16 17 18 19 20

答案 C A C C B

三、判斷題 1 2 3 4 5 6 7 8 9 10

答案 Х Х Х √ Х √ √ √ √ Х

11 12 13 14 15 16 17 18 19 20

答案 √ Х √ √ Х Х √ Х Х √

四、程序閱讀題：

（一）（10分）

1 、 55

2、 110

（二）、（10分）

* 2 5

15 30 75

16 32 80

五、編程題（20分）

（一）1、Picture1.Picture

2、 Timer1

3、 x ,y

(二) 1、 Randomize

2、 Rnd()*41+60

3、 x Mod 6

4、 Counter＋1

5 End If

一、單項(xiàng)選擇題（共10分）

1．在代碼中引用一個(gè)控件時(shí)，應(yīng)使用控件的（B）屬性。

A．Caption B．Name C．Text D．Index

2．設(shè)變量x = 4，y = -1，a = 7，b = -8,下面表達(dá)式（A）的值為“假”。

A．x+a = b-y B． x 0 AND y 0

C．a(chǎn) = b OR xy D． x+y a+b AND NOT (y b)

3．表達(dá)式Int(Rnd*71)+10產(chǎn)生的隨機(jī)整數(shù)范圍是（C ）。

A．（10，80） B．（10，81） C．[10，80] D．[10，81]

4．函數(shù)Sgn(3.1416)的返回值是（C ）。

A．-1 B．0 C．1 D．以上都不對(duì)

5．67890屬于（ D ）類型數(shù)據(jù)。

A．整型 B．單精度浮點(diǎn)數(shù) C．貨幣型 D．長整型

6．下列變量名中正確的是（D）。

A．3S B．Print C．Select My Name D．Select_1

7．下列賦值語句（ A ）是有效的。

A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0

8．以下的控件或方法具有輸入和輸出雙重功能的為（B）。

A．Print B．Textbox C．Optionbutton D．Checkbox

9．若要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過訪問（D）屬性來實(shí)現(xiàn)。

A．Name B．ListIndex C．ListCount D．Text

10．下列代碼的運(yùn)行結(jié)果為（B ）。

Private Sub command1_click()

Dim m(10)

For k = 1 To 10

m(k) = 11 - k

Next k

x = 5

Print m(2 + m(x))

End Sub

A．2 B．3 C．4 D．5

二、填空題（10分）

1．寫出整數(shù)n能同時(shí)被13和17整除的Basic表達(dá)n Mod 13=0 And n Mod 17=0式。

2．代碼窗口中有兩個(gè)下拉列表框：左側(cè)是(對(duì)象)列表框，右側(cè)是過程列表框。

3．寫出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表達(dá)式LEFT(“Visual Basic 6.0”,6)。

4．函數(shù)Len(“abcdef”)的返回值是(6) 。

5．設(shè)a = 2，b = 5，c = -2，d = 100，則a b = c AND a b = d的值為False 。

三、將下列數(shù)學(xué)表達(dá)式轉(zhuǎn)換為VB表達(dá)式。（6分）

1．a(chǎn)2+2ab+b2 ： a^2+2*a*b+b^2

2．8exln10 ：8*exp(x)*log(10)

3．2sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4)

6．在VB中，用戶定義常量使用 Const 語句，聲明變量使用 Dim語句。

新聞名稱：包含vb.net期末考試題的詞條
本文網(wǎng)址：http://muchs.cn/article20/doedgjo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設(shè)、面包屑導(dǎo)航、云服務(wù)器、、建站公司、網(wǎng)站設(shè)計(jì)

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容