鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

第二部分:vb部分

21.代數(shù)表達(dá)式  ， 對(duì)應(yīng)Visual Basic 表達(dá)式是______。

A. E^(x+y)+|x+y|^1/2/2π+1

B. Exp(x+y)+Sqr(Abs(x+y))/2*3.14159+1

C. (Exp(x+y)+Sqr(Abs(x+y)))/(2*3.14159+1)

D.( Exp(x+y)+Sqr(Abs(x+y)))/2*π+1

22. 下面表達(dá)式的值為真的是______。

A. Mid("Visual Basic",1,12)=Right("Programming Language Visual Basic",12)

B. "ABCRG">"abcde"

C. Int(134.69)>=Cint(134.69)

D. 78.9/32.77<=97.5/43.97 And -45.4>-4.98

23. 以下有關(guān)對(duì)象屬性的說法中正確的是______。

A. 對(duì)象所有的屬性都羅列在屬性窗口列表中

B. 不同對(duì)象不可能有同名屬性

C. 不同對(duì)象的同名屬性取值一定相同

D. 對(duì)象的某些屬性既可以在實(shí)行窗口中設(shè)置，也可以通過程序代碼設(shè)置或改變

24．在窗體模塊的通用聲明處用下面的語句聲明變量、數(shù)組，正確語句有______個(gè)。

① Public A(5) As Integer     ② Public N As Integer

③ Public St As String*10     ④ Public b() As Integer

A. 2  B. 3   C. 4   D. 1

25. 單選按紐（OptionButton）用于一組互斥的選項(xiàng)中。若一個(gè)應(yīng)用程序包含多組互斥條件，可在不同的______中安排適當(dāng)?shù)膯芜x按紐，即可實(shí)現(xiàn)。

A. 框架控件（Frame）或圖象控件（Image）

B. 組合框（ComboBox）或 圖象控件（Image）

C. 組合框（ComboBox）或圖片框（PictureBox）

D. 框架控件（Frame）或圖片框（PictureBox）

26. 下面的語句或方法，錯(cuò)誤的有______。（其中m和n都 為Integer型變量）

① Dim Array(m,n) As Integer       ② n=32764+6

③ Print A=A+B;A+B          ④ ChDriver "C:"

A. 1  B. 2   C. 3   D. 4

27. 執(zhí)行下面的程序，單擊窗體后在窗體上顯示的結(jié)果是_____。

Private Sub Form_Click()

Dim Str1 As String, Str2 As String,I As Integer

Str1="ab"

For I=Len(Str1) To 1 Step -1

item=LCase(Mid(entry,I,1))&I

Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)

Next I

Print Str1

End Sub

A. abce       B. abcd       C. abdb      D. abfd

28. 下面說法不正確的是______。

A. VB允許將一個(gè)數(shù)字字符串賦值給一個(gè)數(shù)值型的變量

B. VB允許使用未經(jīng)說明的變量，其類型都是Variant類型

C. Cls只清除運(yùn)行時(shí)在窗體或圖形框中顯示的文本或圖形

D. 事件過程既可建在窗體模塊中，也可建在標(biāo)準(zhǔn)模塊中

29. 下面能夠正確打開文件的一組語句是______。

A. Open "data1" For Output As #5 , Open "data1" For Input As #5

B. Open "data1" For Output As #5 , Open "data1" For Input As #6

C. Open "data1" For Input As #5 , Open "data1" For Input As #6

D. Open "data1" For Input As #5 , Open "data1" For Random As #6

30. 應(yīng)用程序窗體的名稱屬性為Frm1，窗體上有一個(gè)命令按紐，其名稱屬性為Cmd1，窗體和命令按紐的Click 事件過程名分別為______。

A. Form_Click() Command1_Click()      B. Frm1_Click() Command1_Click()

C. Form_Click() Cmd1_Click()           D:      

二、填空題（請(qǐng)把答案填寫在答題紙的相應(yīng)答題號(hào)內(nèi)，每個(gè)答題只占一行）

1.運(yùn)行下面的程序，當(dāng)單擊窗體時(shí)，窗體上第一行內(nèi)容是______(1)_____，第三行內(nèi)容是 　______(2)________　 ，第四行內(nèi)容是_________(3)____________。

Dim x As Integer, y As Integer

Private Sub Form_Click()

Dim A As Integer, B As Integer

