试卷代号6098计算机应用基础,2231电大《Visual Basic程序设计》试题和答案200507
試卷代號：2231
座位號口口
中央廣播電視大學2004-2005學年度第二學期"開放專科"期末考試
計算(應)、軟件信息
軟 件 網 站 專業 VisualBasic程序設計 試題
2005年7月
題 號
一
二
三
四
五
總 分
分 數
得 分
評卷人
一，單項選擇題(每小題2分，共30分)
1．下列關于變量的說法不正確的是( )
A. 局部變量是指那些在過程中用Dim語句或Static語句聲明的變量
B．局部變量的作用域僅限于聲明它的過程
C. 靜態局部變量是在過程中用Sta"c語句聲明的
D．局部變量在聲明它的過程執行完畢后就被釋放了
2．無論何種控件，共同具有的屬性是( )
A．Text屬性 B．Name屬性
C. Caption屬性 D．Autosize屬性
3．如果想讓文本框中的內容在運行時不能編輯，需將文本框的( )屬性設置為True
A．LOcked B．MultiLine
C．TabStop D．Visible
4．后綴為．frm的文件表示VB的( )
A. 類模塊文件 B．窗體文件
C，工程文件 D．標準類模塊文件
5.下列變量名合法的是( )
A，20ab B．a-b
C．a_2 D．integer
6.為了在運行時把d:文件夾的圖形文件a.jpg裝入圖片框Picturel中，所使用的語句為( )
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．邏輯表達式Not 5>3 And 9<3 Or 7>5( )
A．True B．False
C．表達式有錯 D. 條件不足
8．表達式4+19＼6*7／8 Mod 2的值是( )
A. 4 B. 5
C. 6 D. 7
9．下列可以用來存儲圖像供其他對象使用的控件是( )
A．TOOlBar B．StatursBar
C．ImageList D．TreeView
10．下列數據對象模型中采用OLEDB訪問數據庫的是( )
A．DAO B. RDO
C.ADO D. RDO和ADO
11. 要以讀方式打開D盤的一個順序文件Stu．dat，應使用的語句是( )
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程序中設置斷點的按鍵是( )
A．F5鍵 B．F6鍵
C. F9鍵 D．F10鍵
13．為使文本框顯示滾動條，必須首先設置的屬性是( )
A．AutoSize B．Alignment
C．Multiline D．TabStOp
14．要設置命令按鈕的背景圖形，必須設置的兩個屬性是( )
A.Style和Picture B.Style和Icon
C.Caption和Picture D.Value和Icon
15．下面關于多窗體的敘述中，正確的是( )
A. A. 作為啟動對象的Main子過程只能放在窗體模塊內
B. B. 如果啟動對象是Main子過程，則程序啟動時不加載任何窗體，以后由該過程根據不同情況決定是否加載及加載哪一窗體
C. 沒有啟動窗體，程序不能執行
D．以上都不對
得 分
評卷人
二、填空題(每空1分，共15分)
1． 1．數學關系3≤x<10表示成正確的Visual Basic表達式為____________。
2． 2． 已知A=2，B=3，C＝4，則表達式A>B AND C>A OR Not C>B的值為___________。
3． 3． Visual Basic提供了結構化程序設計的3種基本結構，這3種基本結構是________ 、_________和____________。
4． 4． 用Dim A(3，一2 To 3)語句聲明二維數組后，數組A的元素共有________個。
5． 5． 在Visual Basic程序中實現刪除文件"d：．tmp"的語句為_____________________。
6． 6． 日期表達式#2／24／03#-#2／12／03#的值為_________。
7． 7． 改變容器對象的ScaleMode屬性值，容器的大小_________改變，它在屏幕上的位置________改變。
8． 8． 設Picturel．ScaleLeft＝-200，Picturel．ScaleTop＝250，Picturel．Width=500，Picturel．Height＝-400。
則Picturel右下角坐標為__________________。
9. ActiveX EXE文件的后綴是____________________。
10. Winsockl.Listen語句的含義是_________________。
11．在整個程序運行時，用Static聲明的局部變量是靜態的，其值可以在該過程所在的模塊運行期間_________,而用Dim聲明的變量只能在__________________才存在。
得 分
評卷人
三、閱讀程序題(每小題5分，共20分)
閱讀下列程序并寫出程序運行結果
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
程序運行時單擊Commandl后，分別寫出文本框Textl,Text2,和Text3的值。
2． 2． Private Sub Commandl_C1ick()
Dim x AS Integer
StatiC S AS Integer
x=Val(InputBox("請輸入一個正整數="))
If x<5 Then
s = s * x
Else
s = s * x
End If
Textl.Text ="s=" & Str(s)
End Sub
程序運行時連續3次單擊Commandl，且設輸入的數據為5、4、 3時，分別寫出文本框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
寫出程序運行時單擊窗體后，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
寫出程序運行時單擊窗體后，c的結果是：
得 分
評卷人
四、完善程序題(每題10分，共20分)
1， 1，列表框應用程序。要求在文本框Textl中輸入課程名稱，然后按"添加"按鈕，把課程名稱添加到列表框中，當選擇列表框中某一項后，按"刪除"按鈕，則從列表框中刪除該項，按"統計"按鈕，在文本框Text2中輸出課程數量總數：按"結束"按紐，退出應用程序。程序運行結果如圖1所示。
程序如下，請補充完整。
Private Sub Form_Load()
Listl．Addltem"計算機應用基礎"
Listl．Addltem"程序設計基礎"
Listl．Addltem"軟件技術基礎"
Listl．Addltem"VisualBasic程序設計"
Listl．Addltem，"SQLSERVER數據庫應用"
Listl．Addltem"計算機專業英語"
Listl．Addltem"Delphi程序設計"
End Sub
Private Sub Commandl_Click()
If Textl.Text<>""Then
_[1]_________________________
Textl.Text = __[2]________
Else
MsgBox"請在文本框中輸入信息!"
__[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．以厘米為單位，以窗體的中心點為坐標原點，以窗體的寬度與高度繪制坐標軸，并以窗體寬度與高度中最小值的1／3為半徑畫圓和橢圓，程序運行界面如圖2所示。
程序如下，請補充完整。
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) '畫x軸
_______[1]_______ '畫y軸
CurrentX=0：CurrentY=0：__[2]____ ，標記坐標原點
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
得 分
評卷人
五、編寫程序題(共15分)
編寫一個角度與弧度互相轉換的程序，程序運行界面如圖3所示。要求程序運行時，在文本框Textl中輸入角度值，單擊"角度轉弧度"按鈕(Commandl)，，在文本框Text2中輸入弧度值；在文本框Text2中輸入弧度值，單擊"弧度轉角度"按鈕(Command2)，在Textl中輸出角度值。
需要使用的轉換公式是：弧度=角度*／180，=3.1415926
提示：化為角度的方法為
(1)先將弧度值變為十進制。以1.233為例
1.233*(180／)=70.6457558
(2)去掉整數部分70，余0.6457558
(3)0.6457558*60=39.745528
(4)去掉39，余0.745528
(5)0.745528*60＝44.73168≈45"
即換算成了70039'45"
試卷代號：223l
中央廣播電視大學2004-2005學年度第二學期"開放專科"期末考試
計算(應)、軟件信息
軟 件 網 站
專業 VisualBasic程序設計
試題答案及評分標準
(供參考)
2005年7月
一、單項選擇題(每小題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．順序結構 選擇結構(或分支結構) 循環結構
4．24
5．Kill"d:/tem．tmp"
6，12
7．不會 不會
8． (300，-150)
9．．EXE
10．使服務程序處于偵聽狀態
11．一直存在 過程執行期間
三、閱讀程序題(每小題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
五。編寫程序題(共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
來源：網絡整理 免責聲明：本文僅限學習分享，如產生版權問題，請聯系我們及時刪除。
總結
以上是生活随笔為你收集整理的试卷代号6098计算机应用基础,2231电大《Visual Basic程序设计》试题和答案200507的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 晋中学院计算机考研,晋中学院有多少人死在
- 下一篇： 计算机组成原理xchg,8088数据传送