vb编程真题考试样本.docVIP

vb编程真题考试样本 2.编程:输入若干个数，当输入负数是程序结束，并输出所有输入的数及其中最大的数和最小的数。要求：结果在文本框中借助滚动条显示。 3.编程：求输入一个整数的各位数字之和。 要求：输出每一位上的数及和 4.编程计算： s=1/(1*2)+1/(2*3)+1/(3*4)+....+1/n*(n+1) 要求：N自己确定。 5.编程计算：s=1+2^2+3^3+....+n^n; n由自己给定。 6..编程：输入字符串，如：“Visual basic统计字母a出现的次数。要求：将字符串原样显示出来。 7.编程：任给一自然数，试求其反序数。即原数从高位到低位，把各数字改为反序的从低位到高位数字构成的数。如:19578的反序数为87591 8.编程：输入任一个15位以内的正整数，输出组成此数的所有位上的数字之和。如数： 135792468，则其各位上的数字之和为45。 9.编程计算：s=1*2*3+4*5*6+7*8*9+......+28*29*30 10、编程计算： s=2*4*6+8*10*12+14*16*18+....+26*28*30 11、编程：找出能被3整除且至少有一位是5的两位数，显示出所有这样的数及基个数。 12、编程：任给一组数，求其中最大数和最小数之差。 13、编程：一辆以固定速度行驶的汽车，清晨司机看见里程表上从左到右的读数和从右到左的读数是一样的，这个数是95859，7小时后，里程表上有出现一个新的对称数，问此车的时速是多少？这个新的对称数是什么？设里程表为5位数字。 14、随机产生20个互不相等的两位数，要求按从大到小的顺序排序以后，每行输出5个在图片框上 15、编程输出下列的矩阵 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 16、编程：产生25个[100，200]之间的随机数。 要求1、25个随机数都是5的倍数； 要求2、每行输出5个在文本框中。 17、编程：有一个5*6的二维数组,随机取得元素的值,求全部元素的平均值.并把高于平均值的元素的值与它们的位置显示出来. 18、有一数组，存放随机产生的10个互不相同的三位正整数，单击删除按钮在弹出的对话框中输入一个数，如果该数在数组中，将该数删除，删除后，其后面的数据向前递补。如果不在数组中，显示“查无此数！”。下面程序有错误，请修改正确。注意：不得破坏程序的结构；不得增加或删除行。 19、编写程序实现：通过输入对话框输入四个数，找出其中的最大值和最小值，结果在信息对话框中输出。 20、 编写程序实现：若基本工资大于等于600元，增加工资20%，若小于600元大于等于400元，增加工资15%，若小于400元，增加工资10%。请根据用户输入的基本工资，计算增加后的工资。 编程题答案 第一题 Private Sub Form_Load() Show Dim x As Single, y As Single x = Val(InputBox(输入数据, 输入框, 0)) y = Val(InputBox(输入数据, 输入框, 0)) If x * y = 0 Then a = Str((x + y) / 2): b = Str((x * y) ^ (1 / 2)) Print x和y算术平均数是： a, x和y的几何平均是 b Else MsgBox 输入的数异号 Unload Me End If End Sub 第二题 Private Sub Form_Click() Dim x As Single x = Val(InputBox(请输入分数)) Max = x: Min = x: n = 1 Do While x 0 If n Mod 5 = 0 Then Text1.Text = Text1.Text x vbCrLf Else Text1.Text = Text1.Text x End If If x Max Then Max = x If x Min Then Min = x x = Val(InputBox(请输入分数)) Loop Text1.Text = Text1.Text vbCrLf 最大值是 Max 最小值是 Min End Sub 第三题 Private Sub Form_Click() Dim x As Single x = Text1.Text For i