在线现看午夜福利片|女人16久久免费视频|鲁丝片一区鲁丝片二区鲁丝|一区二区三区欧美在线

23.按文件的內(nèi)容劃分有（C）
A)順序文件和隨機(jī)文件
B)ASCII文件和二進(jìn)制文件
C)程序文件和數(shù)據(jù)文件
D)磁盤文件和打印文件

24.有如下的程序：
Private Sub Form_Click()
Dim x As Integer, y As Integer
a= 8
b= 3
Call test(6 ,a b+1)
Print "主程序"，6，a, b
End Sub
Sub test (x As Integer, y, As Integer, z As Integer)
Print "子程序"，x,y,z
x = 2
y = 4
z = 9
End Sub
當(dāng)運(yùn)行程序后，顯示的結(jié)果是（D）
A)子程序6 4 3
主程序6 8 4
B)主程序6 4 3
子程序6 8 4
C)主程序6 8 4
子程序6 4 3
D)子程序6 8 4
主程序6 4 3

25.Cls 方法可清除窗體或圖片框中的信息是（C）
A)Picture屬性設(shè)置的背景圖案
B)在設(shè)計(jì)時(shí)放置的控件
C)程序運(yùn)行時(shí)產(chǎn)生的圖形和文字
D)以上方法都對

26.下列數(shù)組聲明正確的是（D）
A)n=5
Dim a(1 to n) As Integer
B)Dim a(10) As Integer
ReDim a(1 to 12)
C)Dim a() As Single
ReDim a(3 ,4) As Integer
D)Dim a() As Integer
n=5
ReDim a(1 to n) As Integer

27.下列控件中，沒有Caption屬性的是（B）
A)框架
B)列表框
C)復(fù)選框
D)單選按鈕

28.如下程序段定義了學(xué)生成績的記錄類型，由學(xué)號、姓名、三門課程成績(百分制)組成。
Type Stud
no As Integer
name As String * 10
score (1 to 3) As Single
End Type
若對某個(gè)學(xué)生的各數(shù)據(jù)項(xiàng)進(jìn)行賦值，下列程序段正確的是（C）
A)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score=78,88,96
B)Dim S As Stud
S.no =0201
S.name="李平"
S.score=78,88,96
C)Dim S As Stud
S.no =0201
S.name="李平"
S.score(1)=78
S.score(2)=88
S.score(3)=96
D)Dim S As Stud
Stud.no =0201
Stud.name="李平"
Stud.score(1)=78
Stud.score(2)=88
Stud.score(3)=96

29.如果Form1是啟動(dòng)窗體，并且Form1的Load事件過程中有Form2.Show，則程序啟動(dòng)后（C）
A)發(fā)生一個(gè)運(yùn)行時(shí)錯(cuò)誤
B)發(fā)生一個(gè)編譯時(shí)錯(cuò)誤
C)在所有的初始化代碼運(yùn)行后Form1是活動(dòng)窗體
D)在所有的初始化代碼運(yùn)行后Form2是活動(dòng)窗體

30.如果列表框（List1）中沒有被選定的項(xiàng)目，則執(zhí)行List1.RemoveItem List1.ListIndex語句的結(jié)果是（D）
A)移去第一項(xiàng)
B)移去最后一項(xiàng)
C)移去最后加入列表一項(xiàng)
D)以上都不對

31.如下程序，運(yùn)行的結(jié)果是（B）
Private Sub Form_Click()
Dim m As Integer,i As Integer,x(10) As Integer
For i= 0 to 4
x(i)=i + 1
Next i
For i=1 to 2
Call proc(x)
Next i
For i= 0 to 4
Print x(i);
Next i
End Sub
Public Sub proc(a() As Integer)
Static i As Integer
Do
a(i)=a(i)+a(i+1)
i=i+1
Loop While i<2
End Sub
A)3 4 7 5 6
B)3 5 7 4 5
C)2 3 4 4 5
D)4 5 6 7 8

32.假設(shè)有以下程序段：
For I=1 to 3
For j=5 to 1 Step -1
Print I*j
Next j
Next I
則語句Print I*j的執(zhí)行次數(shù)I、j的值分別是（A）

A)15 4 0
B)16 3 1
C)17 4 0
D)18 3 1

33.在窗體上一個(gè)文本框，其名稱為Text1,然后編寫如下事件過程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String ,n As Integer
str = UCase (Chr(KeyAscii))
n=Len(str)
Text1=String(n, str)
End Sub
程序運(yùn)行后，如果在鍵盤上輸入單字母"K"，則在文本框Text1中顯示的內(nèi)容為（B）
A)kk
B)kK
C)KK
D)Kk

