VISUALBASIC程序設(shè)計在線考試復(fù)習(xí)題一單選題1.關(guān)于語句Ifx=1Theny=1，下列說法正確的是（

）A.x=l和y=l均為賦值語句B.x=1和y=1均為關(guān)系表達式C.x=l為關(guān)系表達式，y=l為賦值語句D.x=1為賦值語句，y=l為關(guān)系表達式2.以下選項中，不是VisualBasic控件的是(

)。A.窗體B.定時器C.單選框D.命令按鈕3.選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達式為（）。A.T>=1.7AndW<=62.5B.T>1.7AndW<62.5C.T<=1.7OrW>=62.5D.T>=1.7OrW<62.54.要清除列表框中所有的列表項時，應(yīng)使用（

）方法。A.RemoveB.ClearC.RemoveitemD.Move5.窗體Form1的Name屬性是Frm1,它的單擊事件過程名是（

）。A.Form1_ClickB.Form_ClickC.Frm1_ClickD.Me_Click6.設(shè)置一個單選按鈕（OptionButton）所代表選項的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的屬性是（

）。A.CaptionB.NameC.TextD.Value7.SQL語句Select*Formstudent中的*表示（

）。A.所有記錄B.所有字段C.所有表D.都不對8.

要給代碼加注釋，可以在注釋內(nèi)容前面加上(

)符號。A.,B.:C.‘D.“9.在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程：

PrivateSubTxta_KeyPress(keyasciiasinteger)

EndSub

若焦點位于文本框中，則能夠觸發(fā)KeyPress事件的操作是（

）。

A.單擊鼠標(biāo)B.雙擊文本框C.鼠標(biāo)滑過D.按鍵盤上的某個鍵10.下列敘述中，錯誤的是（

）A.標(biāo)簽和文本框都有Caption屬性B.標(biāo)簽和文本框的主要區(qū)別在于能否編輯其內(nèi)容C.標(biāo)簽具有AutoSize屬性，而文本框沒有D.文本框具有ScrollBar屬性，而標(biāo)簽沒有11.下面程序的運行結(jié)果不同是（

）。

A.ForI=100To200Pset(100，I)NextIB.Line(100，100)-(100，200)C.Line(100，100)-Step(0，100)D.LineStep(100，100)-Step(100，200)12.Int(Rnd*100)表示的是(

)范圍內(nèi)的一個整數(shù)。A.[0,100]B.[1,99]C.[0,99]D.[1,100]13.如果要在文本框中鍵入字符時只顯示某個字符如星號（*），應(yīng)設(shè)置文本框的（

）屬性。A.CaptionB.TextC.CharD.PasswordChar14.執(zhí)行下面的程序段后，a的值為（

）。

a=1

Fori=1To12Step2

a=a+iMod8

NextiA.1B.5C.17D.2115.設(shè)有如下語句：Strl＝InputBox（"輸人"，""，"練習(xí)"）從鍵盤上輸人字符“示例”后，Strl的值是（

）。A.“輸入”B.“”C.“練習(xí)”D.“示例”16.在VisualBasic程序中實現(xiàn)復(fù)制文件“c:”到d:盤根目錄下的語句為（

）。A.Copy"c:"，"d:"B.FileCopy"c:"，"d:"C.FileCopy"c:command"，"d:command"D.以上都不對17.若要設(shè)置定時器控件的定時時間，需設(shè)置的屬性是(

)。A.EnabledB.ValueC.IntervalD.Text18.可決定窗體的左上角是否有控制菜單的屬性是(

)。A.ControlBoxB.MinButtonC.MaxButtonD.BorderStyle19.若要求從文本框中輸入密碼時在文本框中只顯示*號，則應(yīng)用在此文本框的屬性窗口中設(shè)（

）。A.Text屬性值為*B.Caption屬性值為*C.Password屬性值為D.PasswordChar屬性值為*20.語句Print"Theansweris:";20/4-2的結(jié)果為(

)。A.Theansweris20/4-2B.Theansweris3C.Theansweris"20/4-2"D.非法語句21.數(shù)學(xué)表達式Sin25°寫成VB表達式是（

）。A.Sin(25*3.14/180)B.Sin25C.Sin(25)D.Sin(25°)22.下列符號不能作為VB中變量名的是（

）。A.P3ABCDEFGB.P00000C.89YWDDFD.xyz23.下列符號中哪個是VB程序中合法的變量名（

