2024年vb期末考試題庫

VB復(fù)習(xí)備考題壹、單項選擇題

1、與老式的程序設(shè)計語言相比,VisualBasic最突出的特點是（C）。

A、構(gòu)造化程序設(shè)計B、程序開發(fā)環(huán)境

C、事件驅(qū)動編程機制D、程序調(diào)試技術(shù)

2、賦值語句：a=123&MID("123456",3,2)執(zhí)行後，a變量中的值是（C）。

A、"12334"B、123C、12334D、157

3、保留壹種工程至少應(yīng)保留兩個文獻，這兩個文獻分別是（

B）。

A、文本文獻和工程文獻B、窗體文獻和工程文獻

C、窗體文獻和原則模塊文獻D、類模塊文獻和工程文獻

4、如下能在窗體Form1的標(biāo)題欄中顯示"VisualBasic窗體"的語句是（C）。

A、Form1.Name="VisualBasic窗體"

B、Form1.Title="VisualBasic窗體"

C、Form1.Caption="VisualBasic窗體"

D、Form1.Text="VisualBasic窗體"

5、為了裝入壹種VisualBasic應(yīng)用程序，應(yīng)當(dāng)（D）

A、只裝入窗體文獻（.frm）

B、只裝入工程文獻（.vbp）

C、分別裝入工程文獻和原則模塊文獻（.bas）

D、分別裝入工程文獻、窗體文獻和原則模塊文獻

6、賦給壹種數(shù)組的數(shù)據(jù)類型壹定要（A）。

A、相似B、不相似C、兩可D、都不對

7、下面對的的賦值語句是（C）。

A、x+y=30B、y=π*r*rC、y=x+30D、3y=x

8、VisualBasic6.0集成環(huán)境的主窗口中不包括（C）。A、標(biāo)題欄B、菜單欄C、狀態(tài)欄D、工具欄

9、如下論述中錯誤的是(C)。

A、VisualBasic是事件驅(qū)動型可視化編程工具

B、VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語句

C、VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性

D、VisualBasic中控件的某些屬性只能在運行時設(shè)置

10、要使Print措施在Form_Load事件中起作用，要對窗體的(C)屬性進行設(shè)置。

A、BackcolorB、ForeColor

C、AutoRedrawD、BackStyle

11、若要使命令按鈕不可操作，要對(A)屬性進行設(shè)制。

A、EnabledB、Visible

C、BackColorD、Caption

12、如下論述中錯誤的是(B)。

A、壹種工程中可以包括多種窗體文獻

B、在壹種窗體文獻中用Private定義的通用過程能被其他窗體調(diào)用

C、在設(shè)計VB程序時，窗體、原則模塊、類模塊等需要分別保留為不壹樣類型的磁盤文獻。

D、壹種工程默認的啟動對象是Form1

13、Cls措施可以清除窗體或圖片框中的(C)內(nèi)容。

A、在設(shè)計階段使用Picture設(shè)置的背景位圖

B、在設(shè)計階段放置的控件

C、在運行階段產(chǎn)生的圖形和文字

D、以上均可

14、設(shè)x=3,y=5,則如下體現(xiàn)式值為真的是C

A、(-3+5>x)And(y>0)B、(x<0)Eqv(y>0)

C、(x>y)Or(y>0)D、x>=yAndy>10

15、為了防止顧客隨意將光標(biāo)置于控件之上，應(yīng)將進行(D)設(shè)置。

A、將控件的TabIndex屬性設(shè)置為0

B、將控件的TabStop屬性設(shè)置為True

C、將控件的TabStop屬性設(shè)置為False

D、將控件的Enabled屬性設(shè)置為False

16、要判斷在文本框與否按了Enter鍵，應(yīng)在文本框的(D)事件中判斷。

A、ChangeB、KeyDownC、ClickD、KeyPress

17、如下有關(guān)焦點的論述中，錯誤的是()。

A、假如文本框的TabStop屬性為False，則不能接受從鍵盤上輸入的數(shù)據(jù)

B、當(dāng)文本框失去焦點時，觸發(fā)LostFocus事件

C、當(dāng)文本框的Enabled屬性為False時，其Tab次序不起作用

D、可以用TabIndex屬性變化Tab次序

18、假如文本框的Enabled屬性設(shè)為False，則(A)。

A、文本框的文本將變成灰色，并且此時顧客不能將光標(biāo)置于文本框上。

B、文本框的文本將變成灰色，顧客仍然能將光標(biāo)置于文本框上，不過不能變化文本框中的內(nèi)容。

C、文本框的文本將變成灰色，顧客仍然能變化文本框中的內(nèi)容。

D、文本框的文本正常顯示，顧客能將光標(biāo)置于文本框上，不過不能變化文本框中的內(nèi)容。

19、程序運行後，在窗體上單擊鼠標(biāo)，此時窗體不會接受到的事件是(C)。

A、MouseDownB、MouseUp

C、LoadD、Click

20、圖像框有壹種屬性，可以自動調(diào)整圖形的大小，以適應(yīng)圖像框的尺寸，這個屬性是(B)。

A、AutosizeB、Stretch

C、AutoRedrawD、Appearance

21、為了防止顧客隨意將光標(biāo)置于控件之上，應(yīng)設(shè)置的屬性是(D)。

A、將控件的TabIndex屬性設(shè)置為0

B、將控件的TabStop屬性設(shè)置為True

C、將控件的TabStop屬性設(shè)置為False

D、將控件的Enabled屬性設(shè)置為False

22、不管何控件，共同具有的是(B)屬性。

A、TextB、Name

C、ForeColorD、Caption

23、如下有關(guān)窗體的描述中，錯誤的是(A)。

A、執(zhí)行UnloadForm1語句後，窗體Form1消失，但仍在內(nèi)存中

B、窗體的Load事件在加載窗體時發(fā)生

C、當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被嚴禁

D、窗體的Height、Width屬性用于設(shè)置窗體的高和寬

24、當(dāng)運行程序時，系統(tǒng)自動執(zhí)行窗體的(A)事件過程。

A、LoadB、Click

C、UnloadD、GotFocus

25、窗體設(shè)計器是用來設(shè)計(B)。

A、應(yīng)用程序的代碼段B、應(yīng)用程序的界面

C、對象的屬性D、對象的事件

26、VisualBasic是壹種面向?qū)ο蟮目梢暬绦蛟O(shè)計語言，采用了(A)的編程機制。

A、事件驅(qū)動B、按過程次序執(zhí)行

C、從主程序開始執(zhí)行D、按模塊次序執(zhí)行

27、確定壹種控件在窗體上的位置的屬性是(D)。

A、Width或HeightB、Width和Height