34.下列敘述不正確的是（C）
A)驅(qū)動(dòng)器列表框是一種能顯示系統(tǒng)中所有有效磁盤驅(qū)動(dòng)器的列表框
B)驅(qū)動(dòng)器列表框的Drive屬性只能在運(yùn)行時(shí)被設(shè)置
C)從驅(qū)動(dòng)器列表框中選擇驅(qū)動(dòng)器能自動(dòng)變更系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器
D)要改變系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器需要使用ChDrive語句

35.窗體上有Text1、Text2兩個(gè)文本框及一個(gè)命令按鈕Command1,編寫下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text= p2(p1(x),y)
Text2.Text= p1(x)
End Sub
Privage Function P1(x As Integer) As Integer
x =x+y:y=x+y
P1=x+y
End Function
Private Function P2(x As Integer, y As Integer) As Integer
P2= 2*x+y
End Function

當(dāng)單擊1 次和單擊2次命令按鈕后，文本框Text1和Text2內(nèi)的值分別是（C）
A)2 4
2 4
B)2 4
4 8
C)10 10
58 58
D)4 4
8 8

    二、填空：每空2分，共30分。

1.在窗體上畫一個(gè)命令按鈕，名稱為Command1,Caption屬性設(shè)置為“確定”，畫3個(gè)標(biāo)簽Label1、Label2和Label3，在label1中輸入“這是一個(gè)絕對值的程序”，在Label2中輸入“請輸入x的值”，Label3將輸出本題 結(jié)果，再畫一個(gè)文體框，名稱為Textl,用于輸入x的值。當(dāng)在文本框Textl輸入一個(gè)負(fù)數(shù)，然后“確定”按鈕，則在標(biāo)簽Label3中將輸出該數(shù)的絕對值及信息，程序有運(yùn)行情況如圖2-3所示。請?jiān)赱1]和[2]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。（要求不用取絕對值函數(shù)）
Private Sub Commandl_Click()
Dim x As Single
x=Val(Text1.Text)
Label3.Caption="x=&x
If x<0 Then[1]
Label3.Caption=[2]+", x的絕對值是" &x
End Sub

答案:x=-x； Label3.Caption

2.用單循環(huán)實(shí)現(xiàn)如圖2-4所示圖案。請?jiān)赱3]和[4]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Click（）
For i =1 To 10
Print Tab(15 -i);String([3],[4](i,1))
Next i
End Sub

答案: 2*i-l；Right

3.下面是一個(gè)歌手大賽評分程序。10位評委，除去一個(gè)最高分和一個(gè)最低分，計(jì)算平均分(設(shè)滿分為10分)。請?jiān)赱5]、[6]、和[7]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form_Click()
Max= 0
Min= 10
For i = 1 To 10
x=Val(InputBox("請輸入分?jǐn)?shù)"))
If [5] Then Max=x
If [6] Then Min=x
s =s + x
Next i
s = [7]
p = s/8
Print "最高分"；Max,"最低分"；Min
Print "最后得分"；p
End Sub

答案: x>Max；x<Min；s-Max-Min

4.窗體和控件名稱如圖2-5所示，當(dāng)“電視機(jī)”和“付款方式”未被選定時(shí)，它們所在框架的控件不能使用，如果單擊“確定”按鈕，則在下面的標(biāo)簽中顯示用戶所選擇的信息。請?jiān)赱8]、[9]、[10]和[11]處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。
Private Sub Form__[8]
Combo1.Enabled =False
Textl.Enabled =False
End Sub
Private Sub Check2__Click()
Option1.Enabled = False
Option2.Enabled =False
End Sub
Private Sub [9]
Combo1,Enabled = Not Combo1.Enabled
Textl.Enabled = Not Text1.Enabled
Option1.Enabled= Not Option1.Enabled
Option2.Enabled= Not Option2.Enabled
End Sub
Private Sub Commandl_Click()
If Check1.value = 1 Then
Label1.Caption =Label1.Caption & [10] &vbCrlf
Label1.Caption = Label1.Caption & [11] & vbClf
End If
If Check2.value=1 Then
If Option1.value = True Then
Label1.Caption=Label1.Caption&"現(xiàn)金付款"&vbCrLf
Else
Label1.Caption=Label1.Caption&"轉(zhuǎn)帳付款"&vbCrLf
End If
End If
End Sub
注：vbCrLf為回車符。

答案: Load()；Checkl_Click()；Combol.Text；Textl.Text

5.組合框是組合了文本框和列表框的特性而組成的一種控件。[12]風(fēng)格的組合框不允用戶輸入列表框中沒有的項(xiàng)。

答案：下拉式列表框

6.在Visual Basic中，除了可以指定某個(gè)窗體作為啟動(dòng)對象外，還可以指定[13]為啟動(dòng)對象。

答案: Main子過程

7.Visual Basic 提供了三種控件，即[14]、[15]和可插入對象。

答案: 標(biāo)準(zhǔn)控件（內(nèi)部控件）；ActiveX控件

上一頁  [1] [2]