）。A.ab7B.7abC.IfD.a*bc24.下列不屬于VisualBasic數(shù)據(jù)文件的是（

）。A.順序文件B.隨機文件C.二進制文件D.數(shù)據(jù)庫文件25.下列控件中既可用于接受用戶輸入文本，又可用于顯示文本的是（

）。A.Label控件B.TextBox控件C.Timer控件D.CommandButton控件26.語句Print"Theansweris:";20/4-2的結(jié)果為(

)。A.Theansweris20/4-2B.Theansweris3C.Theansweris"20/4-2"D.非法語句27.下列(

)不是VisualBasic的關(guān)鍵字。A.NumB.PublicC.DimD.Const28.下列賦值語句（

）是有效的。A.sum=sum-sumB.x+2=x+2C.x+y=sumD.last=y/029.下列關(guān)于VB列表框的敘述中錯誤的是（

）A.可通過屬性“Item”，返回列表框中的項目。B.可通過屬性“Text”，得到當(dāng)前選中的列表項的內(nèi)容。C.可通過屬性“ListIndex”返回當(dāng)前選中的列表項的索引。D.可通過屬性“ListCount”返回列表框中項目的數(shù)目。30.下面不是VB工作模式的是（

）A.設(shè)計模式B.設(shè)計模式C.匯編模式D.中斷模式31.將通用對話框CommonDialog的類型設(shè)置成“顏色”對話框，可調(diào)用該對話框的（

）方法。A.ShowOpenB.ShowSaveC.ShowColorD.ShowFont32.以下選項中，不屬于標(biāo)簽的屬性是（

）。A.EnabledB.CaptionC.DefaultD.Font33.雙擊窗體中的對象后，VisualBasic將顯示的窗口是（）。A.代碼窗口B.工具箱C.項目（工程）窗口D.屬性窗口34.要求改命令按鈕顯示的文本，應(yīng)當(dāng)在屬性窗口中改變的屬性是（

）。A.CaptionB.NameC.TextD.Label35.允許在菜單項的左邊設(shè)置打勾標(biāo)記，下面哪種論述是正確的？(

)。A.在標(biāo)題項中輸入&，然后打勾B.在索引項中打勾C.在有效項中打勾D.在復(fù)選項中打勾36.窗體的hide屬性的含義是（

）。A.隱藏B.展現(xiàn)C.裝入D.卸載37.在VisualBasic中，按文件的訪問方式不同，可以將文件分為（

）。A.順序文件、隨機文件和二進制文件B.文本文件和數(shù)據(jù)文件C.數(shù)據(jù)文件和可執(zhí)行文件D.ASCⅡ文件和二進制文件38.標(biāo)準(zhǔn)模塊文件的擴展名是（

）。A.frmB.vbpC.basD.vbg39.Sub過程與Function過程最根本的區(qū)別是（

）。A.Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值B.Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以C.Function過程可以有參數(shù)，Sub過程不可以D.兩種過程參數(shù)的傳遞方式不同40.下列哪個控件是容器控件(

)。A.ImageB.PictureC.ComboBoxD.FileListBox41.在程序運行過程中，單擊窗體時，以下程序的輸出結(jié)果為（

）。

PrivateSubForm_Click()

Dimx

x=Array(“Basic”,”Pascal”,”Foxpro”,”Database”)

PrintUcase(Mid(x(2),Len(x(2))-3))

EndSub

A.scalB.SCALC.xproD.XPRO42.表達式2*3^2+2*8/4+3^2的值為（

）。A.64B.31C.49D.4243.執(zhí)行MsgBox"除數(shù)不能為0!",VbExclamation,"數(shù)據(jù)出錯"，在彈出的消息框中顯示的圖標(biāo)是（

）A.停止圖標(biāo)B.問號圖標(biāo)C.感嘆號圖標(biāo)D.消息圖標(biāo)44.菜單控件只包括一個事件，即（

），當(dāng)用鼠標(biāo)單擊或鍵盤選中后按“回車”鍵時觸發(fā)該事件，除分隔條以外的所有菜單控件都能識別該事件。A.GotFocusB.LoadC.ClickD.KeyDown45.表達式mid("abcdefg",3,2)的值是（

）。A.abcB.cdC.bcdD.abcde46.若要將窗體從內(nèi)存中卸載出去，其實現(xiàn)的方法是（

）。A.ShowB.HideC.LoadD.UnLoad47.下列關(guān)于VB列表框的敘述中錯誤的是（

