vb程序填空.docx
- 文档编号:27866333
- 上传时间:2023-07-05
- 格式:DOCX
- 页数:46
- 大小:182.21KB
vb程序填空.docx
《vb程序填空.docx》由会员分享,可在线阅读,更多相关《vb程序填空.docx(46页珍藏版)》请在冰豆网上搜索。
vb程序填空
程序填空
题目:
1、select case index '加入一条语句,使得index不为1,2时,
case 1:
form1.caption="1" 'caption为other,则该语句应为
case 2:
form1.caption="2" '____________
end select
答案:
Casedlse:
Form1.caption=”other”
权重:
4
难易度:
2
题目:
2、如下定义一含10个元素的一维数组kk,并且对每一元素赋初值为1,请填空:
____________
dim I as integer
for I=0 to 9
____________
____________
答案:
dimkk(9)asinteger
kk(i)=1
nextI
权重:
4
难易度:
2
题目:
3、假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。
在Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在和处将程序补充完整。
PrivateSubCommand1_Click()
Form1.
Form2.
EndSub
答案:
hide|show
权重:
4
难易度:
4
题目:
4、将下列语句改为用for …each实现。
(写在原程序右侧)
dim temp(10) as integer
dim I as integer
for I=0 to 10
temp(I)=I
next
答案:
dim temp(10) as integer
dimI
ForieachIINTMP
temp(I)=I
next
权重:
4
难易度:
4
题目:
5、为了在运行时把当前文件夹的图形文件picfile.jpg装入图片框Picture1中,所使用的语句为。
答案:
Picturel.Picture=LoadPicture("picfile.jpg")
权重:
4
难易度:
3
题目:
6、下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在、、处将程序补充完整。
OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(678,45,324,528,439,387,87,875,273,823)
Fori=
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
答案:
0To9,i+1To10,>=
权重:
4
难易度:
3
题目:
7、以下程序的功能是:
生成20个200到300之间的随机整数,输出其中能被5整除的
数并求出它们的和。
请填空。
PrivateSubCommandl_C1ick()
Fori=1To20
x=Int(____________*200+100)
If_______ =0Then
Printx
S=S十_________ EndIf
NextI
Print“Sum=”:
S
EndSub
答案:
Rnd,xMod5,x
权重:
4
难易度:
3
题目:
8、在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程
PRiVateSubCommandl_C1icK()
DimAsString
a=_____
Fori=1To5
PrintSpace(6—i);Mid$3(a,6—i,2*i—1)
Nexti
EndSub
程序运行后,单击命令按钮,要求窗体上显示的输出结果为
456
34567
2345678
123456789
答案:
“23456789”
权重:
4
难易度:
2
题目:
9、在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1和Label2及Caption 属性分别为“城市名称”和空白的标签。
程序运行后,当在组合框中输入一个新项 后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动 添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”如图所示; 如果存在,则在Label2中给出提示“输入项已在组合框中”。
请在处将程序补充完整。
PrivateSubCombol_________ (KeyAsciiAsinteger)
1fKeyAscii=13Then
Fori=0ToCombo1.listCount—1
1fCombo1.Text=______ Ihen
Label2.Caption=”输入项己在组合框中”
ExItSub
Endlf
NextI
Label2.Caption=“已成功添加输入项”
Combo1.______ CombO1.Text
Endlf
EndSub
答案:
KeyPress,Combo.List(i),AddItem
权重:
3
难易度:
4
题目:
10、设在工程中有一个标准模块,其中定义了如下记录类型:
Type Books
NameAsString*10
TelnumAsString*20
End Type
在窗体上添加一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。
请在和_______处填入适当的内容,将程序补充完整。
PrivateSubCommand1_Click()
DimBAs______________
Open“c:
\Person.txt”ForOutputAs#1
B.Name=InputBox(“输入姓名”)
B.TelNum=InputBox(“输入电话号码”)
___________,B.Name,B.TelNum
Close#1
EndSub
答案:
Books,Write#1,B
权重:
4
难易度:
4
题目:
11、下面的程序用于求三个数中最大数。
PrivateSubCommand1_Click()
a=Val(inputbox("请输入第一个数:
"))
b=Val(inputbox("请输入第二个数:
"))
c=Val(inputbox("请输入第三个数:
"))
Max=a
Min=a
IFb>_______ThenMax=b
IFb<_______ThenMin=b
IF_______ThenMin=c
IF_______ThenMin=c
Print"最大数为:
";Max
Print"最小数为:
";Min
EneSub
答案:
a,a,c>Max,c 权重: 3 难易度: 4 题目: 12、下面是一个体操评分程序,20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分) PrivateSubCommand1_Click() Max=0 Min=10 ForI=1TO20 N=Val(InputBox("请输入分数: ")) IF__________ThenMax=N IF__________ThenMin=N S=S+N NextI S=__________ P=S/18 Print"最高分: ";Max Print"最低分: ";Min Print"最后得分: ";P ENDSub 答案: N>Max,N 权重: 4 难易度: 3 题目: 13、在窗体上画两个标签,其名称分别为Label1和Label2,Caption属性分别为“数值”及空白;然后画一个名称为Hscoll1的水平滚动条,其Min的值为0,Max的值为100。 程序运行后,如果单击滚动条两端的箭头,则在标签Lable2中显示滚动条的值,如图所示。 请在处填入适当的内容,将程序补充完整。 PrivateSubHScroll1_() Labl2.Caption=HScroll1. EndSub 答案: CHANGE,VALUE 权重: 4 难易度: 2 题目: 14、在窗体上画一个名称为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(Text.Text)*Val(Text2.Text) Case”/” Result=Val(Text1.Text)/Val(Text2.Text) EndSelect =Result EndSub 答案: OPTION1(i).VALUE,OPT,LABEL4.CAPTION 权重: 3 难易度: 3 题目: 15、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。 程序运行后,Command1为禁用(灰色)。 当向文框中输入任何字符时,命令按钮Command1变为可用。 请在[1]处填入适当的内容,将程序补充完整。 PrivateSubForm_Load() Command1.Enabled=False EndSub PrivateSubText1_[1]() Command1.Enabled=True EndSub 答案: CHANGE 权重: 4 难易度: 2 题目: 16、在菜单编辑器中建立了一个菜单,名为pmenu,用下面的语句可以把它作为弹出式菜单弹出,请填空。 Form1.Pmenu 答案: POPUPMENU 权重: 4 难易度: 2 题目: 17、以下程序的功能是: 从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数。 请在处填入适当的内容,将程序补充完整。 PrivateSubForm_Click() DimxAsSingle,amaxAsSingle,aminAsSingle x=InputBox(“Enterascore”) amax=x amin=x DoWhile Ifx>amaxThen Amax=x EndIf IfThen Amin=x EndIf x=InputBox(“Enterascore”) Loop Print”Max=”;amax,”Min=”;amin EndSub 答案: X>=0,X 权重: 4 难易度: 3 题目: 18、在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。 程序运行后,在列表框中添加若干列表项。 当双击列表框中的某个项目时,在标签Label1中显示所选中的项目,如图所示。 请在处填入适当的内容将程序补充完整。 PrivateSubForm_load() List1.AddItem”北京” List1.AddItem”上海” List1.AddItem”湖北” EndSub PrivateSub() Label1.Caption= EndSub 答案: LIST1_DBLCLICK,LIST.TXT 权重: 4 难易度: 3 题目: 19、下面的程序用“冒泡”法数组a中的10个整数按升序排列,请在[5]、[6]和[7]处将程序补充完整。 OptionBase1 PrivateSubCommand1_Click() Dima a=Array(-2,5,24,58,43,-10,87,75,27,83) Fori=_________ Forj=__________ Ifa(i)>=a(j)Then a1=a(i) a(i)=a(j) a(j)=a1 EndIf Nextj _______________ Fori=0to9 Printa(i) Nexti EndSub 答案: 0To9,i+1To10,NextI 权重: 4 难易度: 3 题目: 20、利用CurrentX、CurrentY属性在窗体上输出如图所示立体字效果。 (即: 将同一内容的字符采用不同颜色输出两次,并在第二次输出时,适当地偏移输出的位置) PrivateSubForm_Click() FontSize=40: ForeColor=QBColor(0) Print"立体字效果" ForeColor=QBColor(15) Print"立体字效果" EndSub 答案: CurrentX=100: CurrentY=20 CurrentX=130: CurrentY=40 权重: 4 难易度: 3 题目: 21、计算100个学生的平均分: Dimmark(1TO100)asinteger sum=0 sum=sum+mark(I) nextI 答案: forI=1to100 sum=sum/100 权重: 3 难易度: 1 题目: 22、编写一个华氏温度与摄氏温度之间的转换程序。 界面如图所示当单击“转为华氏”command1按钮,则将摄氏温度转换为华氏温度;当单击“转为摄氏”command2按钮,则将华氏温度转换为摄氏温度; PrivateSubCommand1_Click() C=Val(Text1.Text) Text1.Text=F EndSub PrivateSubCommand2_Click() F=Val(Text1.Text) Text1.Text=C EndSub 答案: F=9/5*C+32 C=5/9*(F-32) 权重: 4 难易度: 3 题目: 23、ReDim语句和Preserve语句的使用,程序运行界面如图所示。 Dima()AsInteger PrivateSubPicture1_Click() DimiAsInteger,jAsInteger ReDima(3,2) Fori=0To3 Forj=0To2 ‘每个元素赋值并在图形框显示 Picture1.Print"a(";i;",";j;")=";a(i,j);""; Nextj Picture1.Print Nexti ‘重新指明数组大小,并保留原来的值,这时只能改变最后一维大小 Picture1.Print"-------------------------------------------" Forj=3To4 a(3,j)=j+20 ‘显示原来的最后两个元素 ‘显示新增加的最后两个元素 Nextj EndSub 答案: a(i,j)=i*2+j ReDimPreservea(3,4) Picture1.Print"a(3,";j-2;")=";a(3,j-2), Picture1.Print"a(3,";j;")=";a(3,j) 权重: 4 难易度: 4 题目: 24、打印“杨辉三角“,用数组存储各行数字,运行界面如图所示: 提示: 杨辉三角形的特点是第i行有j个数字;每行的第一个、后一个数均为1;其余每一个数正好等于它上一行的同一列和同一列数之和。 PrivateSubForm_Click() Dima(10,10) Fori=1To6 Forj=1Toi Ifi=jOrj=1Then a(i,j)=1 Else EndIf Nextj Nexti Fori=1To6 Forj=1Toi Picture1.Printa(i,j); Nextj Nexti EndSub 答案: a(i,j)=a(i-1,j-1)+a(i-1,j) Picture1.PrintTab(20-i*2); Picture1.Printa(i,j); 权重: 4 难易度: 2 题目: 25、输出方阵SC中的下三角元素,运行界面如图所示: PrivateSubForm_click() Dimsc(10,10) Fori=0To4 Forj=0Toi Printsc(i,j);""; Nextj Print Nexti EndSub 答案: sc(i,j)=i*5+j 权重: 3 难易度: 2 题目: 26、假定我国人口为12亿,设年增长率为1%,程序填空,计算多少年后增加到20亿? PrivateSubForm_Click() DimpAsDouble DimrAsSingle DimnAsInteger p=12 r=0.01 Whilep<20 n=n+1 Wend p=Int(p) Printn;"年后,全国人口为: ";p EndSub 答案: p=p*1.01 权重: 3 难易度: 2 题目: 27、程序填空,打印如下所示的“数字金字塔” PrivateSubForm_Click() Fori=1To9 Print""; Nextj Fork=1Toi Printk; Nextk For Printk; Nextk Print Nexti EndSub 答案: Forj=1To30-3*i k=i-1To1Step-1 权重: 3 难易度: 2 题目: 28、程序填空,打印如下的乘积表。 *36912 15 16 17 18 PrivateSubForm_Click() Print"*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12 Print Fori=15To18 Printi; Forj=3To12Step3 Nextj Print Nexti EndSub 答案: PrintTab(3*j);j*i; 权重: 3 难易度: 2 题目: 29、以下程序代码实现单击命令按钮Command1时生成20个(0~100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。 Dimarr(1To20) ForI=1To20 arr(i)= (1) NextI Sum=0 Fork=1to20 If (2)Then PrintTab(20);arr(k) Sum=Sum+arr(k) EndIf Nextk PrintTab(20);"Sum=";Sum 答案: Int(Rnd*99+1)Int(Rnd*100)Int(Rnd*101)|arr(k)>5050 权重: 4 难易度: 3 题目: 30、下面的程序代码实现将一个一维数组中元素向右循环移动,移位次数由文本框Text1输入。 例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。 PrivateSubMoveRight(x()AsInteger) DimIAsInteger DimjAsInteger DimkAsInteger I=Ubound(x) j=x(i) Fork=ITo (1)Step-1 (2) Nextk x(Lbound(x))=j EndSub PrivateSubCommand1_click() Dima(10)AsInteger DimIAsInteger DimjAsInteger DimkAsInteger ForI=0To10 a(i)=I NextI j=Val(Text1.Text) k=0 Do k=k+1 CallMoveRight(a) LoopUntilk=j ForI=0To10 Printa(i); NextI EndSub 答案: Lbound(x)+1|x(k)=x(k-1) 权重: 4 难易度: 4 题目: 31、以下程序用来产生20个小于100的随机整数,并将其中的偶数在窗体上显示,请补充完该程序。 Randomize ForI=1To20 x= (1) Ifx/2= (2)Then Printx EndIf NextI 答案: Int(Rnd*99)|x\2int(x/2) 权重: 4 难易度: 3 题目: 32、设工程中有两个窗体Form1、form2,一个标准模块Modulel,在Form1窗体上添加四个Text控件(名称分别为Text1、Text2、Text3
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 程序 填空