VB辅导前半部分(测试题).ppt

1、程序理解题,1 A、rnd*99 B、10+rnd*90 C、rnd*100 D、int(rnd*100) 2 A、i B、n-1 C、i-1 D、n 3 A、break B、exit sub C、j=j-1 D、exit for 4 A、ji B、ja(i) D、ji,测试题：（05年秋）下列过程的功能是为形参a所对应的n个元素的实参数组送数；第一个元素赋值n，其他元素为2位随机整数，要求这n个数各不相同（多次考）。,答案：BADA,请写出连续两次单击后的结果,答案：6 4 6 4 48 36 42 36,Dim y As Integer Private Sub Command1_Click

2、() Dim x As Integer x = 2 Text1.Text = func1(func2( func1(x), y ) Print X=; x; Y=; y End Sub Private Function func1(x As Integer) As Integer x = x + y y = x + y func1 = x + y End Function Private Function func2(x As Integer, y As Integer) As Integer func2 = 2 * x + y End Function,执行func1(2)，此时y=0： 得

3、到func1(2)=4，实参x=2，通用变y=2,*综合例题1：写出程序首次运行后文本框的结果：,执行func2(4，2)，此时y=2，x=2 得到func2(4，2) 10，y2,x=2,执行func1(10)，此时y=2，x=2 得到func1(10)=26，y14,x=2 参数是表达式强制按值传递,综合例题2（培训教材P57（15题D，16题C），关于静态变量）,Dim x As Integer Private static Sub Form_Click() Dim y As Integer,z as integer call init(y,z) call op(x,y,z) print

4、 x,y,z End Sub Private sub init (a As Integer,b as integer) a=a+1 b=b+2 x=a+b End sub Private sub op (byval u As Integer,v as integer,w as integer) u=u+1 v=u+v w=u+v+w End sub,2005秋： Private Sub f (a() As Single, n As Integer) Dim i As Integer, j As Integer, k As Integer, t As Integer For i = 1 To n

5、 - 1 k = i For j = i + 1 To n If Abs(a(j) Abs(a(k) Then k = j Next j t = a(k): a(k) = a(i): a(i) = t Next i End Sub Private Sub Command1_Click() Dim x(5) As Single x(1) = 5: x(2) = -7: x(3) = 5: x(4) = 12: x(5) = -3 Call f(x, 5) Print x(1); x(2); x(3); x(4); x(5) End Sub,1）输入13，2 2）输入27，8 3）输入-14，2

6、4）输入123，16,09秋12分,Private Function f(ByVal a As Integer, ByVal b As Integer) As Integer Dim r As Integer r = a Mod b Do While r 0 a = b: b = r: r = a Mod b Loop f = b End Function Private Sub Command1_Click() Dim m As Integer, n As Integer m = InputBox(m=) n = InputBox(n=) Form1.Cls Print f(m, n); m

7、; n End Sub,求最大公约数,08秋12分,Private Sub Command1_Click() Dim a As Integer, b As Integer, x As Long, i As Integer On Error GoTo qq a = InputBox(a=): b = InputBox(b=) x = a While Not (a Mod x = 0 And b Mod x = 0) x = x - 1 Wend Print x Exit Sub qq: MsgBox (重新输入) Exit Sub End Sub,2007年秋(求最小公倍数),Private F

8、unction f(a As Integer, b As Integer) As Integer Dim r As Integer, t As Integer f = a Do While f Mod b 0 f = f + a Loop End Function Private Sub Command1_Click() Static k As Integer Dim m As Integer, n As Integer m = InputBox(m=) n = InputBox(n=) k = k + 1 Form1.Cls Print f(m, n) End Sub,08秋运算结果12分

9、Private Function f(x() As Integer, m As Integer) As Boolean Dim i As Integer, j As Integer For i = 1 To m If x(i) 60 Then Exit For Next i If i = m Then f = True Else f = False If f Then For j = i To m - 1: x(j) = x(j + 1): Next j m = m - 1 End If End Function Private Sub Command1_Click() Dim i As In

10、teger, n As Integer, a(8) As Integer a(1) = 76: a(2) = 56: a(3) = 87: a(4) = 43: a(5) = 46: a(6) = 94: a(7) = 52: a(8) = 88 n = 8 While f(a, n) For i = 1 To n: Print a(i);: Next i Print Wend End Sub,Private Sub f(s As String) Dim i As Integer, n As Integer, c As String n = Len(s) If n Mod 2 = 1 Then

11、 c = Mid(s, n 2 + 1, 1) For i = 1 To Len(s) 2 c = Mid(s, Len(s) + 1 - i, 1) + c + Mid(s, i, 1) Next i s = c End Sub Private Sub Command1_Click() Dim x As String x = InputBox(x=) Call f(x) Print x End Sub 单击Command1后输入“abc”，窗体将显示结果： 。 单击Command1后输入“abcd”，窗体将显示结果： 。,测试题2006秋,1）运行输入2？ 2）运行输入3？ 3）运行输入4？

12、,Private Sub Form_Click() Dim n As Integer, i As Integer, j As Integer, k As Integer Do n = InputBox(n=) Loop Until n 0 And n 10 k = 10 j = 1 For i = 1 To n Print Spc(k); String(j, Trim(Str(i) If i = n / 2 Then k = k - 1: j = j + 2 Else k = k + 1: j = j - 2 End If Next i End Sub,求质因子,Private Sub Com

13、mand1_Click() Dim K As Integer, i As Integer K = InputBox() k=6 i = 2 Do While K 1 If （1） Then Print i; （2） Else i = i + 1 End If loop Print End Sub 1）07春，单击窗体后输入一个不小于6的正整数，然后输出该数所有的质数因子（如6-2，3；60-2，2，3，5） 2）-书100页求质数因子 3）写成过程！（调试题P11）？,测试题2007秋,三次单击并分别输入7，8，9，则f，m的值是？,Dim m As Integer Private Sub C

14、ommand1_Click() Dim a As Integer, i As Integer, f As Integer a = InputBox(a=) f = 1: i = 2 While i = a / 2 If a Mod i = 0 Then f = f + i i = i + 1 m = m + 1 Wend Cls Print f, m End Sub,设计题举例,1、（05春，06秋,09秋）单击窗体后，用输入对话框输入x、n，按下式计算结果。要求：将计算结果以标签控件显示。,1 A、t=-1 B、t=0 C、t=2 D、t=1 2 A、2 to n+1 B、1 to n C、

15、2 to n D、1 to n+1,05秋,用近似公式求自然对数的底数e的值，要求计算结果的误差小于10-9,1 A、t as single B、t as byte C、t as integer D、t as double 2 A、s=2 B、s=1 C、s=0 D、s=i+1 3 A、t=1d-9 C、t=1e-9 D、t0.000000001 A、s=s+t B、s=s+i C、s=t/i D、s=s+t/I,答案:DBCA,从键盘输入a,b,c三条边的值，判断它是否能构成三角形，若能构成三角形，则计算三角形面积否则给出提示信息。(设 p = (a + b + c)/2, s =sqr(

16、p (p-a) (p-b) (p-c) ) 编程计算下列分段函数：,程序设计题,分别统计输入的文本框中字母、数字和其他字符的个数（if）。文本框中一一取出,判 断是字母、数字、其它 08秋,输入英文,统计文本框中的单词数,Private Sub Command1_Click() Dim n As Integer, i As Integer, isalpha As Boolean n = Len(Text1.Text) (1) For i = 1 To n: s(i) = Mid(Text1.Text, i, 1): Next isalpha = False 做是否字母的标记 For i = 1

17、 To n If UCase(s(i) = A And UCase(s(i) = Z Then If (2) Then Sum = Sum + 1 isalpha = True End If Else (3) End If Next i Print Sum this_one End If -3- Loop While this_one 1E+8 End Sub,Modify.Bas模块中的Fabonia过程是对以下数列进行运算： 有一个数列它的前三个数是0，1，2，从第四个数起，每个数都是它前面的两个数之和， 求出该数列的第17个数多少？并求出该数列从第几个数起每个数都超过1E+8的,09秋(

18、K值,字符串等,动态数组,有界式) Private Sub Text1_KeyPress(K As Integer) If K 13 Then Exit Sub n = Text1.Text If n 1 Then MsgBox (输入有误，n应大于0): Exit Sub Command1.Enabled = True End Sub Private Sub Command1_Click() Dim i As Integer ReDim f(n) As Long f(1) = 1: f(2) = 1 For i = 3 To n f(i) = f(i - 1) + f(i - 2) Next

19、 MsgBox (第 & n & 项值为 & f(n) End Sub,06春,用InputBox函数输入100个学生的成绩，统计后显示优秀（85100）、通过（6084）和未通过（小于60）的人数。 08春，编程，按Command1可输入有10个实数的数组，调用函数f求他们的平均值v，然后输出其中与v之差的绝对值为最小的哪个数组元素。,程序设计题,求S=1+(1+2)+(1+2+3)+(1+2+3+n)，n从键盘输入。 如何用函数来实现类似运算？,测试题2006春,2006春：输入n后，再输入n个数a1，a2，an，按照下列公式计算s的值并显示。（程序填空12分）,Private Funct

20、ion f(x() As Single, n As Integer) As Single Dim i As Integer For i = 1 To n f = f + x(i) Next i End Function Private Sub Command1_Click() Dim n As Integer, a() As Single, i As Integer Dim v As Single, s As Single n = InputBox(n=): ReDim a(n) For i = 1 To n a(i) = InputBox(“？) Next i v = f(a, n) / n For i = 1 To n s = s + (a(i) - v) 2