VB期末试题2内蒙古师范大学.docx

VB期末试题2内蒙古师范大学.docx

《VB期末试题2内蒙古师范大学.docx》由会员分享，可在线阅读，更多相关《VB期末试题2内蒙古师范大学.docx（22页珍藏版）》请在冰豆网上搜索。

VB期末试题2内蒙古师范大学

要求：

编程，输入圆的半径，计算并输出圆的面积，按下列要求分别实现：

（1）在打开的工程的Form1窗体中设计如图1所示的界面

（2）创建一个文本框控件用于输入，创建一个标签控件显示计算结果，

创建一个命令按钮控件单击命令按钮后将结果显示在标签里，将命令按钮的

Caption属性设置为"按文本框计算"

（3）在窗体中创建一个命令按钮，Caption属性为"按输入框计算"

单击此命令按钮后，调用Inputbox函数输入数据，通过标签控件显示计算结果。

要求本命令按钮执行的结果需要小数点后15位有效位数，

圆周率15位：

3.141592653589793

【窗体属性评分】

【窗体】Form1.frm

标准答案：

Caption=计算出圆的面积

Caption=Form1

【控件】VB.CommandButton_

标准答案：

Caption=按文本框计算

Caption=

【控件】VB.CommandButton_

标准答案：

Caption=按输入框计算

Caption=

【事件评分】

【事件】PrivateSubCommand2_Click（）

标准答案：

InputBox

【事件评分】

【事件】PrivateSubCommand1_Click（）

标准答案：

Label1.Caption=

【控件】VB.TextBox_

标准答案：

Name=Text1

Name=

【控件】VB.Label_

标准答案：

Name=Label1

Name=

注意：

不能使用缺省属性

在窗体上建立一个二级菜单，该菜单含有"文件"和"帮助"（名称分别为vbFile和vbHelp）

两个主菜单项，其中"文件"菜单包括"打开"、"关闭"和"退出"三个子菜单项

（名称分别为vbOpen、vbClose和vbExit），如图所示。

只建立菜单，不必定义其事件过程。

【控件】VB.Menu_

标准答案：

Name=vbFile

Name=

【控件】VB.Menu_

标准答案：

Caption=文件

Caption=

【控件】VB.Menu_

标准答案：

Name=vbOpen

Name=

【控件】VB.Menu_

标准答案：

Caption=打开

Caption=

【控件】VB.Menu_

标准答案：

Name=vbClose

Name=

【控件】VB.Menu_

标准答案：

Caption=关闭

Caption=

【控件】VB.Menu_

标准答案：

Name=vbExit

Name=

注意：

不能使用缺省属性

在名为Form1的窗体上画一个框架，名称为Frm1，标题为"框架"，高度为2500，宽度为4000，

框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为"文本框"，

如图所示。

注意：

完成试题后，必须保存，然后关闭窗口。

【控件】VB.Frame_

标准答案：

Name=Frm1

Name=

【控件】VB.Frame_

标准答案：

Height=2500

Height=

【控件】VB.Frame_

标准答案：

Width=4000

Width=

【控件】VB.TextBox_

标准答案：

Left=600

Left=

【控件】VB.TextBox_

标准答案：

Text=文本框

Text=

【控件】VB.TextBox_

标准答案：

Top=1200

Top=

注意：

不能使用缺省属性

在名称为Form1的窗体上建立一个名称为List1的列表框。

要求：

在程序运行后，通过Form_Load（）事件过程加载窗体时，执行语句List1.AddItem"AAA"，

每当单击某个列表项时，都执行语句List1.AddItemList1.Text一次，如图所示。

【事件评分】

【事件】PrivateSubForm_Load（）

标准答案：

List1.AddItem"AAA"

【事件评分】

【事件】PrivateSubList1_Click（）

标准答案：

List1.AddItemList1.Text

注意：

不能使用缺省属性

在名称为Form1的窗体上建立一个名称为Cmd1，标题为"显示"的命令按钮，

编写适当的事件过程。

程序运行后，如果单击"显示"命令按钮，

则在窗体上显示"呵呵，小菜一碟！

"，如图1-1所示。

程序中不能使用任何变量，直接显示字符串。

注意：

完成后必须保存，然后再关闭。

【控件】VB.CommandButton_

标准答案：

Name=Cmd1

Name=

【控件】VB.CommandButton_

标准答案：

Caption=显示

Caption=

【事件评分】

【事件】PrivateSubCmd1_Click（）

标准答案：

Print"呵呵，小菜一碟！

"

注意：

不能使用缺省属性

在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮，

名称分别为Cmd1和Cmd2，标题分别为"输出"和"清除"，如图1所示。

要求程序运行后，每单击一次"输出"按钮，

不使用任何变量而直接在图片框中显示"有一幅画更完美！

"，如图2所示；

