VB上机题汇总

以题号保存，如第1题取名：1.Frm 、1.Vbp 。

1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签

控件Label1显示y 值。 ⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123102x x x x x x x x x y x

2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。

3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。在窗体上输出结果，运行效果如下图所示。。

4、 计算下式的和，变量x 与n 的数值用输入对话框输入。在窗体上输出结果，运行效果如下图所示。

)!

1(...!4!3!232+++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。运行结果如图所示。

6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。

7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输

出到窗体，并求出其最大元素及最大元素的行、列坐标。

8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。在窗体的Click 事件中调用该函数。

9、编制通用函数过程(Fact)，计算N！的值。在窗体的Click事件中调用该函数。

10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示

false。在窗体的Click事件中调用该函数。

11、编制通用函数过程(Odd)。用于判断一个整数的奇偶性。在窗体的Click事件中调用该函数。

12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。在窗体的Click

事件中调用该函数。

13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。在窗体的Click事件中

调用该函数。

14、编制函数过程(Sum)，用于计算1个整数的各位数字之和（如引用Sum(132)的结果是6，引用

Sum(-23)的结果是5，等等）。在窗体的Click事件中调用该函数。

15、新建一个工程，完成应用程序的设计，具体要求如下：

（1）按照下图所示在窗体上放置按钮和控件。

（2）取消窗体的最大化和最小化按钮。

（3）当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。

（4）同时可使用热键Alt+L和Alt+B实现窗口放大或还原。

（5）当窗体大小改变后，总是让命令按钮位于窗口的中央。

16、新建一个工程，完成应用程序的设计，具体要求如下：

（1）按照下图所示在窗体上放置按钮和控件。

（2）单击产生题目按钮，在文本框产生1道加法运算题。

17、新建一个工程，完成“计算平均成绩”应用程序的设计。具体要求如下：

（1）按照下图所示在窗体上放置按钮和控件。

（2）在输入或修改单科成绩的同时计算平均分,即在"高数","英语"和"计算机"文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。

（3）平均成绩”文本框不允许编辑，即不能手工修改。

（4）各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。

18、新建一个工程，完成“密码检验”程序的设计。具体要求如下：

（1）参照运行时界面完成界面设计。

（2）文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。（3）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。

（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。

19、设计一个秒表模拟程序，具体要求如下：

（1）按照下图所示在窗体上放置按钮和控件。

（2）按下“开始”按钮，屏幕显示当前时间。

（3）按下“结束”按钮，屏幕显示结束时间和持续时间。

（4）按下“退出”，结束程序。运行界面如图所示。

20、新建一个工程，完成“检查口令”程序的设计。具体要求如下：

（1）单击“开始”按钮，清除文本框中的信息，并把光标移到第一个文本框中；接着在第一个文本框中输入用户名，第二个文本框中输入口令。

（2）单击“检查口令”按钮，检查输入的口令是否正确。若正确，则进入如下的第二个窗体，在该窗体上装有一幅图片；否则显示一个信息框，要求重新输入，此时将调用“开始”按钮的click 事件过程，再一次在文本框中输入口令，这样允许重输三次口令，超过三次，则口令文本框将转为不能编辑。

（3）单击“结束”按钮，结束程序。

21、新建一个工程，完成“替换”程序的设计。具体要求如下：

(1) 窗体的标题为“替换”。

(2) 窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。

(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击

“替换”按钮执行。

22、新建一个工程，完成“字体修饰”程序的设计。具体要求如下：

（1）按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。

（2）框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。

（3）框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。

（4）标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方式为居中。