A = 5: B = 3

Call Sub1(A, B)

Print A, B

Print x, y

End Sub

Private Sub Sub1(ByVal M As Integer, N As Integer)

　Dim x As Integer, y As Integer

　　x = M + N: y = M - N

　　M = fun1(x, y)

　　N = fun1(y, x)

End Sub

Private Function fun1(A As Integer, B As Integer) As Integer

　　x = A + B: y = A - B

　　Print x, y

　　fun1 = x + y

End Function

2. 執(zhí)行下面的程序，第一行輸出結(jié)果是___(4)___，第二行輸出結(jié)果是___（5）___。

OPtion Explicit

Private Sub Form_Click()

Dim I As Integer,J As Integer

J=10

For I=1 To J

I=I+1

J=J-I

Next I

Print I

Print J

End Sub

3. 執(zhí)行下面的程序，第一行輸出結(jié)果是___(6)___，第三行輸出結(jié)果是___（7）___。

Private Sub Form_Click()

Dim A As Integer, I As Integer

A=2

For I=1 To 9

Call Sub1(I,A)

Print I,A

Next I

End Sub

Private Sub Sub1(X As Integer,Y As Integer)

Static N As Integer

Dim I As Integer

For I=3 To 1 Step -1

N=N+X

X=X+1

NEXT I

Y=Y+N

End Sub

4. 執(zhí)行下面程序后，A（1，3）的值是___(8)___，A（2，2）的值是___(9)___，A（3，1）的值是___(10)___。

Option Explicit

Private Sub Form_Click()

Dim A(3,3) As Integer, I As Integer

Dim J As Integer, K As Inteher,N As Integer

For K=1 To 5

If K<=3 Then

For I=1 To K

N=N+1

A(I,K-I+1)=N

Next I

Else

For I=1 To 6-K

N=N+1

A(K-3+I,4-I)=N

Next I

End If

Next K

For K=1 To 3

For I =1 To 3

Print A(K,I);

Next I

Print

Next K

End Sub

5. 執(zhí)行下面的程序，第一行輸出結(jié)果是___(11)___，第二行輸出結(jié)果是___（12）___。

Option Explicit

Private Sub Form_Click()

Dim I As Integer,J As Integer

I=1:j=2

Call Test(I,J)

Print I,J

Call Test(I,J)

Print I,J

End Sub

Private Sub Test(M As Integer,N As Integer)

Static Sta As Integer

M=M+N

N=N+M+Sta

Sta=Sta+M

End Sub

6. 下面程序的功能是統(tǒng)計(jì)當(dāng)前盤當(dāng)前文件夾中的順序文件data.txt中共有多少個(gè)英文單詞，約定連續(xù)出現(xiàn)的英文字母定義為一個(gè)單詞。

Option Explicit

Private Sub Form_Click()

Dim Char As String， St As String，Tem As String

Dim Idx As Integer，Js As Long,Flen As long

Dim F As Boolean,W As String*1

___(13)___

Flen=Lof(10)

