vb编程题及答案

编程题

（一）

1、打开考生文件夹下的工程文件Qss.vbp，添加适当的事件代码，实现以下功能： 在Text1文本框中输入自然数N的值，单击按钮，在Label2中显示N的值是否为素数（用Yes的No表示）

2、 打开考生文件夹下的工程文件Chast.vbp, 添加适当的事件代码，实现以下功能： 在Text1中输入一个字母。单击按钮，将统计出paper In.txt文件中该字母出现的次数（忽略大小写），并将出现次数保存到考生文件夹下的PaperOut.txt文件中。

注：统计次数时可以调用题目提供的CountChar()函数。该函数以字母为参数，返回该字母在paper In.txt文件中出现的次数。

（二）

1、 打开考生文件夹下的工程文件Strconv.vbp，添加适当的事件代码，实现以下功能：

在Text1中输入一个字符串，单击按钮，Text2将Text1中的字符串反转显示。 2、 打开考生文件夹下的工程文件Xh.vbp，添加适当的事件代码，实现以下功能：单击

按钮，以按行读的方式在文本框Text1中显示考生文件夹下Bdata.txt文件的内容。

注：设计题与模拟题1相同。

（三）

1、打开考生文件夹下的工程文件Sum.vbp，添加适当

三、VB窗体设计 第1题 （10.0分）

--------------------------------------------------------------------- 【窗体设计】

--------------------------------------------------------------------- 题目：请按照题目要求设计指定的窗体。

---------------------------------------------------------------------

在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为＇计算机等级考试＇， 字体为宋体，字号为12，且能根据标题内容自动调整标签的大小。再画2个名称分别

为Command1、Command2，标题分别为＇缩小＇和＇还原＇的命令按钮。运行效果如图所示。 要求：

(1)编写适当的事件过程，使得单击＇缩小＇按钮，Label1中所显示的标题内容自动减小2个字号；

(2)单击＇还原＇按钮，Label1中所显示的标题内容的大小自动恢复到12号。 注意：每个事件只能写1行代码

第2题 （15.0分）

----------------

编程题

1、 在窗体上建立2个文本框（Name属性值分别为Text1和Text2）和2个命令按钮（Name属性分别为Command1和Command2）,程序运行时，在Text1中输入文本，单击Commadn1命令按钮时，将Text1文本框中的值复制到Text2文本框中；当单击Command2命令按钮时，退出程序。

2、 已知自由落体的位移公式为：s=1/2gt2+v0t,其中v0为初始速度，go为重力加速度，t为经历的时间，编写一程序，求位移量s。用2个磨灭框分别输入初始速度和经历的时间，单击一个命令按钮时，进行计算，并将运算结果在另一文本框显示。

3、 输入球体的半径，然后计算并输出球体的体积和表面积。已知：球体的体积计算公工为：v=4/3πr3，球的表面积公式为：f=4πr2，此处的R为还球体的半径。要求：程序用一个文本框输入半径r，单击一个命令按钮时，进行计算，并将运算结果即球的体积和表面积分别用2个文本框显示出来。

4、 编写一个将摄氏温度转换成华氏温度的程序，要求：摄氏温度通过输入对话框来输入，结果在窗体上显示，已知：由摄氏温度求华氏温度的计算公式为：9/5F=9/5×C+32，其中：C为摄氏温度，F为华摄温度。

5、 从键盘输入

编程题

1、 在窗体上建立2个文本框（Name属性值分别为Text1和Text2）和2个命令按钮（Name属性分别为Command1和Command2）,程序运行时，在Text1中输入文本，单击Commadn1命令按钮时，将Text1文本框中的值复制到Text2文本框中；当单击Command2命令按钮时，退出程序。

2、 已知自由落体的位移公式为：s=1/2gt2+v0t,其中v0为初始速度，go为重力加速度，t为经历的时间，编写一程序，求位移量s。用2个磨灭框分别输入初始速度和经历的时间，单击一个命令按钮时，进行计算，并将运算结果在另一文本框显示。

3、 输入球体的半径，然后计算并输出球体的体积和表面积。已知：球体的体积计算公工为：v=4/3πr3，球的表面积公式为：f=4πr2，此处的R为还球体的半径。要求：程序用一个文本框输入半径r，单击一个命令按钮时，进行计算，并将运算结果即球的体积和表面积分别用2个文本框显示出来。

4、 编写一个将摄氏温度转换成华氏温度的程序，要求：摄氏温度通过输入对话框来输入，结果在窗体上显示，已知：由摄氏温度求华氏温度的计算公式为：9/5F=9/5×C+32，其中：C为摄氏温度，F为华摄温度。

5、 从键盘输入

编程题

1、 在窗体上建立2个文本框（Name属性值分别为Text1和Text2）和2个命令按钮（Name属性分别为Command1和Command2）,程序运行时，在Text1中输入文本，单击Commadn1命令按钮时，将Text1文本框中的值复制到Text2文本框中；当单击Command2命令按钮时，退出程序。

2、 已知自由落体的位移公式为：s=1/2gt2+v0t,其中v0为初始速度，go为重力加速度，t为经历的时间，编写一程序，求位移量s。用2个磨灭框分别输入初始速度和经历的时间，单击一个命令按钮时，进行计算，并将运算结果在另一文本框显示。

