vb编程真题考试样本.doc

vb编程真题考试样本1.编程：任给两个数x和y，若x和y非异号，则求其算术平均数与几何平均数。算术:(x+y)/2 几何:(x*y)(1/2) 要求：编写X与Y异号的信息对话框。2.编程:输入若干个数，当输入负数是程序结束，并输出所有输入的数及其中最大的数和最小的数。要求：结果在文本框中借助滚动条显示。3.编程：求输入一个整数的各位数字之和。 要求：输出每一位上的数及和4.编程计算： s=1/(1*2)+1/(2*3)+1/(3*4)+.+1/n*(n+1) 要求：N自己确定。5.编程计算：s=1+22+33+.+nn; n由自己给定。6.编程：输入字符串，如：“Visual basic统计字母a出现的次数。要求：将字符串原样显示出来。7.编程：任给一自然数，试求其反序数。即原数从高位到低位，把各数字改为反序的从低位到高位数字构成的数。如:19578的反序数为875918.编程：输入任一个15位以内的正整数，输出组成此数的所有位上的数字之和。如数： 135792468，则其各位上的数字之和为45。9.编程计算：s=1*2*3+4*5*6+7*8*9+.+28*29*3010、编程计算： s=2*4*6+8*10*12+14*16*18+.+26*28*3011、编程：找出能被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 416、编程：产生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()ShowDim x As Single, y As Singlex = 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 IfEnd Sub第二题Private Sub Form_Click()Dim x As Singlex = Val(InputBox(请输入分数)Max = x: Min = x: n = 1Do While x 0 If n Mod 5 = 0 Then Text1.Text = Text1.Text & x & vbCrLf Else Text1.Text = Text1.Text & x & End IfIf x Max Then Max = x If x Max Then Max = x If x Min Then Min = x Next i Print Max; Min Print 最大值和最小值的差是 & Max - MinEnd Sub第十三题Private Sub Form_Click()For a = 96 To 99d = a 10c = a - 10 * dFor b = 0 To 9m = a * 1000 + b * 100 + c * 10 + dn = m - 95859If n mod 7=0 Then Text1.Text = Text1.Text & v= & n / 7 & m & vbCrLf Next bNext aEnd Sub第十四题Private Sub Form_Load()仅是冒泡排序法ShowRandomizeDim a(1 To 20) As SingleFor i = 1 To 20a(i) = Int(Rnd * 90 + 10)Print a(i);Next iPrintFor i = 1 To 19 For j = 1 To 20 - i If a(j) 5 Then Print j - 5; Else Print j; Next j PrintNext iEnd Sub16、编程：产生25个100，200之间的随机数，要求：1、25个数都是5的倍数；2、每行输出5个在文本框中。Private Sub Form_Click()Dim a(25) As Integern = 1Do While n average Then Text1.Text = Text1.Text & a(i, j) & 所在行为 & i + 1 & 所在列为 & j + 1 & vbCrLf Next jNext iEnd Sub18题： 有一数组，存放随机产生的10个互不相同的三位正整数，单击删除按钮在弹出的对话框中输入一个数，如果该数在数组中，将该数删除，删除后，其后面的数据向前递补。如果不在数组中，显示“查无此数！”。下面程序有错误，请修改正确。注意：不得破坏程序的结构；不得增加或删除行。Dim a(10) As IntegerPrivate Sub Command1_Click(s As Integer)Select Case sCase 0 k = Val(InputBox(请输入要删除的数据, 删除, 请在此处输入！) For n = 1 To 10 If k = a(n) Then p = Format(在数组中已查到数： & k, ) & Format(所在的位置为：a( & n & ), ) MsgBox p & ，是否要删除？ For m = n To 9 a(m) = a(m + 1) Next Exit For End If Next p = If n 10 Then MsgBox Format(没有在数组中查到数： & k, ) For i = 1 To 10 p = p & Format(a(i), !) Next Else For i = 1 To 9 p = p & Format(a(i), !) Next End If Label2.Caption = p另一种方法：(十个互不相同的随机数)For i = 1 To 10 a(i) = Int(Rnd* 90 + 10) For j = 1 To i- 1 If a(i) =a(j) Then i = i -1 ExitFor EndIf NextjNext iCase 1 Form_LoadCase 2 Unload MeEnd SelectEnd SubPrivate Sub Form_Load()Randomizep = For i = 1 To 10 Do x = Int(Rnd * 1000) + 100 flag = 0 For