VB1.docx
- 文档编号:26070041
- 上传时间:2023-06-17
- 格式:DOCX
- 页数:17
- 大小:113.34KB
VB1.docx
《VB1.docx》由会员分享,可在线阅读,更多相关《VB1.docx(17页珍藏版)》请在冰豆网上搜索。
VB1
1.在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("请输入一个整数")
B=InputBox("请输入一个整数")
Printa+B
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为______。
答案;321456
2.窗体上有一个组合框,其中已输入了若干个项目。
程序运行时,单击其中一项,即可把该项与最上面的一项交换。
例如:
单击图1中的"重庆",则与"北京"交换,得到图2的结果。
下面是可实现此功能的程序,请填空。
图1图2
PrivateSubCombo1_Click()
Dimtemp
temp=Combo1.Text
______=Combo1.List(0)
Combo1.List(0)=temp
EndSub
答案。
Combo1.List(Combo1.ListIndex)表示选中的组合框中列表项的内容
3.PrivateSubCommand1_Click()
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后,单击命令按钮,输出结果是______。
答案。
k=1,x=x+6=3+6=9k=2,x=x+6=9+6=15最终的输出结果是:
15。
4.下述定义中的函数所计算的数学表达式是A(0)+A
(1)*x+A
(2)*x^2+…+A(N-1)*x^(N-1)+A(N)*x^N,请填空。
FUNCTIONFun(A(),N,x)
S=0
FORk=NTO0STEP-1
S=____________
NEXT
Fun=S
ENDFUNCTION
答案。
s*x+a(K)
4.以下程序在文本框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.text)ctext2.text
5.设有以下的循环:
x=1
Do
x=x+2
Printx
LoopUntil______
要求程序运行时执行3次循环体,请填空。
答案。
X>5
6.在窗体上画一个列表框、一个命令按钮和一个标签,其名称分别为List1、Command1和Label1,通过属性窗口把列表框中的项目设置为:
“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。
程序运行后,在列表框中选择一个项目,然后单击命令按钮,即可将所选择的项目删除,并在标签中显示列表框当前的项目数,运行情况如图所示(选择“第三个项目”的情况)。
下面是实现上述功能的程序,请填空。
PrivateSubCommand1_Click()
IfList1.ListIndex>=______Then
List1.RemoveItem______
Label1.Caption=______
Else
MsgBox"请选择要删除的项目"
EndIf
EndSub答案。
0list1.listindexlist1.listcount
7.下面的程序用"冒泡"法将数组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
8.(操作题)在考生文件夹下有工程文件wy36.vbp及窗体文件wy36.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号),但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、COMEXIT,标题分别为"开始"、"退出"的命令按钮。
编写函数ITEM(A,N)其功能是由数字A组成的不多于N位数的整数,并利用该函数求8+88+888+8888的和,结果写入考生文件夹下的wy36.dat文件中。
执行完毕"开始"按钮变成"完成",且无效(变灰)。
OptionExplicit
PrivateSubCOMEXIT_Click()
End
EndSub
PrivateSubCOMSTART_Click()
DimAAsInteger,NAsInteger,JAsInteger,SumAsSingle
A=8:
N=4
ForJ=NTo1Step-1
IfJ=NThen
Sum=Item(A,J)
Else
Sum=Sum-Item(A,J)
EndIf
Next
Print"Sum=";Sum
OpenApp.Path&"\"&"wy7.dat"ForOutputAs#1
Print#1,Sum
Close#1
COMSTART.Caption="完成"
COMSTART.enable=False
EndSub
FunctionItem(A,k)
DimPAsString,QAsString,SAsSingle
DimiAsInteger,HAsSingle
P=""
Fori=1Tok
Q$=Str$(A)
P$=P$+Q$
Nexti
'?
=Val(P$)
'H=?
+S
Item=H
EndFunction
9.在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
PrivateSubCommand1_Click()
a=InputBox("Enteraninteger")
b=InputBox("Enteraninteger")
Text1.Text=b+a
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是______。
答案。
108
在窗体上画一个命令按钮(名称为Command1),编写如下事件过程:
PrivateSubCommand1_Click()
b=5
c=6
Printa=b+c
EndSub
程序运行后,单击命令按钮,输出的结果是:
______。
答案。
False
10.下列程序段的执行结果为______。
N=10
ForK=NTo1Step-1
X=Sqr(K)
X=X-2
NextK
PrintX–2
答案。
-3
11.设有如图所示窗体和以下程序:
PrivateSubCommand1_Click()
Text1.Text="VisualBasic"
EndSub
PrivateSubText1_LostFocus()
IfText1.text<>"BASIC"Then
Text1.Text=""
Text1.SetFocus
EndIf
EndSub
程序运行时,在Text1文本框中输入"Basic"(如图所示),然后单击Command1按钮,则产生的结果是______。
答案,文本框中无内容,焦点在文本框中
12.在窗体上画一个名为Command1的命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
DimiAsInteger
Sum=0
n=InputBox("Enteranumber")
n=Val(n)
Fori=1Ton
Sum=______
Nexti
PrintSum
EndSub
Functionfun(tAsInteger)AsLong
p=1
Fori=1Tot
p=p*i
Nexti
______
EndFunction
以上程序的功能是,计算1!
+2!
+3!
+...+n!
,其中n从键盘输入,请填空。
答案。
Sum+fun(I)fun=p
13.在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1),然后编写如下几事件过程:
PrivateSubForm_Load()
Timer1.Enabled=False
Timer1.Interval=______
EndSub
PrivateSubForm_Click()
Timer1.Enabled=______
EndSub
PrivateSubTimer1_Timer()
Label1.Caption=______
EndSub
程序运行后,单击窗体,将在标签中显示当前时间,每隔1秒钟变换一次(见图)。
请填空。
答案。
1000truetime
1.在窗体上画一个命令按钮,然后编写如下程序:
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
2.在窗体上画一个命令按钮Command1,然后编写如下程序:
Functionpower(xAsSingle,ByValyAsInteger)
DimresultAsSingle
result=1
DoWhiley>0
result=result*x
y=______
Loop
power=result
EndFunction
PrivateSubCommand1_Click()
Fori=0To10
r=power(2,i)
Printr
Nexti
EndSub
程序中划线应当填入________。
y-1
3.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个水平滚动条,请在属性窗口中把它的名称设置为HS1,Max属性设置为100,Min属性设置为0,Value属性设置为100。
程序运行后,滚动框位于滚动条最右端(如图所示),如果单击滚动条之外的窗体部分,则滚动框跳到最左端。
*注意:
1)只能直接为相应的属性赋值,不得使用变量。
2)保存时必须存放在考生文件夹下,窗体文件名为wy14.frm,工程文件名为wy14.vbp。
4.
(1)在考生文件夹下有一个工程文件Sj5.vbp,请在窗体上画两个框架,其名
称分别为F1和F2,标题分别为“交通工具”和“到达目标”。
在F1中画两
个单选按钮,名称分别为Op1和Op2,标题分别为“飞机”和“火车”。
在
F2中画两个单选按钮,名称分别为Op3和Op4,标题分别为“广州”和“昆
明”。
画一个标签,其名称为Lab1,宽度为3000,高度为375。
编写适当
事件过程。
程序运行后,选择不同单选按钮时产生的显示结果见下表
程序的运行情况如图所示。
存盘时,工程文件名为Sj5.vbp,窗体文件名
为Sj5.frm。
注意:
考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必
须至少进行上面的一种操作。
退出程序时必须通过单击窗体右上角的
关闭按钮。
**********************************************************************
(2)在考生文件夹下有一个工程文件sj6.vbp,请在窗体上画二个文本框,其
名称分别为Text1、Text2,文本框内容分别设置为“等级考试”、“计算
机”。
然后画一个标签,其名称为Lab1,高度为375,宽度为2000。
再画
两个单选按钮,名称分别为Op1和Op2,标题分别为“交换”和“连接”,
最后再画一个命令按钮,其名称为C1,标题为“确定”,编写适当的事件
程序。
程序运行后,如果选中“交换”单选按钮并单击“确定”按钮,则
Text1文本框中内容与Text2文本框中内容进行交换,并在标签处显示“交
换成功”(如图所示);如果选中“连接”单选按钮并单击“确定”按钮
后,则把交换后的Text1和Text2的内容连接起来,并在标签处显示连接后
的内容。
存盘时,工程文件名为Sj6.vbp,窗体文件名为sj6.frm。
注意:
不得修改已经给出的程序。
在结束程序运行之前,必须选中一个单
选按钮,并单击“确定”按钮。
退出程序时必须通过单击窗体右上角的关
闭按钮,否则可能无成绩。
5.在考生文件夹下有一个工程文件sj97.vbp。
其功能是产生并显示一个数列的前
n项。
数列产生的规律是:
数列的前2项是小于10的正整数,将此2数相乘,
若乘积<10,则以此乘积作为数列的第3项;若乘积>=10,则以乘积的十位数
为数列的第3项,以乘积的个位数为数列的第4项。
再用数列的最后2项相乘,
用上述规则形成后面的项,直至产生了第n项。
窗体上部从左到右3个文本框
的名称分别为:
Text1、Text2、Text3,窗体下部的文本框名称为Text4。
程
序运行时,在Text1、Text2中输入数列的前两项,Text3中输入要产生的项
数n,单击"计算"按钮则产生此数列的前n项,并显示在Text4中。
如图所
示。
已经给出了全部控件,但程序不完整,请去掉程序中的注释符,把程序中的
?
改为正确的内容。
注意:
不得修改原有程序和控件的属性。
最后把修改后的文件按原文件名存盘。
本题主要考查了Do-Loop循环结构语句的使用和数列的应用算法。
本题主要代码如下:
PrivateSubCommand1_Click()
Text4=""
a=Val(Text1)
b=Val(Text2)
n=Val(Text3)
Text4=Text4&a&""&b
k=2
DoWhilek c=a*b k=k+1 Ifc<10Then Text4=Text4&""&c a=b b=c Else d=c\10 Text4=Text4&""&d a=d k=k+1 Ifk<=nThen d=cMod10 Text4=Text4&""&d b=d EndIf EndIf Loop EndSub 按要求保存文件即完成本题。 6.在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Dima(1To10) Dimp(1To3) k=5 Fori=1To10 a(i)=i Nexti Fori=1To3 p(i)=a(i*i) Nexti Fori=1To3 k=k+p(i)*2 Nexti Printk EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB1