欢迎来到天天文库
浏览记录
ID:26960848
大小:140.50 KB
页数:32页
时间:2018-11-30
《新填空题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
此文档下载收益归作者所有