C、Top或LeftD、Top和Left

28、假如要變化窗體的標(biāo)題，則需要設(shè)置的屬性是(A)。

A、CaptionB、Name

C、BackColorD、BorderStyle

29、如下論述中錯誤的是(C)。

A、打開壹種工程文獻時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、原則模塊等文獻

B、保留VisualBasic程序時，應(yīng)分別保留窗體文獻及工程文獻

C、VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行

D、事件可以由顧客引起，也可以由系統(tǒng)引起

30、如下論述中錯誤的是(B)。

A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件

B、窗體或控件的事件的名稱可以由編程人員確定

C、移動鼠標(biāo)時，會觸發(fā)MouseMove事件

D、控件的名稱可以由編程人員設(shè)定

31、在VisualBasic中最基本的對象是(C)。它是應(yīng)用程序的基石，是其他控件的容器。

A、文本框B、命令按鈕

C、窗體D、標(biāo)簽

32、如下論述中對的的是(A)。

A、窗體的Name屬性指定窗體的名稱，用來標(biāo)識壹種窗體

B、窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本

C、可以在運行期間變化對象的Name屬性的值

D、對象的Name屬性值可認為空

33、在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是(C)。

A、工程資源管理器窗口B、工具箱窗口

C、代碼窗口D、屬性窗口

34、VisualBasic是壹種面向?qū)ο蟮目梢暬绦蛟O(shè)計語言，采用了的編程機制是(A)。

A、事件驅(qū)動B、按過程次序執(zhí)行

C、從主程序開始執(zhí)行D、按模塊次序執(zhí)行

35、用來設(shè)置粗體字的屬性是(C)。

A、FontItalicB、FontName

C、FontBoldD、FontSize

36、假如壹種工程具有多種窗體及原則模塊，則如下論述中錯誤的是(A)。

A、假如工程中具有SubMain過程，則程序壹定首先執(zhí)行該過程

B、不能把原則模塊設(shè)置為啟動模塊

C、用Hide措施只是隱藏壹種窗體，不能從內(nèi)存中清除該窗體

D、任何時刻最多只有壹種窗體是活動窗體

37、為了把焦點移到文本框，所使用的措施是(A)。

A、SetFocusB、Visible

C、RefreshD、GetFocus

38、INT（100*RND）產(chǎn)生的隨機整數(shù)的閉區(qū)間是（A）。

A、[0，99]B、[1，100]

C、[0，100]D、[1，99]

39、假如要在命令按鈕上顯示圖形文獻，應(yīng)設(shè)置命令按鈕的(B)。

A、Style屬性和Graphics屬性B、Style屬性和Picture屬性

C、Caption屬性D、Graphics屬性

40、若要使命令按鈕不可操作，要對(A)屬性進行設(shè)制。

A、EnabledB、Visible

C、BackColorD、Caption

41、假定窗體的名稱為Form1,則把窗體的標(biāo)題設(shè)置為“VB_Test”的語句為(B)。

A、Form1=“VB_Test”B、Form1.Caption=“VB_Test”

C、Form1.Text=“VB_Test”D、F=“VB_Test”

42、如下論述中錯誤的是(A)。

A、在工程資源管理器窗口中只能包括壹種工程文獻及屬于該工程的其他文獻

B、以.BAS為擴展名的文獻是原則模塊文獻

C、窗體文獻包括該窗體及其控件的屬性

D、壹種工程中可以具有多種原則模塊文獻

43、要使文本框獲得輸入焦點，則應(yīng)采用文本框控件的哪個措施(A)。

A、GotFocusB、LostFocus

C、KeyPressD、SetFocus

44、如下不能在“工程資源管理器”窗口中列出的文獻類型是(B)。

A、.basB、.resC、.frmD、.ocx

45、剛建立壹種新的原則EXE工程後，不在工具箱中出現(xiàn)的控件是(C)。

A、單項選擇按鈕B、圖片框C、通用對話框D、文本框

46、如下論述中錯誤的是(B)。

A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件

B、窗體或控件的事件的名稱可以由編程人員確定

C、移動鼠標(biāo)時，會觸發(fā)MouseMove事件

D、控件的名稱可以由編程人員設(shè)定

47、如下可以觸發(fā)文本框Change事件的操作是(D)。

A、文本框失去焦點B、文本框獲得焦點

C、設(shè)置文本框的焦點D、變化文本框的內(nèi)容

48、如下論述中錯誤的是(C)。

A、壹種工程中只能有壹種SubMain過程

B、窗體的Show措施的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

C、窗體的Hide措施和Unload措施的作用完全相似

D、若工程文獻中有多種窗體，可以根據(jù)需要指定壹種窗體為啟動窗體

49、語句PrintAbs(-6^2)+Int(-6^2)的輸出成果是(A)。

A、0B、1C、-1D、-72

50、假如將布爾常量值TRUE賦值給壹種整型變量，則整型變量的值為(B)。

A、0B、-1C、TRUED、FALSE

51、函數(shù)String(n,"str")的功能是(B)。

A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串

B、返回由n個字符構(gòu)成的字符串

C、從字符串中取出n個字符

D、從字符串中第n個字符的位置開始取子字符串

52、語句PrintFormat(“HelloWorld”,“>”)的輸出成果是(C)。

A、helloWORLDB、helloworld

C、HELLOWORLDD、HELLOworld

53、申明符號常量應(yīng)當(dāng)用關(guān)鍵字(B)。

A、StaticB、ConstC、PrivateD、Variant

54、要強制顯示申明變量，可在窗體模塊或原則模塊的申明段中加入語句(B)。

A、OptionBase0B、OptionExplicit

C、OptionBase1D、OptionCompare

55、下列可作為VisualBasic變量名的是(D)。

A、A#AB、4AC、?xyD、constA

56、設(shè)a=10，b=5，c=1，執(zhí)行語句Printa>b>c後，窗體上顯示的是(B)。

A、TrueB、FalseC、1D、出錯信息

57、執(zhí)行x$=String(6,"124abc")後，x的值是(B)。

A、124abcB、111111C、124D、abc

58、設(shè)a=6，則執(zhí)行x=IIf(a>5,-1,0)後，x的值為（D）

A、5B、6C、0D、-1

59、執(zhí)行語句：c$=“Glad”&Mid$(“Nicetomeetyou”,5,3)，則變量c$的值為(C)。

A、NicetomeetyouB、GladNicetomeetyou

C、GladtoD、Glad

60、下面(D)是合法的字符常數(shù)。

A、ABC$B、"ABC"C、'ABC'D、ABC

61、對于語句Ifx=1Theny=1，下列說法對的的是（C）。

A、x=1和y=1均為賦值語句

