程序填空與改錯(cuò)

1、百度文庫(kù)4'【程序填空】題目：窗體上建立了一個(gè)文本框Textl,用于顯示結(jié)果。'單擊按鈕彈出輸入對(duì)話框錄入/0-6之間的數(shù)值，、判斷輸入值為星期幾'請(qǐng)?jiān)凇荆俊刻幪钊胝_的內(nèi)容PrivateSubCommand1_Click()DimxAsInteger*SPACE*x=Val(?("請(qǐng)輸入星期幾(06)"),*SPACE*SelectCase【？】CaseIs=0="星期日(Sunday)"CaseIs=1="星期一(Monday)"CaseIs=2="星期二(Tuesday)"CaseIs

2、=3="星期三(Wednesday)"CaseIs=4EndSub="星期四(Thursday)”CaseIs=5="星期五（Friday）"CaseIs=6="星期六(Saturday)”,*SPACE*Case?EndSelect="輸入錯(cuò)誤”【程序改錯(cuò)】題目：其功能是從數(shù)據(jù)文件（）中讀出學(xué)生的成績(jī)，保存在數(shù)組arr（100）中。單擊"統(tǒng)計(jì)"按鈕（Commandl）,統(tǒng)計(jì)總?cè)藬?shù)、平均分、及格人數(shù)和不及格人數(shù)，將統(tǒng)計(jì)結(jié)果顯示在相應(yīng)的文本框（Textl、Text2、Text3、Text4）中。注意：不可增

3、加或刪除程序行，也不可以更改程序結(jié)構(gòu)Privatearr(100)AsIntegerPrivatenAsIntegerPrivateSubForm_Load()Open&""ForInputAs#1n=0I*FOUND*DoWhileEOFInput#1,xn=n+1arr(n)=xLoopClose#1EndSubPrivateSubCommand1_Click()=nSum=0count1=0count2=0Fori=1TonSum=Sum+arr(i)I*FOUND*Ifarr(i)>=60Thencount1=count1+1Elsecount2=co

4、unt2+1EndIfI*FOUND*Avg=Sum/mNext=Int(Avg+=countl=count2EndSubWhileNotEOF(1)或DoUntilEOF/(1)arr(i)<60Then=sum/n或Avg=Sum/Int或Avg=Sum/Int(Test1)【程序填空】題目：在窗體上建立兩個(gè)文本框Text1（輸入數(shù)）及Text2（顯示結(jié)果），'/一個(gè)命令按鈕Command1（"判斷"）。單擊按鈕時(shí)判斷Text1中輸入的數(shù)值'/是否是4的倍數(shù)。'請(qǐng)?jiān)凇?？】處填入正確的內(nèi)容PrivateSubCommand1_Click()D

5、imxAsIntegerIf IsNumeric =? Then="輸入錯(cuò)誤”*SPACE*ExitSubEndIf,*SPACE*x=CInt(?),*SPACE*If?=0Then="是4的倍數(shù)"Else="不是4的倍數(shù)"EndIfEndSub或Test1Mod4【程序改錯(cuò)】題目：程序功能為打印下列圖形:百度文庫(kù)*注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)Private Sub Form_Click() ClsDim i As IntegerDim j As IntegerI*FOUND*Fori = 1 To 7I*FOUND*Fo

6、rj = 1 To 5Print "*"I*FOUND*NextiPrintNextiEndSubi=1To5j=1Toi【程序填空】題目：窗體上建立了兩個(gè)文本框Textl（輸入字符串）及）。'Text2（轉(zhuǎn)換結(jié)果）,一個(gè)命令按鈕Command1（"清除'錄入Textl內(nèi)容時(shí)將，將錄入內(nèi)容大寫字母轉(zhuǎn)為小寫，'小寫轉(zhuǎn)為大寫'請(qǐng)?jiān)凇荆俊刻幪钊胝_的內(nèi)容EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)DimsAsString*1,*SPACE*s = ? (KeyAscii) Select