如果单击"清除"按钮，则清除图片框中的内容。

图1

图2

控件属性评分】

【控件】VB.CommandButton_Cmd1

标准答案：

Name=Cmd1

Name=

【控件】VB.CommandButton_Cmd1

标准答案：

Caption=输出

Caption=

【控件】VB.CommandButton_Cmd2

标准答案：

Name=Cmd2

Name=

【控件】VB.CommandButton_Cmd2

标准答案：

Caption=清除

Caption=

【控件】VB.PictureBox_P1

标准答案：

Name=P1

Name=

注意：

不能使用缺省属性

在名称为Form1的窗体上建立一个名称为Text1的文本框，文本框的内容为空；一个名称为Cmd1，

标题为"输出"的命令按钮，如图1-12所示。

要求程序运行后，在文本框输入几个字符，

单击"输出"按钮，则在窗体上显示文本框中的文字。

注意：

在程序中不能使用任何变量，不能使用默认属性。

【控件】VB.CommandButton_

标准答案：

Name=Cmd1

Name=

【控件】VB.CommandButton_

标准答案：

Caption=输出

Caption=

【事件评分】

【事件】PrivateSubCmd1_Click（）

标准答案：

PrintText1.Text

注意：

不能使用缺省属性

1、在名称为Form1的窗体上建立一个名称为l1的标签，并设置他不可见；两个名称为cmd1和cmd2，

标题分别为"显示1"和"显示2"的命令按钮。

2、编写适当的事件过程，要求程序运行后，

如果单击"显示1"命令按钮，则标签可见并显示字符串"aaa"；

如果单击"显示2"命令按钮，则标签可见并显示字符串"bbb"。

程序中不能使用任何变量，直接显示字符串；不能使用默认属性。

程序开始运行时界面如图1所示。

图1程序运行时界面

3、单击显示1命令按钮后，窗体如图2所示：

图2单击显示1命令按钮后程序界面

控件属性评分】

【控件】VB.CommandButton_

标准答案：

Caption=显示2

Caption=

【控件】VB.CommandButton_

标准答案：

Caption=显示1

Caption=

【控件】VB.Label_

标准答案：

Visible=0'False

Visible=

【控件】VB.Label_

标准答案：

Name=l1

Name=

【控件】VB.CommandButton_

标准答案：

Name=cmd2

Name=

【控件】VB.CommandButton_

标准答案：

Name=cmd1

Name=

【事件评分】

【事件】PrivateSubcmd1_Click（）

标准答案：

l1.Visible=True

l1.Caption="aaa"

【事件评分】

【事件】PrivateSubcmd2_Click（）

标准答案：

l1.Caption="bbb"

注意：

不能使用缺省属性

1、利用VB设计上面的程序界面。

窗体的标题为"字体修改"；其中包括一名称为Label1,标题为"请输入文字"的标签；

一名称为Text1，内容为空的文本框；

名称为Command1,标题为"隶书"，名称为Command2,标题为"黑体"的两个命令按钮。

2、程序功能：

单击"隶书"命令按钮时，文本框的字体设为"隶书"；

单击"黑体"命令按钮时，文本框的字体设置为"黑体"。

提示：

不能使用任何变量！

标准答案：

Caption=隶书

Caption=

【事件评分】

【事件】PrivateSubCommand1_Click（）

标准答案：

Text1.Font="隶书"

【控件】VB.Label_

标准答案：

Caption=请输入文字

Caption=

注意：

不能使用缺省属性

在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。

要求程序运行后，每次移动滚动框时，都执行语句Form1.PrintHS1.Value，

如图所示（程序中不能使用任何变量）

【事件评分】

【事件】PrivateSubHS1_Scroll（）

标准答案：

PrintHS1.Value

【控件】VB.HScrollBar_

标准答案：

Name=HS1

Name=

【控件】VB.HScrollBar_

标准答案：

Max=100

Max=

在窗体上添加1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“VisualBasic程序设计”，

命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：

Left=0，

Top=0，宽度和高度都为窗体的一半；命令按钮：

始终位于窗体右下角位置。

请编写：

（1）用代码初始化各控件（提示：

可写在Form_Load事件中）。

（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码

（提示：

调整大小位置的代码写在Form_Resize事件中）。

（3）结束程序运行的代码（命令按钮）。

事件评分】

【事件】PrivateSubForm_Load（）

标准答案：

Text1.Text=

VisualBasic

程序设计

【事件评分】

【事件】PrivateSubForm_Resize（）

标准答案：

Text1.Text=

VisualBasic

程序设计

Text1.Top=0

Text1.Left=0

Text1.Width=

/2

【控件】VB.CommandButton_

标准答案：

Caption=结束

Caption=

【事件评分】

【事件】PrivateSubCommand1_Click（）

标准答案：

End

如果单击"显示"按钮，则文本框显示出来，如图1和图2所示。

