第 1 頁:單選題 |
第 5 頁:操作題 |
第 6 頁:參考答案 |
21.在窗體上畫1個名為Textl的文本框和1個名為Labell的標(biāo)簽,再畫4個名為Opl 的單選按鈕控件數(shù)組,其Index屬性按季度順序?yàn)?~3,如圖1所示。在文件Sales.txt中按月份順序存有某企業(yè)某年12個月的銷售額。要求在程序執(zhí)行時,鼠標(biāo)單擊一個單選按鈕,則Text1中顯示相應(yīng)季度的銷售總額,并把相應(yīng)的文字顯示在標(biāo)簽上。如圖2所示是單擊“第二季度”單選按鈕所產(chǎn)生的結(jié)果。請選擇可在空白處填寫的合適語句( )。
Option Base 1
Dim sales(12)As Long
Private Sub Fo rm Load()
Open"C:\sales.txt"For Input As#1
For k=1 To 12
Input#1,sales(k)
Nextk
Close#1
End Sub
Private Sub (Index As Integer)
Dim sum As Long,k As Integer,month As Integer
sum=0
month=In&x*
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next k
Label1.Caption=________.Caption&"銷售總額:"
Text1=Sum
End Sub
A.Op1_Click 3 Op1(Index)
B.Op1_Click 0 Option1(Index)
C.Option1_Click l Op1(Index)
D.Option1_Click 2 Option1(Index)
22.在窗體上有一個文本框Text1,Text屬性值為空,然后編寫下列事件過程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)。
Text1.Text=String(n,str)
End Sub
程序運(yùn)行后,若在文本框中輸入單字母“p”,則在文本框Text1中顯示的內(nèi)容為( )。
A.pp
B.pp
C.pp
D.pp
23.下列程序執(zhí)行后,變量X的值為( )。
Dim fl,b,C,d As Single
Dim X As Single
f1=10
b=30
c=400
If b>fl Then
d=fl:fl=b:b=d
End If
If b>C Then
X=b
Else If fl>c Then
X=c
Else
X=a
End If
A.10
B.30
C.400
D.430
24.下列程序的運(yùn)行結(jié)果是( )。
Private Function myfun(m,n)
Do while m>n
Do While m>n:m=m-n:Loop
Do Wllile n>m:n=n-m:Loop
Loop
myfun=m
End Function
Private Sub Command1_Click()
print myfun(9,8)
End Sub
A.2
B.1
C.4
D.3
25.為了使列表框中的項(xiàng)目分為多列顯示,需要設(shè)置的屬性為( )。
A.Columns
B.Style
C.List
D.MultiSelect
26.假定有一個菜單項(xiàng),名為Menultem,為了在運(yùn)行時使該菜單項(xiàng)不可見,應(yīng)使用的語句為( )。
A.Menultem.Enabled=False
B.MenuItem.Enabled=True
C.MenuItem.Visible=True
D.Menultem.Visible=Flase
27.在通用對活框中打開“顏色對話框”的方法是( )。
A.ShowOpen
B.Menultem.Enabled—True
C.MenuItem.Visible—True
D.Menultem.Visible—Flase
28.下列操作不能向工程中添加窗體的是( )。
A.執(zhí)行“工程”菜單中的“添加窗體”命令
B.單擊工具欄中的“添加窗體”按鈕 .
C.右擊窗體。在彈出的菜單中選擇“添加窗體”命令
D.右擊T程資源管理器,在彈出的菜單中選擇“添加”命令,然后在下一級菜單中選擇:“添加窗體”命令
29.窗體上有兩個文本框Text1、Text2以及一個命令按鈕Command1,編寫下列程序:
DimY As Integer
Private Sub Command1 Click()
Dim X As Integer
x=2
Text1.Text=p2(p1(X),Y)
Text2.Text=p1(x)
End Sub
Private Function p1(X As Integer)As Integer
x+x+v: 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)的值分別為( )。
A. 2 4
2 4
B. 2 4
4 8
C. 4 4
8 8
D. 10 10
58 58
30.下列描述不正確的是( .)。
A.某個子過程中聲明的局部變量,其使用范圍僅限定于該子過程內(nèi)
B.某個子過程中聲明的局部變量,其生命周期僅限于該子過程被執(zhí)行過程中
C.不同子過程中的局部變量可以具有相同的名稱
D.不同子過程中具有相同的名稱的局部變量是同一變量
相關(guān)推薦:
2014年全國計算機(jī)二級考試VF上機(jī)沖刺試卷匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |