VB填空题.docx
- 文档编号:23749761
- 上传时间:2023-05-20
- 格式:DOCX
- 页数:18
- 大小:70.59KB
VB填空题.docx
《VB填空题.docx》由会员分享,可在线阅读,更多相关《VB填空题.docx(18页珍藏版)》请在冰豆网上搜索。
VB填空题
VB填空题
填空题
1.VB语言中,菜单分为下拉式菜单和弹出式菜单。
2.面向对象系统的三个基本特性是封装性、继承性和多态性。
3.设在窗体上有一通用对话框Commondialog1,为建立一个“打开”对话框,应把Action属性设置为1。
4.命令按钮的Enable属性为True时,表示该控件有效,即能够响应用户的操作。
5.能够释放窗体Form1所占用的内存空间的语句是UnloadForm1。
6.若有定义Dimx(-2to4)asInteger,则函数UBound(x)的值为4。
7.如果要从顺序文件中读数据,则打开方式应为Input。
8.关键字Variant用于定义变体类型数据。
9.XOR是逻辑亦或运算符。
10.表示变量x既是5的倍数,也是7的倍数的逻辑表达式为(xmod5=0)and(xmod7=0)。
11.在VB语言中,窗体文件的扩展名为frm。
12.向随机文件或二进制文件中写入数据所用的命令关键字为Put#。
13.函数过程(或子程序过程)直接或间接地调用自身称为递归调用。
14.程序运行期间,用鼠标单击滚动条上滑块两侧的空白处时,滑块的移动量是滚动条控件的LargeChange属性。
15.设置数组下标的默认下界为1的语句是Optionbase1。
16.用关键字sub定义的过程称为子程序过程。
17.鼠标指针置于工具箱窗口中的某一个控件图标上时,就会在工具提示窗口上显示出相应的类型名。
如果显示"pictureBOX",该控件是图片框。
18.文本框的默认属性是Text。
19.与传统的程序设计语言相比,VisualBasic最突出的特点是事件驱动编程机制。
20.VB窗体设计器的主要功能是建立用户界面。
21.两个操作数取值相同为“假”,不同为“真”的运算符是Xor。
22.在程序中,要在图片框或图像框中加载图片,可用函数LoadPicture。
23.有一名为menuItem的菜单项,为了在程序运行时使该菜单项失效,应使用的语句为Menuitem.Enable=False。
24.能够加载并显示窗体Form1的语句是Form1.Show。
25.程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是Scroll事件。
26.在VB中,字符串"天津2003Test"需要的长度为10。
27.在VB中,声明货币类型变量所用的关键字为Currency。
28.能够表示当整型变量x是奇数时为真的VB表达式为xmod2=1。
29.数学表达式
写成VB表达式为sin(45/180*3.14159)+sqr(ln(3*x^5)+6*Exp(x))。
30.从结构化程序设计角度看,程序的控制结构分为顺序结构、选择结构和循环结构。
31.鼠标指针置于工具箱窗口中的某一个控件图标上时,就会在工具提示窗口上显示出相应的类型名。
如果显示"Image",该控件是图像框。
32.在VB语言中,提前结束子程序过程的执行需要使用命令EndSub。
33.VB程序中的对话框分为预定义对话框、自定义对话框和通用对话框。
34.在VB中,声明布尔类型变量所用的关键字为Boolean。
35.赋值语句a=123&mid(“123456”,3,2)执行后,变量a的值是12334。
36.根据文件中数据存取方式的不同,可以将数据文件分为顺序文件、随机文件和二进制文件。
37.从结构化程序设计角度看,程序的控制结构分为顺序结构、选择结构和循环结构。
38.在VB语言中,用关键字function定义的过程称为函数过程。
39.在应用领域中,任何有意义的事物称为对象。
40.在VB语言中,用菜单编辑器设计菜单和菜单项。
41.定义过程或函数时,形参之前有关键字Byval,表示按参数值传递数据。
42.名称属性相同的同类型控件称为控件数组。
43.表示列表框中选项数目的属性为ListCount属性。
44.VB程序中的对话框分为预定义对话框、自定义对话框和通用对话框。
45.语句Dimarr(3,2to4)AsInteger定义的数组arr含有的元素个数为12。
46.控件数组的下标对应控件的Index属性。
47.能够表示当整型变量x是偶数时为真的VB表达式为Not(xmod2)。
48.若要求文本框显示多行文本,应将文本框的MultiLine属性设置为True。
49.VB语言中,数组可分为固定大小和可变大小的数组。
50.能够提前结束Do...Loop结构循环的语句为Exit。
51.VB语言中,可用Print方法输出数据。
52.能够表示随机产生一个两位整数的VB表达式为10+lnt(89*rnd
(1))。
53.在VB语言中,有两种形式的常量,分别为普通常量和符号常量。
54.按照执行方式,高级程序设计语言分为解释型和编译型两种。
55.在VB窗口中进行界面设计时,若双击窗体中的某个控件对象,打开的窗口是代码窗口。
56.表达式120+mid(“123456789”,3,3)的值为465。
57.定义全局变量需要使用关键字Public。
58.使用Load方法能够装载窗体,但不能显示该窗体。
59.在VB中,声明双精度类型变量所用的关键字为Double。
60.根据文件中数据存取方式的不同,可以将数据文件分为顺序文件、随机文件和二进制文件。
编程题
1.有一个工程文件,在窗体Form1上有两个文本框,名称分别为Text1和Text2,内容分别为“文本框1”和“文本框2”,编写适当的事件过程。
程序运行后,如果单击窗体,则Text1隐藏,Text2显示,如果双击窗体,则Text1显示,Text2隐藏。
注意:
不得使用任何内存变量。
程序设计代码如下所示:
PrivateSubForm_Click()
Text1.Visible=False
Text2.Visible=True
EndSub
PrivateSubForm_DblClick()
Text1.Visible=True
Text2.Visible=False
EndSub
2.有一个工程文件,在窗体Form1上有一个图像框,名称为Image1,其stretch属性值为True、picture属性值为pic1.bmp;还有两个命令按钮,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。
要求:
请编写适当的事件过程,程序运行后,如果单击“放大”按钮,则把图像框的高度、宽度均增加100;单击“缩小”按钮,则把图像框的高度、宽度均减少100。
要求程序中不得使用任何变量。
程序的代码如下所示:
PrivateSubC1_Click()
Image1.Height=Image1.Height+100
Image1.Width=Image1.Width+100
EndSub
PrivateSubC3_Click()
Open"out5.txt"ForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
6.某工程文件中有一窗体,窗体上有一个命令按钮和一个文本框。
请编写函数过程fun()用于计算0~1000范围内不能被7整除的整数的个数。
程序运行后,单击命令按钮,即可在文本框中输出0~1000范围内不能被7整除的整数的个数。
PrivateFunctionfun()AsInteger
DimiAsInteger
DimcountAsInteger
Fori=0To1000
IfiMod7<>0Thencount=count+1
Nexti
fun=count
EndFunction
PrivateSubCommand1_Click()
Text1.Text=fun()
EndSub
7.有一工程文件的窗体上有两个命令按钮,名为Command1和Command2,标题为“添加”和“清除”;一个文本框,名为Text1,文本框编辑区为空白;一个列表框,名称为List1。
程序运行时,在文本框中输入文本,若单击“添加”按钮,则将文本框中的文本作为列表框的一个列表项添加到列表框的末尾,且使“添加”按钮变为无效,“清除”按钮变有有效;若单击“清除”按钮,则使文本框中的内容为空,且使“添加”按钮变为有效,“清除”按钮变为无效。
PrivateSubCommand1_Click()
List1.AddItemText1.Text
Command1.Enabled=False
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
Command1.Enabled=True
Command2.Enabled=False
EndSub
8.在一工程文件的窗体上有两个文本框(名称为Text1和Text2)。
请编写程序实现:
若在Text1中输入大写英文字母,则在Text2中输出对应的小写字母;在Text1中输入小写英文字母,则在Text2中输出对应的大写字母;在Text1中输入空格或数字字符,则在Text2中照原样输出对应的字符;在Text1中输入其他字符,则在Text2中输出“*”。
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
SelectCaseChr(KeyAscii)
Case"A"To"Z"
Text2.Text=Text2.Text&LCase(Chr(KeyAscii))
Case"a"To"z"
Text2.Text=Text2.Text&UCase(Chr(KeyAscii))
Case"0"To"9",Space
(1)
Text2.Text=Text2.Text&Chr(KeyAscii)
CaseElse
Text2.Text=Text2.Text&"*"
EndSelect
EndSub
9.有一个工程文件,窗体上有4个标签,其名称属性分别为Label1(标题属性为“欢迎进入VB世界”)、Label2(标题属性为“字号”)、Label3(标题属性为空,用于显示滚动条的当前值)和Label4(标题属性为“颜色”);一个组合框(名称为Combo1,包含3个项目,分别是“红色”、“绿色”和“蓝色”);一个框架(名称为Frame1,标题属性为“字型”),框架中有两个复选框(名称分别为Check1和Check2,标题分别为“粗体”和“下划线”)。
请编写适当的事件过程,完成以下功能要求:
(1)改变滚动条的当前值,能够将滚动条的当前值显示在标签3上,并且用该值设置标签1的文字字号;
(2)在组合框中单击选中一种颜色后,用该颜色设置标签1的文字颜色;
(3)在框架中选中或取消复选框,可以将该选择体现在标签1的文字上。
如图所示
PrivateSubCheck1_Click()
Label1.FontBold=NotLabel1.FontBold
EndSub
PrivateSubCheck2_Click()
Label1.FontUnderline=NotLabel1.FontUnderline
EndSub
PrivateSubCombo1_Click()
IfCombo1.Text="红色"ThenLabel1.ForeColor=vbRed
IfCombo1.Text="绿色"ThenLabel1.ForeColor=vbGreen
IfCombo1.Text="蓝色"ThenLabel1.ForeColor=vbBlue
EndSub
PrivateSubHScroll1_Change()
Label1.FontSize=HScroll1.Value
Label3.Caption=HScroll1.Value
EndSub
10.有一工程文件,其窗体上有三个顶级菜单(名称分别为Read、Calc、Save,标题分别为“读入数据”、“计算并输出”和“存盘”),窗体中有一个文本框(名称为Text1,MultiLine属性为True,ScrollBars属性为2)(如图所示)。
程序运行后,如果执行“读入数据”命令,则读入datain1.txt文件中的100个整数,放入一个数组中,数组的下界为1;如果单击“计算并输出”菜单,则把该数组中可以被3整除的元素在文本框中显示出来,求出它们的和,并把所求得的和在窗体上显示出来;如果单击“存盘”菜单,则把所求得的和存入考生文件夹下的dataout.txt文件中。
其中“读入数据”菜单的单击事件过程已经定义,请编写“计算并输出”和“存盘”菜单的单击事件过程
OptionBase1
DimArr(100)AsInteger
DimsumAsInteger
PrivateSubread_Click()
Open"datain1.txt"ForInputAs#1
Fori=1To100
Input#1,Arr(i)
Nexti
Close#1
EndSub
PrivateSubcalc_Click()
DimiAsInteger
Text1.Text=""
sum=0
Fori=1To100
IfArr(i)Mod3=0Then
Text1.Text=Arr(i)&vbCrLf&Text1.Text
sum=sum+Arr(i)
EndIf
Nexti
Printsum
EndSub
PrivateSubsave_Click()
Open"dataout.txt"ForOutputAs#1
Print#1,sum
Close#1
EndSub
11.有一个工程文件,其窗体上有一个文本框,名称为text1;两个命令按钮,名称分别为C1和C2,标题分别为“计算”,“存盘”,如图所示。
并有一个函数过程isprime可以在过程中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回true,否则返回false。
编写适当的事件过程。
使得程序运行时,单击“计算”按钮,则找出大于15000的第一个素数,并显示在text1中,单击存盘按钮,则把text1中的计算结果存入当前文件夹下的out4.txt的文件中。
PrivateFunctionprime(aAsInteger)AsBoolean
DimbAsInteger
Forb=2Toa-1
IfaModb=0ThenExitFor
Nextb
Ifb=aThen
prime=True
Else
prime=False
EndIf
EndFunction
PrivateSubCommand1_Click()
DimxAsInteger
x=15001
DoWhilex>=15000
Ifprime(x)Then
Text1.Text=x
ExitDo
EndIf
x=x+2
Loop
EndSub
上述过程也可用For…Next循环实现编写
PrivateSubCommand1_Click()
DimxAsInteger
Forx=15001To20000Step2
Ifprime(x)Then
Text1.Text=x
ExitFor
EndIf
Next
EndSub
PrivateSubCommand2_Click()
Open"out4.txt"ForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
12.有一工程文件,其Form1窗体上有一个命令按钮(名为Command1,标题属性为“计算并输出最小值”)。
要求编程序实现:
随机产生30个区间[1,1000]内的整数,存入数组a(下标的下界为1)中,然后计算并输出其中的最小值。
程序运行后,单击命令按钮,在窗体上中输出最小值,形式为“最小值为XXX”。
注:
XXX代表[1,1000]内的任意一个数
OptionBase1
PrivateSubCommand1_Click()
Dimx(30)AsInteger
DimiAsInteger,minAsInteger
Fori=1To30
x(i)=Int(Rnd*1001)+1
Nexti
min=x
(1)
Fori=2To30
Ifmin>x(i)Thenmin=x(i)
Nexti
Print"最小值为"&min
EndSub
程序填空
1.有一工程文件,包含两个名称分别为Form1和Form2的窗体,Form1和Form2窗体上建立了标题分别为“C1”和“C2”的按钮。
Form1上按钮的标题为“结束”,Form2上按钮的标题为“显示”,Form2为启动窗体,Form1为不显示。
要求:
在程序运行时显示Form2窗体,单击Form2上的“显示”按钮,则显示Form1窗体,若单击Form1上的“结束”按钮,则关闭Form1和Form2,并结束程序运行。
Form2窗体中的命令按钮的单击事件过程:
PrivateSubC2_Click()
LoadForm1
Form1.Visible=True
EndSub
Form1窗体中的命令按钮的单击事件过程:
PrivateSubC1_Click()
End
EndSub
2.有一工程文件,其窗体(名称为Form1,KeyPreview属性为True)上有一个列表框(名称为List1)和一个文本框(名称为Text1),如图1所示。
编写窗体的KeyDown事件过程。
程序运行后,如果按下键盘上的“A”键,则要求从键盘上输入要添加到列表框框中的项目(内容任意,不少于三个);如果按下“D”键,则从键盘上输入要删除的项目,找到后,将其从列表框中删除。
程序的运行情况如图2所示。
程序不完整,请把它补充完整。
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfChr(KeyCode)="A"Then
Text1.Text=InputBox("请输入要添加的项目")
List1.AddItemText1.Text
EndIf
IfChr(KeyCode)="D"Then
Text1.Text=InputBox("请输入要删除的项目")
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
List1.RemoveItemi
EndIf
Nexti
EndIf
EndSub
3.在窗体上有一个命令按钮(名称为Command1,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图所示。
程序运行后,单击命令按钮,即可计算出数组Arr中正数之和pos和负数之和neg,并分别在两个文本框中显示出来。
该程序不完整,请把它补充完整。
OptionBase1
PrivateSubCommand1_Click()
DimArr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
Fork=1To10
IfArr(k)>0Then
pos=pos+arr(k)
Else
neg=neg+arr(k)
EndIf
Nextk
Text1.Text="正数之和为:
"&Str(pos)
Text2.Text="负数之和为:
"&Str(neg)
EndSub
4.在窗体上有两个命令按钮,其名称分别为Command1、Command2;一个标签,其名称为Label1;一个计时器,其名称为Timer1,如图1所示。
程序运行后,如果单击“开始”命令按钮,则该按钮变为禁用,而标题变为“继续”,同时标签中的字体每隔100毫秒增大0.1倍(即为原来的1.1倍),字体大小超过100后,自动缩小为8;如果单击“停止”命令按钮,则该按钮变为禁用,“继续”命令按钮变为有效,同时标签中的字体停止变化;再次单击“继续”命令按钮后,标签中的字体继续变化。
这个程序不完整,请仔细阅读已有内容,并把它补充完整,使之能正确运行。
PrivateSubForm_Load()
Command1.Caption="开始"
Command2.Caption="停止"
Timer1.Interval=100
Timer1.Enabled=False
Label1.Caption="国"
Label1.AutoSize=True
Label1.FontBold=True
EndSub
PrivateSubCommand1_Click()
Command1.Caption="继续"
Timer1.Enabled=True
Command1.Enabled=False
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=false
Command2.Enabled=False
Command1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
IfLabel1.FontSize<=100Then
Label1.FontSize=Label1.FontSize*1.1
Else
Label1.FontSize=8
EndIf
EndSub
5.有一个工程文件,其功能是通过通用过程Average求数组的平均值。
程序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的平均值,并在窗体上显示出来(如图所示)。
这个程序不完整,请把它补充完整,并能正确运行。
OptionBase1
PrivateFunctionAverage(a()AsInteger)AsSin
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 填空