Windows程序設計（VB.NET）》在線作業一

C

專注于為中小企業提供成都網站設計、網站建設服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業紅古免費做網站提供優質的服務。我們立足成都，凝聚了一批互聯網行業人才，有力地推動了千余家企業的穩健成長，幫助中小企業通過網站建設實現規模擴充和轉變。

A

B

B

don't konw

don't konw

don't konw

A

B

don't konw

----------------

B

A

B

A

A

don't konw

B

A

don't konw

don't konw

--------------------------------

累S了

用VB.NET編寫一個程序 ：編一求階乘的函數f(n),主調程序求組合數的程序，分別調用f(n),用來計算組合數的值

Private Sub Command1_Click()

Dim A, B, C

A = 10

B = 3

C = f(A) / (f(B) * f(A - B))

Print C

End Sub

Private Function f(n)

Dim I As Integer

f = 1

For I = 1 To n

f = f * I

Next I

End Function

求文檔: 2010年春江蘇計算機等級考試二級vb試卷

2010年春江蘇省計算機二級VB試卷

第一部分: 計算機基礎知識

1．下面關于通信技術的敘述中，錯誤的是 ___1___ 。

A．任何一個通信系統都有信源、信道和信宿這三個基本組成部分

B．為了實現遠距離傳輸信息，在模擬通信和數字通信中均采用載波技術

C．為了降低傳輸信息的成本，在通信中廣泛采用多路復用技術

D．數字通信系統的一個主要性能參數是信道帶寬,它指實際進行數據傳輸時單位時間內傳輸的二進位數目

2．在下列有關集成電路及其應用的敘述中，錯誤的是 ___2___ 。

A．集成電路的制造工序繁多，工藝復雜且技術難度高

B．經過拋光后的硅片稱為晶圓，每個晶圓最多可以制成一個合格的集成電路芯片

C．IC卡分為接觸式IC卡和非接觸式IC卡，后者通常又稱為射頻卡或感應卡

D．集成電路應用十分廣泛，目前我國第2代居民身份證中就有集成電路芯片

3．在下列有關數字技術的一些敘述中，錯誤的是 _____3_____ 。

A．數字技術是采用有限個狀態(例如"0"和"1")來表示、處理、存儲和傳輸信息的

B．在邏輯代數中，1與1進行邏輯加(V)和邏輯乘(^)的結果相同

c．任何一個十進制數，均可以精確地轉換成等值的二進制數

D．在PC機中，通常用原碼表示正整數、用補碼表示負整數

4． 在下列有關PC機主機的敘述中，錯誤的是___4___ 。

A．BIOS和CMOS存儲器安裝在主板上，普通用戶一般不能自己更換

B．由于PC機主板的物理尺寸等沒有標準化，所以不同PC機的主板均不能互換

C．芯片組是PC機各組成部分相互連接和通信的樞紐，一般由2塊VLSI芯片組成

D．芯片組決定了主板上所能安裝的內存最大容量、速度及可使用的內存條類型

5． 在下列4個Intel微處理器產品中，采用雙核結構的是 _____5_____ 。

A. Core 2 Duo B．Pentium PRO

C．Pentium III D．Pentium 4

6． 在下列四種PC機主存儲器類型中，目前常用的是 _____6_____ 。

A．EDODRAM B．SDRAM

C．RDRAM D．DDR SDRAM

7． 在下列有關PC機常用I/O接口的敘述中，錯誤的是 7 。

A． 目前顯卡與顯示器的接口大多采用VGA接口

B. 可用于連接鼠標器的USB接口和PS/2接口的數據傳輸方式均是串行傳輸方式

C. USB接口連接器有4個引腳，其中1個引腳可獲得由主機提供的+1.5V電源

D． IEEE-1394b接口也是PC機常用的一種高速接口

8． 在下列有關PC機外存儲器的敘述中，錯誤的是 8 。

A．由于數據存取速度慢、容量小等原因，軟盤存儲器已逐漸被淘汰

B. 所有的硬盤都是由2個或2個以上盤片組成的，硬盤中的盤面數為盤片數的2倍

C．目前有些優盤產品可以模擬軟盤和硬盤啟動操作系統

D. 目前常見的組合光驅(“康寶”)既有DVD只讀光驅功能，又有CD光盤刻錄機功能

9． 在下列有關光盤存儲容量的敘述中，錯誤的是 9 。

A．80ram CD存儲容量大約為200多兆字節

B．120mm CD存儲容量大約為600多兆字節