B、x=1和y=1均為關(guān)系體現(xiàn)式

C、x=1為關(guān)系體現(xiàn)式，y=1為賦值語句

D、x=1為賦值語句，y=1為關(guān)系體現(xiàn)式

62、設(shè)有申明：DimXAsInteger,假如Sgn(X)的值為-1，則X的值是(D)。

A、任何整數(shù)B、0C、等于0的整數(shù)D、不不小于0的數(shù)

63、在壹行內(nèi)寫多條語句時，每個語句之間用(B)符號分隔。

A、，B、：C、、D、；

64、從鍵盤上輸入兩個字符串，分別保留在變量str1、str2中。確定第二個字符串在第壹種字符串中起始位置的函數(shù)是(D)。

A、LeftB、MidC、StringD、Instr

65、設(shè)S="中華人民共和國"，體現(xiàn)式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（B）

A、"中華民國"B、"中國人民"

C、"中共人民"D、"人民共和"

66、下列可作為VisualBasic中的變量名的是(A)。

A、FilenameB、A(A+B)C、254DD、Print

67、下面(A)是合法的變量名。

A、X_yzB、123abcC、IntegerD、X-Y

68、如下變量命名非法的是（C）。

A、xyz123B、printaaC、booleanD、Bernald

69、設(shè)有變量申明:DimTestDateAsDate,為變量TestDate對的賦值的體現(xiàn)方式是(A)。

A、TextDate=#1/1/#

B、TestDate=#“1/1/”#

C、TextDate=date(“1/1/”)

D、TestDate=Format(“m/d/yy”,“1/1/”)

70、設(shè)a=2,b=3,c=4,d=5，體現(xiàn)式a>bANDc<=d的值是(B)。

A、TrueB、FalseC、-1D、1

71、體現(xiàn)式6*8Mod9的值是(B)。

A、4B、3C、6D、7

72、假設(shè)變量bool_x是壹種布爾型(邏輯型)的變量，則下面對的的賦值語句是（D）

A、bool_x="False"B、bool_x=.False.

C、bool_x=#False#D、bool_x=False

73、設(shè)a=“VisualBasic”，下面使b=“Basic”的語句是(B)。

A、b=Left(a,8,12)B、b=Mid(a,8,5)

C、b=Rigth(a,5,5)D、b=Left(a,8,5)

74、語句PrintFormat$(32548.5,“###,###.###”)的輸出成果是（B）。

A、32548.5B、32,548.5C、032,548.50D、32,548.50

75、如下申明語句中錯誤的是(B)。

A、Constvar1=123B、Dimvar2='ABC'

C、Dimx_y_z%D、Staticvar3AsInteger

76、可以同步刪除字符串前導(dǎo)和尾部空白的函數(shù)是(C)。

A、LtrimB、RtrimC、TrimD、Mid

77、下列可為合法變量名的是(D)。

A、Integer

B、FalseC、publicD、thanksgiving

78、變量未賦值時，數(shù)值型變量的值為(A)。

A、0B、空C、1D、無任何值

79、體現(xiàn)式16/4-2^5*8/4Mod5\2的值為(B)。

A、14B、4C、20D、2

80、下面If語句記錄滿足性別為男、職稱為副專家以上、年齡不不小于40歲條件的人數(shù)，不對的的語句是（D）。

A、Ifsex="男"Andage＜40And(duty="專家"Orduty="副專家")

Thenn=n+1

B、Ifsex="男"Andage＜40AndInStr(duty,"專家")＞0

Thenn=n+1

C、Ifsex="男"Andage＜40AndRight(duty,2)="專家"

Thenn=n+1

D、Ifsex="男"Andage＜40Andduty="專家"Andduty="副專家"Thenn=n+1

81、設(shè)a=3,b=5，則如下體現(xiàn)式值為真的是(B)。

A、a>=bAndb>10

B、(a>b)Or(b>0)

C、(a<0)or(b<0)

D、(-3+5>a)And(b>0)

82、執(zhí)行語句a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5),將顯示壹種輸入對話框，在對話框的輸入?yún)^(qū)中顯示的信息是(A)。

A、Today

B、Tomorrow

C、Yesterday

D、DaybeforeYesterday

83、VB提供了構(gòu)造化程序設(shè)計的3種基本構(gòu)造，這3種基本構(gòu)造是（B）。

A、遞歸構(gòu)造，分支構(gòu)造，循環(huán)構(gòu)造

B、選擇構(gòu)造，循環(huán)構(gòu)造，次序構(gòu)造

C、過程構(gòu)造，輸入、輸出構(gòu)造，轉(zhuǎn)向構(gòu)造

D、分支構(gòu)造，循環(huán)構(gòu)造，次序構(gòu)造

84、下面If語句記錄滿足性別為男、職稱為副專家以上、年齡不不小于40歲條件的人數(shù)，不對的的語句是（D）。

A、Ifsex=“男”Andage＜40AndInStr(duty,“專家”)＞0

Thenn=n+1

B、Ifsex=“男”Andage＜40And(duty=“專家”O(jiān)rduty=“副專家”)

Thenn=n+1

C、Ifsex=“男”Andage＜40AndRight(duty,2)=“專家”

Thenn=n+1

D、Ifsex=“男”Andage＜40Andduty=“專家”Andduty=“副專家”Thenn=n+1

85、當(dāng)語句w=IIf(4>10,”Red”,“Green”)執(zhí)行後，變量w中的值是（C）。

A、Null

B、“Red”

C、“Green”

D、-1

86、賦值語句：a=123+MID(“123456”,3,2)執(zhí)行後，a變量中的值是（D）。

A、“12334”

B、123

C、12334

D、157

87、設(shè)有語句x=InputBox(“AAAA”，“BBBB”，“”),程序運行後，所產(chǎn)生的對話框的標(biāo)題應(yīng)為(C)。

A、AAAA

B、空

C、BBBB

D、出錯，不能產(chǎn)生對話框

88、下面對的的賦值語句是（C）。

A、x+y=30

B、y=π*r*r

C、y=x+30

D、3y=x

89、VB提供了構(gòu)造化程序設(shè)計的三種基本構(gòu)造，三種基本構(gòu)造是(D)。

A、遞歸構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造

B、選擇構(gòu)造、過程構(gòu)造、次序構(gòu)造

C、過程構(gòu)造、輸入輸出構(gòu)造、轉(zhuǎn)向構(gòu)造

D、選擇構(gòu)造、循環(huán)構(gòu)造、次序構(gòu)造

90、下面程序段求兩個數(shù)中的大數(shù)，不對的的是（D）。

A、Max=IIf(x＞y,x,y)

B、Ifx＞yThenMax=xElseMax=y

