还剩6页未读,继续阅读
文本内容:
填空
(1)程序说明】自制一个简单的__浏览器要求在窗体上建立一个影像框和两个命令按钮,命令按钮上显示文字“上一张”和“下一张”运行时,显示第一张__,“上一张”按钮不能响应,单击“下一张”按钮显示另一张__,“上一张”按钮能响应显示到最后一张__时,“下一张”按钮不能响应(假设在C:\Windows目录下有
1.bmp、
2.bmp、……、
8.bmp这样8张__)DimnAsBytePrivateSubCom__nd1_ClickIfn8ThenCom__nd
2.Enabled=Truen=n-1__
1.callpicIfn=1ThenCom__nd
1.Enabled=__
2.False:n=1EndSubPrivateSubCom__nd2_Click_
3.n=n+1Ifn=1ThenCom__nd
1.Enabled=TrueCallpicIfn=8ThenCom__nd
2.Enabled=FalseEndSubPrivateSubForm_Loadn=1:Com__nd
1.Enabled=False:I__ge
1.Picture=
4.LoadPicturec:\windows\
1.bmpEndSubSubpicDimfnAsStringfn=c:\windows\+Trimstrn+.bmpI__ge
1.Picture=
5.LoadPicturefnEndSub============================================================
(2)【程序说明】选择形状、边框后,__框中控件Shape1作相应变化界面设计如图9-1所示PrivateSubCombo1_ClickShape
1.Shape=Combo
1.List_
1.Combo
1.ListIndex__EndSubPrivateSubCombo2_Click__
2.Shape
1.BorderStyle___=Combo
2.ListCombo
2.ListIndexEndSubPrivateSubForm_LoadDimiAsIntegerFori=0To5:Combo
1.AddItemStri:NextiFori=0To6:_
3.Combo
2.AddItemStri____:NextiEndSub
(3)【程序说明】以下是一个简化了的猜数游戏程序,自动生成一个小于100的随机正整数与您用输入对话框输入的数进行对比,猜中后输出相关信息,过程结束单击窗体则开始猜数,如要终止VisualBasic程序运行可以按Ctrl+Break组合键PrivateSubForm_ClickDimrAsIntegerxAsIntegeriAsIntegerRandomize:r=_1____Fori=1To10x=ValInputBox请输入一个整数IfxrThenm=MsgBox太小了,请继续猜!IfxrThenm=MsgBox太大了,请继续猜!Ifx=rThenPrint猜中了!共猜了+_1____+次Ifi=5ThenPrint太棒了!ElsePrint加油!_1____EndIfNextiEndSub
(4)【程序说明】在窗体内设置一个弹出式菜单,分别对文本框进行“显示时间”、“显示日期”、“颜色”、“字体”和“清空”操作m1为不可见菜单项,m11为其子菜单(共5项,均同名,索引值依次为0,1,2,3,4)PrivateSubForm_LoadTimer
1.Enabled=False锁定定时器(时间间隔已设置为1秒)EndSubPrivateSubm11_ClickIndexAsIntegerSelectCaseIndexCase0:Timer
1.Enabled=TrueCase1Timer
1.Enabled=__1___:Text
1.Text=日期+1_____Case2CommonDialog
1.Action=3:Text
1.ForeColor=___1__Case3CommonDialog
1.Flags=256选择字体范围,否则出现运行错误CommonDialog
1.Action=4打开“字体”对话框Text
1.FontBold=CommonDialog
1.FontBold用修改后的属性设置Text
1.FontItalic=CommonDialog
1.FontItalic文本框相应属性Text
1.FontName=CommonDialog
1.FontNameText
1.FontSize=CommonDialog
1.FontSizeCase4:Text
1.Text=EndSelectEndSubPrivateSubForm_MouseDownButtonAsIntegerShiftAsInteger_xAsSingleyAsSingleIfButton=2Then_____2EndSubPrivateSubTimer1_TimerText
1.Text=时间+Time$EndSub
(5)【程序说明】窗体上已建立命令按钮Com__nd1(开始)、Com__nd2(结束)和文本框Text1,Text1中输入字符个数不得超过100个开始运行时,“结束”命令按钮不能响应;按“开始”命令按钮后,将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列,并在窗体上输出重新排列后的字符串,同时“结束”命令按钮能响应,“开始”按钮不能响应PrivateSubCom__nd1_ClickDimnAsByteiAsBytejAsBytepAsByteDima100AsString*1str1AsStringtAsStringstr1=Text
1.Text:n=Lenstr1Fori=1Ton:_
1.False:NextiFori=1Ton-1p=iForj=i+1TonIfapajThen__
2.DateNextjIfpiThent=ai:_
3.CommonDialog
1.Color:ap=tNextiFori=1Ton:Printai;:Nexti___
4.m1Com__nd
1.Enabled=FalseEndSubPrivateSubCom__nd2_ClickEndEndSubPrivateSubForm_LoadCom__nd
2.Enabled=FalseEndSub
(6)【程序说明】窗体上有两个命令按钮Com__nd1(显示)和Com__nd2(退出)下列程序运行时,“显示”按钮能响应,“退出”按钮不能响应;单击“显示”按钮后,在窗体上显示一个用字符“*”组成的5层的金字塔,同时“显示”按钮不能响应,“退出”按钮能响应PrivateSubCom__nd1_ClickDimiAsIntegerjAsIntegerFori=1To5PrintSpc5-i;Forj=__
1.IntRnd*100:Print*;:NextjPrintNextiCom__nd
1.Enabled=False_
2.StriEndSubPrivateSubCom__nd2_ClickEndEndSubPrivateSubForm_LoadCom__nd
1.Enabled=True_
3.ExitForEndSub
(7)【程序说明】下列程序能在一定范围内找出所有素数,要求文本框用来输入所要找的数的范围,且只能先在Text1(必须大于1)输入结束后才能在Text2(必须大于Text1中的数)中输入,按回车键表示输入结束在Text2输入结束后,才能单击“Com__nd1”(确定)命令按钮,并在窗体上输出该范围内的所有素数以上过程可重复PrivateSubForm_LoadCom__nd
1.Enabled=False:__1___EndSubPrivateSubCom__nd1_ClickDimnAsIntegermAsIntegeriAsIntegerpAsIntegern=ValText
1.Text:m=ValText
2.TextFori=nTom_1____DoWhilep=IntSqriIfiModp=0ThenExitDoElsep=p+1LoopIfpIntSqriThen__1___NextiText
1.Text=:Text
2.Text=Text
1.Enabled=True:Text
2.Enabled=FalseCom__nd
1.Enabled=FalseEndSubPrivateSubText1_KeyPressKeyAsciiAsIntegerIfKeyAscii=13ThenIf___1__ThenText
1.Text=ElseText
2.Enabled=True:Text
1.Enabled=FalseEndIfEndIfEndSubPrivateSubText2_KeyPressKeyAsciiAsIntegerIf_1____ThenIfValText
2.Text=ValText
1.TextThenText
2.Text=ElseText
2.Enabled=FalseCom__nd
1.Enabled=TrueEndIfEndIfEndSub
(8)【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表各控件名称取缺省值,控件Com__nd
1、Com__nd2标题分别为“开始”、“结束”运行时,单击“开始”按钮后秒表开始计时,并在标签上显示总秒数;单击“结束”按钮后,计时结束,在窗体上显示出运行的时间(折算成小时、分钟和秒数)DimxAsLongPrivateSubForm_LoadTimer
1.Interval=1000:Timer
1.Enabled=FalseEndSubPrivateSubCom__nd1_ClickClsx=0_1____EndSubPrivateSubCom__nd2_ClickDimhAsIntegermAsIntegersAsIntegerTimer
1.Enabled=Falseh=__1___m=__1___s=xMod3600Mod60Print运行了+Strh+小时+Strm+分+Strs+秒EndSubPrivateSubTimer1_Timer____1_Label
1.Caption=xEndSub
(9)【程序说明】以下程序可以将列表框中同时选中的多个列表项删除,请将程序补充完整PrivateSubcmdDel_Clicki=0DoWhilei__1___IfList
1.Selectedi=TrueThen_____Else___1__EndIfLoopEndSub
(10)【程序说明】本题是利用计时器控件来实现文字的水平__,要求1)运行时标签框内的文字从窗体左边向右边__,当标签框的左边界超出窗体的右边界时,从窗体的左边进入窗体(尾部先进入)
(2)文字__时颜色不断产生随机变化PrivateSubForm_LoadForm
1.WindowState=2Timer
1.Interval=100EndSubPrivateSubTimer1_TimerLabel
1.ForeColor=RGB255*Rnd255*Rnd255*Rnd___1__=Label
1.Left+150IfLabel
1.Left=Form
1.WidthThen__1___EndSub============================================================
(11)【程序说明】文件c:\a
1.dat中存放若干个学生信息的记录(行),按Com__nd1按钮后,查找文件中姓名与输入姓名相同的记录,找到则删除该记录PrivateSubCom__nd1_ClickDimbsAsStringcsAsStringOpenc:\a
1.datForInputAs#1Opentemp.dat_
1.ForOutputAs#2bs=InputBox输入学生姓名DoWhileNotEof1LineInput#1csifInStrcsTrimbs=_
2.0Thenprint#2csLoopClose#1:Close#2Killc:\a
1.datName_
3.temp.datAsc:\a
1.datEndSub
(12)【程序说明】右击窗体则打开Windows自带的计算器“C:\windows\calc.exe”;单击“退出”按钮时将右击窗体的次数写入磁盘文件_
1.DimnAsIntegerPrivateSubForm_MouseUpButtonAsIntegerShiftAsInteger_XAsSingleYAsSingleIfButton=2Thenn=n+1:Shell_
2.C:\windows\calc.exeEndSubPrivateSubCom__nd1_ClickOpenC:\a
1.datFor_
3.OutputPrint#1n:Close#1__
4.EndEndSub
(13)【程序说明】本程序求3~100之间的所有素数(质数)并统计个数;同时将这些素数从小到大依次写入顺序文件e:\dataout.___;素数的个数显示在窗体Form1上PrivateSubCom__nd1_ClickDimcounAsIntegerflagAsBooleanDimt1AsIntegert2AsInteger__
1.Opene:\dataout.___ForOutputAs#1coun=0Fort1=3To100flag=TrueFort2=2ToIntSqrt1If_
2.t1Modt2=0thenflag=FalseNextt2__
3.IfflagThencoun=coun+1Write#1t1EndIfNextt1_
4.PrintcounClose#1EndSub
(14)菜单控件能触发的__是__click_____
(15)在KeyDown__和KeyUp__中,通过_Shift____参数可以知道按了哪些组合键
(16)KeyDown__中有_2____个参数
(17)显示弹出式菜单的方法是_PopupMenu方法____
(18)VB可以响应三种键盘__,分别是KeyPress__、KeyDown__和_KeyUp______
(19)通过设置菜单项的_Visible____属性为False,可以使它在运行时不可见
(20)要想使某一个普通窗体成为多文档窗体的子窗体,应将普通窗体的_MDIChild____属性设置为True
(21)MouseDown__中有_4____个参数
(22)VB
6.0能够建立下拉式菜单和__弹出式___菜单
(23)命令Line12001200-step1000500B执行后,CurrentX=__2200___
(24)文件号最大可取的值为_511____
(25)按文件中数据的编码方式文件可分为ASCII文件和__二___进制文件
(26)msgbox函数的第三个参数是用来设置对话框的___标题__
(27)Dima1to5AsInteger所定义的数组元素的个数为__5个___
(28)命令Line12001200-step1000500B执行后,CurrentY=_1700____(29*)文本框的默认属性是__Text___
(30)窗体模块文件的扩展名是__frm___
(31)当文本框控件的MultiLine属性为__False___时,PassWordChar属性可用于设置__
(32)默认情况下,VB
6.0的主窗口由标题栏、菜单栏和_工具栏____组成
(33)更改窗体对象的__Caption___属性,可以修改该窗体的标题
(34)建立控件时系统自动给控件一个名称,第一个建立的命令按钮的默认名称是Com__nd1_____
(35)为了使某个文本框控件不能接收焦点,应将此控件的TabStop属性设置为___False__
(36)如果将文本框的__xLength属性设置为10,则文本框中的字符数不能超过_10____个
(37)VB中,新建一个工程时,默认加载一个窗体,该窗体的名字为_Form1____
(38)在属性窗口中为对象设置属性值,应在程序的设计___阶段进行
(39)设置命令按钮的标题文字时,应改变的属性是Caption_____
(40)计时器控件,如果希望每秒产生10个__,则要将Interval属性的值设置为_100
(41)用窗体的BackColor属性可以设置窗体的_BackColor____
(42)在程序运行时,要想使按钮变成看得见但不可操作,则应设置该按钮的Enabled属性为___False__。