C．單面單層的120mm DVD存儲容量大約為4.7GB

D．單面單層的120mm藍光光盤存儲容量大約為17GB

10．在下列有關Windows系列操作系統及其功能的敘述中，錯誤的是 10 。

A.Windows操作系統采用并發多任務方式支持系統中多個任務的執行

B.Windows XP分為多個版本，它們可用于不同計算機和不同的應用

C.與Windows XP相比，Windows Vista做了許多改進，但其硬件運行環境要求較高

D.無論是硬盤還是光盤，它們均采用相同的文件系統，即FAT文件系統

11．在下列常用應用軟件中，不能對編輯的文檔設置密碼的是 11 。

A．Microsoft Word B．Microsoft Excel

C．Microsoft PowerPoint D．Microsoft FrontPage

12．在下列關于無線局域網的敘述中，錯誤的是 12 。

A.在無線局域網中，無線接入點實際上是一種無線交換機，在室內覆蓋距離可達幾十米

B.目前無線局域網可采用的協議有Wi-Fi和藍牙等，后者的數據傳輸速率比前者更高

C.若某電腦貼有Intel公司的"Centrino"(迅馳)標記，則該電腦應有集成的無線網卡

D.無線網卡有多種類型，例如PCI無線網卡、USB無線網卡等

13．IP地址分為A、B、C、D、E五類。下列4個IP地址中，屬于C類地址的是 13

A． 1.110.24.2 B． 202.119.23.12

C． 130.24.35.68 D． 26.10.35.4R

14．因特網上有許多不同結構的局域網和廣域網互相連接在一起，它們能相互通信并協調工作的基礎是因為都采用了 ______14______

A．ATM協議 B．TCP/lP協議 C．X.25協議 D．NetBIOS協議

15．下列有關因特網接入的敘述中，錯誤的是______15______ 。

A．采用電話撥號接入時,數據傳輸速率只能達幾十kbps

B．采用ADSL接入時，網絡的下行數據傳輸速率通常高于上行數據傳輸速率 ．

C．采用ADSL接入時，只需要ADSL調制解調器，不需要使用網卡

D．采用有線電視接入時，多個終端用戶將共享連接段線路的帶寬

16．在下列有關字符集及其編碼的敘述中，錯誤的是 ______16______ 。

A．在我國臺灣地區使用的漢字編碼標準主要是GBK，該標準中收錄了大量的繁體漢字

B．GBl8030標準中收錄的漢字數目超過2萬，Windows XP操作系統支持該標準

C．Unicode字符集中既收錄了大量簡體漢字，也收錄了大量繁體漢字

D．GB2312是我國頒布的第一個漢字編碼標準，該字符集還收錄了俄文、希臘字母等

17．若一幅圖像的大小為1024×768，顏色深度為16位，則該圖像在不進行數據壓縮時，其數據量大約為______17______ 。

A．768KB B．1.5MB C．3MB D．12.3MB

18．在下列4種類型的數字化聲音文件中，不可能包含人的說話聲音的是 18 。

A. WAV B．MP3 C．MID D．WMA

19．在下列有關數字視頻的敘述中，錯誤的是 19 。

A．PC機所使用的視頻卡能將輸入的模擬視頻信號進行數字化

B．目前使用攝像頭獲取視頻信息時,不需要使用專門的視頻卡

C．數字視頻在數據壓縮時只能使用MPEG標準，DVD就是采用MPEG一4標準壓縮的

D．計算機動畫是一種合成視頻，這種技術是發展動漫產業的基礎

20．下列是幾種常見的電子商務的分類方法。若將電子商務分為B-C、B-B等類型，則該分類是 ______20______ 。

A．按交易的雙方進行分類

B．按使用的網絡類型分類

c．按交易商品性質分類

D．按交易商品規模分類

第二部分Visual Basic程序設計 .

一、選擇題(用答題卡答題，答案依次填在21—30答題號內)

21.關于窗體，以下敘述中正確的是 21 。

A.僅當窗體上沒有可以獲得焦點的控件時，窗體才可以獲得焦點

B.一個VB工程只能從某個指定的窗體開始啟動

C.只有窗體可以作為控件的容器

D.Unload Me和End語句的效果總是等同的

22.若a為長整型變量，則執行a=12 : Print Len(a);Len(Str(a)); Len(CStr(a))后，在窗體上看到的是 22 。

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

23.數學表達式 對應的visual Basic表達式是 23 。

A.Cos(30*3.14159/180)/(4*y+Ln(x))+Exp(2)