）。A.可通過屬性“Item”，返回列表框中的項目。B.可通過屬性“Text”，得到當(dāng)前選中的列表項的內(nèi)容。C.可通過屬性“ListIndex”返回當(dāng)前選中的列表項的索引。D.可通過屬性“ListCount”返回列表框中項目的數(shù)目。48.在窗體上放置一個文本框，程序運行后，在文本框中輸入abc，但顯示的卻是***，可能的原因是該文本框的(

)屬性值已經(jīng)被設(shè)置為"*"。A.FontB.TextC.NameD.PasswordChar二多選題49.下列對象能響應(yīng)Click事件的是（

）。A.列表框B.圖片框C.窗體D.計時器50.以下選項中，屬于VisualBasic控件的是(

)。A.窗體B.定時器C.單選框D.命令按鈕51.不能改變復(fù)選框中背景顏色的屬性是（

）。A.ValueB.FontColorC.BackColorD.Font52.窗體不能響應(yīng)的事件是（

）。A.ActiveFormB.LoadC.DriveD.Change三判斷題53.除框架外，標(biāo)簽是能對單選按紐分組的控件（

）54.sum和int.sum都可以作為VB的變量名。（

）55.在VisaulBasic中，常量分為直接常量和符號常量兩種。（

）56.三種方式的組合框都允許用戶輸入那些不在列表框中的選項。（

）57.代碼ConstNumber1=15：Number1=10是正確的。（

）58.

Private過程可以被本工程中的所有其它過程調(diào)用。（

）59.定義數(shù)組語句Dima(b)AsInteger是錯誤的。（

）60.通過改變屬性窗口中的Name屬性，來改變窗體的標(biāo)題。（

）61.工程文件的擴展名是.vbg。（

）62.在過程調(diào)用中，“實參表”和“形參表”中對應(yīng)的參數(shù)個數(shù)必須相等，實參的類型不必與相應(yīng)形參的類型相符。（

）63.

在VB中，對象的事件可以通過用戶的操作觸發(fā)。（

）64.文本框控件中沒有Caption屬性。（

）65.要是某個命令按鈕不起作用，應(yīng)將該按鈕的Enabeld屬性設(shè)置為False。（

）66.

VisaulBasic中，當(dāng)一個工程含有多個窗體時，默認(rèn)的啟動窗體是最后一個添加的窗體。（

）67.代碼ConstNumber1=15：Number1=10合法。（

）68.在VisaulBasic中，一個工程可以有多個窗體模塊。（

）69.

如果在一行中輸入多條語句，各語句之間使用分號；分隔。（

）70.變量是指在程序運行過程中其值可以改變的那些量，而值不能改變的是常量。（

）四填空題71.Sub過程與Function過程最根本的區(qū)別是Sub過程（

），而Function過程（

）。72.VB6共有三個版本,按功能從弱到強的順序排列應(yīng)是（

）。73.寫出整數(shù)n能同時被3和7整除的表達式(

)74.要使標(biāo)簽的大小自動與所顯示的文本相適應(yīng)，可以通過設(shè)置(

)屬性為True來實現(xiàn)。75.能響應(yīng)Click事件的對象有列表框、（

）、（

）。76.選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達式為（

）。77.設(shè)置窗體的繪圖方式是否在Paint事件中重繪整個窗體內(nèi)容利用（

）屬性。78.將數(shù)學(xué)表達式a2+2ab+b2轉(zhuǎn)換為VB表達式，應(yīng)寫成(

)。79.若要求從文本框中輸入密碼時在文本框中只顯示*號，則應(yīng)用在此文本框的屬性窗口中設(shè)置（

）。80.確定一個控件在窗體上的位置的屬性是(

)和(

)。81.浮點類型數(shù)據(jù)包括單精度型和（

）數(shù)據(jù)。82.VB提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是（

）、（

）、順序結(jié)構(gòu)。83.表達式2*3^2+2*8/4+3^2的值為（

）。84.在VB中，修改窗體的(

)和(

)屬性值，可改變窗體的大小。85.日期表達式#2/24/02#-#2/12/02#的值為（

）。86.為了把焦點移到某個指定的控件，所使用的方法是（

）。87.將通用對話框CommonDialog的類型設(shè)置成“顏色”對話框，可調(diào)用該對話框的（

）方法。88.在VisualBasic程序中實現(xiàn)復(fù)制文件“c:\”到d:盤根目錄下的語句為（

