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