B.Cos(30*3.14159/180)/(4*y+Log(x))+Exp(2)

C.Cos(30*3.14159/180)/(4*y+Ln(x))+e^2

D.Cos(30)/(4*y+Log(x))+e^2

24.表達式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是 24 。

A.-8 B.-7 C.-6 D.-5

25.以下說法中，錯誤的是 25 。

A.使用缺省Preserve關鍵字的ReDim語句可以改變數組的維數和大小

B.ReDim語句只能出現在過程中

c.使用ReDim語句重新定義的動態數組，只能比原數組大

D.使用ReDim語句可以對動態數組的所有元素進行初始化

26.下列關于菜單的說法中，錯誤的是. 26 。

A.可以為菜單項選定快捷鍵

B.若在"標題"文本框中鍵入連字符(一)，則可在菜單的兩個菜單命令項之間加一條分隔線

C.除了Click事件之外，菜單項還可以響應其他事件

D.菜單編輯器的"名稱"文本框用于輸入菜單項的名稱

27.以下有關過程中形式參數的描述中，錯誤的是 27 。

A.函數過程可以沒有形式參數

B.事件過程一定沒有形式參數

C.形參數組只能按地址與實參數組結合

D.窗體與控件也可以作為過程的參數

28.以下表達式中，可以表示"A和B之一大于0"的是 28 。

①A*B=0 ②A0 Xor B0 ③A0 Or B0 ④A0 And B=0 Or B0 And A=0

A．①③ B．③④ C．②④ D．①②④

29．設變量A為長整型，則下面不能正常執行的語句是 29 。

A．A=32768*2 B．A=2*1.5*16384

C．A=16384*2 D．A=190^2

30．以下有關滾動條控件(ScrollBar)的說法中錯誤的是 30 。

A．只能在設計時設置Max與Min屬性值

B．Value屬性返回滾動條內滑塊當前所處位置的值

C．拖動滾動條內滑塊時，將觸發滾動條的Scroll事件

D．單擊滾動箭頭時，將觸發滾動條的Change事件

二:填空題

1.執行下面的程序后,A(1,4)的值是_（1）_,A(2,3)的值是__（2）_,A(3,2)的值是 （3） 。

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer, ub As Integer

Dim i As Integer, j As Integer, n As Integer

ub = UBound(a, 1)

n = 0

For i = ub To 1 Step -1

For j = 1 To ub + 1 - i

n = n + 1

a(j, j + i - 1) = n

Next j

Next i

For i = ub To 2 Step -1

For j = ub To i Step -1

a(j, j - i + 1) = a(5 - j, 4 - j + i)

Next j

Next i

For i = 1 To ub

For j = 1 To ub

Picture1.Print a(i, j);

Next j

Picture1.Print

Next i

End Sub

2.在InputBox函數對話框中輸入4(或直接單擊”確定”按鈕)窗體顯示的第一行內容__(4)___,第二行是__(5)___,第四行是__(6)___

Option Explicit

private Sub command1_Click()

dim days as integer

Days=InputBox("輸入正整數",4)

print fun(days)

End Sub

private function fun(d as integer) as integer

if D=1 then

fun=1

else

fun=2*fun(D-1)+1

print D;fun

end if

End Function

3窗體顯示的第一行是__(7)_____第三行是__(8)_____最后一行是___(9)__

private sub command1_Click()

Dim i as integer, k as integer

For i=1 to 5

k=fun(i)+I

print k

next i

print i

End Sub

Function Fun(N as integer) as Integer

Static M as integer

Dim j as integer

M=M+N

N=N+1

For J=1 To M

J=J+2

Fun=Fun+J

Next J

Fun=Fun+N

End Function

4.窗體顯示的第一行是__(10)_____第三行是__(11)_____,最后一行是_(12)____

Option Explicit

Private Sub Command1_Click()

Dim S as String,N as Integer

S="3AB"

N=14

Print Convert(S,N)

End Sub

Private Function Convert(S As string,N as Integer) as Long

Dim St as string, L as Integer, I as integer

L=Len(s)

Do while L=1

st=Left(s,1)

if st"9" then

st=Asc(st)-55

end if

Covert=Convert+Val(st)*N^(L-1)

print Val(st)*N^(L-1)

L=L-1

s=Right(S,L)

Loop

End Function

5.窗體顯示的第一行是__(13)___,第二行是__(14)____,第三行是___(15)__

Option Explicit

Private Sub Command1_Click()

Dim s as string, k as integer, ch() as string

Dim P as string,i as integer