7、 Case s*SPACE*Case "A"【？】"Z"s = LCase(s)Case "a" To "z"*SPACE*Case Else13s="*"EndSelectEndSub【程序改錯(cuò)】題目：程序運(yùn)行后單擊窗體，產(chǎn)生25個(gè)0-1000的隨機(jī)整數(shù)保存到二維數(shù)組Mat中,在窗體上按5行、5列的矩陣形式顯示出來(lái)，并輸出矩陣右上-左下對(duì)角線上的數(shù)據(jù)和矩陣左上-下右對(duì)角線上的數(shù)據(jù)。注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)OptionBase1PrivateSubForm_Click()

8、ConstN=5ConstM=5Dimmat(N,M)AsIntegerDimi,jFori=1ToNForj=1ToMI*FOUND*mat(i, j) = Int(Rnd * 100)Next jNext iPrintPrint "初始矩陣為："/Print/For i = 1 To NForj = 1 To MPrint Tab(5 * j); mat(i, j);Next j/ PrintNext iPrint: PrintPrint "右上-左下對(duì)角線上的數(shù)為:For i = 1 To NForj = 1 To M*FOUND*If i = j + 1

9、ThenPrint Tab(5 * i); mat(i, j);End IfNext jNext iPrintPrint "左上-下右對(duì)角線上的數(shù)為:For i = 1 To NForj = 1 To MI*FOUND*Ifi=j-1ThenPrintTab(5*i);mat(i,j);EndIfNextjNextiEndSub1.mat(i,j)=Int(Rnd*1001)2.Ifi=jThen3.Ifi=6-jThen或Ifi=-j+6Then【程序填空】題目：在窗體上建立兩個(gè)文本框Text1（輸入數(shù)）及Text2（顯示結(jié)果），'一個(gè)命令按鈕Command1（"

10、判斷"）。單擊按鈕時(shí)判斷Textl中輸入的數(shù)值是否是4的倍數(shù)。'請(qǐng)?jiān)凇?？】處填入正確的內(nèi)容PrivateSubCommand1_Click()DimxAsInteger*SPACE*IfIsNumeric=?Then="輸入錯(cuò)誤”ExitSubEndIf*SPACE*x=CInt(?),*SPACE*If?=0Then="是4的倍數(shù)"Else="不是4的倍數(shù)"EndIfEndSub1 .False2 .或Text13 .xMod4改錯(cuò)題目：窗體中有一個(gè)組合中S和一個(gè)命令按鈕（C1）。程序的功能是在運(yùn)行時(shí),如果在組合框中輸入一個(gè)

11、項(xiàng)目并單擊命令按鈕，則搜索組合框中的項(xiàng)目，如果沒(méi)有此項(xiàng)，則把此項(xiàng)添加到列表中；如果有此項(xiàng)，則彈出提示："已有此項(xiàng)",然后清除輸入的內(nèi)容。/'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)PrivateSubC1_Click()DimflagAsBooleanI*FOUND*For i = 0 To - 1*FOUND*If (i) = Then flag = TrueElseflag = FalseEnd IfNext /If flag ThenMsgBox "已有此項(xiàng)""ElseI*FOUND*End IfEnd Sub1.For

12、i=0 To - 12.If (i尸 Then3.程序填空以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Textl的文本框數(shù)組，然后畫一個(gè)名為'Text2的文本框和名為 Command1的命令按鈕。，運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊”'計(jì)算得分"命令按鈕，則最后得分顯示在/ Text2文本框中（去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分）'請(qǐng)?jiān)谔幪钊胝_的內(nèi)容？Private Sub Command1_Click()Dim k As IntegerDim sum As Single, max As Single, min As Singlesum =

13、 Text1(0)max = Text1(0),*SPACE*min= ?,*SPACE*For k= ? to 6If max < Text1(k) Thenmax = Text1(k)End IfIf min > Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k) Next k*SPACE* Text2= ? /5End Sub1.Text1(0)2.13.（sum-max-min）程序改錯(cuò)題目：其功能是產(chǎn)生30個(gè)0-1000的隨機(jī)整數(shù)，放入一個(gè)數(shù)組中，然后輸出其中的最小值。程序運(yùn)行后，單擊命令按鈕（名稱為Command1,標(biāo)題為"輸出最小值"），'即可求出其最小值，并在窗體上顯示出來(lái)'注意：不可增加或刪除程序行，也不可以更改程序結(jié)構(gòu)OptionBase1PrivateSubCommand1_Click()DimarrN(30)AsIntegerDimMinAsInteg