C、Max=x：If

y＞=xThenMax=y

D、Ify＞xThenMax=y：Max=x

91、下列程序段：Dim

xIf

x

Then

Printx

Else

Printx+1運行後，顯示的成果是（A）。

A、1

B、0

C、-1

D、出錯

92、如下不屬于vb的三種基本構(gòu)造的是（C）？

A、次序構(gòu)造

B、選擇構(gòu)造

C、遞歸構(gòu)造

D、循環(huán)構(gòu)造

93、語句Ifx=1Theny=1,下列說法對的的是（C）。

A、x=1和y=1均為賦值語句

B、x=1和y=1均為關(guān)系體現(xiàn)式

C、x=1為關(guān)系體現(xiàn)式，y=1為賦值語句

D、x=1為賦值語句，y=1為關(guān)系體現(xiàn)式

94、賦值語句：a=123&MID(“123456”,3,2)執(zhí)行後，a變量中的值是（C）。

A、“12334”

B、123

C、12334

D、157

95、下面程序段顯示的成果是（A）。

Dimx

x=Int(Rnd)+5

SelectCase

x

Case5

“優(yōu)秀”

Case4

Print“良好”

Case3

Print“通過”

CaseElse

Print“不通過”

EndSelect

A、優(yōu)秀

B、良好

C、通過

D、不通過

96、為了給x,y,z這3個變量賦初值1，下面對的的賦值語句是（A）。

A、x=1：y=1：z=1

B、x=1,y=1,z=1

C、x=y=z=1

D、xyz=1

97、下列語句對的的是（C）

A、IfA≠BThenPrint"A不等于B"

B、IfA<>BThenPrintfA不等于B

C、IfA<>BThenPrint"A不等于B"

D、IfA≠BPrint"A不等于B"

98、設(shè)有語句x$=InputBox(“輸入數(shù)值”，“0”，“示例”),程序運行後，假如從鍵盤上輸入數(shù)值10并按回車鍵，則下列論述中對的的是(D)。

A、變量X的值是數(shù)值10

B、在InputBox對話框標(biāo)題欄中顯示的是“示例”

C、0是默認值

D、變量X的值是字符串“10”

99、運行下列程序段後，顯示的成果為（

B）J1=4:J2=9IfJ1<J2ThenPrintJ2ElsePrintJ1

A、4

B、9

C、13

D、49

100、InputBox函數(shù)返回值的類型為(B)。

A、數(shù)值

B、字符串

C、變體

D、數(shù)值或字符串（視輸入的數(shù)據(jù)而定）

101、壹種數(shù)組闡明為Dima(0to5，1to5)AsInteger，則該數(shù)組共有（C）

個元素。

A、25

B、36

C、30

D、不確定

102、數(shù)組申明語句Dima(2to3,-2

to2,3to5)中，數(shù)組a包括元素的個數(shù)為(C)。

A、120

B、75

C、30

D、13

103、假如在上題語句前加入OptionBase1，則該數(shù)組共有（D

）個元素。

A、15

B、16

C、13

D、不確定

104、假如有申明Dima(15)AsInteger，則該數(shù)組共有（B）個元素。

A、15

B、16

C、13

D、不確定

105、壹種數(shù)組闡明為Dima(5，1to5)AsInteger，則該數(shù)組共有（C）

個元素。

A、25

B、36

C、30

D、不確定

106、在VB中，默認的數(shù)組下標(biāo)的下界從0開始，要想在通用申明段界定下界，則應(yīng)使用（A）。

A、OptionBase

B、OptionExplicit

C、Explicit

D、LowBase

107、如下數(shù)組申明語句，對的的是(B)。

A、Dim

a[3,4]

as

Integer

B、Dim

a(3,

4)

as

Integer

C、Dim

a(n,n)

as

Integer

D、Dim

a[3][4)

as

Integer

108、賦給壹種數(shù)組的數(shù)據(jù)的值的類型壹定要（

A）。

A、相似

B、不相似

C、兩可

D、都不對

109、數(shù)組的下標(biāo)可取的變量類型是（A）。

A、數(shù)值型

B、字符型

C、曰期型

D、可變型

110、數(shù)組申明語句Dima(0to3,-2

to2,0to5)中，數(shù)組a包括元素的個數(shù)為(A)。

A、120

B、75

C、60

D、13

111、假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗體上添加壹種命令按鈕，然後編寫如下事件過程：PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEndSub程序運行時，單擊命令按鈕得到的成果（D）。

A、5

4

B、1

1

C、1.25

4

D、1.25

1

112、用如下方式申明的變量，（B）可以在整個程序中通用？

A、在窗體模塊用Dim進行申明

B、在窗體模塊用Public進行申明

C、在窗體模塊用Private進行申明

D、在窗體模塊用Static進行申明

113、在窗體上添加壹種命令按鈕和三個標(biāo)簽，編寫事件過程：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegerN=10:z=N+z:y=y+z:x=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub程序運行後，持續(xù)三次單擊命令按鈕，則三個標(biāo)簽中顯示的內(nèi)容分別是（A）。

A、10

10

10

B、30

30

30

C、30

30

10

D、10

30

30

114、如下論述中錯誤的是(D)。

A、假如過程被定義為Static類型，則該過程中的局部變量都是Static類型

B、Sub過程中不能嵌套定義Sub過程

C、Sub過程中可以嵌套調(diào)用Sub過程

D、事件過程可以像通用過程同樣由顧客定義過程名

115、在在窗體上添加壹種命令按鈕Command1和壹種文本框Text1，然後編寫如下事件過程：

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger,zAsInteger

x=5

y=7

z=0

Text1.Text=""

Callp1(x,y,z)

Text1.Text=Str(z)

EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)

c=a+b

EndSub

程序運行後，單擊命令按鈕得到的成果是（A）。

A、12

B、0

C、Str(z)

D、沒有顯示成果

116、假如在程序中要將a定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語句是：（B）

A、RedimaAsInteger

B、StaticaAsInteger

C、PublicaAsInteger

D、DimaAsInteger

117、如下程序的運行成果是（C）

Subs1(b()AsInteger)

Fori=1To4

b(i)=2*i

Nexti

EndSub

PrivateSubCommand1_Click()

Dima(1To4)AsInteger

Fori=1To4

a(i)=i+5

Nexti

s1a()

Fori=1To4

Printa(i)

Nexti

EndSub

A、12

14

16

18

B、6

7

8

9

C、2

4

6

8

D、1

2

3

4

118、如下程序的運行成果是（

D）。Functionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1f=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEndSub

A、12

B、28

C、32

D、24

119、下列程序輸出成果（C

）。

PrivateSubCommand1_Click()

