vb考试练习试题[上机操作]

《vb考试练习试题[上机操作]》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、WORD格式整理第一部分1在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)2请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。3在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作

2、：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。4专业知识分享WORD格式整理请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。5在名称为Form1的窗体上添加一个名称为Text1的文本框；添加两个标题分别为"对齐方式"、"字体"，名称分别为Fm1、Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为"左对齐"、"居中"、"右对齐"，名称分别为Opt1、Opt2、Opt3；在Fm2框架中添加两个单选按钮，

3、标题分别为"宋体"、"黑体"，名称分别为Opt4、Opt5。要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示)。6请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。7在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击"统计"专业知识分享WORD格式整理命令按钮，

4、统计第二个文本框中字符(大小写被认为是不同的字母)在第一个文本框中出现的次数，统计结果在标签Label3中显示。8在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～200范围内能被3或7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。9请设计如下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。10编程实现求(n为小于等于20

5、的整数)。程序运行界面如下图所示。程序运行时，在文本框中输入n的值，点击“计算”命令按钮，将计算结果显示在标签上。专业知识分享WORD格式整理专业知识分享WORD格式整理第二部分1已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为N只，编程求出鸡和兔各有多少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。程序运行界面如下图。提示：N≥2×M的偶数。2若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数”。例如153是水仙花数，因为153=1*1*1+5*5*5+3*3*3。编程求出

6、100～999之间所有的“水仙花数”。要求：程序运行后，单击“查找”按钮，在窗体上显示找到的“水仙花数”。程序运行界面如下图。3编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0～100的整数)，并在左边图片框中输出(一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。4编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。专业知识分享WORD格式整理5编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮

7、，则计数停止。6以下程序运行界面如下图所示。其功能如下：1)单击"读数据"按钮(Command1)，可将随机产生100个三位正整数存到数组a中；2)单击"计算"按钮(Command2)，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的?改为正确的内容。注意：不能修改程序的其他部分。专业知识分享WORD格式整理题目提供的程序代码：Dima(100)AsIntegerPrivateSubCommand1Click()Dim