s=Ucase("Meet me after the class.")

For i=1 to Len(s)

If Mid(s,i,1)="Z" and Mid(s,i,1)="A" then

p=p Mid(s,i,1)

ElseIf p"" then

k=k+1

Redim Preserve ch(k)

ch(k)=p

p=""

End if

Next i

For i=1 to Ubound(ch)

if len(ch(i))=2 then

Call move_c(ch(i),1)

else

Call move_c(ch(i),2)

end if

print ch(i)

next i

End Sub

Private Sub Move_c(s as string, k as integer)

Dim i as integer, j as integer, p as string*1

For i=1 to k

p=Right(s,1)

For j=Len(s)-1 to 1 step -1

Mid(s,j+1,1)=Mid(s,j,1)

Next j

s=p Right(s,Len(s)-1)

next i

End Sub

6.下面的程序是求下式的近似值，當第n項的絕對值小于10^-5時終止計算

S=1-1/3+1/5-1/7+…

option explicit

Private Sub Command1_Click()

dim n as long, s as single, t as single, pi as single

Const eps=0.00001

n=1

t=1

s=0

do

s=s+t

n=n+1

t=___(16)______

Loop Until __(17)______

pi=s*4

Label1.Caption ="的近似值為:"

End Sub

7.下面程序的功能是，找出滿足以下條件的三位整數，不含數字0,且任意交換數字位置所得到的數，均能被6整除

Option explicit

Private sub Command1_Click()

dim i as integer, j as integer, k as integer, st as string

Dim a(6) as integer

For i=100 to 999

if ______(18)_________ then

For j=1 to 6

if a(j) Mod 60 then Exit For

Next j

if______(19)________THen

st=st str(i)

k=k+1

if k mod 3 =0 then st=st vbcrlf

End if

End if

Next I

Text1=st

End Sub

Private Function fj(a() as integer, s as string) as Boolean

Dim n as Integer, i as integer, j as integer

if Instr(s,"0")0 then

___(20)___

end if

For i=1 to 3

For j=1 to 2

n=n+1

____(21)___

s=Left(s,1) Right(s,1) Mid(s,2,1)

Next j

s=Right(s,1) left(s,2)

Next i

fj=True

End Function

8.下面程序的功能是求兩個特大整數之和，由于vb中能夠表示的整數大小有一定限制，所以必須用新的方法求特大整數之和，本程序將特大整數使用字符類型進行處理，其中函數add用于求兩個1位整數之和，參數c用于保存進位，注意，求和前需首先將兩個整數按位對齊

option explicit

private Sub command1_Click()

Dim s1 as string, s2 as string, s3 as string

dim i as integer, n1 as integer, n2 as integer

dim c as integer, n as integer

s1=text1 : s2=Text2

n=______22_____

if sgn(n)0 then

s2=________23__________

elseif Sgn(N)0 then

s1=String(Abs(n),"0") s1

end if

For i=len(s1) to 1 step -1

n1=Val(Mid(s1,i,1))

n2=Val(Mid(s2,i,1))

s3=_______(24)________

Next i

if c0 then s3=________(25)________

Text3=s3

End Sub

Private Function Add(x as integer, y as integer, c as Integer) as string

Add=Cstr((x+y+c) Mod 10)

_________(26)________

End Function

9. 下面程序功能是：找出各位數字互不相同，且其6倍數仍由組成該數的數字構成的六位整數。例如：126873的6倍數是761238，就是符合條件的數。

提示：程序中用a,b數組成標示數組元素下標值對應的數字是否出現在六位整數中。例如：2出現在某六位整數中，則a（2）的值為1。

Option Explicit

Private Sub Command1_Click()

dim i as long,i2 as long, flag as Boolean

Dim a(0 to 9) as integer, b(0 to 9) as integer

For i=100000 to 160000

Call Validate(i,a,flag)

if flag then

i2=i*6

call Validate(i2,b,flag)

if flag and Compare(a,b) then

List1.AddItem i " " i2

End if

End if

Next i

end sub

Private Sub validate(n as long, a() as Integer, f as Boolean)

dim p as integer, i as integer

Erase a

f=false

for i=1 to len(cstr(N))

p=___(27)___

if a(p)=1 then

exit sub

else

a(p)=1

end if

next i

___(29) f=true

End Sub

Private Function Compare(a() as integer, b() as integer) as Boolean

dim j as integer

compare=false

for j=1 to Ubound(a)

if a(j)b(j) then

____(30)____exit function

End if

next j

Compare=true

End Function