大学计算机二级考试 vb,大学计算机二级考试常用vb代码.docx

文档介绍：

大学计算机二级考试常用vb代码.docx参考代码如下:mand1_Click()Textl.Text=””IfCheckl.Value=1ThenTextl.Text=Checkl.CaptionEndIfIfCheck2.Value=1ThenTextl.Text=Textl.Text+Check2.CaptionEndIfEndSub参考代码如下:DimKAsSingle,SAsSinglePrivateSubC1_Click()S=11K=1DoK=K+1S=S+(-1)A(K+1)/KLoopUntil1/K<0.0001Textl.Text=S将计算结果显示在文本框中EndSubPrivateSubC2_Click()Callputdata("kssj.dat",S)EndSubputdata过程的作用是打开指定的文件z进行写操作。该过程有2个参数,一个是欲打开的文件名,一个是要保存的变量名。这里按题目要求,指定的文件名是kssj.dat,变量是S,为了保证变量S能够在两个过程中均能使用,把S定义为模块级变量。操作步骤如下:1•打开考生文件夹中的工程Menu1.Vbpo单击〃工具〃菜单的〃菜单编辑器〃命令,打开〃菜单编辑器〃窗口。在〃标题"栏中输入菜单项的标题"播放(&P)〃,在"名称"栏中输入菜单项的名称〃播放〃。单击”下一个”按钮”再单击J"按钮”使用与步骤3相似的方法输入下级菜单项〃打开”;使用类似的操作,输入如下所示的菜单:播放(P) 数据处理打开 计算退岀Ctrl+X说明:在"退出〃菜单项的’快捷键〃下拉列表框中选择〃Ctrl+X〃。单击〃工程〃菜单的〃添加文件"命令,将考生文件夹下的"CDMK.Bas"文件添加到本工程。该模块的功能是:随机产生10个1~99(包含1和99)之间的整数,找岀其最大值、最小值和平均值。填空的参考答案如下:'*****questiona(i)=lnt(Rnd*99+1)!*****questionIfa(i)vm_minThenm_min=a(i)添加如下所示的菜单事件过程代码:PrivateSub退出_Click()EndEndSubPrivateSub计算_Click()CallcalculateEndSub调试运行并保存工程,然后单击〃文件"菜单的〃生成Menu1.exe"命令,生成可执行程序:Menu1.exeo参考代码如下:DimkAsInteger 'mand1_Click()mandl.Caption=”计数”Then'按钮标题变为"mandl.Caption=”暂停”Timerl.Enabled=True ,mandl.Caption=”计数”Timerl.Enabled=FalseEndIfEndSubPrivateSubHScroll1_Scroll()'水平滚动条调整定时器时间间隔Timerl.Interval=HScrolH.ValueLabel2.Caption=”时间间隔="&Timerl.Interval&”ms”在标签中显示时间间隔EndSubPrivateSubTimerl_Timer()k=k+1 '变量k加1LabelI.Caption=kIfk>=50Then '计数达到50时,置变量k为0Labell.Caption=”计数已达50”Timerl.Enabled=FalseEndIfEndSub参考代码如下:DimxAsSingle,yAsSinglePrivateSubC1_Click()x=Val(Textl.Text)Ifx<=0Theny=Abs(x*(x4-2))Elselfx<=10Theny=Log(2*x)Elsey=Exp((x+1)/2)EndIfLabel2.Caption=yEndSubPrivateSubC2_Click()Callputdata(”kssj.dat",y)EndSub操作步骤如下:打开考生文件夹中的工程Menul.Vbp。单击〃工具〃菜单的〃菜单编辑器"命令,打开〃菜单编辑器"窗口。在〃标题"栏中输入菜单项的标题"标注(&B)〃,在〃名称〃栏中输入菜单项的名称〃标注〃。单击〃下一个〃按钮,再单击j按钮,使用与步骤3相似的方法输入下级菜单项〃线性〃;使用类似的操作,输入如下所示的菜单:标注(B) 数据处理线性 计算退出Ctrl+X说明:在〃退出〃菜单项的〃快捷键"下拉列表框中选择〃Ctrl+X〃。单击〃工程〃菜单的〃添加文件"命令,将考生文件夹下的"CDMK.bas"文件添加到本工程。该模块的功能是:在窗体上输出100~200之间的所有素数。填空的参考答案如下:******questionExitDo******questionIfk>mThen添加如下所示的菜单事件过程代码:PrivateSu

内容来自淘豆网www.taodocs.com转载请标明出处.