試卷代號(hào)：2231

座位號(hào)口口

中央廣播電視大學(xué)2004-2005學(xué)年度第二學(xué)期"開(kāi)放專(zhuān)科"期末考試

計(jì)算(應(yīng))、軟件信息

軟 件 網(wǎng) 站 專(zhuān)業(yè) VisualBasic程序設(shè)計(jì) 試題

2005年7月

題 號(hào)

一

二

三

四

五

總 分

分 數(shù)

得 分

評(píng)卷人

一，單項(xiàng)選擇題(每小題2分，共30分)

1．下列關(guān)于變量的說(shuō)法不正確的是( )

A. 局部變量是指那些在過(guò)程中用Dim語(yǔ)句或Static語(yǔ)句聲明的變量

B．局部變量的作用域僅限于聲明它的過(guò)程

C. 靜態(tài)局部變量是在過(guò)程中用Sta"c語(yǔ)句聲明的

D．局部變量在聲明它的過(guò)程執(zhí)行完畢后就被釋放了

2．無(wú)論何種控件，共同具有的屬性是( )

A．Text屬性 B．Name屬性

C. Caption屬性 D．Autosize屬性

3．如果想讓文本框中的內(nèi)容在運(yùn)行時(shí)不能編輯，需將文本框的( )屬性設(shè)置為T(mén)rue

A．LOcked B．MultiLine

C．TabStop D．Visible

4．后綴為．frm的文件表示VB的( )

A. 類(lèi)模塊文件 B．窗體文件

C，工程文件 D．標(biāo)準(zhǔn)類(lèi)模塊文件

5.下列變量名合法的是( )

A，20ab B．a-b

C．a_2 D．integer

6.為了在運(yùn)行時(shí)把d:文件夾的圖形文件a.jpg裝入圖片框Picturel中，所使用的語(yǔ)句為( )

A． A． Plcturel．Text = loadPicture("d:/pic/a.jpg")

B． B． Picturel．Picture = loadPicture("d:/pic/a.jpg")

C． C． Picturel．Picture = loadPicture("d:/pic/a.jpg")

D． D．Picturel．Picture ＝ loadPicture("d:/pic/a.jpg")

7．邏輯表達(dá)式Not 5>3 And 9<3 Or 7>5( )

A．True B．False

C．表達(dá)式有錯(cuò) D. 條件不足

8．表達(dá)式4+19＼6*7／8 Mod 2的值是( )

A. 4 B. 5

C. 6 D. 7

9．下列可以用來(lái)存儲(chǔ)圖像供其他對(duì)象使用的控件是( )

A．TOOlBar B．StatursBar

C．ImageList D．TreeView

10．下列數(shù)據(jù)對(duì)象模型中采用OLEDB訪問(wèn)數(shù)據(jù)庫(kù)的是( )

A．DAO B. RDO

C.ADO D. RDO和ADO

11. 要以讀方式打開(kāi)D盤(pán)的一個(gè)順序文件Stu．dat，應(yīng)使用的語(yǔ)句是( )

A． A． Open"Stu.dat" FOr Output As #1

B． B． Open"D:/Stu.dat" For lnput As #l

C． C． Open:O: /Stu.dat"FOr Output As #1

D． D．Open"Stu.dat" FOr lnput As #1

12．VB程序中設(shè)置斷點(diǎn)的按鍵是( )

A．F5鍵 B．F6鍵

C. F9鍵 D．F10鍵

13．為使文本框顯示滾動(dòng)條，必須首先設(shè)置的屬性是( )

A．AutoSize B．Alignment

C．Multiline D．TabStOp

14．要設(shè)置命令按鈕的背景圖形，必須設(shè)置的兩個(gè)屬性是( )

A.Style和Picture B.Style和Icon

C.Caption和Picture D.Value和Icon

15．下面關(guān)于多窗體的敘述中，正確的是( )

A. A. 作為啟動(dòng)對(duì)象的Main子過(guò)程只能放在窗體模塊內(nèi)

B. B. 如果啟動(dòng)對(duì)象是Main子過(guò)程，則程序啟動(dòng)時(shí)不加載任何窗體，以后由該過(guò)程根據(jù)不同情況決定是否加載及加載哪一窗體

C. 沒(méi)有啟動(dòng)窗體，程序不能執(zhí)行

D．以上都不對(duì)

得 分

評(píng)卷人

二、填空題(每空1分，共15分)

1． 1．數(shù)學(xué)關(guān)系3≤x<10表示成正確的Visual Basic表達(dá)式為_(kāi)___________。

2． 2． 已知A=2，B=3，C＝4，則表達(dá)式A>B AND C>A OR Not C>B的值為_(kāi)__________。

3． 3． Visual Basic提供了結(jié)構(gòu)化程序設(shè)計(jì)的3種基本結(jié)構(gòu)，這3種基本結(jié)構(gòu)是________ 、_________和____________。

