计算机程序设计

计算机程序设计

上载作业：第二章:窗体和基本控件

作业信息

名称第二章:窗体和基本控件

说明习题2.1

在窗体上画一个命令按钮，然后通过属性窗口设置下列属性：

Caption:这是命令按钮

Font:宋体粗体三号

Visible:False

Style:1-Graphical

习题2.2

在窗体的左上部画两个命令按钮和两个文本框，然后选择这4个控件，并把它们移到

窗体的右下部。

习题2.3

在窗体的任意位置画一个文本框，然后在属性窗口中设置下列属性：

Left:1600

Top:2400

Height:1000

Width:2000

习题2.4

在窗体上画一个文本框和两个命令按钮，当单击第一个命令按钮时，文本框消失；当

单击第二个命令按钮时，文本框重新出现，并在文本框中显示“VB程序设计”，字体

大约为16。

习题2.5

在窗体上建立三个文本框和一个命令按钮。程序运行后，单击命令按钮，在第一个文

本框中显示由Command1_Click事件过程设定的内容（例如“Microsoft Visual

Basic”），同时在第二、第三个文本框中分别用小写字母和大写字母显示第一个文

本框中的内容。

习题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 5

2 3 4 5 1

3 4 5 1 2

4 5 1 2 3

5 1 2 3 4

Private Sub Form_Click()

Dim a(5, 5) As Byte, i As Byte, j As Byte

For i = 1 To 5

For j = 1 To 6 - i

a(i, j) = ⑴

Next j, i

For i = 2 To 5

For j =⑵To 5

a(i,j) = j + i - 6

Next j, i

For i = 1 To 5

For j = 1 To 5

Print a(i,j);

Next j

⑶

Next i

End Sub

２、【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

Private Sub Form_Click()

Dim a(30) As byte, i as Byte, j As Byte, m As Byte

For i = 1 To 30: a(i) = ⑴: Next i

For i = 1 To 29

For j = ⑵

If a(i) > a(j) Then

m = a(i): ⑶:a(j) = m

End If

Next j,i

For i = 1 To 30

If ⑷Then Print a(i);

Next i

End 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的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。