21.在窗體上畫1個名為Textl的文本框和1個名為Labell的標簽，再畫4個名為Opl 的單選按鈕控件數組，其Index屬性按季度順序為0～3，如圖1所示。在文件Sales.txt中按月份順序存有某企業某年12個月的銷售額。要求在程序執行時，鼠標單擊一個單選按鈕，則Text1中顯示相應季度的銷售總額，并把相應的文字顯示在標簽上。如圖2所示是單擊“第二季度”單選按鈕所產生的結果。請選擇可在空白處填寫的合適語句( )。

　　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

　　程序運行后，若在文本框中輸入單字母“p”，則在文本框Text1中顯示的內容為( )。

　　A.pp

　　B.pp

　　C.pp

　　D.pp

　　23.下列程序執行后，變量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.下列程序的運行結果是( )。

　　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.為了使列表框中的項目分為多列顯示，需要設置的屬性為( )。

　　A.Columns

　　B.Style

　　C.List

　　D.MultiSelect

　　26.假定有一個菜單項，名為Menultem，為了在運行時使該菜單項不可見，應使用的語句為( )。

　　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.執行“工程”菜單中的“添加窗體”命令

　　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

　　當單擊1次和單擊2次命令按鈕后，文本框Text1和Text2內的值分別為( )。

　　A. 2 4

　　2 4

　　B. 2 4

　　4 8

　　C. 4 4

　　8 8

　　D. 10 10

　　58 58

　　30.下列描述不正確的是( .)。

　　A.某個子過程中聲明的局部變量，其使用范圍僅限定于該子過程內

　　B.某個子過程中聲明的局部變量，其生命周期僅限于該子過程被執行過程中

　　C.不同子過程中的局部變量可以具有相同的名稱

　　D.不同子過程中具有相同的名稱的局部變量是同一變量

　　相關推薦：

　　2014年全國計算機二級考試VF上機沖刺試卷匯總

　　考試吧考后首發2014年3月計算機二級真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題