Fori=1To10

GetValuei

Nexti

PrintGetValue(i)

EndSub

PrivateFunctionGetValue(ByValaAsInteger)StaticSAsIntegerS=S+a

GetValue=S

EndFunction

A、10

B、149、菜單編輯器中，輸入哪壹種選項（A）會在菜單欄上顯示文本

A、標(biāo)題

B、名稱

C、索引

D、訪問鍵

150、菜單控件只有壹種事件（B）

A、MouseUp

B、Click

C、DBClick

D、KeyPress

151、在用通用對話框控件建立“打開”或“保留”文獻對話框時，假如需要指定文獻列表框所列出的文獻類型是文本文獻(即.txt文獻)，則對的的描述格式是(A)。

A、“text(.txt)|(*.txt)”

B、“文本文獻(.txt)|(.txt)”

C、“text(.txt)||(*.txt)”

D、“text(.txt)(*.txt)”

152、下面哪個屬性可以控制菜單項可見或不可見（C）

A、Hide

B、Checked

C、Visible

D、Enabled

153、下面說法不對的的是（D）

A、層菜單不容許設(shè)置快捷鍵

B、使菜單項中的文字具有下畫線，可在標(biāo)題文字前加&符號。

C、壹菜單項名為MenuTerm，則語句MenuTerm.Enabled=Flase將使該菜單項失效。

D、但愿在菜單中顯示“&”符號，則在標(biāo)題欄中輸入“&”符號。

154、下面哪個屬性可以控制菜單項可見或不可見（C）?

A、Hide

B、Checked

C、Visible

D、Enabled

155、變化驅(qū)動器列表框的Drive屬性將激活（A）事件。

A、Change

B、Scroll

C、KeyDown

D、KeyUp

156、在窗體上建立通用對話框需要添加的控件是（C）

A、Data控件

B、Form控件

C、CommonDialog控件

D、VBComboBox控件

157、下面幾種關(guān)鍵字均表達文獻的打開方式，只能進行讀不能寫的是（A）。

A、Input

B、Output

C、Random

D、Append

158、為建壹種隨機文獻，其中每壹條記錄由多種不壹樣數(shù)據(jù)類型的數(shù)據(jù)項構(gòu)成，應(yīng)使用（A）。

A、記錄類型

B、數(shù)組

C、字符串類型

D、變體類型

159、下列說法錯誤的是（B）。

A、當(dāng)用Write#語句寫次序文獻時，文獻必須以O(shè)utput或Append方式打開

B、用Open語句打開壹種文獻時，對同壹種文獻可以用幾種不壹樣的文獻號打開

C、用Output和Append方式打開文獻時，不用將文獻關(guān)閉，就能重新打開文獻

D、用Append方式打開文獻時，進行寫操作，寫入文獻的數(shù)據(jù)附加到本來文獻的背面

160、執(zhí)行語句Open"Sample.dat"ForRandomAs#1Len=50後，對文獻"Sample.dat"中的數(shù)據(jù)可以進行的操作是（C

）。

A、只能寫不能讀

B、只能讀不能寫

C、即可以讀，也可以寫

D、不能讀，也不能寫

四、編程題

1、求100以內(nèi)的素數(shù)。

2、從鍵盤輸入任意長度的字符串，規(guī)定將字符次序倒置，例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。

3、計算0~200之間所有能被11或5整除的數(shù)之和

4、輸入壹年份，判斷它與否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）

5、已知x,y,z3個變量中寄存了3個不壹樣的數(shù)，比較它們的大小并進行調(diào)整，使得x<y<z。

6、求s=a+aa+aaa+...aaaaa（n個a），其中a和n的值隨機產(chǎn)生，a的范圍是[1,9]的整數(shù)，n的范圍是[5,10]。如a=3,n=6,則s=3+33+333+3333+33333+333333。編程確定n和a的值，并計算s。

7、計算100~300之間所有能被3和7整除的數(shù)之和。

8、編程求200--400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(壹種數(shù)假如同步是7和5的倍數(shù)，則只能加壹次。)

9、找出被3、5、7除，余數(shù)為1的最小的5個正整數(shù)。

10、某次歌曲大獎賽，有7個評委。假如分別輸入7個評委對某個參賽者的打分數(shù)，按照去掉壹種最高分和壹種最低分的計算措施，求出該參賽者的平均得分。

11、編程顯示100~500之間所有的水仙花數(shù)之和。(水仙花數(shù)是3位數(shù)，其各位數(shù)之和等于該數(shù)自身)

12、隨機產(chǎn)生壹種三位正整數(shù)，然後逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同步顯示。例如，產(chǎn)生246，輸出是642。

13、從鍵盤輸入三角形的三條邊a，b，c的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。

14、已知數(shù)組a()，編程刪除a中第5個元素。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。

15、隨機生成壹種整型的二維數(shù)組，范圍在[10,20]之間，以上三角形式輸出該數(shù)組。

16、運用隨機函數(shù)生成壹種4×4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出每行中的最大值和下標(biāo)。

17、運用隨機函數(shù)生成壹種4×4的矩陣(即二維矩陣),范圍是[40,80]內(nèi)的整數(shù)，求它的最大值及所對應(yīng)的下標(biāo)。

18、輸入壹系列字符串，編程求出長度最大的字符串并輸出其所對應(yīng)的次序。

19、運用隨機函數(shù)生成壹種4×4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和

20、輸入壹系列字符串，將字符串按遞減次序排列。請編程實現(xiàn)。

21、隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值。

22、定義三個4×4的二維數(shù)組A,B,C，A和B中的元素均隨機生成，數(shù)組A的范圍是1～20，數(shù)組B的范圍是100～200，數(shù)組C是A和B相乘得到的。請編程生成并輸出A,B,C。

23、隨機產(chǎn)生15個小寫字母，放在字符數(shù)組中。提醒：c=chr(int(rnd*26+97))

24、隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標(biāo)。

25、定義三個4×4的二維數(shù)組A,B,C，A和B中的元素均隨機生成，數(shù)組A的范圍是1～20，數(shù)組B的范圍是100～200，數(shù)組C是A和B相加得到的。請編程生成并輸出A,B,C。

26、運用隨機函數(shù)生成壹種4×4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù)，求它的兩條對角線上元素之和。

27、運用隨機函數(shù)生成壹種4×4的矩陣(即二維矩陣),范圍是[40,80]內(nèi)的整數(shù)，求它的最小值及所對應(yīng)的下標(biāo)。

28、隨機生成壹種整型的二維數(shù)組，范圍在[10,20]之間，如下三角形式輸出該數(shù)組。

