淮师期末真vb填空改修正版尊贵独享版.docx
- 文档编号:27759909
- 上传时间:2023-07-04
- 格式:DOCX
- 页数:37
- 大小:330.72KB
淮师期末真vb填空改修正版尊贵独享版.docx
《淮师期末真vb填空改修正版尊贵独享版.docx》由会员分享,可在线阅读,更多相关《淮师期末真vb填空改修正版尊贵独享版.docx(37页珍藏版)》请在冰豆网上搜索。
淮师期末真vb填空改修正版尊贵独享版
真·超级·无敌·vb期末填空最终形态·完全体·零式·改
必看题
1.若有一个动态数组a有两个元素a(0)和a
(1),现要令数组a有三个元素a(0)、a
(1)和
(2),则应当使用______语句。
【ReDima
(2)】
2.下面程序的功能是从键盘输入1个大于100的整数m,计算并输出满足不等式
的最大的n。
请填空。
------【0】【n-1】
PrivateSubCommand1_Click()
Dims,m,nAsInteger
m=Val(InputBox("请输入一个大于100的整数"))
n=______
s=0
DoWhiles n=n+1 s=s+n*n Loop Print"满足不等式的最大n是";______ EndSub 3.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: PrivateSubCommand1_Click() a$="NationalComputerRankExamination" n=Len(a$) s=0 Fori=1Ton b$=Mid(a$,i,1) Ifb$="n"Then s=s+1 EndIf Nexti Prints EndSub 程序运行后,单击命令按钮,输出结果是______。 【4】 4.以下程序的功能是: 从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。 请在______处填入适当的内容,将程序补充完整。 PrivateSubForm_Click() DimxAsSingle,amaxAsSingle,aminAsSingle x=InputBox("Enterascore") amax=x amin=x DoWhile______ Ifx>amaxThen amax=x EndIf If______Then amin=x EndIf x=InputBox("Enterascore") Loop Print"Max=";amax,"Min=";amin EndSub------【x>=0】【xx或amin>=x】 5.在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: PrivateSubForm_Click() Text1.Text="VB程序设计" EndSub PrivateSubText1_Change() Picture1.Print"VBProgramming" EndSub 程序运行后,单击窗体,则在文本框中显示的内容是_______,而在图片框中显示的内容是_______。 【VB程序设计】【VBProgramming】 6.在窗体上画一个名称为Command1的命令按钮,编写如下事件过程 PrivateSubCommand1_Click DimaAsString a=_________ Fori=1To5 PrintSpace(6-i);Mid$(a,6-i,2*i-1) Next EndSub 程序运行后,单击命令按钮,要求在窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。 --【123456789】 7.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的______属性设置为______。 【interval】【500】 8.执行下面的程序段后,b的值为______。 [300] a=300 B=20 a=a+B B=a-B a=a–B 9.执行下面的程序段后,变量S的值___________。 [9] S=5 Fori=2.6To4.9Step0.6 S=S+1 Nexti 10.在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画两个文本框,名称分别为Text1和Text2;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”和空白;再建立一个含有4个单选按钮的控件数组,名称为Option1,标题分别为“+”、“-”、“*”和“/”。 程序运行后,在Text1、Text2中输入两个数值,选中一个单选按钮后单击命令按钮,相应计算结果显示在Label4中,程序运行情况如图所示。 请在______处填入适当的内容,将程序补充完整。 PrivateSubCommand1_Click() Fori=0To3 If______=TrueThen opt=Option1(i).Caption EndIf Next SelectCase______ Case"+" Result=Val(Text1.Text)+Val(Text2.Text) Case"-" Result=Val(Text1.Text)-Val(Text2.Text) Case"*" Result=Val(Text1.Text)*Val(Text2.Text) Case"/" Result=Val(Text1.Text)/Val(Text2.Text) EndSelect ______=Result EndSub----[option1(i)][opt][label4] 11.下面的程序用"冒泡"法将数组a中的10个整数按升序排列,请将程序补充完整。 OptionBase1 PrivateSubCommand1_Click() Dima a=Array(678,45,324,528,439,387,87,875,273,823) Fori=1To9 Forj=______ Ifa(i)>=a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 EndIf Nextj Nexti Fori=1To10 Printa(i) Nexti EndSub-----【i+1to10】 12.在窗体上画一个命令按钮,然后编写如下程序: Functionfun(ByValnumAsLong)AsLong DimkAsLong k=1 num=Abs(num) DoWhilenum k=k*(numMod10) num=num\10 Loop fun=k EndFunction PrivateSubCommand1_Click() DimnAsLong DimrAsLong n=InputBox("请输入一个数") n=CLng(n) r=fun(n) Printr EndSub 程序运行后,单击命令按钮,在输入对话框中输入"345",输出结果为______。 [60] 13.以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中。 PrivateSubCommand1_Click() DimNAsString,DAsString N=Text1.Text M=______ Fori=MTo1Step-1 c=Mid(N,i,1) D=D&______ Nexti ______=D EndSub—[Len(text1)][c][text2] 14.在窗体上画一个名称为"Command1"的命令按钮。 然后编写如下事件过程 PrivateSubCommand1_Click() DimaAsString a="123456789" Fori=1To5 PrintSpace(6-i);Mid$(a,______,2*i-1) Nexti EndSub 程序运行后,单击命令按钮,窗体上的输出结果是 5 456 34567 2345678 123456789 请填空。 --[6-i] 15.当用______方式打开文件时,如果对文件进行写操作,则写入的数据附加到原来文件的后面。 ---[append] 16.设有如下程序 PrivateSubForm_Click() DimaAsInteger,bAsInteger a=20: b=50 p1a,b p2a,b p3a,b Print"a=";a,"b=";b EndSub Subp1(xAsInteger,ByValyAsInteger) x=x+10 y=y+20 EndSub Subp2(ByValxAsInteger,yAsInteger) x=x+10 y=y+20 EndSub Subp3(ByValxAsInteger,ByValyAsInteger) x=x+10 y=y+20 EndSub 该程序运行后,单击窗体,则在窗体上显示的内容是: a=__________和b=____________。 ---[30][70] 17.为了显示一个窗体,所使用的方法为______;为了隐藏一个窗体,所使用的方法为______。 【show】【Hide】 18.以下语句输出结果是_______。 [12345.68] PrintInt(12345.6789*100+0.5)/100 19.在窗体上画两个列表框,其名称分别为List1和List2,然后编写如下程序: PrivateSubForm_______() List1.AddItem"语文" List1.AddItem"数学" List1.AddItem"物理" List1.AddItem"化学" List1.AddItem"英语" List1.AddItem"政治" EndSub PrivateSubList1_DblClick() List2.AddItem______.Text List1.RemoveItemList1.ListIndex EndSub PrivatesubList2_DblClick() List1.AddItem______.Text List2.RemoveItemList2.ListIndex EndSub 该程序的功能是: 程序运行后在左侧列表框中显示各科目的名字,如果双击该列表框中的某个科目,则该科目从该表框中消失,并移到右列表框中;如果双击右侧列表框中的某个科目,则该科目从该列表框中消失,并移向左侧列表框中。 请填空将程序补充完整。 ---[load][list1][list2] 20.在窗体上画一个文本框和一个标签,其名称分别为Text1和Label1,然后编写如下程序: Functionfun(sAsInteger) Fori=1Tos Sum=Sum+i Nexti fun=Sum EndFunction PrivateSubForm_Click() Text1.Text=Str(fun(5)) EndSub PrivateSubText1_Change() Label1.Caption="VBProgramming" EndSub 程序运行后,单击窗体则文本框中显示的内容是______,而在标签中显示的内容是______。 [15][VBProgramming] 21.某人编写如下函数来判断a是否为素数,若是,则函数返回True;否则返回False Functionprime(aAsInteger)AsBoolean DimkAsInteger,isprimeAsBoolean Ifa<2Then isprime=False Else isprime=True k=2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 期末 vb 填空 修正 尊贵 独享