Vb编写程序题型及答案.docx
《Vb编写程序题型及答案.docx》由会员分享,可在线阅读,更多相关《Vb编写程序题型及答案.docx(56页珍藏版)》请在冰豆网上搜索。
Vb编写程序题型及答案
Vb编写程序题型
一、基本操作题
1、新建工程,在窗体上创建一个命令按钮Command1,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“绿色”,标签上文字为“这里是一个标签”(5分)。
(2)编写事件过程,运行程序后,单击命令按钮,窗体的背景色改为绿色(5分)。
(3)编写事件过程,运行程序后,单击窗体,标签上显示“你单击了窗体”(5分)。
答案:
PrivateSubCommand1_Click()
Form1.BackColor=vbGreen
EndSub
PrivateSubForm_Click()
Label1.Caption="你单击了窗体"
EndSub
2、新建工程,在窗体上创建一个命令按钮Command1和一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“改变大小”,标签上文字为“改变颜色”(5分)。
(2)编写事件过程,运行程序后,单击命令按钮,适当增加窗体的高度(5分)。
(3)编写事件过程,运行程序后,单击标签,将窗体的背景色改为绿色(5分)。
答案:
PrivateSubCommand1_Click()
Form1.Height=Form1.Height+200
EndSub
PrivateSubLabel1_Click()
Form1.BackColor=vbGreen
EndSub
3、新建工程,在窗体上创建两个命令按钮Command1、Command2,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”,标签上文字为“可以隐藏的控件”(5分)。
(2)编写事件过程,运行程序后,单击“隐藏”按钮,标签不可见,单击“显示”按钮,标签重新可见(5分)。
3)编写事件过程,运行程序后,单击窗体,窗体的标题栏上显示“隐藏/显示控件”(5分)。
答案:
PrivateSubCommand1_Click()
Label1.Visible=False
EndSub
PrivateSubCommand2_Click()
Label1.Visible=True
EndSub
PrivateSubForm_Click()
Form1.Caption="隐藏/显示控件"
EndSub
4、新建工程,在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1~3。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“关闭”,标签上的文字为“字体颜色”,三个单选钮上的文字分别为“红”、“绿”、“蓝”(5分)。
(2)编写事件过程,运行程序后,单击命令按钮可关闭窗体(5分)。
(3)编写事件过程,运行程序后,分别单击三个单选钮,可改变标签文字为红色、绿色或蓝色(5分)
答案:
PrivateSubCommand1_Click()
End
EndSub
PrivateSubOption1_Click()
Label1.ForeColor=vbRed
EndSub
PrivateSubOption2_Click()
Label1.ForeColor=vbGreen
EndSub
PrivateSubOption3_Click()
Label1.ForeColor=vbBlue
EndSub
5、新建工程,在窗体上创建一个命令按钮Command1,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“窗体标题”,标签上文字为“窗体颜色”(5分)。
(2)编写事件过程,运行程序后,单击命令按钮,窗体的标题栏上显示“Visual Basic考试”(5分)。
(3)编写事件过程,运行程序后,单击标签,窗体的背景色改为红色(5分)。
答案:
PrivateSubCommand1_Click()
Form1.Caption="VisualBasic考试"
EndSub
PrivateSubLabel1_Click()
Form1.BackColor=vbRed
EndSub
6、新建工程,在窗体上创建两个命令按钮Command1、Command2,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”,标签上文字为“计算机等级考试”,标签可以自动调整大小以显示所有文字(5分)。
(2)编写事件过程,运行程序后,单击“改变颜色”按钮,标签的背景色改为绿色(5分)。
(3)编写事件过程,运行程序后,单击“改变大小”按钮,标签上的文字内容改为“大小已经改变”,文字大小改为30(磅)(5分)。
答案:
PrivateSubCommand1_Click()
Label1.BackColor=vbGreen
EndSub
PrivateSubCommand2_Click()
Label1.Caption="大小已经改变"
Label1.FontSize=30
EndSub
7、新建工程,在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1~3。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“关闭”,标签上的文字为“请选择学历”,三个单选钮上的文字分别为“硕士”、“本科”、“大专”(5分)。
(2)编写事件过程,运行程序后,单击命令按钮可关闭窗体(5分)。
(3)编写事件过程,运行程序后,分别单击三个单选钮,标签上的文字相应改变为“硕士学历”、“本科学历”或“大专学历”(5分)。
答案:
PrivateSubCommand1_Click()
End
EndSub
PrivateSubOption1_Click()
Label1.Caption="硕士学历"
EndSub
PrivateSubOption2_Click()
Label1.Caption="本科学历"
EndSub
PrivateSubOption3_Click()
Label1.Caption="大专学历"
EndSub
8、新建工程,在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1~3。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“红色”,标签上的文字为“字体大小”,三个单选钮上的文字分别为“10”、“14”、“18”(5分)。
(2)编写事件过程,运行程序后,单击命令按钮可将标签文字改变为红色(5分)。
(3)编写事件过程,运行程序后,分别单击三个单选钮,可改变标签文字大小为10磅、14磅或18磅(5分)。
答案:
PrivateSubCommand1_Click()
Label1.ForeColor=vbRed
EndSub
PrivateSubOption1_Click()
Label1.FontSize=10
EndSub
PrivateSubOption2_Click()
Label1.FontSize=14
EndSub
PrivateSubOption3_Click()
Label1.FontSize=18
EndSub
9、新建工程,在窗体上创建两个命令按钮Command1、Command2,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变字体”,标签上文字为“计算机等级考试”,标签可以自动调整大小以显示所有文字(5分)。
(2)编写事件过程,运行程序后,单击“改变颜色”按钮,标签上的文字内容改为“颜色已经改变”,文字颜色改为红色(5分)。
(3)编写事件过程,运行程序后,单击“改变字体”按钮,标签上的字体改为“黑体”(5分)。
答案:
PrivateSubCommand1_Click()
Label1.ForeColor=vbRed
Label1.Caption="颜色已经改变"
EndSub
PrivateSubCommand2_Click()
Label1.FontName="黑体"
EndSub
10、新建工程,在窗体上创建两个命令按钮Command1、Command2,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置两个命令按钮上的文字分别为“改变大小”和“改变字体”,标签上文字为“Visual Basic程序设计”,字体为宋体,标签可以自动调整大小以显示所有文字(5分)。
(2)编写事件过程,运行程序后,单击“改变大小”按钮,标签上的文字大小改为28(磅)(5分)。
(3)编写事件过程,运行程序后,单击“改变字体”按钮,标签上的文字字体改为黑体,文字内容改为“这是黑体”(5分)。
答案:
PrivateSubCommand1_Click()
Label1.FontSize=28
EndSub
PrivateSubCommand2_Click()
Label1.FontName="黑体"
Label1.Caption="这是黑体"
EndSub
或者(3)编写事件过程,运行程序后,单击“改变字体”按钮,标签上的文字字体改为楷体,文字内容改为“这是楷体”(5分)。
(提示:
楷体的字体名称为“楷体_GB2312”。
)
PrivateSubCommand2_Click()
Label1.FontName="楷体_GB2312"
Label1.Caption="这是楷体"
EndSub
(提示:
楷体的字体名称为“楷体_GB2312”。
)
11、新建工程,在窗体上创建一个命令按钮Command1,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“显示”,将标签上的文字清除(5分)。
(2)编写事件过程,运行程序后,单击“显示”按钮,标签上显示“你单击了[显示]按钮”(5分)。
(3)编写事件过程,运行程序后,每次单击窗体,命令按钮均向左移动一个按钮位置(5分)。
答案:
PrivateSubCommand1_Click()
Label1.Caption="你单击了[显示]按钮"
EndSub
PrivateSubForm_Click()
Command1.MoveCommand1.Left-Command1.Width
EndSub
或者(3)编写事件过程,运行程序后,每次单击窗体,命令按钮均向右移动一个按钮位置(5分)。
PrivateSubForm_Click()
Command1.MoveCommand1.Left+Command1.Width
EndSub
或者(3)编写事件过程,运行程序后,每次单击窗体,命令按钮均向上移动一个按钮位置(5分)。
PrivateSubForm_Click()
Command1.MoveCommand1.Left,command1.top-command1.height
EndSub
或者(3)编写事件过程,运行程序后,每次单击窗体,命令按钮均向下移动一个按钮位置(5分)。
PrivateSubForm_Click()
Command1.MoveCommand1.Left,command1.top+command1.height
EndSub
12、新建工程,在窗体上创建一个命令按钮Command1,一个标签Label1。
窗体和控件的大小适当、布局合理,命名并保存窗体文件(5分),要求:
(1)在属性窗口中设置命令按钮上的文字为“清除”,标签上文字为“这里是一个标签”(5分)。
(2)编写事件过程,运行程序后,单击“清除”按钮,清除标签上的文字(5分)。
(3)编写事件过程,运行程序后,每次单击标签,标签均向左移动200(Twip)(5分)
答案:
PrivateSubCommand1_Click()
Label1.Caption=""
EndSub
PrivateSubLabel1_Click()
Label1.MoveLabel1.Left-200
‘Label1.Left=Label1.Left-200
EndSub
或者(3)编写事件过程,运行程序后,每次单击标签,标签均向右移动200(Twip)PrivateSubLabel1_Click()
Label1.MoveLabel1.Left+200
EndSub
或者(3)编写事件过程,运行程序后,每次单击标签,标签均向上移动200(Twip)
PrivateSubLabel1_Click()
Label1.MoveLabel1.Left,label1.top-200
EndSub
或者(3)编写事件过程,运行程序后,每次单击标签,标签均向下移动200(Twip)
PrivateSubLabel1_Click()
Label1.MoveLabel1.Left,label1.top+200
EndSub
二、操作编程题
1、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。
编写事件过程并满足以下要求:
(1)单击命令按钮1,产生100个[300,3000]之间的随机整数并显示在列表框1中(9分)。
(2)单击命令按钮2,计算上述数据中能被13和15同时整除的数及其平均值,并分别用列表框2和一个标签显示结果。
(9分)。
(提示:
使用数组存储数据)
答案:
Dima(1To100)AsInteger
PrivateSubCommand1_Click()
Randomizetimer
List1.Clea
Fori=1To100
a(i)=Int(2701*Rnd()+300)
List1.AddItema(i)
Nexti
EndSub
PrivateSubCommand2_Click()
Sum&=0:
n%=0
List2.Clear
Label1.Caption=""
Fori=1To100
Ifa(i)Mod13=0Anda(i)Mod15=0Then
n=n+1
List2.AddItema(i)
Sum=Sum+a(i)
EndIf
Nexti
Ifn<>0ThenLabel1.Caption=Str(Sum/n)
EndSub
2、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。
编写事件过程并满足以下要求:
(1)运行时单击命令按钮1,产生100个[100,200]之间的随机整数并显示在列表框中(9分)。
(2)然后单击命令按钮2,在两个文本框中分别显示上述数据中第10-19个和第50-59个数据的平均值(9分)。
(提示:
使用数组存储数据)
答案:
Dima(1To100)AsInteger
PrivateSubCommand1_Click()
Randomize
Fori=1To100
a(i)=Int(101*Rnd()+100)
List1.AddItema(i)
‘List1.AddItemStr(a(i))
Nexti
EndSub
PrivateSubCommand2_Click()
sum1&=0:
sum2&=0
Fori=10To19
sum1=sum1+a(i)
Nexti
Fori=50To59
sum2=sum2+a(i)
Nexti
Text1.Text=Str(sum1/10)
Text2.Text=Str(sum2/10)
EndSub
3、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。
编写事件过程并满足以下要求:
(1)运行时单击命令按钮1,产生100个[100,200]之间的随机整数并显示在列表框中(9分)。
(2)然后单击命令按钮2,在两个文本框中分别显示上述数据中前10个和后10个数据的平均值(9分)。
(提示:
使用数组存储数据)
答案:
Dima(1To100)AsInteger
PrivateSubCommand1_Click()
Randomize
Fori=1To100
a(i)=Int(101*Rnd()+100)
List1.AddItema(i)
Nexti
EndSub
PrivateSubCommand2_Click()
sum1&=0:
sum2&=0
Fori=1To10
sum1=sum1+a(i)
Nexti
Fori=91To100
sum2=sum2+a(i)
Nexti
Text1.Text=Str(sum1/10)
Text2.Text=Str(sum2/10)
EndSub
4、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。
编写事件过程并满足以下要求:
(1)单击命令按钮1,产生100个不大于300的随机整数并显示在列表框1中(9分)。
(2)单击命令按钮2,在列表框2中显示上述随机整数中前20个偶数(9分)。
(提示:
使用数组存储数据)
答案:
Dima(1To100)AsInteger
PrivateSubCommand1_Click()
Randomize
Fori=1To100
a(i)=Int(301*Rnd())
List1.AddItema(i)
Nexti
EndSub
PrivateSubCommand2_Click()
Sum&=0:
n=0
Fori=1To100
Ifa(i)Mod2=0Then
List2.AddItema(i)
n=n+1
Ifn=20ThenExitFor
EndIf
Nexti
EndSub
或者
(2)单击命令按钮2,在列表框2中显示上述随机整数中前20个奇数(9分)PrivateSubCommand2_Click()
Sum&=0:
n=1
Fori=1To100
Ifa(i)Mod2<>0Andn<=20Then
List2.AddItema(i)
n=n+1
EndIf
Nexti
EndSub
5、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。
编写事件过程并满足以下要求:
(1)在文本框1中输入若干字符,此时应在标签中同步显示输入的内容(9分)。
(2)输入完成后,单击命令按钮,在文本框2和文本框3中分别显示输入字符中所含数字3和数字7的个数(9分)。
答案:
PrivateSubText1_Change()
Label1.Caption=Text1.Text
EndSub
PrivateSubCommand1_Click()
num3%=0:
num7%=0
Fori=1ToLen(Text1.Text)
IfMid(Text1.Text,i,1)="3"Thennum3=num3+1
IfMid(Text1.Text,i,1)="7"Thennum7=num7+1
Nexti
Text2.Text=Str(num3)
Text3.Text=Str(num7)
EndSub
6、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。
编写事件过程并满足以下要求:
(1)在文本框1中输入若干字符,此时应在标签中同步显示输入的内容(9分)。
(2)输入完成后,单击命令按钮,在文本框2中显示输入字符的个数,在文本框3中显示该字符串右边的10个字符(9分)。
答案:
PrivateSubText1_Change()
Label1.Caption=Text1.Text
EndSub
PrivateSubCommand1_Click()
Text2.Text=len(text1.text)
Text3.Text=right(text1.text,10)
EndSub
或者
(2)输入完成后,单击命令按钮,在文本框2中显示输入字符的个数,在文本框3中显示该字符串左边的10个字符(9分)。
PrivateSubCommand1_Click()
Text2.Text=len(text1.text)
Text3.Text=left(text1.text,10)
EndSub
7、新建工程,根据题目要求自行设计窗体界面,要求窗体及控件的大小适当、布局合理,命名并保存窗体文件(7分)。
编写事件过程并满足以下要求:
(1)运行时在文本框1中输入若干字符,此时应在标签中同步显示输入的内容(9分)。
(2)输入完成后,单击命令按钮,统计输入字符中所含大写字母的个数并显示在文本框2中(9)
答案:
PrivateSubText1_Change()
Label1.Caption=Text1.Text
EndSub
PrivateSubCommand1_Click()
n%=0
Fori=1tolen(text1.text)
Ifmid(text1.text,i,1)>=”A”andmid(text1.text,i,1)<=”Z”then
n=n+1
endif
ne