VB程序设计基础练习题.docx
《VB程序设计基础练习题.docx》由会员分享，可在线阅读，更多相关《VB程序设计基础练习题.docx（28页珍藏版）》请在冰豆网上搜索。
VB程序设计基础练习题
VB程序设计基础练习题
一、窗体设计题
1.标签显示隐藏窗体标题
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
在名称为Form1的窗休上添加一个名称为Label1的标签，
字号大小为四号，标题为“等级考试”，如图1所示。
通过设置属性使标签初始为不显示。
请编写适当的程序，使得运行程序时，窗体的标题立即变为“标签”，
单击窗体时，显示标签，如图2所示。
注意：
程序中不得使用变量，事件过程中只能写一条语句。
-----------------------------------------------------------------
2.显示日期和时间
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
在名称为Form1的窗体上添加1个名称为Label1的标签，使其初始内容为空，
且能根据其标题内容自动调整标签的大小；再添加2个命令按钮，
标题分别为“日期”和“时间”，名称分别为Command1、Command2。
请编写2个命令按钮的Click事件过程，使得单击“日期”按钮时，
标签内显示系统当前日期；单击“时间”按钮时，标签内显示系统当前时间。
如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。
---------------------------------------------------------------------
3.InputBox函数参数设置
-------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。
请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，
其标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。
如图所示。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
---------------------------------------------------------------------
4.窗体属性、字体属性设置
---------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
在名称为Form1的窗体上，更改窗体标题为“标签”，并添加一个可自动调整
大小的标签，名称为Label1，其标题为“计算机等级考试”，字体大小为三号字；
再添加两个命令按钮，标题分别是“宋体”和“黑体”，
名称分别为Command1、Command2。
如图所示。
要求：
编写两个命令按钮的Click事件过程。
程序运行后，
如果单击“宋体”命令按钮，则标签标题显示为宋体字体；
如果单击“黑体”按钮，则标签标题显示为黑体字体。
注意：
程序中不得使用变量，事件过程中只能写一条语句。
------------------------------------------------------------------
5.窗体按钮左右宽度高度设置
------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
在名称为Form1的窗体上添加两个命令按钮（见图1），其名称分别为Cmd1和Cmd2，
编写适当的事件过程。
程序运行后，单击命令按钮Cmd1，则可使该按钮移到窗
体的左上角（只允许通过修改属性的方式实现）；单击命令按钮Cmd2，
则可使该按钮在长度和宽度上各扩大到原来的2倍。
程序的运行情况如图2所示。
要求：
不得使用任何变量。
----------------------------------------------------------------
6.字体、文本框属性设置
----------------------------------------------------------------
【窗体设计】
--------------------------------------------------------------
在名称为Form1的窗体上添加两个文本框，名称分别为Text1、Text2，
均无初始内容。
要求：
①通过属性窗口设置适当的属性，使Text1、Text2中显示的文本的字体为“隶书”；
②编写适当的事件过程，使得在Text1中输入每一个字符时，
将Text1中的内容显示在Text2中，如图所示。
注意：
要求程序中不得使用变量，事件过程中只能写一条语句。
----------------------------------------------------------
7.删除列表框列表项
-------------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------------
在名称为Form1的窗体上添加一个名称为List1的列表框，
通过属性窗口分别输入4个列表项：
“数学”、“物理”、“化学”、“语文”，如图所示。
请编写适当的事件过程使得在程序运行时，将最后一个列表项自动改为“英语”；
单击窗体时，则删除最后一个列表项。
注意：
要求程序中不得使用变量，每个事件过程中只能写一条语句。
-----------------------------------------------------------------
8.列表框的列表项的复制和删除
------------------------------------------------------------------
【窗体设计】
--------------------------------------------------------------------
在名称为Form1的窗体上，更改窗体标题为“列表框练习”并添加1个名称
为List1的列表框，表项内容依次输入“环球时报”、“人物”、“探索”和
“读者”；再添加2个标题分别为“复制”和“移去”的名称为“Command1”
和“Command2”命令按钮，如图所示。
要求：
编写适当的事件过程，在程序运行后，单击“复制”按钮，
可以将选中的列表项内容复制到已有列表项的尾部；
单击“移去”按钮，可以将选中的列表项的内容删除。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
答案：
PrivateSubCommand1_Click（）
List1.AddItemList1.Text
EndSub
PrivateSubCommand2_Click（）
List1.RemoveItemList1.ListIndex
EndSub
----------------------------------------------------------------
9.标签字体的缩小放大
----------------------------------------------------------------
【窗体设计】
----------------------------------------------------------------
在名称为Form1的窗体上，添加1个名称为Label1的标签，
其标题为“计算机等级考试”，显示为宋体12号字，
且能根据标题内容自动调整标签的大小。
再添加2个名称分别为“Command1”、“Command2”，
标题分别为“放大”、“还原”的命令按钮。
要求：
编写适当的事件过程，若单击“放大”按钮，
则Label1中所显示的标题内容自动增大2个字号；单击“还原”按钮，
Label1中所显示的标题内容自动恢复到12号字。
注意：
要求程序中不得使用变量，每个事件过程中只能写一条语句。
---------------------------------------------------------------
10.文本框是否可用，内容大小定转换
---------------------------------------------------------------
【窗体设计】
----------------------------------------------------------------
在名称为Form1的窗体上添加两个文本框，其名称分别为Text1、Text2，
初始文本都为空，显示内容为三号字，且Text1的初始状态为不可用。
再添加一个名称为Command1、标题为“开始”的命令按钮。
如图所示。
要求：
编写适当的事件过程，使得单击“开始”按钮后，
Text1文本框状态变为可用，且在Text1文本框中输入字母串时，
Text2文本框中用大写字母形式显示Text1文本框中的内容。
程序中不得使用变量，每个事件过程中只能写一条语句。
-----------------------------------------------------------
11.按钮左右向上向下移动
-----------------------------------------------------------------
【窗体设计】
---------------------------------------------------------------
在名称为Form1的窗体上画一个命令按钮，其名称为C1，
标题为“移动”，位于窗体的左上部，如图1所示，编写适当的事件过程。
程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。
程序的运行情况如图2所示。
注意：
不得使用任何变量；
-----------------------------------------------------------------
12.文本框密码框的实现
----------------------------------------------------------------
【窗体设计】
----------------------------------------------------------------
在窗体上画二个文本框，名称分别为Text1、Text2。
请设置适当的控件属性，并编写适当的事件过程，
使得在运行时，如果在Text1中每输入一个字符，
则显示一个“*”，同时在Text2中显示输入的内容（如图所示）。
程序中不得使用任何变量。
-----------------------------------------------------------------
13.通过列表项设置文本框字体大小
-----------------------------------------------------------------
【窗体设计】
------------------------------------------------------------------
在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“程序设计”
，AutoSize属性为True；然后再画一个列表框，名称是List1通过属性窗口
输入5个项目，分别为10、16、20、24、26、36，如图1所示，编写适当的事件过程。
程序运行后，如果用鼠标选中列表框中的某个项目，
则把标签中字体的大小设置为该项目相同。
程序的运行情况如图2所示。
程序中不得使用任何变量。
----------------------------------------------------------------
14.单击不同的按钮在窗体上显示不同的内容
-----------------------------------------------------------
【窗体设计】
----------------------------------------------------------------
在名称为Form1的窗体上画两个名称分别为Cl和C2，
标题分别为“必修课”、“选修课”的命令按钮，
编写适当的事件过程。
程序运行后，如果单击“必修课”命令按钮，
则在窗体上显示“高等数学必修课”，如果单击“选修课”命令按钮，
则在窗体上显示“多媒体技术选修课”
要求：
不要使用任何变量，直接显示字符串。
-------------------------------------------------------------
15.把窗体标题显示在图片框中
-------------------------------------------------------------
【窗体设计】
-----------------------------------------------------------------
在名称为Form1的窗体上画1个名称为P1的图片框，窗体的标题为“程序设计”，
如图1所示。
编写适当的事件过程，使得程序运行后，单击窗体，
则在图片框中显示窗体的标题，并把窗体的标题变为“Basic”，如图2所示。
------------------------------------------------------------
16.按钮的变大变小左右
-----------------------------------------------------------------
【窗体设计】
----------------------------------------------------------------
在名称为Form1的窗体上添加两个命令按钮（见图1），其名称分别为Cmd1和Cmd2，编写适当的事件过程。
程序运行后，单击命令按钮Cmd1，则可使该按钮移到窗体的左上角（只允许通过修改属性的方式实现）；单击命令按钮Cmd2，则可使该按钮在长度和宽度上各扩大到原来的2倍。
程序的运行情况如图2所示。
要求：
不得使用任何变量。
-------------------------------------------------------------
17.
18.
19.
20.
二、程序填空题
1.求一元二次方程的根
PrivateSubForm_Click（）
Dima%,b%,c%,d!
Dimx1,x2
Dimp,q,r
a=InputBox（"请输入a的值"）
b=InputBox（"请输入b的值"）
c=InputBox（"请输入c的值"）
d=b*b-4*a*c
p=-b/（2*a）
Ifd>=0Then
'**********SPACE**********
If【?
】Then
r=Sqr（d）/（2*a）
x1=p+r
x2=p-r
Else
x1=p
x2=p
'**********SPACE**********
【?
】
Print"x1=";x1,"x2=";x2
'**********SPACE**********
【?
】
q=Sqr（-d）/（2*a）
Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"
EndIf
EndSub
答案：
①d>0或0>d
②endif
③else
2.判断素数
PrivateSubForm_Click（）
n=InputBox（"请输入一个正整数（≥3）"）
k=Int（Sqr（n））
i=2
swit=0
'**********SPACE**********
DoWhilei<=kAndswit=0
'**********SPACE**********
IfnModi=0Then
swit=1
Else
'**********SPACE**********
i=i+1
EndIf
Loop
Ifswit=0Then
Printn;"是一个素数"
Else
Printn;"不是素数"
EndIf
EndSub
答案：
①swit=0
②nmodi=0
③i=i+1
3.下面过程max（）用于求3个数中最大值，利用这个过程求5个数中最大值
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'下面过程max（）用于求3个数中最大值，利用这个过程求5个数中最大值。
'-------------------------------------------------------
PrivateSubForm_Click（）
Print"5个数34、124、68、73、352的最大值是：
"
max1=max（34,124,68）
'**********SPACE**********
max1=【?
】
Printmax1
EndSub
PublicFunctionmax（ByVala%,ByValb%,ByValc%）
'**********SPACE**********
If【?
】Then
m=a
Else
m=b
EndIf
'**********SPACE**********
If【?
】Then
max=m
Else
max=c
EndIf
EndFunction
答案：
①max（max1,73,352）
②a>b或b③m>c或c4.利用下面的过程求m!
和m*n
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：
利用下面的过程求m!
和m*n。
'-------------------------------------------------------
PrivateSubForm_Click（）
DimmAsInteger,nAsInteger
m=2
n=3
'**********SPACE**********
【?
】
EndSub
PrivateSubfind（xAsInteger,yAsInteger）
Dims,iAsInteger
'**********SPACE**********
【?
】
Fori=1Tox
s=s*i
'**********SPACE**********
p=【?
】
Nexti
Prints,p
EndSub
答案：
①findm,n或callfind（m,n）
②s=a或s=1:
p=0
③p+y或x*y
5.以下程序段用于求∑n!
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：
以下程序段用于求∑n!
'-------------------------------------------------------
PrivateSubForm_Click（）
DimsumAsInteger,nAsInteger
n=InputBox（"请输入一个正整数"）
sum=0
Fori=1Ton
'**********SPACE**********
sum=【?
】
Nexti
Printsum
EndSub
PrivateFunctionmul（ByValxAsInteger）
DimsAsInteger,iAsInteger
s=1
'**********SPACE**********
Fori=1To【?
】
s=s*i
Nexti
'**********SPACE**********
【?
】
EndFunction
答案：
①sum+mul（i）
②x
③mul=s
6.下面的程序段用于建立文件并输出文件
'-------------------------------------------------------
'【程序填空】
'-------------------------------------------------------
'功能：
下面的程序段用于建立文件并输出文件，文件内容如下：
'
'*****
'*****
'*****
'*****
'*****
'-------------------------------------------------------
PrivateSubForm_Click（）
'**********SPACE**********
Open"c:
\1.txt"For【?
】As#1
Fori=1To5
Print#1,Spc（i）;"*****"
Nexti
'*********
升级会员 