3、 输入球体的半径，然后计算并输出球体的体积和表面积。已知：球体的体积计算公工为：v=4/3πr3，球的表面积公式为：f=4πr2，此处的R为还球体的半径。要求：程序用一个文本框输入半径r，单击一个命令按钮时，进行计算，并将运算结果即球的体积和表面积分别用2个文本框显示出来。

4、 编写一个将摄氏温度转换成华氏温度的程序，要求：摄氏温度通过输入对话框来输入，结果在窗体上显示，已知：由摄氏温度求华氏温度的计算公式为：9/5F=9/5×C+32，其中：C为摄氏温度，F为华摄温度。

5、 从键盘输入

编程题

1、 在窗体上建立2个文本框（Name属性值分别为Text1和Text2）和2个命令按钮（Name属性分别为Command1和Command2）,程序运行时，在Text1中输入文本，单击Commadn1命令按钮时，将Text1文本框中的值复制到Text2文本框中；当单击Command2命令按钮时，退出程序。

2、 已知自由落体的位移公式为：s=1/2gt2+v0t,其中v0为初始速度，go为重力加速度，t为经历的时间，编写一程序，求位移量s。用2个磨灭框分别输入初始速度和经历的时间，单击一个命令按钮时，进行计算，并将运算结果在另一文本框显示。

3、 输入球体的半径，然后计算并输出球体的体积和表面积。已知：球体的体积计算公工为：v=4/3πr3，球的表面积公式为：f=4πr2，此处的R为还球体的半径。要求：程序用一个文本框输入半径r，单击一个命令按钮时，进行计算，并将运算结果即球的体积和表面积分别用2个文本框显示出来。

4、 编写一个将摄氏温度转换成华氏温度的程序，要求：摄氏温度通过输入对话框来输入，结果在窗体上显示，已知：由摄氏温度求华氏温度的计算公式为：9/5F=9/5×C+32，其中：C为摄氏温度，F为华摄温度。

5、 从键盘输入

实验教程

实验三 顺序结构程序设计编程题参考答案 （第47页）

1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。

2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。

3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。

实验四 选择结构程序设计编程题参考答案 （第58页） 1. 输入一个，判断其是否能同时被3和7整除。

2. 输入三个数，输出其中的最大值。

6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值

Y=

t2 t<1 t2-1 1≤t<2 t2-2t+1 2≤t<3 t2+4t-17 t≥3

7. 输入年龄，输出所处人群：9岁以下为儿童，输出A；10～19为少年，输出B；20～29为青年，输出B；30～49为中年，输出B； 50以上为老年，输出E；要求使用Select Case语句实现。

8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。 实验五 循环结构程序设计编程题参考答案 （第77页）

1. 编写

实验教程

实验三 顺序结构程序设计编程题参考答案 （第47页）

1. 输入学生的语文、数学、英语、物理四门课程的成绩，计算该学生的总成绩和平均成绩并输出。要求使用InputBox分别进行输入，使用Print 方法输出。

2. 输入圆的半径，输出其周长、面积。要求使用TextBox控件进行输入，使用Label控件输出。

3. 输入一元二次方程ax2+bx+c=0 的系数a、b、c，输出两个实根。要求使用TextBox控件分别进行输入，使用Label控件输出。

实验四 选择结构程序设计编程题参考答案 （第58页） 1. 输入一个，判断其是否能同时被3和7整除。

2. 输入三个数，输出其中的最大值。

6. 编程及输出分段函数的值。由键盘输入t的值，计算y的值

Y=

t2 t<1 t2-1 1≤t<2 t2-2t+1 2≤t<3 t2+4t-17 t≥3

7. 输入年龄，输出所处人群：9岁以下为儿童，输出A；10～19为少年，输出B；20～29为青年，输出B；30～49为中年，输出B； 50以上为老年，输出E；要求使用Select Case语句实现。

8. 输入年份，输出对应的属相。已知1984年为鼠年，要求使用Select Case语句实现。 实验五 循环结构程序设计编程题参考答案 （第77页）

1. 编写

一.选择结构

'-------------------------------------------------

'题目：编写函数fun，函数的功能是：根据一个百分制 ' 成绩mark（整数），显示对应五级制的评定。条件如下： ' mark大于等于90显示\优秀\

' mark小于90且大于等于80显示\良好\' mark小于80且大于等于70显示\中等\' mark小于70且大于等于60显示\及格\' mark小于60显示\不及格\' 要求使用IF语句来实现。

'-------------------------------------------------

Private Function fun(mark As Integer) As String

'**********Program********** If mark >= 90 Then fun = \优秀\

ElseIf mark >= 80 Then fun = \良好\

ElseIf mark >= 70 Then fun = \中等\

El

VB考试必备十道编程题VB考试必备的十道编程题

(1)计算 sum=1/1!+1/2!+1/3!+.......+1/10! Private Sub Command1_Click()

Dim m As Integer, n As Long, s As Double n = 1 s = 0

For m = 1 To 10 n = m * n s = s + 1 / n Next Print s End Sub

(2)求前n项和 s=1/!-1/2!+1/3!-1/4!+.........+(-1)^(n-1)*1/n!+.......当求和过程某项绝对值小于0.0001时结束（该项参与求和），输出s，保留6位小数。 Private Sub Command1_Click()

Dim m As Double, n As Long, s As Double, p As Integer s = 0: n = -1: m = 1: p = 1 Do While 1 / m >= 0.0001 m = m * p p = p + 1 n = -n

s = s + n / m Loop

s = Format(s, \Print s End Sub

（3）