Vb编写程序题型及答案.docx
《Vb编写程序题型及答案.docx》由会员分享，可在线阅读，更多相关《Vb编写程序题型及答案.docx（57页珍藏版）》请在冰豆网上搜索。
Vb编写程序题型及答案
AoVb编写程序题型
一、基本操作题
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（）
Form1.Hide
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（）
Form1.Hide
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="楷体"
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
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（）
Randomize
Fori=1To100
a（i）=Int（2701*Rnd（）+300）
List1.AddItema（i）
Nexti
EndSub
PrivateSubCommand2_Click（）
Sum&=0:
n%=0‘n为统计满足条件的整数的个数
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）
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%=1
Fori=1To100
Ifa（i）Mod2=0Andn<=20Then
List2.AddItema（i）
n=n+1
EndIf
Nexti
EndSub
或者
（2）单击命令按钮2，在列表框2中显示上述随机整数中前20个奇数（9分）PrivateSubCommand2_Click（）
Sum&=0:
n=1
Fori=1To100
Ifa（i）Mod2<>1Andn<=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
nexti
text2.text=str（n）
EndSub
或者
（2）输入完成后，单击命令按钮，统计输入字符中所含小写字母的个数并显示在文本框2中（9）
Priv
升级会员 