）。89.用來返回或設(shè)置圖片控件中顯示的圖形的屬性是(

)。90.若要在一行書寫多條語句，則各語句之間應(yīng)使用(

)相分隔。91.在VB中，數(shù)值型變量的初值為

(

)，布爾型變量的初值為(

)

。92.VisualBasic應(yīng)用程序的運行是從（

）開始執(zhí)行。93.控件中可以改變大小的有PictureBox、（

）、（

）。94.PictureBox控件可通過設(shè)置其（

）屬性為True使之可自動調(diào)整大小。95.數(shù)學(xué)表達式Sin25°寫成VB表達式是（

）。96.已知a=3，b=4，c=5，表達式a>bandNotc>aOrc>bAndc<a+b的值是（

）。97.為了把焦點移到某個指定的控件，所使用的方法是(

)。98.用語句dima(-1to4)定義的數(shù)組含有（

）個元素。五綜合題99.PrivateSubForm_Load()

單擊命令按鈕command1后的運行結(jié)果為：List1.AddItem"aaa"List1.AddItem"bbb"

List1.AddItem"ccc"List1.AddItem"ddd"

List1.AddItem"eee"EndSubPrivateSubCommand1_Click()Fori=0To

List1.ListCount

PrintList1.List(i);NextEndSub

100.PrivateFunctionfun(a,b)

單擊命令按鈕command1后的執(zhí)行結(jié)果為：

a=a*a

b=b*b

fun=a–bEndFunctionPrivateSubcommand1_click()

a=4:b=3

c=fun(a,b)

Printa,b,cEndSub101.DimA(10,10)

運行結(jié)果為：ForI=2To4ForJ=4To5A(I,J)=I*JNextJNextIPrintA(2,5),A(3,4)102.在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下代碼：

OptionBase0

PrivateSubCommand1_Click()

DimA(4)AsInteger,B(4)AsInteger

Fork=0To2

A(k+1)=InputBox("請輸入一個整數(shù)")

B(3-k)=A(k+1)

Nextk

PrintB(k)

EndSub

程序運行后，單擊命令按鈕，在輸入對話框中分別輸入2、4、6，寫出輸出結(jié)果。輸出結(jié)果：103.寫出下面過程運行后顯示的結(jié)果。

PublicSubF1(n%,ByValm%)

n=nMod10

m=m\10

EndSub

Privatesubcommand1_click()

Dimx%,y%

X=12

Y=34

CallF1(x,y)

Printx,y

Endsub運行結(jié)果：104.Dima(10)AsDouble

運行結(jié)果為：Fori=1To10a(i)=i*2NextFori=10To1Step-2Printa(i);Next105.1、x=5:y=-20

IfNotx>0Then

運行結(jié)果為：

x=y–3Else

y=x+3

EndIfPrintx,y106.DimA(10)

運行結(jié)果為：Fork=1To10

A(k)=kNextkPrintA(2)+A(4)+A(6)107.2、Forx=-1To1Step2

運行結(jié)果為：SelectCasex+2Case1Print"y=";x^2+1,Case2Print"y=";x–4,Case3Print"y=";x^3+100,EndSelectNextx108.Subproc1(x,y,z)

單擊命令按鈕command1后的運行結(jié)果為：x=x+3:y=yMod10:z=x+y+z

EndSub

PrivateSubCommand1_Click()

x=1:y=31:z=40

Callproc1(x,y,z)

Printx;y;z

EndSub109.X=5:Y=-20

運行結(jié)果為：

If

Notx>0Then

x=y–3

Else

y=x+3

Printx–y,y–x

EndIf

110.PrivateSubForm_Click()

運行結(jié)果為：SUM=0

k=1DoWhilek<=10

SUM=SUM+k

k=k+1

Loop

PrintSUMEndSub111.X=95

SelectCaseX

運行結(jié)果為：

CaseIs>=60

Print"及格"

CaseIs>=75

Print"良好"

CaseIs>=90

Print"優(yōu)秀"

CaseElse

Print"不及格"

EndSelect112.x=InputBox("enterx:")

x的輸入值為-8，則結(jié)果為：SelectCaseSgn(x)+2Case1

Print"y=";x^2+1Case2

Print"y=";x–4Case3

