VB练习题(上机)含答案

第一部分1在表单中添加一个命令按钮(名称为Cmd1，标题为“输出平均值”)。程序运行后，单击命令按钮完成以下任务：(1)随机生成20个从0到1000的整数，并将它们放入一维数组中(2)计算所有元素的平均值并显示在表单上(如下图所示)私有子Cmd1 _单击()点心(19)，我，点心！艾弗。随机化i=0至19a(i)=Int(Rnd * 1001)总和=总和a(i)接下来我平均值=总和/20打印aver末端接头2请添加一个名为Text1的文本框和一个名为C1的命令按钮，标题为“转换”到名为Form1的表单，如下图所示。程序运行时，单击“转换”按钮将文本1中的小写字母转换为大写，将大写字母转换为小写，其他字符保持不变。私有子C1 _点击()将ch设为字符串，ch1设为字符串，i%ch=文本1对于i=1至Len(ch)如果Asc(中间(ch，I，1)=65且Asc(中间(ch，I，1)=90，则ch1=ch1 LCase(中间(ch，I，1)其他ch1=ch1 UCase(中间(ch，I，1)结束条件接下来我文本1=文本1 vbCrLfText1=Text1 ch1末端接头3向表单中添加一个命令按钮(名为MyCmd1，标题为“输出最大值”)。程序运行后，单击命令按钮完成以下任务：(1)随机生成30个从0到1000的整数，并将这些整数放入一维数组中(2)找出最大值并将其显示在窗口上。私有子密件1 _点击()调光a%(29)，i%，最大%随机化i=0至29a(i)=Int(Rnd * 1001)接下来我max=a(0)i=1至29如果a(i)最大值，则最大值=a(i)接下来我打印最大值末端接头请设计如下图所示的窗口界面。当程序运行时，当选择了一个或两个复选框和一个单选按钮时，单击命令按钮相应地设置文本框中的文本内容。请编写适当的事件流程来完成上述功能。私有子命令1_Click()如果选项1。值=真文本1。FontName=歌曲风格其他文本1。FontName=官方脚本结束条件如果选中1。值=1然后文本1。字体下划线=真其他文本1。字体下划线=假结束条件如果选中2。值=1然后文本1。字体斜体=真其他文本1。字体斜体=假结束条件末端接头5将名为“文本1”的文本框添加到名为“表单1”的表单中；添加两个框架，标题分别为“对齐”和“字体”，名称分别为Fm1和Fm2在Fm1框架中添加三个单选按钮，标题为“左对齐”、“居中”、“右对齐”，以及Opt1、Opt2和Opt3的名称；分别；在Fm2框架中添加两个单选按钮，标题分别为“歌曲”和“黑色”，名称分别为Opt4和Opt5。要求：编写五个单选按钮的点击事件程序，当程序运行时，点击这些单选按钮对文本框中的内容进行相应的操作(如图所示)。私有子选项1 _单击()如果选择1，则选择文本1。对齐=0末端接头私有子选项2 _单击()如果选择2，则选择文本1。对齐=2末端接头私有子选项3 _单击()如果选择3，则选择文本1。对齐=1末端接头私有子选项4 _单击()Fontname=宋体末端接头私有子选项5 _单击()Fontname= bold 末端接头请设计如下图所示的窗口界面。运行程序时，首先在左侧文本框中输入一个不超过10的正整数，然后选择“N的阶乘”或“N 2的阶乘”单选按钮进行计算，计算结果将显示在右侧文本框中。请编写一个程序来完成上述功能。Dim n%私有子窗体_加载()末端接头私有子选项1 _单击()Dim i%n=Val(文本1)m=1i=1至nm=m * i接下来我Text2=m末端接头私有子选项2 _单击()Dim i%m=1i=1至n 2m=m * i接下来我Text2=m末端接头7在表单上添加两个文本框和三个标签，并设置它们的属性以实现以下效果。程序运行时，在第一个文本框中输入一个字符串，在第二个文本框中输入一个字符，然后单击“统计”命令按钮，计算第一个文本框中第二个文本框中出现的字符数(大小写不同的字母)。统计结果显示在标签3中。私有子命令1_Click()Dim i%，n%对于i=1至Len(文本1)如果中间(文本1，I，1)=文本2，则n=n 1接下来我标签3=n末端接头私有子标签3 _单击()末端接头8向表单添加文本框和命令按钮。程序运行后，单击命令按钮计算0 200范围内所有可被3或7除的整数之和，并显示在文本框中。程序操作界面如下图所示。私有子命令1_Click()Dim i%，sum%i=0至200如果i Mod 3=0或i Mod 7=0，则总和=总和I接下来我Text1=总和末端接头私有子文本1 _更改()末端接头9请设计如下图所示的界面(文本框名称：Txt1，按钮名称：Cmd1)。程序运行时，在文本框中输入一个字符串，点击命令按钮，判断文本框中的字符串是否为回文，并将判断结果显示在表单上。所谓回文是指具有相同正负结果的字符串。例如，“ABCBA”是回文，“ABCBA”不是回文。私有子Cmd1 _单击()将胸部变暗为字符串对于i=Len(Txt1)至1步骤-1ch=ch Mid(Txt1，I，1)接下来我如果Txt1=ch，则打印Txt1 是回文其他打印Txt1 不是回文结束条件末端接头私有子窗体_加载()末端接头10编程实现(n是小于或等于20的整数)。程序操作界面如下图所示。当程序运行时，在文本框中输入n的值，点击“计算”命令按钮，在标签上显示计算结果。私有子命令1_Click()点心，i%，m为长，总和为双n=Val(文本1)m=1i=1至nm=m * isum=sum 1/m接下来我标签2=sum= sum末端接头私有子窗体_加载()末端接头第二部分众所周知，在同一个笼子里总共有100只鸡和100只兔子。鸡和兔子的总脚数是N，通过编程分别有多少只鸡和兔子。要求：程序运行后，在两个文本框中分别输入m和n的值，点击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。程序操作界面如下图所示。提示：N2M的偶数。私有子命令1_Click()m=Val(文本1)n=Val(文本2)如果n模2 0，则MsgBox(“英尺数必须为偶数”)文本2= 文本2。SetFocus其他y=n/2 - m如果是0，那么MsgBox(“英尺数必须是唯一数字的2倍，请重新输入”)文本2= 文本2。SetFocus其他x=m - y标签3=x标签4=y结束条件结束条件末端接头私有子窗体_加载()末端接头如果一个3位数正整数中每个数字的立方和等于该数字本身，那么这个数字就叫做“水仙数”。例如，153是水仙花的数量，因为153=1*1*1 5*5*5 3*3*3。寻找100到999之间所有“水仙花”的程序。要求：程序运行后，点击“查找”按钮显示表单上的“水仙花数量”。程序操作界面如下图所示。私有子命令1_Click()打印“水仙花的数量”:i=100至999X1=i Mod 10分隔单个数字X2=(i Mod 100) 10分隔十位数字X3=100分隔百年纪念数字如果i=X1 3 X2 3 x3 3，则打印I；接下来我末端接头私有子窗体_加载()末端接头3.编写程序。程序运行后，点击“开始”按钮，随机生成20名学生的分数(从0到100的整数)，并输出到左边的图框中(连续5个分数)，在右边的图框中输出平均分数和通过考试的人数。程序操作界面如下图所示。私有子命令1_Click()将a(1至20)调至整数，i%，n%图片1。Cls图2。Clsi=1至20a(i)=Int(Rnd * 101)图片1。打印a(I)；如果i Mod 5=0，则图像1。打印如果a(i)=60，则n=n 1总和=总和a(i)接下来我图2。打印“平均分数”:总和/20图2。打印；通过次数：；n末端接头私有子图片2 _单击()末端接头4编程实现：当程序运行时，点击窗体将显示下图所示的模式。私有子窗体_单击()i=1至5打印标签(10-I)；字符串(2 * i - 1，“*”)接下来我i=1至4打印标签(5i)；字符串(9 - 2 * i，“*”)接下来我末端接头5编程实现：表单中有一个文本框、一个计时器和两个命令按钮。其功能是：当程序运行时，点击“开始计数”按钮开始计数。每1秒，文本框中的数字增加1；单击“停止计数”按钮停止计数。私有子命令1_Click()定时器1。启用=真末端接头私有子命令2 _单击()定时器1。启用=假末端接头私有子窗体_加载()末端接头私有子定时器1 _定时器()文本1=值(文本1) 1末端接头在属性窗口中，将计时器的时间间隔属性值设置为100