4． 4． 用Dim A(3，一2 To 3)語(yǔ)句聲明二維數(shù)組后，數(shù)組A的元素共有________個(gè)。

5． 5． 在Visual Basic程序中實(shí)現(xiàn)刪除文件"d：．tmp"的語(yǔ)句為_(kāi)____________________。

6． 6． 日期表達(dá)式#2／24／03#-#2／12／03#的值為_(kāi)________。

7． 7． 改變?nèi)萜鲗?duì)象的ScaleMode屬性值，容器的大小_________改變，它在屏幕上的位置________改變。

8． 8． 設(shè)Picturel．ScaleLeft＝-200，Picturel．ScaleTop＝250，Picturel．Width=500，Picturel．Height＝-400。

則Picturel右下角坐標(biāo)為_(kāi)_________________。

9. ActiveX EXE文件的后綴是____________________。

10. Winsockl.Listen語(yǔ)句的含義是_________________。

11．在整個(gè)程序運(yùn)行時(shí)，用Static聲明的局部變量是靜態(tài)的，其值可以在該過(guò)程所在的模塊運(yùn)行期間_________,而用Dim聲明的變量只能在__________________才存在。

得 分

評(píng)卷人

三、閱讀程序題(每小題5分，共20分)

閱讀下列程序并寫(xiě)出程序運(yùn)行結(jié)果

1． 1． Private Sub Commandl_Click()

n=0：x=1：y=0

Do Whlle x<3

n=n+1

y＝x十y

X=x*(x+1)

Loop

Textl.Text = "n=" & Str(n)

Text2.Text = "x=" & Str(x)

Text3.Text = "y=" & Str(y)

End Sub

程序運(yùn)行時(shí)單擊Commandl后，分別寫(xiě)出文本框Textl,Text2,和Text3的值。

2． 2． Private Sub Commandl_C1ick()

Dim x AS Integer

StatiC S AS Integer

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

If x<5 Then

s = s * x

Else

s = s * x

End If

Textl.Text ="s=" & Str(s)

End Sub

程序運(yùn)行時(shí)連續(xù)3次單擊Commandl，且設(shè)輸入的數(shù)據(jù)為5、4、 3時(shí)，分別寫(xiě)出文本框Textl的值。

3． 3． Private Sub Form_Click()

Dim c As Integer，j AS Integer,k As Integer

k=0

C=0

For j = 1 To 5

If j>3 Then

C=C+4

Exit For

Else

k = k + 1

End If

Next j

Print c，k

End Sub

寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，c，k的值分別是:

4． 4． Private Sub Form_C1ick()

Dim A(1 To 3) As String

Dim c As Integer，j As Integer

A(1)＝"1"

A(2)＝"3"

A(3)＝"4"

C=0

For i=1 tO 3

c=c+Val(A(j))

Next j

Print C

End Sub

寫(xiě)出程序運(yùn)行時(shí)單擊窗體后，c的結(jié)果是：

得 分

評(píng)卷人

四、完善程序題(每題10分，共20分)

1， 1，列表框應(yīng)用程序。要求在文本框Textl中輸入課程名稱(chēng)，然后按"添加"按鈕，把課程名稱(chēng)添加到列表框中，當(dāng)選擇列表框中某一項(xiàng)后，按"刪除"按鈕，則從列表框中刪除該項(xiàng)，按"統(tǒng)計(jì)"按鈕，在文本框Text2中輸出課程數(shù)量總數(shù)：按"結(jié)束"按紐，退出應(yīng)用程序。程序運(yùn)行結(jié)果如圖1所示。

程序如下，請(qǐng)補(bǔ)充完整。

Private Sub Form_Load()

Listl．Addltem"計(jì)算機(jī)應(yīng)用基礎(chǔ)"

Listl．Addltem"程序設(shè)計(jì)基礎(chǔ)"

Listl．Addltem"軟件技術(shù)基礎(chǔ)"

Listl．Addltem"VisualBasic程序設(shè)計(jì)"

Listl．Addltem，"SQLSERVER數(shù)據(jù)庫(kù)應(yīng)用"

Listl．Addltem"計(jì)算機(jī)專(zhuān)業(yè)英語(yǔ)"

Listl．Addltem"Delphi程序設(shè)計(jì)"

End Sub

Private Sub Commandl_Click()

If Textl.Text<>""Then

_[1]_________________________

Textl.Text = __[2]________

Else

MsgBox"請(qǐng)?jiān)谖谋究蛑休斎胄畔?"

__[3]___________

End Sub

Private Sub Command2_Click()

Listl．RemoveItem__[4]____

End Sub

Private Sub Command3_Click()

Text2．Tex = ____[5]_____

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