Print"y=";x^3+100EndSelect六編程題113.利用隨機函數(shù)生成一個4×4的矩陣(即二維矩陣),范圍是[20,50]內(nèi)的整數(shù),輸出該矩陣所有數(shù)據(jù)之和。114.隨機產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生246，輸出是642。115.輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）。116.編程求200--400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(一個數(shù)如果同時是7和5的倍數(shù)，則只能加一次)。117.隨機產(chǎn)生10個[30,100]內(nèi)的整數(shù)，求最小值及所對應(yīng)的下標(biāo)。118.寫程序?qū)崿F(xiàn)如下功能：單擊屏幕時產(chǎn)生10個[0，99]之間的隨機整數(shù)并顯示在屏幕上，求出其中的最大數(shù)并顯示在屏幕上。119.寫程序?qū)崿F(xiàn)如下功能：單擊屏幕時產(chǎn)生10個[0，99]之間的隨機整數(shù)并顯示在屏幕上，求出其中的最小數(shù)并顯示在屏幕上。120.分別統(tǒng)計1-100中，滿足3的倍數(shù)、7的倍數(shù)的數(shù)各有多少。121.編寫程序：給出一個數(shù)字形式的星期幾，要求輸出對應(yīng)的英文。數(shù)字在文本框1中輸入，英文在文本框2中顯示，設(shè)計及運行界面如下兩圖所示，請寫出轉(zhuǎn)換按鈕的單擊事件代碼。122.有一元二次方程：aX2+bX+c=0，依次輸入a，b，c，判斷此方程是否有實根。123.某次歌曲大獎賽，有7個評委。如果分別輸入7個評委對某個參賽者的打分?jǐn)?shù)，按照去掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。124.編寫程序：給出一個百分制的成績，要求輸出成績的相應(yīng)等級。轉(zhuǎn)換規(guī)則為：90分以上為“A”，80～89分為“B”，70～79分為“C”，60～69分為“D”，60分以下為“E”。分?jǐn)?shù)在文本框1中輸入，等級在文本框2中顯示，設(shè)計及運行界面如下兩圖所示，請寫出轉(zhuǎn)換按鈕的單擊事件代碼。125.工程的運行界面如右圖所示，設(shè)三個文本框的Name屬性值依次是Text1、Text2和Text3。要求根據(jù)Text1中輸入的數(shù)字，在Text2和Text3中顯示相應(yīng)的輸出結(jié)果。請寫出命令按鈕控件判斷的click事件代碼。Text11234567Text2一二三四五六日Text3英語數(shù)學(xué)語文自然畫圖體育休息126.輸入學(xué)生的百分制成績，轉(zhuǎn)換輸出為五級制成績，90～100分轉(zhuǎn)換為優(yōu)秀，80～89轉(zhuǎn)換為良好，70～79轉(zhuǎn)換為中等，60～69轉(zhuǎn)換為及格，0～60轉(zhuǎn)換為不及格。127.設(shè)在窗體Form1上有一個命令按鈕Command1。要求單擊Command1時，產(chǎn)生20個[0，99]之間的隨機整數(shù)，并顯示到窗體上；然后按從小到大的順序排序，并顯示到窗體上。128.隨機產(chǎn)生10個1～100之間的正整數(shù)并保存在數(shù)組中，在屏幕上顯示產(chǎn)生的數(shù)，計算并輸出其中的最大值、最小值、平均值。

129.輸入3個數(shù)，編程輸出最大的數(shù)。

參考答案一單選題1.答案：C2.答案：A3.答案：B4.答案：B5.答案：C6.答案：D7.答案：B8.答案：C9.答案：D10.答案：A11.答案：D12.答案：C13.答案：D14.答案：B15.答案：D16.答案：B17.答案：C18.答案：A19.答案：D20.答案：B21.答案：A22.答案：C23.答案：A24.答案：D25.答案：B26.答案：B27.答案：A28.答案：A29.答案：A30.答案：C31.答案：C32.答案：C33.答案：A34.答案：A35.答案：D36.答案：A37.答案：A38.答案：C39.答案：A40.答案：B41.答案：D42.答案：B43.答案：C44.答案：C45.答案：B46.答案：D47.答案：A48.答案：D二多選題49.答案：A,B,C50.答案：B,C,D51.答案：A,B,D52.答案：A,C,D三判斷題53.答案：錯54.答案：錯55.答案：對56.答案：錯57.答案：錯58.答案：錯59.答案：對60.答案：對61.答案：對62.答案：錯63.答案：對64.答案：對65.答案：對66.答案：錯67.答案：錯68.答案：對69.答案：錯70.答案：對四填空題71.答案：過程名不能返回值

能夠通過過程名返回值72.答案：學(xué)習(xí)版,專業(yè)版和企業(yè)版73.答案：