St=Input(Flen,#10)

Js=1

Do While Js<=Flen Then

W=Mid(St,Js,1)

If ___(14)___Then

Tem=Tem+W

F=True

Else If F=True Then

Idx=Idx+1

ReDim Preserve Char(Idx)

Char(Idx)=Tem

Tem=___(15)___

F=False

End If

___(16)___

Loop

Print "共有"；Idx;"個(gè)單詞"

For Js=1 To Idx

Print Char(Js)

Next Js

Close #10

End Sub

7. 下面程序的功能是當(dāng)循環(huán)次數(shù)一定時(shí)，統(tǒng)計(jì)生成互不相同的1——100之間的隨機(jī)整數(shù)的個(gè)數(shù)。

Option Explicit

Option Base 1

Private Sub Form_Click()

Dim Data() As Integer， I As Integer，Idx As Integer

Dim N As Integer， Temp As Integer，Flg As Boolean

N=InputBox("輸入循環(huán)次數(shù)")

ReDim Data(1)

Idx=1

Data(1)=Int(100*Rnd(1))+1

For I=1 To N

Temp=Int(100*Rnd(1))+1

___(17)___

Call COmpare(Data,Temp,Flg)

If Flg=True Then

Idx=Idx+1

___(18)___

Data(Idx)=Temp

End If

Next I

Print "生成"；Idx;"個(gè)不相同的整數(shù)"

For I=1 To Idx

Print Data(I)

If I Mod 10=0 Then Print

Next I

End Sub

Private Sub Compare(Array() As Integer,K As Integer,Logic As Boolean)

Dim Ub As Integer， I As Integer

___(19)___

For I=1 To Ub

If Array(I)=K Then

___(20)___

End If

Next I

Logic=True

End Sub

8. 下面程序的功能是驗(yàn)證回文數(shù)猜想。任取一自然數(shù)，將其倒過來，并將這兩個(gè)數(shù)相加，然后把這個(gè)和數(shù)倒過來，與原來的和數(shù)相加……重復(fù)這個(gè)過程有限次，必將得到一個(gè)回文數(shù)。

所謂回文數(shù)指左右數(shù)字完全對(duì)稱的自然數(shù)，例如，121，12321，898，111均是回文數(shù)。根據(jù)猜想，假如取一自然數(shù)68——68+86=154——154+451=605——605+506=1111，經(jīng)過三步運(yùn)算就得到回文數(shù)1111。

Option Explicit

Private Sub Form_Click()

Dim S As Long,D As Long,Sum As Long

Dim Flg As Boolean

S=InputBox("輸入一個(gè)正整數(shù)")

Do

D=Fun(S)

Sum =S+D

Print Sum;"=";S;"+";D

Call Comp(Sum,Flg)

S=___(21)___

Loop Until Flg

Print Sum;"是回文數(shù)"

End Sub

Private Function Fun(N As Long)As Long

Dim Char As String,J As Long

Dim I As Integer,Slen As Integer

Char=Ltrim(Str(N))

___(22)___

J=1

For I=1 To Slen

Fun=Fun+Val(Mid(Char,I,1))*J

___(23)___

Next I

End Function

Private Sub Comp(N As Long,F As Boolean)

Dim Ch As String,S As Integer,I As Integer

S=Len(Ltrim(Str(N)))

F=False

Ch=Ltrim(Str(N))

For I=1 To___(24)___

If Mid(Ch,I,1)<>Mid(CH,S+1-I,1)Then Exit Sub

Next I

___(25)___

End Sub

9. 若一個(gè)等比數(shù)列的首項(xiàng)為2，公比為3，其第n項(xiàng)到第m 項(xiàng)之和為720。下面是求出符合上述要求的n 和m 的程序。

　Private Sub Command1_Click()

　　Dim Num() As Integer, Q As Integer, A As Integer

　　Dim i As Integer, N As Integer, M As Integer

　　Const k As Integer = 720

　　ReDim Num(1)

　　　　A = 2: Q = 3

　　　　Num(1) = A

　　   ____________(26)____________    

　　Do

　　　　A = A * Q

　　　　i = i + 1

　　　   ___________(27)______________

　　　Num(i) = A

　　Loop Until Num(i) >= 720

　　Call Sum1(Num, N, M, k)

　　Label1 = "第" + Str(N) & "項(xiàng)~第" & Str(M) & " 項(xiàng)的和是720"

　　End Sub

　Private Sub Sum1(Num() As Integer, N As Integer, M As Integer, ByVal k As Integer)

　  Dim Ub As Integer, s As Integer, i As Integer, Idx As Integer

　　_________(28)____________  

　　For i = 1 To Ub

　　   ________(29)_________________    

　　　N = i

　　　    ________(30)______________

　　Do Until s >= k

　　　s = s + Num(Idx)

　　　Idx = Idx + 1

　　Loop

　　　If s = k Then

　　　M = Idx–1

　　Exit For

　　End If

　　Next i

End Sub

答案：

21.C22.A23.D24.A25.D26.C27.C28.D29.C30.C

1.10  6 

2.5  4

3.10 -6

4.11

5.-20

6.4  8 

7.12  86

8.4

9.5

10.6

11.3  5

12.8  16

13.Open "data.txt" For Input As #10

14.w>="A" and w<="Z" or W>="a" and w<="z"

15.""

16.js=js+1

17.Flg=False

18.Redim Preserve Data(idx)

19.Ub=Ubound(arry)

20.Exit Sub

21.Sum

22.Slen=Len(char)

23.J=J*10

24.S

25.F=True

26.I=1

27.Redim Preserve Num(i)

28.Ub=Ubound(Num)

29.S=0

30.Idx=i