VB考试练习题上机操作

第一部分

1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作:

①随机产生20个0到1000的整数,将其放入一个一维数组中

②求出所有元素的平均值,并显示在窗体上(如下图所示)

2 请在名称为Form1的窗体上添加一个名称为Text1的文本框与一个名称为C1、标题为"转换"的命令按钮,如下图所示。在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其她字符不变。

3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作:

①随机产生30个0～1000的整数,将其放入一个一维数组中

②求出其中的最大值,并显示在窗体上。

4 请设计如下图所示窗体界面。程序运行时,在选中一个或两个复选框与一个单选按钮时,单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。

5 在名称为Form1的窗体上添加一个名称为Text1的文本框;添加两个标题分别为"对齐方式"、"字体",名称分别为Fm1、Fm2的框架;在Fm1框架中添加三个单选按钮,标题分别为"左对齐"、"居中"、"右对齐",名称分别为Opt1、Opt2、Opt3;在Fm2框架中添加两个单选按钮,标题分别为"宋体"、"黑体",名称分别为Opt4、Opt5。

要求:编写五个单选按钮的Click事件过程,使程序运行时,单击这些单选按钮,可以对文本框中的内容实现相应的操作(如图所示)。

6 请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。请编写程序完成上述功能。

7 在窗体上添加两个文本框与三个标签,设置它们的属性,达到下图效果。程序运行时,在第一个文本框输入一串字符,在第二个文本框中输入一个字符,然后单击"统计"命令按钮,统计第二个文本框中字符(大小写被认为就是不同的字母)在第一个文本框中出现的次数,统计结果在标签Label3中显示。

8 在窗体上添加一个文本框与一个命令按钮。程序运行后,单击命令按钮,即可计算出0～200范围内能被3或7整除的所有整数的与,并显示在文本框中。程序运行界面如下图所示。

9 请设计如下图所示界面(文本框名称为:Txt1,按钮名称为:Cmd1)。程序运行时在文本框中输入字符串,点击命令按钮,判断文本框中的字符串就是否就是回文,将判断结果显示在窗体上。所谓回文就是指字符串正序与逆序的结果相同,如“aBCCBa ”就是回文,“aBCcBa ”不就是回文。

10 编程实现求!n 1......3121!11++++=！！Sum (n 为小于等于20的整数)。程序运行界面如下图所示。程序运行时,在文本框中输入n 的值,点击“计算”命令按钮,将计算结果显示在标签上。

第二部分

1 已知在同一个笼子里有总数M只鸡与兔,鸡与兔的总脚数为N只,编程求出鸡与兔各有多少只。要求:程序运行后,在两个文本框中分别输入M与N的值,单击“计算”命令按钮,在两个标签框中分别输出鸡与兔的数量。程序运行界面如下图。提示:N≥2×M的偶数。

2 若一个3位正整数中各位数字的立方与等于该数字本身,则该数称之为“水仙花数”。例如153就是水仙花数,因为15

3 = 1*1*1 + 5*5*5 + 3*3*3。编程求出100～999之间所有的“水仙花数”。要求:程序运行后,单击“查找”按钮,在窗体上显示找到的“水仙花数”。程序运行界面如下图。

3 编写程序,要求程序运行后,单击“开始”按钮,随机产生20个学生的成绩(0～100的整数),并在左边图片框中输出 (一行5个成绩),并在右边图片框中输出平均分与及格的人数,程序运行界面如下图。

4 编写程序实现:程序运行时,单击窗体则显示如下图所示的图案。

5 编程实现:在窗体中有一个文本框,一个计时器与两个命令按钮。其功能就是:程序的运行时,单击“开始计数”按钮,就开始计数,每间隔1秒,文本框中的数增加1;单击“停止计数”按钮,则计数停止。

6 以下程序运行界面如下图所示。其功能如下:

1) 单击"读数据"按钮(Command1),可将随机产生100个三位正整数存到数组a中;

2) 单击"计算"按钮(Command2),则根据从组合框Combo1中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Text1中。

题目提供的程序代码不完整,请设计下图界面并录入代码,将程序中的? 改为正确的内容。注意:

不能修改程序的其她部分。

题目提供的程序代码:

Dim a(100) As Integer

Private Sub Command1 Click()

Dim n As Integer

For n = 1 To 100

a(n)=Int(Rnd * ? )

Next n

End Sub

Private Sub Command2 Click()

Dim x& ,y& , z& ,i% , j% , k%

For i = 1 To 100

If a(i) Mod ? Then

x = x + a(i): j = j + 1

Else

y = y + a(i)

?

End If

Next k

x = Int(x / j + 0、5):y = Int(y / k + 0、5)

z = Int((x + y) / (j + k) + 0、5)

Select Case Combo1、Text

Case "所有偶数"

Text1 = ?

Case "所有奇数"

Text1 = ?

Case "所有数"

Text1 = ?

End Select

End Sub