1、1第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为“输出平均值“)。程序运行后，单击命令按钮完成以下工作：随机产生20个0到1000的整数，将其放入一个一维数组中求出所有元素的平均值，并显示在窗体上(如下图所示)2 请在名称为Form1的窗体上添加一个名称为 Text1的文本框和一个名称为C1 、标题为“ 转换“ 的命令按钮，如下图所示。在程序运行时，单击“ 转换 “按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为 “输出最大值“)。程序运行后，单击命令按钮完成以下工作：随机产生30个0100
2、0的整数，将其放入一个一维数组中求出其中的最大值，并显示在窗体上。4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上2述功能。 5 在名称为Form1的窗体上添加一个名称为 Text1的文本框；添加两个标题分别为“ 对齐方式“、 “字体“ ，名称分别为Fm1 、 Fm2的框架；在Fm1框架中添加三个单选按钮，标题分别为“左对齐“、“居中“、“ 右对齐“，名称分别为Opt1、Opt2、Opt3；在Fm2 框架中添加两个单选按钮，标题分别为“宋体“ 、“黑体“，名称分别为Opt4、Opt5
3、 。 要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的内容实现相应的操作(如图所示) 。6 请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择“N的阶乘“ 或“(N+2)的阶乘“ 单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。 7 在窗体上添加两个文本框和三个标签，设置它们的属性，达到下图效果。程序运行时，在第一个文本框输入一串字符，在第二个文本框中输入一个字符，然后单击“统计“ 命令按3钮，统计第二个文本框中字符(大小写被认为是不同的字母) 在第一个文本框中出现的次数，统计结果在标
4、签Label3中显示。 8 在窗体上添加一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0200范围内能被3或7整除的所有整数的和，并显示在文本框中。程序运行界面如下图所示。9 请设计如下图所示界面(文本框名称为：Txt1，按钮名称为：Cmd1)。程序运行时在文本框中输入字符串，点击命令按钮，判断文本框中的字符串是否是回文，将判断结果显示在窗体上。所谓回文是指字符串正序和逆序的结果相同，如“aBCCBa”是回文，“aBCcBa”不是回文。10 编程实现求 (n 为小于等于 20 的整数)。!n1.312!1！Sum程序运行界面如下图所示。程序运行时，在文本框中输入 n 的值，点击
5、“计算”命令按钮，将计算结果显示在标签上。45第二部分1 已知在同一个笼子里有总数M只鸡和兔，鸡和兔的总脚数为 N只，编程求出鸡和兔各有多少只。要求：程序运行后，在两个文本框中分别输入M和N的值，单击“计算”命令按钮，在两个标签框中分别输出鸡和兔的数量。程序运行界面如下图。提示：N2M的偶数。2 若一个3位正整数中各位数字的立方和等于该数字本身，则该数称之为“水仙花数” 。例如153是水仙花数，因为 153 = 1*1*1 + 5*5*5 + 3*3*3。编程求出100999之间所有的“水仙花数”。要求：程序运行后，单击“查找” 按钮，在窗体上显示找到的 “水仙花数” 。 程序运行界面如下图。
6、3 编写程序，要求程序运行后，单击“开始”按钮，随机产生20个学生的成绩(0100的整数)，并在左边图片框中输出 (一行5个成绩)，并在右边图片框中输出平均分和及格的人数，程序运行界面如下图。4 编写程序实现：程序运行时，单击窗体则显示如下图所示的图案。65 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击“开始计数” 按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。6 以下程序运行界面如下图所示。其功能如下： 1) 单击“读数据 “按钮(Command1)，可将随机产生100个三位正整数存到数组a中； 2) 单击“ 计
7、算“ 按钮(Command2)，则根据从组合框Combo1 中选中的项目，对数组a 中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。 题目提供的程序代码不完整，请设计下图界面并录入代码，将程序中的 ? 改为正确的内容。注意：不能修改程序的其他部分。题目提供的程序代码：Dim a(100) As IntegerPrivate Sub Command1 Click()Dim n As IntegerFor n = 1 To 100a(n)=Int(Rnd * ? )Next nEnd SubPrivate Sub Command2 Click()Dim x& ,y& , z
8、& ,i% , j% , k%For i = 1 To 100If a(i) Mod ? Thenx = x + a(i)： j = j + 1Elsey = y + a(i)?End IfNext kx = Int(x / j + 0.5)：y = Int(y / k + 0.5)z = Int(x + y) / (j + k) + 0.5)Select Case Combo1.TextCase “所有偶数“Text1 = ?Case “所有奇数“Text1 = ?7Case “所有数“Text1 = ?End SelectEnd Sub7 编写程序。要求：程序运行后，单击“开始”按钮，则随
9、机产生20个2位数输出到窗体上，每行10个数。同时对所产生的20个数从小到大排序，将排序后的数再次输出在窗体上。程序运行界面如下图。8 编写程序，程序的功能是：程序运行后，在文本框中输入一串字符, 单击标题为“统计“ 的命令按钮，分别统计输入字符串中大写字母、小写字母以及其他字符的个数，并将统计结果分别在相应的标签框中显示。程序运行界面如下图。9 编写程序。程序功能是：程序运行后在文本框中输入一个正整数，单击“判断”按钮，在标签框中输出“该数是一个素数” 或“ 该数不是一个素数 ”的信息。程序运行界面如下图。810 编写程序，程序的功能是：程序运行后，单击“ 开始 ”按钮，在窗体上显示出10个
10、小于100的随机正整数，单击“查找” 按钮，则在窗体的下一行显示出这10个数中的最大的数以及最大数在此数列中的位置号。程序运行界面如下图。9第三部分1 在窗体 Form1 上添加两个文本框，一个 “转换”命令按钮和三个单选按钮（名称分别为Opt1、Opt2、Opt3，标题分别为“大小写转换” 、 “全部大写” 、 “全部小写” ） 。程序功能：在上方文本框 Text1 中输入一字符串，选中“大小写转换” ，单击“转换”按钮后，Text2 中显示大小写相反的字符串；选中“全部大写” ，单击转换按钮后，Text2 中显示全部大写字符串，选中“全部小写” ，单击转换按钮后，Text2 中显示全部小写
11、字符串 。程序运行界面如下图。要求： 请按要求完成窗体界面设计 程序的部分代码已给出如下，但不完整。请录入下面代码，并将“？”处补充完整。Private Sub Command1_Click()Dim n As Integer, k As Integer, ch As String, a As Stringch = “If Opt1.Value = True Thenn = Len(？)For k = 1 To na = Mid$(Text1, k, ？)If a = “a“ And a = “A“ And a = “Z“ Thench = ch + LCase(a) Elsech = ch
12、+ aEnd IfNext kEnd IfIf Opt2.Value = True Then ch = UCase(Text1)If Opt3.Value = True Then ch = ？(Text1) Text2 = chEnd Sub2 编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在左边列表框中选中所需要的项目，单击“添加”按钮，则把所选中的项目移到右边列表框中。如果10单击“删除”按钮，则删除左边列表框中选中的项目。程序运行时的窗体界面如图。3 编程实现：单击“输出最大值”按钮，随机产生 8 个大于或等于 10 小于 100 的整数，显示在窗
13、体的第一行，然后在窗体第二行显示其中的最大值。程序运行时的效果如图。4 在 Form1 的窗体上有一个名称为 Text1 的文本框和两个命令按钮，命令钮标题分别为“显示 A”和“显示 B”。要求程序运行后，如单击 “显示 A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量“A“构成的字符串；如单击“显示 B”命令按钮，也弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量“B“构成的字符串。程序运行时的窗体界面如图所示。 5 已知十个数为：67, 45, 34, 28, 49, 37, 87, 76, 27, 83。编程实现：按“开始”按钮，则在窗体的第一行
