搜索
参考代码如下:PrivateSubCommand1_Click()Text1.Text=IfCheck1.Value=1ThenText1.Text=Check1.CaptionEndIfIfCheck2.Value=1ThenText1.Text=Text1.Text+Check2.CaptionEndIfEndSub参考代码如下:DimKAsSingle,SAsSinglePrivateSubC1_Click()S=1:K=1DoK=K+1S=S+(-1)^(K+1)/KLoopUntil1/K0.0001Text1.Text=S'将计算结果显示在文本框中EndSubPrivateSubC2_Click()Callputdata(kssj.dat,S)EndSubputdata过程的作用是打开指定的文件，进行写操作。该过程有2个参数，一个是欲打开的文件名，一个是要保存的变量名。这里按题目要求，指定的文件名是kssj.dat，变量是S，为了保证变量S能够在两个过程中均能使用，把S定义为模块级变量。操作步骤如下：1.打开考生文件夹中的工程Menu1.Vbp。2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“播放(&P)”，在“名称”栏中输入菜单项的名称“播放”。4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：播放(P)数据处理打开计算──────退出Ctrl+X5.说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.Bas”文件添加到本工程。该模块的功能是：随机产生10个1～99（包含1和99）之间的整数，找出其最大值、最小值和平均值。填空的参考答案如下：'*****question*****a(i)=Int(Rnd*99+1)'*****question*****Ifa(i)m_minThenm_min=a(i)7.添加如下所示的菜单事件过程代码：PrivateSub退出_Click()EndEndSubPrivateSub计算_Click()CallcalculateEndSub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。2参考代码如下:DimkAsInteger'定义模块级变量PrivateSubCommand1_Click()IfCommand1.Caption=计数Then'按钮标题变为“暂停”Command1.Caption=暂停Timer1.Enabled=True'启动计时器ElseCommand1.Caption=计数Timer1.Enabled=FalseEndIfEndSubPrivateSubHScroll1_Scroll()'水平滚动条调整定时器时间间隔Timer1.Interval=HScroll1.ValueLabel2.Caption=时间间隔=&Timer1.Interval&ms'在标签中显示时间间隔EndSubPrivateSubTimer1_Timer()k=k+1'变量k加1Label1.Caption=kIfk=50Then'计数达到50时，置变量k为0Label1.Caption=计数已达50Timer1.Enabled=FalseEndIfEndSub参考代码如下:DimxAsSingle,yAsSinglePrivateSubC1_Click()x=Val(Text1.Text)Ifx=0Theny=Abs(x*(x+2))ElseIfx=10Theny=Log(2*x)Elsey=Exp((x+1)/2)EndIfLabel2.Caption=yEndSubPrivateSubC2_Click()Callputdata(kssj.dat,y)EndSub操作步骤如下：1.打开考生文件夹中的工程Menu1.Vbp。2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“标注(&B)”，在“名称”栏中输入菜单项的名称“标注”。4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“线性”；使用类似的操作，输入如下所示的菜单：标注(B)数据处理线性计算──────退出Ctrl+X5.说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。该模块的功能是：在窗体上输出100～200之间的所有素数。填空的参考答案如下：'*****question*****ExitDo'*****question*****IfkmThen7.添加如下所示的菜单事件过程代码：PrivateSub退出_Click()EndEndSubPrivateSub计算_Click()calculateEndSub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。3参考代码如下：PrivateSubCommand1_Click()IfText1.Text=ABCThenMsgBox登录成功ElseMsgBox密码错误EndIfEndSubPrivateSubForm_Load()Combo1.AddItem张小三Combo1.AddItem李四Combo1.AddItem欧阳玉荣EndSub参考代码如下：DimsumAsInteger,str1AsStringPrivateSubC1_Click()Callgetdata(INI.TXT,str1)Text1.Text=str1EndSubPrivateSubC2_Click()DimcAsString,iAsIntegersum=0Fori=1ToLen(str1)c=Mid(str1,i,1)Ifc=AAndc=ZThensum=sum+1EndIfNextiText2.Text=Str(sum)EndSubPrivateSubC3_Click()Callputdata(kssj.dat,sum)EndSub操作步骤如下：1.打开考生文件夹中的工程Menu1.Vbp。2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“插入(&C)”，在“名称”栏中输入菜单项的名称“插入”。4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“页码”；使用类似的操作，输入如下所示的菜单：插入(C)数据处理页码计算──────退出Ctrl+X5.说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6.单击“工程”菜单的“添加文件”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。该模块的功能是：使用选择排序法，将一组无序的数据按从小到大的顺序排列。填空的参考答案如下：'*****question*****Forj=i+1To10'*****question*****a(i)=a(j)7.添加如下所示的菜单事件过程代码：PrivateSub退出_Click()EndEndSubPrivateSub计算_Click()calculateEndSub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。4参考代码如下:PrivateSubCommand1_Click()CommonDialog1.ShowOpen'调用通用对话框'通过通用对话框选择考生文件夹下的“D22.JPG”文件Image1.Picture=LoadPicture(CommonDialog1.FileName)'装载图形EndSubPrivateSubHScroll1_Scroll()'在滚动条的滚动事件中调整图片的宽度Image1.Width=HScroll1.ValueEndSub参考代码如下:OptionExplicitPrivateSubCommand1_Click()DimsumAsSingle,iAsInteger,avgAsSingleDimcntAsIntegerGetdataList1.Clear'清空列表框Fori=1To50List1.AddItemA(i)sum=sum+A(i)Nextiavg=sum/50Fori=1To50'统计大于平均数的个数IfA(i)avgThencnt=cnt+1EndIfNextiText1.Text=avgText2.Text=cntEndSubPrivateSubCommand2_Click()CallPutdata(kssj.dat,Text2.Text)EndSub操作步骤如下：1.打开考生文件夹中的工程Menu1.Vbp。2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：文件(F)数据处理打开计算──────退出Ctrl+X5.说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6.单击“工程”菜单的“添加模块”命令，将考生文件夹下的“CDMK.bas”文件添加到本工程。该模块中的calculate过程的功能是：求Sn=a+aa+aaa+aaaa+…（最后一项为n个a）的值。填空的参考答案如下：'*****question*****Fori=1Ton'*****question*****s=s+t7.添加如下所示的菜单事件过程代码：PrivateSub退出_Click()EndEndSubPrivateSub计算_Click()calculateEndSub8.调试运行并保存工程，然后单击“文件”菜单的“生成Menu1.exe”命令，生成可执行程序：Menu1.exe。5参考代码如下：PrivateSubOption1_Click()Text1.FontName=宋体EndSubPrivateSubOption2_Click()Text1.FontName=黑体EndSub排序的方法有多种，下面给出冒泡排序的算法，其它排序算法请参考有关书籍。参考代码如下:PrivateSubCommand1_Click()DimiAsIntegergetdata'调用Getdata过程，读取数据Fori=1To50'将数组中的数据添加到List1中List1.AddItemA(i)NextiEndSubPrivateSubCommand2_Click()'以下为冒泡排序算法DimiAsInteger,jAsIntegerFori=1To50Forj=1To50-iIfA(j)A(j+1)Thent=A(j)A(j)=A(j+1)A(j+1)=tEndIfNextjNextiFori=1To50List2.AddItemA(i)NextiEndSubPrivateSubCommand3_Click()putdatakssj.datEndSub操作步骤如下：1.打开考生文件夹中的工程Menu1.Vbp。2.单击“工具”菜单的“菜单编辑器”命令，打开“菜单编辑器”窗口。3.在“标题”栏中输入菜单项的标题“文件(&F)”，在“名称”栏中输入菜单项的名称“文件”。4.单击“下一个”按钮，再单击“→”按钮，使用与步骤3相似的方法输入下级菜单项“打开”；使用类似的操作，输入如下所示的菜单：文件(F)数据处理打开计算──────退出Ctrl+X5.说明：在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。6.单击“工程”菜单的