《Vb编写程序题型及答案35967》由会员分享，可在线阅读，更多相关《Vb编写程序题型及答案35967（34页珍藏版）》请在金锄头文库上搜索。
1、Vb编写程序题型一、基本操作题1、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“绿色”，标签上文字为“这里是一个标签”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，窗体的背景色改为绿色（5分）。(3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”（5分）。答案：Private Sub Command1_Click() Form1.BackColor = vbGreenEnd SubPrivate Sub Form_Click() La
2、bel1.Caption = 你单击了窗体End Sub2、新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5分）。答案：Private Sub Command1_Click() Form1.Height = Form1.Height + 200End SubPrivate Su
3、b Label1_Click() Form1.BackColor = vbGreenEnd Sub3、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”（5分）。(2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见（5分）。(3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”（5分）。答案：Private Sub Comman
4、d1_Click() Label1.Visible = FalseEnd SubPrivate Sub Command2_Click() Label1.Visible = TrueEnd SubPrivate Sub Form_Click() Form1.Caption = 隐藏/显示控件End Sub4、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton13。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“字体颜色”，三个单选钮上的文字分别为“红”、“绿”、“蓝”
5、（5分）。(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色（5分）答案：Private Sub Command1_Click() EndEnd SubPrivate Sub Option1_Click()Label1.ForeColor = vbRedEnd SubPrivate Sub Option2_Click()Label1.ForeColor = vbGreenEnd SubPrivate Sub Option3_Click()Label1.ForeColor = vbBlueEnd S
6、ub 5、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“VisualBasic考试”（5分）。(3)编写事件过程，运行程序后，单击标签，窗体的背景色改为红色（5分）。答案：Private Sub Command1_Click() Form1.Caption = Visual Basic考试End SubPrivate Sub Label1_Click
7、() Form1.BackColor = vbRedEnd Sub6、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签的背景色改为绿色（5分）。(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字内容改为“大小已经改变”，文字大小改为30(磅)（5分）。答案：Pri
8、vate Sub Command1_Click() Label1.BackColor = vbGreenEnd SubPrivate Sub Command2_Click() Label1.Caption = 大小已经改变 Label1.FontSize = 30End Sub7、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton13。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“请选择学历”，三个单选钮上的文字分别为“硕士”、“本科”、“大专”（5分）。(2)编
9、写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，标签上的文字相应改变为“硕士学历”、“本科学历”或“大专学历”（5分）。答案：Private Sub Command1_Click() EndEnd SubPrivate Sub Option1_Click() Label1.Caption = 硕士学历End SubPrivate Sub Option2_Click() Label1.Caption = 本科学历End SubPrivate Sub Option3_Click() Label1.Caption = 大专学历End Sub
10、8、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton13。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“红色”，标签上的文字为“字体大小”，三个单选钮上的文字分别为“10”、“14”、“18”（5分）。(2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为红色（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字大小为10磅、14磅或18磅（5分）。答案：Private Sub Command1_Click() Label1.ForeColor = vbR
11、edEnd SubPrivate Sub Option1_Click() Label1.FontSize = 10End SubPrivate Sub Option2_Click() Label1.FontSize = 14End SubPrivate Sub Option3_Click() Label1.FontSize = 18End Sub 9、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变字体”，标签上文字为
12、“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色（5分）。(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的字体改为“黑体”（5分）。答案：Private Sub Command1_Click() Label1.ForeColor = vbRedLabel 1.Caption = 颜色已经改变End SubPrivate Sub Command2_Click() Label1.FontName = 黑体End Sub10、新建工程，在窗体上创建两个命令按钮Co
13、mmand1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变大小”和“改变字体”，标签上文字为“VisualBasic程序设计”，字体为宋体，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为黑体，文字内容改为“这是黑体”（5分）。答案：Private Sub Command1_Click() Label1.FontSiz
14、e = 28End SubPrivate Sub Command2_Click() Label1.FontName = 黑体 Label1.Caption = 这是黑体End Sub或者(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为楷体，文字内容改为“这是楷体”（5分）。（提示：楷体的字体名称为“楷体_GB2312”。）Private Sub Command2_Click() Label1.FontName = 楷体_GB2312 Label1.Caption = 这是楷体End Sub（提示：楷体的字体名称为“楷体_GB2312”。）11、新建工程，在窗体上创建一
15、个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5分）。(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了显示按钮”（5分）。(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向左移动一个按钮位置（5分）。答案：Private Sub Command1_Click() Label1.Caption = 你单击了显示按钮End SubPrivate Sub Form_Click()Command1.Move Command1.Left - Command1.WidthEnd Sub或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向右移动一个按钮位置（