2．以厘米為單位，以窗體的中心點(diǎn)為坐標(biāo)原點(diǎn)，以窗體的寬度與高度繪制坐標(biāo)軸，并以窗體寬度與高度中最小值的1／3為半徑畫(huà)圓和橢圓，程序運(yùn)行界面如圖2所示。

程序如下，請(qǐng)補(bǔ)充完整。

Private Sub Forlm Click()

Dim r As Integer

ScaleMOde = 7

Scale(-Forml．ScaleWidth／2，-Forml．ScaleHeight／2)-(Forml．Scale_

Width／2，Form1．ScaleHeight／2)

Line(-Forml．ScaleWidth／2，0)-(Forml．ScaleWidth／2，o) '畫(huà)x軸

_______[1]_______ '畫(huà)y軸

CurrentX=0：CurrentY=0：__[2]____ ，標(biāo)記坐標(biāo)原點(diǎn)

If Forml．ScaleWidth>Forml．ScaleHeight Then

__[3]___

E1se

r＝Forml．ScaleWidth

_[4]___-

DrawWidth＝3

__[5]___

Circle(0，0)，r／3，vbGreen，, , 2.5

Circle(0，0)，r／3，vbRed，, , 0.4

End Sub

得 分

評(píng)卷人

五、編寫(xiě)程序題(共15分)

編寫(xiě)一個(gè)角度與弧度互相轉(zhuǎn)換的程序，程序運(yùn)行界面如圖3所示。要求程序運(yùn)行時(shí)，在文本框Textl中輸入角度值，單擊"角度轉(zhuǎn)弧度"按鈕(Commandl)，，在文本框Text2中輸入弧度值；在文本框Text2中輸入弧度值，單擊"弧度轉(zhuǎn)角度"按鈕(Command2)，在Textl中輸出角度值。

需要使用的轉(zhuǎn)換公式是：弧度=角度*／180，=3.1415926

提示：化為角度的方法為

(1)先將弧度值變?yōu)槭M(jìn)制。以1.233為例

1.233*(180／)=70.6457558

(2)去掉整數(shù)部分70，余0.6457558

(3)0.6457558*60=39.745528

(4)去掉39，余0.745528

(5)0.745528*60＝44.73168≈45"

即換算成了70039'45"

試卷代號(hào)：223l

中央廣播電視大學(xué)2004-2005學(xué)年度第二學(xué)期"開(kāi)放專(zhuān)科"期末考試

計(jì)算(應(yīng))、軟件信息

軟 件 網(wǎng) 站

專(zhuān)業(yè) VisualBasic程序設(shè)計(jì)

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

(供參考)

2005年7月

一、單項(xiàng)選擇題(每小題2分，共30分)

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

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

11．B 12．C 13．C 14．A 15，B

二、填空題(每空1分，共15分)

1．3<=x And x<10

2．False

3．順序結(jié)構(gòu) 選擇結(jié)構(gòu)(或分支結(jié)構(gòu)) 循環(huán)結(jié)構(gòu)

4．24

5．Kill"d:/tem．tmp"

6，12

7．不會(huì) 不會(huì)

8． (300，-150)

9．．EXE

10．使服務(wù)程序處于偵聽(tīng)狀態(tài)

11．一直存在 過(guò)程執(zhí)行期間

三、閱讀程序題(每小題5分，共20分)

1．n=2

x=6

y=3

2.s =5

s=20

s＝60

3． 4 3

4．8

四、完善程序題(每題10分，共20分)

1．

[1]Listl．AddlternTextl．Text

[2]" "

[3] End If

[4] Listl．Listlndex

[5]Listl．ListCount

2。

[1]line(0，Forml．ScaleHeight／2)一(0，一Forml．ScaleHeight／2)

[2]Print 0

[3]r=FOrml．ScaleHeight

[4] End If

[5] Circle(0，0)，r／3

五。編寫(xiě)程序題(共15分)

參考答案：

PrivateSubCommandl_Click()

Const pi：3．1415926

1fTextl．Text<>""Then

Text2．Text＝Val(Textl．Text)* 3．1415926／180

End If

End Sub

Private Sub Command2_Click()

Const pi：3．1415926

Dim x As Single，a As Single，al As Single

Dim d As Integer，f As Integer，m As Integer

Dim y As String

x=Val(Text2．Text)

a=x*(180／pi)

d=Fix(a)

a1＝(a-d)*60

f＝Fix(a1)

m=Fix((a1一f)*60+0．5)

y＝Str(d) &"。"& Str(f)&"'" & Str(m)&" "" "

Textl．Text=y

End Sub

來(lái)源：網(wǎng)絡(luò)整理 免責(zé)聲明：本文僅限學(xué)習(xí)分享，如產(chǎn)生版權(quán)問(wèn)題，請(qǐng)聯(lián)系我們及時(shí)刪除。

總結(jié)

以上是生活随笔為你收集整理的试卷代号6098计算机应用基础,2231电大《Visual Basic程序设计》试题和答案200507的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。