新填空题1新 (5)

《新填空题1新 (5)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、程序改错1、题目：下面程序的作用是产生100以内的全部素数，并按每行5个数据输出。PrivateFunctionprime(ByValnAsInteger)DimiAsIntegerprime=1Ifn<=1Thenprime=0'**********ERROR**********Fori=2Ton-1IfnModi=0Thenprime=0NextiEndFunctionPrivateSubForm_Click()DimiAsInteger,kAsIntegerk=0Fori=1To100Ifprime(i)=1Then'**********ERROR**

2、********PrintTab((kMod5)*8);i;k=k+1'**********ERROR**********IfkMod5=0ThenPrint;EndIfNextiEndSub2、题目:列表框应用程序。要求从文本框中输入课程名称，然后按"添加"按钮，把姓名添加到列表框中；当选择列表框中某一项后，按"删除"按钮，则从列表框中删除该项；当选择列表框中某一项后，按"修改"按钮，把列表框中选取的项送往文本框且"修改"按钮变为"修改确认"。在文本框的内容修改好后，按"修改确认"按钮，再把文本框中修改后的信息送到列表框且"修改确认"按钮变为"修改"。Pr

3、ivateSubForm_Load()List1.AddItem"北京-上海"List1.AddItem"北京-广州"List1.AddItem"北京-四川"List1.AddItem"北京-西安"List1.AddItem"北京-哈尔滨"List1.AddItem"北京-沈阳"List1.AddItem"北京-长春"EndSubPrivateSubCommand1_Click()IfText1.Text<>""ThenList1.AddItemText1.Text'将文本框中的内容加到列表框中Text1.Text=""ElseMsgBox"请在文本框中输入

4、信息！"EndIfEndSubPrivateSubCommand2_Click()'**********ERROR**********IfList1.ListIndex=0ThenExitSubList1.RemoveItemList1.ListIndex'删除选定的项目EndSubPrivateSubCommand3_Click()IfCommand3.Caption="修改"ThenText1.Text=List1.TextText1.SetFocusCommand1.Enabled=FalseCommand2.Enabled=False'*******

5、***ERROR**********Command3.Caption="修改确认"ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""'**********ERROR**********Command3.Caption="修改"EndIfEndSub3、题目：产生30个小于100的成绩随机数，并统计出优、良、中等、及格、不及格数的个数，并计算出成绩属于优秀段的成绩平均分。PrivateSubForm_Click()Di

6、mk%,a%,bjg%,jg%,zd%,lh%,yxAsIntegerDimpjfAsIntegerRandomizepjf=0Fork=1To30'**********ERROR**********a=Int(Rnd()*100)SelectCaseaCase0To59bjg=bjg+1'不及格Case60To69jg=jg+1'及格Case70To79zd=zd+1'中等Case80To89lh=lh+1'良好Case90To100yx=yx+1'优秀'**********ERROR**********pjf=pjf+aEndSelectNextk'**

7、********ERROR**********Ifyx>0Thenpjf=pjf/yxDebug.Print"不及格"+Str$(bjg)+"人，及格"+Str$(jg)+"人，中等"+Str$(zd)+"人";Debug.Print"良好"+Str$(lh)+"优秀"+Str$(yx)+"人"Debug.Print"优秀分数段成绩平均分"&pjfEndSub4、题目:使用顺序文件读写方式编写一个简单的记事本应用程序，基本逻辑是：假设在考生目录中有一个名为exam.txt的文本文件。当点击"打开"按(Command1)时，程序将exam.Txt文件中的内容显

8、示在文本框(Text1)中，当点击"新建"按钮(Co