程序中不得使用任何变量。

图1

图2

【控件】VB.CommandButton_

标准答案：

Name=c2

Name=

【控件】VB.CommandButton_

标准答案：

Caption=显示

Caption=

【控件】VB.CommandButton_

标准答案：

Name=c1

Name=

【控件】VB.CommandButton_

标准答案：

Caption=隐藏

Caption=

【控件】VB.TextBox_

标准答案：

Visible=0'False

Visible=

【事件评分】

【事件】PrivateSubc2_Click（）

标准答案：

Text1.Visible=True

【事件评分】

【事件】PrivateSubc1_Click（）

标准答案：

Text1.Visible=False

注意：

不能使用缺省属性

在名称为Form1的窗体上画一个文本框，名称为Txt1；再画一个命令按钮，

名称为C1，标题为"移动"，如图1所示。

请编写适当的事件过程，使得在运行时，单击"移动"按钮，

文本框水平移动到窗体的最左端如图2所示。

程序中不得使用任何变量。

注意：

完成题目后，必须保存工程后再关闭。

图1

图2

【控件】VB.CommandButton_

标准答案：

Name=C1

Name=

【控件】VB.CommandButton_

标准答案：

Caption=移动

Caption=

【控件】VB.TextBox_

标准答案：

Name=Txt1

Name=

【事件评分】

【事件】PrivateSubC1_Click（）

标准答案：

Txt1.Left=0

注意：

不能使用缺省属性

1、设计下图所示的界面：

2、界面中窗体的标题为：

密码的显示；

3、窗体中包括两个文本框，他们的名称分别为passtxt和showtxt,其中：

passtxt用于密码输入，当在其中输入信息时，显示为"*"；

4、showtxt文本框，在程序运行时不能用，只能显示密码。

5、具体功能：

程序运行时，当在文本框passtxt中输入密码时，showtxt中同时将输入的内容原样显示。

提示：

不能使用任何变量，不能使用默认属性！

【窗体属性评分】

【窗体】Form1.frm

标准答案：

Caption=密码的显示

Caption=Form1

【控件】VB.TextBox_

标准答案：

Name=showtxt

Name=

【控件】VB.TextBox_

标准答案：

Enabled=0'False

Enabled=

【控件】VB.TextBox_

标准答案：

Name=passtxt

Name=

【控件】VB.TextBox_

标准答案：

PasswordChar=*

PasswordChar=

【事件评分】

【事件】PrivateSubpasstxt_Change（）

标准答案：

showtxt.Text=passtxt.Text

设计窗体程序，程序运行的初始界面如图1-1所示，当用户在文本框中输入姓名，例如输入“张三”，

单击“确定”按钮，则程序的运行情况如图1-2所示，如果单击“结束”按钮，即结束程序运行。

图1-1

图1-2

【控件】VB.TextBox_

标准答案：

Name=Text1

Name=

【控件】VB.CommandButton_

标准答案：

Name=Command2

Name=

【控件】VB.CommandButton_

标准答案：

Name=Command1

Name=

【控件】VB.Label_

标准答案：

Caption=请输入你的姓名

Caption=

【控件】VB.Label_

标准答案：

Caption=我的第一个VB程序

Caption=

【事件评分】

【事件】PrivateSubCommand2_Click（）

标准答案：

End

【事件评分】

【事件】PrivateSubCommand1_Click（）

标准答案：

Label2.Visible=False

欢迎使用

Text1.Visible=False

Command1.Enabled=False

Command2.Enabled=True

在窗体上建立4个命令按钮Command1、Command2、Command3和Command4。

要求：

（1）命令按钮的Caption属性分别为“字体变大”、“字体变小”、“加粗”和“标准”。

（2）每单击Command1按钮和Command2按钮一次，字体变大或变小3个单位。

（3）单击Command3按钮时，字体变粗；单击Command4按钮时，字体又由粗体变为标准。

（4）4个按钮每单击一次都在窗体上显示“欢迎使用VB”。

（5）双击窗体后可以退出。

【事件评分】

【事件】PrivateSubForm_DblClick（）

标准答案：

End

【事件评分】

【事件】PrivateSubCommand4_Click（）

标准答案：

Form1.FontBold=False

"欢迎使用VB"

【事件评分】

【事件】PrivateSubCommand2_Click（）

标准答案：

Form1.FontSize

-3

欢迎使用VB

【事件评分】

【事件】PrivateSubCommand1_Click（）

标准答案：

Form1.FontSize

+3

欢迎使用VB

【控件】VB.CommandButton_

标准答案：

Caption=标准

Caption=

【控件】VB.CommandButton_

标准答案：

Caption=加粗

Caption=

【控件】VB.CommandButton_

标准答案：

Caption=字体变小

Caption=

【控件】VB.CommandButton_

标准答案：

Caption=字体变大

Caption=