VB辅导前半部分(测试题)学习课件.pptVIP

程序理解题 测试题：（05年秋）下列过程的功能是为形参a所对应的n个元素的实参数组送数；第一个元素赋值n，其他元素为2位随机整数，要求这n个数各不相同（多次考）。 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、j=i C、xa(i) D、ji 请写出连续两次单击后的结果 *综合例题1：写出程序首次运行后文本框的结果： Dim y As Integer Private Sub Command1_Click() 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 综合例题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 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 - 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 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; 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 Su