nMod3=0AndnMod7=074.答案：

AutoSize75.答案：圖片框

窗體76.答案：T>1.7AndW<62.577.答案：AutoRedraw78.答案：a*a+2*a*b+b*b或者a^2+2*a*b+b^279.答案：PasswordChar屬性值為*80.答案：Left、Top81.答案：雙精度82.答案：選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)83.答案：3184.答案：高度（Height）寬度(Width)85.答案：1286.答案：SetFocus87.答案：ShowColor88.答案：FileCopy"c:\"，"d:\"89.答案：Picture90.答案：

冒號（:）91.答案：０

False92.答案：建立的窗體模塊93.答案：TextBox

Label94.答案：AutoSize95.答案：Sin（25*3.14/180）96.答案：TrueFalse97.答案：SetFocus98.答案：6五綜合題99.答案：aaabbbcccdddeee100.答案：16

9

7101.答案：10

12102.答案：2103.答案：1、2

34104.答案：

20161284105.答案：5

8106.答案：12107.答案：y=2

y=101108.答案：4

1

45109.答案：-3

3110.答案：55111.答案：及格112.答案：y=65六編程題113.答案：PrivateSubCommand1_Click()Dima%(4,5),sumFori=1To4Forj=1To4a(i,j)=Int(Rnd*31)+20Printa(i,j);sum=sum+a(i,j)NextjPrint'換行NextiPrint"sum=";sumEndSub114.答案：PrivateSubCommand1_Click()Dimx%,x1%,x2%,x3%x=Text1x1=xMod10x2=(xMod100)\10x3=x\100Label1=x1*100+x2*10+x3EndSub115.答案：PrivateSubCommand1_Click()Dimy%y=InputBox("請輸入年份")IfyMod4=0AndyMod100<>0OryMod400=0ThenVal(MsgBox("閏年！"))ElseVal(MsgBox("平年！"))EndIfEndSub116.答案：PrivateSubCommand1_Click()Fori=200To400IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfNexti

Fori=200To400IfiMod5=0AndiMod7=0ThenSum=Sum-iEndIfNexti

Print

“倍數(shù)之和=”;SumEndSub117.答案：PrivateSubCommand1_Click()Dima(1To10),mRandomizeForI=1To10a(I)=Int(Rnd*71)+30Printa(I)NextIMin=a(1)ForI=2To10Ifa(I)<MinThenMin=a(I):m=INextIPrint"min=";MinPrint"min的下標(biāo)為";mEndSub118.答案：Dima(1To10)AsIntegerRandomizeFori=1To10

a(i)=Int(Rnd*100)

Printa(i)NextMax=a(1)Fori=2To10

Ifa(i)>MaxThen

Max=a(i)

EndIfNextPrint"Max="&Max119.答案：Dima(1To10)AsIntegerRandomizeFori=1To10

a(i)=Int(Rnd*100)

Printa(i)Nextmin=a(1)Fori=2To10

Ifa(i)<Min

Then

Min=a(i)

EndIfNextPrint"Min="&Min120.答案：PrivateSubCommand1_Click()Dimi,s3,s7s3=0s7=0Fori=1To100IfiMod3=0Thens3=s3+1EndIfNextiFori=1To100IfiMod7=0Thens7=s7+1EndIfNextiPrint"3的倍數(shù)";s3Print"7的倍數(shù)";s7EndSub121.答案：xq=Val(Text1.Text)SelectCasexq

Case1

Text2.Text="Monday"

Case2

Text2.Text="Tuesday"

Case3

Text2.Text="Wednesday"

Case4

Text2.Text="Thursday"

Case5

Text2.Text="Friday"

Case6

Text2.Text="Saturday"

Case7

Text2.Text="Sunday"EndSelect122.答案：有一元二次方程：aX2+bX+c=0，依次輸入a，b，c，判斷此方程是否有實根PrivateSubCommand1_Click()Dima,b,c,na=Text1b=Text2c=Text3n=b*b-4*a*cIfn>=0ThenLabel4="方程有根"

Else

Label4="方程無根"EndIfEndSub123.答案：PrivateSubCommand1_Click()Dimmax,a(1To7),min,sFori=1To7a(i)=Val(InputBox("輸入第"&i&"個數(shù)"))Nextimax=a(1)min=a(1)s=a(1)Fori=2To7Ifa(i)>maxThenmax=a(i)Ifa(i)<minThenmin=a(i)s=s+a(i)Next