Vb编写程序题型及答案

Vb编写程序题型一、基本操作题1、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“绿色”，标签上文字为“这里是一个标签”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，窗体的背景色改为绿色（5分）。(3)编写事件过程，运行程序后，单击窗体，标签上显示“你单击了窗体”（5分）。答案：PrivateSubCommand1_Click()Form1.BackColor=vbGreenEndSubPrivateSubForm_Click()Label1.Caption=你单击了窗体EndSub2、新建工程，在窗体上创建一个命令按钮Command1和一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“改变大小”，标签上文字为“改变颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，适当增加窗体的高度（5分）。(3)编写事件过程，运行程序后，单击标签，将窗体的背景色改为绿色（5分）。答案：PrivateSubCommand1_Click()Form1.Height=Form1.Height+200EndSubPrivateSubLabel1_Click()Form1.BackColor=vbGreenEndSub3、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“隐藏”和“显示”，标签上文字为“可以隐藏的控件”（5分）。(2)编写事件过程，运行程序后，单击“隐藏”按钮，标签不可见，单击“显示”按钮，标签重新可见（5分）。(3)编写事件过程，运行程序后，单击窗体，窗体的标题栏上显示“隐藏/显示控件”（5分）。答案：PrivateSubCommand1_Click()Label1.Visible=FalseEndSubPrivateSubCommand2_Click()Label1.Visible=TrueEndSubPrivateSubForm_Click()Form1.Caption=隐藏/显示控件EndSub4、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“字体颜色”，三个单选钮上的文字分别为“红”、“绿”、“蓝”（5分）。(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色（5分）答案：PrivateSubCommand1_Click()Form1.HideEndSubPrivateSubOption1_Click()Label1.ForeColor=vbRedEndSubPrivateSubOption2_Click()Label1.ForeColor=vbGreenEndSubPrivateSubOption3_Click()Label1.ForeColor=vbBlueEndSub5、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“窗体标题”，标签上文字为“窗体颜色”（5分）。(2)编写事件过程，运行程序后，单击命令按钮，窗体的标题栏上显示“VisualBasic考试”（5分）。(3)编写事件过程，运行程序后，单击标签，窗体的背景色改为红色（5分）。答案：PrivateSubCommand1_Click()Form1.Caption=VisualBasic考试EndSubPrivateSubLabel1_Click()Form1.BackColor=vbRedEndSub6、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变大小”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签的背景色改为绿色（5分）。(3)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字内容改为“大小已经改变”，文字大小改为30(磅)（5分）。答案：PrivateSubCommand1_Click()Label1.BackColor=vbGreenEndSubPrivateSubCommand2_Click()Label1.Caption=大小已经改变Label1.FontSize=30EndSub7、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“关闭”，标签上的文字为“请选择学历”，三个单选钮上的文字分别为“硕士”、“本科”、“大专”（5分）。(2)编写事件过程，运行程序后，单击命令按钮可关闭窗体（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，标签上的文字相应改变为“硕士学历”、“本科学历”或“大专学历”（5分）。答案：PrivateSubCommand1_Click()Form1.HideEndSubPrivateSubOption1_Click()Label1.Caption=硕士学历EndSubPrivateSubOption2_Click()Label1.Caption=本科学历EndSubPrivateSubOption3_Click()Label1.Caption=大专学历EndSub8、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“红色”，标签上的文字为“字体大小”，三个单选钮上的文字分别为“10”、“14”、“18”（5分）。(2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为红色（5分）。(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字大小为10磅、14磅或18磅（5分）。答案：PrivateSubCommand1_Click()Label1.ForeColor=vbRedEndSubPrivateSubOption1_Click()Label1.FontSize=10EndSubPrivateSubOption2_Click()Label1.FontSize=14EndSubPrivateSubOption3_Click()Label1.FontSize=18EndSub9、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变颜色”和“改变字体”，标签上文字为“计算机等级考试”，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色（5分）。(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的字体改为“黑体”（5分）。答案：PrivateSubCommand1_Click()Label1.ForeColor=vbRedLabel1.Caption=颜色已经改变EndSubPrivateSubCommand2_Click()Label1.FontName=黑体EndSub10、新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置两个命令按钮上的文字分别为“改变大小”和“改变字体”，标签上文字为“VisualBasic程序设计”，字体为宋体，标签可以自动调整大小以显示所有文字（5分）。(2)编写事件过程，运行程序后，单击“改变大小”按钮，标签上的文字大小改为28(磅)（5分）。(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为黑体，文字内容改为“这是黑体”（5分）。答案：PrivateSubCommand1_Click()Label1.FontSize=28EndSubPrivateSubCommand2_Click()Label1.FontName=黑体Label1.Caption=这是黑体EndSub或者(3)编写事件过程，运行程序后，单击“改变字体”按钮，标签上的文字字体改为楷体，文字内容改为“这是楷体”（5分）。（提示：楷体的字体名称为“楷体_GB2312”。）PrivateSubCommand2_Click()Label1.FontName=楷体_GB2312Label1.Caption=这是楷体EndSub（提示：楷体的字体名称为“楷体_GB2312”。）11、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“显示”，将标签上的文字清除（5分）。(2)编写事件过程，运行程序后，单击“显示”按钮，标签上显示“你单击了[显示]按钮”（5分）。(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向左移动一个按钮位置（5分）。答案：PrivateSubCommand1_Click()Label1.Caption=你单击了[显示]按钮EndSubPrivateSubForm_Click()Command1.MoveCommand1.Left-Command1.WidthEndSub或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向右移动一个按钮位置（5分）。PrivateSubForm_Click()Command1.MoveCommand1.Left+Command1.WidthEndSub或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向上移动一个按钮位置（5分）。PrivateSubForm_Click()Command1.MoveCommand1.Left，command1.top-command1.heightEndSub或者(3)编写事件过程，运行程序后，每次单击窗体，命令按钮均向下移动一个按钮位置（5分）。PrivateSubForm_Click()Command1.MoveCommand1.Left，command1.top+command1.heightEndSub12、新建工程，在窗体上创建一个命令按钮Command1，一个标签Label1。窗体和控件的大小适当、布局合理，命名并保存窗体文件（5分），要求：(1)在属性窗口中设置命令按钮上的文字为“清除”，标签上文字为“这里是一个标签”（5分）。(2)编写事件过程，运行程序后，单击“清除”按钮，清除标签上的文字（5分）。(3)编写事件过程，运行程序后，每次单击标签，标签均向左移动200(Twip)（5分）答案：PrivateSubCommand1_Click()Label1.Caption=EndSubPrivateSubLabel1_Click()La