程序填空与改错VIP

1、百度文库4'【程序填空】题目：窗体上建立了一个文本框Textl,用于显示结果。'单击按钮弹出输入对话框录入/0-6之间的数值，、判断输入值为星期几'请在【？】处填入正确的内容PrivateSubCommand1_Click()DimxAsInteger*SPACE*x=Val(?("请输入星期几(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="输入错误”【程序改错】题目：其功能是从数据文件（）中读出学生的成绩，保存在数组arr（100）中。单击"统计"按钮（Commandl）,统计总人数、平均分、及格人数和不及格人数，将统计结果显示在相应的文本框（Textl、Text2、Text3、Text4）中。注意：不可增

3、加或删除程序行，也不可以更改程序结构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)【程序填空】题目：在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），'/一个命令按钮Command1（"判断"）。单击按钮时判断Text1中输入的数值'/是否是4的倍数。'请在【？】处填入正确的内容PrivateSubCommand1_Click()D

5、imxAsIntegerIf IsNumeric =? Then="输入错误”*SPACE*ExitSubEndIf,*SPACE*x=CInt(?),*SPACE*If?=0Then="是4的倍数"Else="不是4的倍数"EndIfEndSub或Test1Mod4【程序改错】题目：程序功能为打印下列图形:百度文库*注意：不可增加或删除程序行，也不可以更改程序结构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【程序填空】题目：窗体上建立了两个文本框Textl（输入字符串）及）。'Text2（转换结果）,一个命令按钮Command1（"清除'录入Textl内容时将，将录入内容大写字母转为小写，'小写转为大写'请在【？】处填入正确的内容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【程序改错】题目：程序运行后单击窗体，产生25个0-1000的随机整数保存到二维数组Mat中,在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵右上-左下对角线上的数据和矩阵左上-下右对角线上的数据。注意：不可增加或删除程序行，也不可以更改程序结构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 "右上-左下对角线上的数为: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 "左上-下右对角线上的数为: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【程序填空】题目：在窗体上建立两个文本框Text1（输入数）及Text2（显示结果），'一个命令按钮Command1（"

10、判断"）。单击按钮时判断Textl中输入的数值是否是4的倍数。'请在【？】处填入正确的内容PrivateSubCommand1_Click()DimxAsInteger*SPACE*IfIsNumeric=?Then="输入错误”ExitSubEndIf*SPACE*x=CInt(?),*SPACE*If?=0Then="是4的倍数"Else="不是4的倍数"EndIfEndSub1 .False2 .或Text13 .xMod4改错题目：窗体中有一个组合中S和一个命令按钮（C1）。程序的功能是在运行时,如果在组合框中输入一个

11、项目并单击命令按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示："已有此项",然后清除输入的内容。/'注意：不可增加或删除程序行，也不可以更改程序结构PrivateSubC1_Click()DimflagAsBooleanI*FOUND*For i = 0 To - 1*FOUND*If (i) = Then flag = TrueElseflag = FalseEnd IfNext /If flag ThenMsgBox "已有此项""ElseI*FOUND*End IfEnd Sub1.For

12、i=0 To - 12.If (i尸 Then3.程序填空以下是一个比赛评分程序。在窗体上建立一个名为Textl的文本框数组，然后画一个名为'Text2的文本框和名为 Command1的命令按钮。，运行时在文本框数组中输入7个分数，单击”'计算得分"命令按钮，则最后得分显示在/ Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分）'请在处填入正确的内容？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）程序改错题目：其功能是产生30个0-1000的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮（名称为Command1,标题为"输出最小值"），'即可求出其最小值，并在窗体上显示出来'注意：不可增加或删除程序行，也不可以更改程序结构OptionBase1PrivateSubCommand1_Click()DimarrN(30)AsIntegerDimMinAsInteg