计算机程序设计

计算机程序设计上载作业：第二章:窗体和基本控件作业信息名称第二章:窗体和基本控件说明习题2.1在窗体上画一个命令按钮，然后通过属性窗口设置下列属性：Caption:这是命令按钮Font:宋体粗体三号Visible:FalseStyle:1-Graphical习题2.2在窗体的左上部画两个命令按钮和两个文本框，然后选择这4个控件，并把它们移到窗体的右下部。

习题2.3在窗体的任意位置画一个文本框，然后在属性窗口中设置下列属性：Left:1600Top:2400Height:1000Width:2000习题2.4在窗体上画一个文本框和两个命令按钮，当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重新出现，并在文本框中显示“VB程序设计”，字体大约为16。

习题2.5在窗体上建立三个文本框和一个命令按钮。

程序运行后，单击命令按钮，在第一个文本框中显示由Command1_Click事件过程设定的内容（例如“Microsoft VisualBasic”），同时在第二、第三个文本框中分别用小写字母和大写字母显示第一个文本框中的内容。

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

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

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

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

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

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

习题2.7设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。

请编写：（1）用代码初始化各控件（提示：可写在Form_Load事件中）。

（2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。

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

单击即可启动习题3.1从键盘上输入四个数，编写程序，计算并输出这4个数的和及平均值，通过Input-Box函数输入数据，在窗体上显示和及平均值。

习题3.2编写程序，求解鸡兔同笼问题。

一个笼子中有鸡x只，兔y只，每只鸡有2只脚，第个兔有4只脚。

今知鸡和兔头数为h,总脚数为f。

问笼中鸡和兔各若干？习题3.3输入以秒为单位表示的时间，编写程序，将其换算成几日几时几分几秒。

习题3.4编写程序，计算1+2+3+ (100)习题3.5税务部门征收所得税，规定如下：（1）收入在200元以内，免征;（2）收入在200～400元内，超过200元的部分纳税3%;（3）收入超过400元的部分，纳税4%;（4）当收入达到5000元或超过时，将4%税金改为5%;编程序实现上述操作。

习题3.6习题3.11输入100个数，统计其中负数、零及正数的个数。

习题3.12计算s=1+2+2^2+2^3+……，直至s超过1E+16。

习题3.13打印由数字组成的如下所示金字塔图案９８８８７７７７７６６６６６６６５５５５５５５５５４４４４４４４４４４４３３３３３３３３３３３３３２２２２２２２２２２２２２２２１１１１１１１１１１１１１１１１１一、程序填空题1、【程序说明】下列程序用来在窗体上输出如下所示的数据。

1 2 3 4 52 3 4 5 13 4 5 1 24 5 1 2 35 1 2 3 4Private Sub Form_Click()Dim a(5, 5) As Byte, i As Byte, j As ByteFor i = 1 To 5For j = 1 To 6 - ia(i, j) = ⑴Next j, iFor i = 2 To 5For j =⑵To 5a(i,j) = j + i - 6Next j, iFor i = 1 To 5For j = 1 To 5Print a(i,j);Next j⑶Next iEnd Sub２、【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

Private Sub Form_Click()Dim a(30) As byte, i as Byte, j As Byte, m As ByteFor i = 1 To 30: a(i) = ⑴: Next iFor i = 1 To 29For j = ⑵If a(i) > a(j) Thenm = a(i): ⑶:a(j) = mEnd IfNext j,iFor i = 1 To 30If ⑷Then Print a(i);Next iEnd Sub二、程序设计题1、从键盘上输入10个整数，并放入一个一维数组中，然后将前5个元素与后5个元素对换，即：第1个元素与第10个元素对换，第2个元素与第9个元素对换，…，第5个元素与第6个元素对换。

分别输出数组原来各元素的值和对换后各元素的值。

２、产生100个[0，99]范围内的随机整数，每行10个打印出来，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来。

3、有个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。

4、编写程序，建立并输出一个10×10的矩阵，该矩阵对角线上的元素为1，其余的元素为0。

5、设有如下两组数据：A:2，8，7，6，4，28，70，25B:79，27，32，41，57，66，78，80编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2＋79，8＋27，…，并把结果放到第3个数组中，最后输出第3个数组的值。

6、打印一个5行5列的数字方阵，并使两对角线上元素均为1，其余均为2。

要求打印的数字方阵两列数字之间空3格，两行之间空一行一、程序阅读题（写出下列程序的运行结果）程序1. 请写出单击窗体后，窗体上的显示结果。

Dim i As Integer,n As IntegerPrivate Sub Form_Click()Dim i As IntegerFor i = 1 To 3s = sum(i): Print "s ="; sNext iEnd SubPrivate Function sum(n As Integer)Static j As Integerj = j + n + 1: sum = jEnd Function程序2. 请写出单击窗体、输入5后，窗体上的显示结果。

Private Sub Form_Click()Dim i As Integer, j As Integer, m As Integerm = InputBox("请输入数组的行、列数")ReDim a(m, m) As IntegerCall P(a, m)For i = 1 To mFor j = 1 To i: Print Tab(j * 3); a(i, j); : Next jPrintNext iEnd SubPrivate Sub P( b() As Integer, n As Integer)Dim i As Integer, j As IntegerFor i = 1 To nb(i, 1) = 1: b(i, i) = 1Next iFor i = 3 To nFor j = 2 To i - 1b(i, j) = b(i - 1, j - 1) + b(i - 1, j)Next j,iEnd Sub程序3. 请写出单击窗体后，窗体上的显示结果。

Dim i As Integer, j As Integer, k As Integer, h As Integer Private Sub Form Click()i = 0: j = 1: k = 2Call q(1, i): Print i; j; k,Call q(2, j): Print i; j; k,Call q(3, k): Print i; j; k,End SubPrivate Sub p(i)i = i + 1: Print i; j; k,End SubPrivate Sub q(ByVal h, j)i = jIf h = 0 ThenCall p(j)ElseIf h = 1 Then Call p(i) Else j = j + 1End IfEnd Sub二、程序设计题1、编写一个求3个数中最大值Max和最小值Min的过程，然后用这个过程分别求3个数、5个数、7个数中最大值和最小值。

2、编写程序，求S=A!+B!+C!，阶乘的计算分别用Sub过程和Function过程两种方法来实现。

3、编写一个过程，以整型数作为形参，当该形参为奇数时输出False，而该形参为偶数时输出True。

4、设a为一整数，如果能使a2=x*a，则称a为“守形数”。

例如52＝25，252＝625，则5和65是守形数，编写一个Function过程，其形参为一个正整数，判断其是否为守形数，然后用该过程查找1－1000内的守形数。

5、编写一个过程，用来计算并输出S=1+1/2+1/3+…＋1/100的值。

1、窗体上一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮（如图所示）。

程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。

2、窗体中有一个组合框和一个命令按钮（如图所示）。

程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目，如果没有此项，则把此项添加到列表中；如果有此项，则弹出提示：“已有此项”，然后清除输入的内容。

3、在名称为Form1的窗体上建立一上名称为HS1，Min属性为0，Max属性为100的水平滚动条和一个名称为Cmd1，标题为“显示”的命令按钮，编写适当的事件过程。

要求程序运行后，把滚动框移动到某个位置，此时如果单击“显示”命令按钮，则在窗体上显示滚动框当前所在位置的值。