29、有10個評委對歌手進行打分（分數(shù)寄存在A數(shù)組中）規(guī)定編程計算歌手平均得分（按去掉壹種最高分和壹種最低分的計算措施計算）。a=Array(98,97,95,91,90,99,93,94,93,96)

30、編程輸出n行楊輝三角圖形，n由鍵盤輸入。

31、申明壹種整型的二維數(shù)組a(1to4,1to4)，用隨機函數(shù)產(chǎn)生各元素，范圍介于[1,20]之間，編程將第1行和第3行對應(yīng)元素互換。

32、隨機產(chǎn)生15個大寫字母，放在字符數(shù)組中。提醒：c=chr(int(rnd*26+65))

33、編寫壹種過程計算并輸出區(qū)間[100，1000]內(nèi)所有素數(shù)的和(規(guī)定判斷素數(shù)使用過程（函數(shù)或子過程）來實現(xiàn)。調(diào)用該過程。(提醒：只能被1和自身整除的自然數(shù)稱為素數(shù)。)

34、隨機產(chǎn)生10個1~100的正整數(shù)放入數(shù)組，顯示產(chǎn)生的數(shù)，求最大值、最小值、平均值。

35、已知壹維數(shù)組a()中的元素已排序，分別為{12，15，21，25，27，35，36，39，48，52}，編程將30插入數(shù)組a，并使a仍然有序。

37、申明壹種整型的二維數(shù)組a(1to4,1to4)，用隨機函數(shù)產(chǎn)生各元素，范圍介于[1,20]之間，編程將第2行和第4行對應(yīng)元素互換。

38、隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最小值及所對應(yīng)的下標(biāo)。

39、編寫壹種判斷素數(shù)的通用過程（函數(shù)或子程序）。調(diào)用該過程，計算并輸出區(qū)間[1000，1100]內(nèi)所有素數(shù)的和。(提醒：只能被1和自身整除的自然數(shù)稱為素數(shù)。)

40、編壹子過程ProcMin,求壹維數(shù)組a中的最小值，子過程的形參自已確定。

41、編壹種冒泡排序法子過程，對已知的若干整數(shù)按遞減次序排列。提醒：子過程的形式為subsort1(a%())。

42、編壹種選擇排序法子過程，對已知的若干整數(shù)按遞減次序排列。提醒：子過程的形式為subsort1(a%())。

43、編壹種選擇排序法子過程，對已知的若干整數(shù)按遞增次序排列。提醒：子過程的形式為subsort1(a%())。

44、編壹種冒泡排序法子過程，對已知的若干整數(shù)按遞增次序排列。提醒：子過程的形式為subsort1(a%())。

45、編壹種冒泡排序法子過程，對已知的若干整數(shù)按遞增次序排列。提醒：子過程的形式為subsort1(a%())。

<PIXTEL_MMI_EBOOK_>2

1、求100以內(nèi)的素數(shù)。

PrivateSubCommand1_Click()

DimiAsInteger,mAsInteger,tagAsBoolean

j=0

Form=2To100

tag=True：Fori=2Tom-1

If(mModi)=0Thentag=False

Nexti

IftagThen

Printm;"

";

j=j+1

Ifj=10Thenj=0:Print

EndIf：Nextm

EndSub

2、從鍵盤輸入任意長度的字符串，規(guī)定將字符次序倒置，例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。

PrivateSubCommand1_Click()

Dima$,I%,c$,d$,n%

a=InputBox("輸入字符串")

n=Len(a)

ForI=1ToInt(n/2)

c=Mid(a,I,1)

Mid(a,I,1)=Mid(a,n-I+1,1)

Mid(a,n-I+1,1)=c

NextI

Printa

EndSub

3、計算0~200之間所有能被11或5整除的數(shù)之和

、PrivateSubForm_click()

Dimi%,sum%

Print

Fori=0To200

IfiMod5=0OriMod11=0Thensum=sum+i

Nexti

Print"0~200之間所有能被5或100整除的數(shù)之和為:",sum

EndSub

4、輸入壹年份，判斷它與否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）

PrivateSubCommand2_Click()

Dimy%

y=Year(Now)

IfyMod4=0AndyMod100<>0OryMod400=0Then

MsgBox(y&"年是閏年")

Else:MsgBox(y&"年是平年")

EndIf

EndSub

5.輸入xyz三個數(shù)，按從大到小顯示。

PrivateSubCommand1_Click()

Dimx!,y!,z!

x=InputBox("inputx")

y=InputBox("inputy")

z=InputBox("inputz")

Print"

x

y

z"

Print"排序前";x;"

";y;"

";z

Ifx<yThent=x:x=y:y=t:

Ifx<zThent=x:x=z:z=t:

Ify<zThent=y:y=z:z=t:

Print"排序後"&x&"

"&y&"

"&z

EndSub

6、求s=a+aa+aaa+...aaaaa（n個a），其中a和n的值隨機產(chǎn)生，a的范圍是[1,9]的整數(shù)，n的范圍是[5,10]。如a=3,n=6,則

s=3+33+333+3333+33333+333333。編程確定n和a的值，并計算s。

PrivateSubCommand1_Click()

Dims!,t!,i!,a%,n%

a=Int(Rnd*9+1)

n=Int(Rnd*6+5)

t=0:s=0

Print"a=";a,"n=";n

Fori=1Ton

t=t*10+a

s=s+t

Printt;

Nexti

Print

Print"s=";s

EndSub

9、找出被3、5、7除，余數(shù)為1的最小的5個正整數(shù)。

PrivateSubCommand1_Click()

Dimcountn%,n%

countn=0

n=1

Do

n=n+1

IfnMod3=0AndnMod5=0AndnMod7=0Then

Printn

countn=countn+1

EndIf

LoopUntilcountn=5'或whilecountn<5

EndSub

10、某次歌曲大獎賽，有7個評委。假如分別輸入7個評委對某個參賽者的打分數(shù)，按照去掉壹種最高分和壹種最低分的計算措施，求出該參賽者的平均得分。

PrivateSubCommand1_Click()

Dimmark!,aver!,i%,max1!,min1!

aver=0

Fori=1To7

mark=InputBox("輸入第"&i&"位評為打得分")

Ifi=1Then

max1=mark:min1=mark

Else

Ifmark<min1Then

min1=mark

ElseIfmark>max1Then

max1=mark

EndIf

EndIf

aver=aver+mark

Nexti

aver=(aver-mark1-min1)/5

Printaver

EndSub

11、編程顯示100~500之間所有的水仙花數(shù)之和。(水仙花數(shù)是3位數(shù)，其各位數(shù)之和等于該數(shù)自身)

程序：PrivateSubCommand1_Click()

Dimi%,j%,k%,sxh,m!

m=0

Fori=1To4

Forj=1To9

Fork=0To9

sxh=i*100+j*10+k

Ifsxh=i^3+j^3+k^3Then

m=sxh+m

EndIf

Nextk

Nextj

Nexti

Print"m=";m

EndSub

13、從鍵盤輸入三角形的三條邊a，b，c的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。

PrivateSubCommand1_Click()

Dimx%,y%,z%

x=Val(InputBox("inputx"))

y=Val(InputBox("inputx"))

z=Val(InputBox("inputx"))

Ifx+y>zAndx+z>yAndz+y>xThen

MsgBox("能構(gòu)成三角形")

Ifx=yAndy=zThen

MsgBox("是等邊三角形")

ElseIfx=yOry=zOrz=xThen

MsgBox("是等腰三角形")

ElseIfSqr(x*x+y*y)=zOrSqr(y*y+z*z)=xOrSqr(x*x+z*z)=yThen

MsgBox("是直角三角形")

Else:MsgBox("是其他三角形")

EndIf

Else:MsgBox("不能構(gòu)成三角形"):EndIf

EndSub14、已知數(shù)組a()，編程刪除a中第5個元素。數(shù)組a中的元素分別為{12，6，4，89，75，63，100，20，31}。

PrivateSubForm_Click()

Dima(),i%,n%

a=Array(12,6,4,89,75,63,100,20,31)

n=UBound(a)

Fori=0Ton

Printa(i);

Nexti

Print

Fori=5Ton

a(i-1)=a(i)

Nexti

n=n-1

ReDimPreservea(n)

Fori=0Ton

Printa(i);

Nexti

Print

End

21、隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最大值、最小值和平均值

。程序代碼如下：

PrivateSubForm_Click()

Dima(1To10)AsInteger,i%,maxa%,mina%,avera!

Fori=1To10

a(i)=Int(Rnd*71+30)

Nexti

mina=a(1)

maxa=a(1)

avera=a(1)

Fori=2To10

Ifa(i)>maxaThenmaxa=a(i)

Ifa(i)<minaThenmina=a(i)

avera=avera+a(i)

Nexti

Fori=1To10

Printa(i);

Nexti

Print

Print"max=";maxa,"min=";mina,"aver=";avera/10

EndSub22、定義三個4×4的二維數(shù)組A,B,C，A和B中的元素均隨機生成，數(shù)組A的范圍是1～20，數(shù)組B的范圍是100～200，數(shù)組C是A和B相乘得到的。請編程生成并輸出A,B,C。

PrivateSubForm_Click()

Dima%(1To4,1To4),b%(1To4,1To4),c%(1To4,1To4)

Print"數(shù)組A"

Fori=1To4

Forj=1To4

a(i,j)=Int(Rnd*20+1)

PrintTab(j*4);a(i,j);

Nextj

Print

Nexti

Print"數(shù)組B"

Fori=1To4

Forj=1To4

b(i,j)=Int(Rnd*100+100)

PrintTab(j*6);b(i,j);

Nextj

Print

Nexti

'Print"數(shù)組C";

'Fori=1To4

'Forj=1To4

'c(i,j)=b(i,j)*a(i,j)

'PrintTab(j*4);c(i,j);

'Nextj

'Print

'Nexti

Print"數(shù)組C";

Fori=1To4

Forj=1To4

c(i,j)=b(i,j)+a(i,j)

PrintTab(j*6);c(i,j);

Nextj

Print

Nexti

EndSub

30、編程輸出n行楊輝三角圖形，n由鍵盤輸入。

程序代碼如下：

SubCommand1_Click()

Dimn%,i%,j%

n=Val(Text1)

Dima%(1To1000,1To1000)

Fori=1Ton

a(i,1)=1

Nexti

Fori=1Ton

a(i,i)=1

Nexti

Forj=2Toi-1

Fori=3Ton

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

Nexti

Picture1.Print;

Nextj

Picture1.PrintTab(j*n);a(i,j)

Fori=1Ton

Forj=1Toi

Picture1.Printa(i,j);"";

Nextj

Picture1.Print

Nexti

EndSub

33、編寫壹種過程計算并輸出區(qū)間[100，1000]內(nèi)所有素數(shù)的和(規(guī)定判斷素數(shù)使用過程（函數(shù)或子過程）來實現(xiàn)。調(diào)用該過程。(提醒：只能被1和自身整除的自然數(shù)稱為素數(shù)。)

Functionsushu%(ByValx%)

Dimm%,TagAsBoolean,i%

m=Val(x)

Tag=True

Fori=2Tom-1

If(mModi)=0ThenTag=False

Nexti

IfTagThensushu=x

EndFunction

PrivateSubCommand1_Click()

Dimi%,k%

Fori=100To1000

Ifsushu(i)ThenList1.AddItemi

Nexti

Sum=0

Fork=0ToList1.ListCount-1

Sum=Sum+Val(List1.List(k))

Nextk

Label1="［100，1000］內(nèi)所有素數(shù)和為:"&Sum

EndSub

35、已知壹維數(shù)組a()中的元素已排序，分別為{12，15，21，25，27，35，36，39，48，52}，編程將30插入數(shù)組a，并使a仍然有序。

程序代碼如下：

PrivateSubForm_load()

Dima(),i%,k%,x%,n%

a=Array(1,4,7,9,12,14,23,56)

n=UBound(a)

Fori=0Ton

List1.AddItema(i)

Nexti

EndSub

PrivateSubcommand1_Click()

x=Val(Text1)

Fork=0ToList1.ListCount-1

Ifx<Val(List1.List(k))ThenExitFor

Nextk

List1.AddItemx,k

EndSub

41、編壹種冒泡排序法子過程，對已知的若干整數(shù)按遞減次序排列。提醒：子過程的形式為subsort1(a%())。

SubSort1(a())

DimiMin%,i%,j%,t%

Fori=0ToUBound(a)-1

Forj=0ToUBound(a)-1-i

Ifa(j)>a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=t

Nextj

Nexti

Fori=0ToUBound(a)

Printa(i);

Nexti

Print

EndSub

PrivateSubForm_Click()

Dimb()

Print"排序前"

b=Array(56,32,79,21,5,69,98,14,3,15)

Fori=0ToUBound(b)

Printb(i);

Nexti

Print

Print"排序後"

CallSort1(b())

EndSub

42、編壹種選擇排序法子過程，對已知的若干整數(shù)按遞減次序排列。提醒：子過程的形式為subsort1(a%())。

SubSort1(a())

DimiMin%,i%,j%,t%

Fori=0ToUBound(a)-1

iMin=i

Forj=i+1ToUBound(a)

Ifa(j)<a(iMin)TheniMin=j

Nextj

t=a(i):a(i)=a(iMin):a(iMin)=t

Nexti

Fori=0ToUBound(a)

Printa(i);

Nexti

Print

EndSub

PrivateSubForm_Click()

Dimb(),i%

Print"排序前"

b=Array(56,32,79,21,5,69,98,14,3,15)

Fori=0ToUBound(b)

Printb(i);

Nexti

Print

Print"排序後"

CallSort1(b())

EndSub

43、編壹種選擇排序法子過程，對已知的若干整數(shù)按遞增次序排列。提醒：子過程的形式為subsort1(a%())。

PrivateSubCommand1_Click()

DimiA(1To10)

n=6

iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7

Fori=1Ton-1

'進行n-1遍比較

iMin=i

'對第i遍比較時，初始假定第i個元素最小

Forj=i+1Ton

'在數(shù)組i~n個元素中選最小元素的下標(biāo)

IfiA(j)<iA(iMin)TheniMin=j

Nextj

t=iA(i)

'i~n個元素中選出的最小元素與第i個元素互換

iA(i)=iA(iMin)

iA(iMin)=t

Fork=1Ton

PrintiA(k);

Nextk

Print

Nexti44、編壹種冒泡排序法子過程，對已知的若干整數(shù)按遞增次序排列。提醒：子過程的形式為subsort1(a%())。

PrivateSubCommand1_Click()

DimiA(1To10)

n=6

iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7

Print"冒泡法排序數(shù)據(jù)變化過程"

Print"

8,6,9,3,2,7"

Print"-----------------------------"

Fori=1Ton-1

'進行n-1遍比較

'對第i遍比較時，初始假定第i個元素最小

Forj=nToi+1Step-1

'在數(shù)組i~n個元素中選最小元素的下標(biāo)

IfiA(j)<iA(j-1)Then

t=iA(j)

iA(j)=iA(j-1)

iA(j-1)=t

EndIf

Nextj

Print"i=";i;Spc(i*3-3);

Fork=iTon

PrintiA(k);

Nextk

Print

Nexti

EndSub

31、申明壹種整型的二維數(shù)組a(1to4,1to4)，用隨機函數(shù)產(chǎn)生各元素，范圍介于[1,20]之間，編程將第1行和第3行對應(yīng)元素互換。

PrivateSubForm_Click()

Dima%(1To4,1To4),i%,j%

Print"排序前"

Fori=1To4

Forj=1To4

a(i,j)=Int(Rnd*20+1)

PrintTab(j*4);a(i,j);

Nextj

Print

Nexti

Print"排序後"

Forj=1To4

t=a(1,j):a(1,j)=a(3,j):a(3,j)=t

Nextj

Fori=1To4

Forj=1To4

PrintTab(j*4);a(i,j);

Nextj

Print

Nexti

EndSub38、隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最小值及所對應(yīng)的下標(biāo)。

21．隨機產(chǎn)生30~100（包括30、100）中的拾個正整數(shù)，求最大值、最小值、平均值，并顯示整個數(shù)組的值和成果。

PrivateSubForm_Click()

Dima(1To10)AsInteger,i%,maxa%,mina%,avera!

Fori=1To10

a(i)=Int(Rnd*71+30)

Nexti

mina=a(1)

maxa=a(1)

avera=a(1)

Fori=2To10

Ifa(i)>maxaThenmaxa=a(i)

Ifa(i)<minaThenmina=a(i)

avera=avera+a(i)

Nexti

Fori=1To10

Printa(i);

Nexti

Print

Print"max=";maxa,"min=";mina,"aver=";avera/10

EndSub

15、隨機生成壹種整型的二維數(shù)組，范圍在[10,20]之間，以上三角形式輸出該數(shù)組。

28、隨機生成壹種整型的二維數(shù)組，范圍在[10,20]之間，如下三角形式輸出該數(shù)組。

15、隨機生成壹種整型的二維數(shù)組，范圍在[10,20]之間，以上三角形式輸出該數(shù)組。（下三角、所有元素）Dima%(4,4),i%,j%

PrivateSubForm_load()

Fori=0To4

Forj=0To4

a(i,j)=Int(Rnd*11+10)

Nextj

Nexti

EndSub

PrivateSubCommand1_Click()

Picture1.Cls

Fori=0To4

Forj=0To4

Picture1.Printa(i,j);"";

Nextj

Picture1.Print

Nexti

EndSub

PrivateSubCommand2_Click()

Picture2.Cls

Fori=0To4

Forj=iTo4

Picture2.Printa(i,j);"";

Nextj

Picture2.Print

Nexti

EndSub

PrivateSubCommand3_Click()

Picture3.Cls

Fori=0To4

Forj=0Toi

Picture3.Printa(i,j);"";

Nextj

Picture3.Print

Nexti

EndSub

29、有10個評委對歌手進行打分（分數(shù)寄存在A數(shù)組中）規(guī)定編程計算歌手平均得分（按去掉壹種最高分和壹種最低分的計算措施計算）。a=Array(98,97,95,91,90,99,93,94,93,96)

10、某次歌曲大獎賽，有7個評委。假如分別輸入7個評委對某個參賽者的打分數(shù)，按照去掉壹種最高分和壹種最低分的計算措施，求出該參賽者的平均得分。

PrivateSubForm_Click()

Dima(6)AsInteger,i%,t%,s!,max%,min%,imin%,imax%

Randomize

Fori=0To6

a(i)=InputBox("輸入評委所打的分數(shù)")

'也可以用隨機數(shù)產(chǎn)生

'a(i)=Int(Rnd*31+70)

Nexti

Fori=0To6

Printa(i);

Nexti

Print

imax=0:max=a(0)

Fori=1To6

Ifa(i)>=maxThenmax=a(i):imax=i

Nexti

t=a(0):a(0)=a(imax):a(imax)=t

imin=6:min=a(6)

Fori=0To5

Ifa(i)<=minThenmin=a(i):imin=i

Nexti

t=a(6):a(6)=a(imin):a(imin)=t

Print"除去最高分和最低分之後的分數(shù)"

Fori=1To5

Printa(i);

Nexti

Fori=1To5

s=s+a(i)

Nexti

Print

Print"該參賽者的平均得分為";s/5

EndSub12、隨機產(chǎn)生壹種三位正整數(shù)，然後逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同步顯示。例如，產(chǎn)生246，輸出是642。

PrivateSubCommand1_Click()

Text1=Int(Rnd*900+100)

EndSub

PrivateSubCommand2_Click()

Dimx%,x1%,x2%,x3%

x=Val(Text1)

x1=xMod10

x2=(xMod100)\10

x3=x\100

Text2=x1*100+x2*10+x3