1、金陵科技学院VB期末考试题目1金陵科技学院2012-2013年第一学期Visual Basic期末考试范围（题目及答案） M12机械设计制造及其自动化(专转本)丁世斌 整理于2012/12/27二填空题。1设计界面时，要使一个文本框具有水平和垂直滚动条，应先将其_multiline_属性置为True，再将ScrollBar属性设置为3。 2运行程序后，要对文本框中的内容进行编辑，但按下键盘不起作用，原因是没有设置_ Enabled 属性为True。3关于SetFocus与GotFocus，其中SetFocus是方法，GotFocus是_事件_ 。 4Print方法可在_窗体_、_图片框_和_打
2、印机_上输出数据。5在窗体上按顺序拖放了3个控件Text1、Label1、Command1，运行程序，焦点定位在_Text1_控件上。若要使程序一运行焦点就定位在Command1控件上，应对Command1控件设置_Tabstop_属性的值为_0_。6运行下列程序，输出结果为 2 1.5 。Private Sub Form_Click()Dim x As Integer, y As Singlex = 1.5: y = 3.5If x 0 Then y = y - xElseIf y 0.5 Then x = yElseIf x 3.5 Then y = y * xEnd IfPrint x,
3、 yEnd Sub7执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是 16 。Private Sub Command1_Click() Dim x As Integer, y As Integer, s As Integer x = InputBox(请输入x的值) y = InputBox(请输入y的值) s = x If x y Then s = y s = s * s Print sEnd Sub8以下循环进行了 10 次。Private Sub Form_Click()n = 10Do While n = 1 n = n - 1LoopEnd Sub9. 执行下面程序，单击
4、Command1，则窗体上显示的第一行是 9 12 ，第三行是 3 -3 ，最后一行是 0 -6 。Option ExplicitPrivate Sub Command1Click() Dim x As Integer,y As Integer X=12:y=0 Do While x0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub10运行下列程序，单击窗体后，窗体上显示的结果为 8 13 18 。Private Sub Form_Click() Dim x As Integer, y As Integ
5、er x = 5: y = 3 Do While x + y 14 Then Exit DoLoopEnd Sub11执行下列程序，点击Command1后，A(2)的值是 1 、A(7)的值是 0 。程序中第二个循环被执行了 4 次。Option ExplicitOption Base 1Private Sub Commandl_Click() Dim A(10)As Integer Dim i As Integer，K As Integer For i=l To 10 A(i)=1 Next I K=1 For K=1 To 10 Step K A(K)=0 K=K+2 Next K End
6、 Sub12执行下列程序，点击Command1后，窗体上的显示结果为 1 2 3 4 。Option Base 1Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub13.运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是 0 : 1 ，第三行是 2 : 3 ，第五行是 4 : 1 。Private Sub Form_Click() Dim s As String, i
7、As Integer,n(9) As Integer Dim s1 As String*1,j As Integer s=Trim(12345a307291b233) For i=1 To Len(s) s1=Mid(s,i,1) If s1=0 And s1n And j=n then i1 Else If in Then ii-2: jj-1 Else If i=n And j=n And a(i,j)0 Then ii-2: jj-1 End If a（i，j）k Next k For i1 To n For j=1 To n Pic1.Print Right(“ ”&Str(a(i,j
8、),3); Next j Pic1.Print Next iEnd Sub16.执行下面程序，单击Command1后，ch(1)的值是 MEET ，ch(3)的值是 AFTER 。 Option ExplicitPrivate Sub Command1_Click() Dim s As String, k As Integer, ch() As String Dim p As String, i As Integer s = UCase(Meet me after the class.) For i = 1 To Len(s) If Mid(s, i, 1) = A Then p = p &
9、Mid(s, i, 1) ElseIf p Then k = k + 1 ReDim Preserve ch(k) ch(k) = p p = End If Next i For i = 1 To UBound(ch) Print ch(i) Next iEnd If17. 下面过程运行后显示的结果为 7 。Private Sub Command1_Click() Dim x As String,Lx as String,Rx As String x = 125 Lx= Left(x, 2) Rx= Right(x, 1) Print f1(Lx,Rx)End SubPrivate Funct
10、ion f1(a As String, b As String) as Integer Dim m As Integer, n As Integer n = Len(a) For i = 1 To n m = m + val(Mid(a, i, 1) * val(b) (n - i) Next i f1 = mEnd Function传值传地址18.下面过程运行后显示的结果为 2 34 。Private Sub Command1_Click() Dim x As Integer, y As Integer x = 12 y = 34 Call F1(x, y) Print x, yEnd Su
11、bPrivate Sub F1(n As Integer, ByVal m As Integer) n = n Mod 10 m = m 10End Sub19.运行下面的程序，单击Command1,在窗体上显示的变量a的值为 30 ，变量b的值为 30 ,变量c的值为 15 。Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End SubPrivate
12、 Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+yEnd Function20.执行下面程序，单击Command1,窗体上显示的第一行是 3 6 ,第二行是 4 7 第四行是 5 8 11 。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a=2:b=5 For i=a To a*b Step a Call sub1(i,a,b) P
13、rint a,b Next i Print a,b,i End Sub Private Sub sub1(i As Integer, a As Integer, b As Integer) i=i+1 a=a+1 b=b+1 End Sub作用域21. 运行下面的程序，单击Command1后单击Command2，在窗体上显示的变量A的值为 10 ，变量B的值为 0 。Dim A As Integer, B As IntegerPrivate Sub Command1_Click() Dim B As Integer A = 10 B = 10End SubPrivate Sub Command
14、2_Click() Print A, BEnd Sub22.运行下面的程序，单击Command1，在窗体上显示的变量A的值为 19 ，变量B的值为 68 。Option ExplicitDim A As IntegerPrivate Sub Command1_Click()Dim B As IntegerB = 3A = 4B = Fun(Fun(A, B + 2), A) + BPrint A, BEnd SubPrivate Function Fun(N As Integer, K As Integer)N = N + AK = N - KFun = N + K + AEnd Functi
15、on静态变量(数组)23. 执行下面的程序，连续三次单击命令按钮Command1之后，窗体上显示第一行为 1 2 1 2 ，第三行为 1 2 3 6 。Private Sub Command1_Click() Dim a As Integer, b As String Static c As Integer, d As String a = a + 1 b = b & VB c = c + 1 d = d & VB Print a, Len(b), c, Len(d)End Sub24.执行下面的程序，连续三次单击命令按钮Command1之后，A数组共有 6 个元素；数组元素A(2)的值 5
16、，A(4)的值是 17 。Option Explicit Option Base 1 Private Sub Command1_Click() Static A( ) As Integer,n As Integer Dim i As Integer,k As Integer k=n n=n + 2 ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 Next i For i=1 To n Print A(i); Next i Print End Sub递归25.执行下面的程序，单击Command1,窗体上显示的第一行是 2 3 ，第二行是 5 8 ,第四
17、行是 34 55 。Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End SubPrivate Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a10 Then a=a+b b=b+a Else Call sub1(a, b) End If End Sub26.执行下面程序，单击Command1，窗体上显示的第一行是 1 2 3 4 5
18、 ，第二行是 1 2 3 ，第四行是 OVER ，最后一行是 5 。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print nEnd SubPrivate Sub test(ByVal n As Integer) Dim i As Integer, s As Integer If n 0 Then For i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print OVER End IfEnd Sub
19、27执行下面程序，当单击窗体时，i的内容是 5 ，a的内容是 0101 。Private Sub Form_Click() Dim a as string,b as string,i as integer a=1010 b=1111 for i=1 to len(b) if mid(a,i,1)=mid(b,i,1) then mid(a,i,1)=0 else mid(a,i,1)=1 end if next i print i,a End Sub28 执行下列程序，第一行显示 DDEF ，第三行显示 FEDDEF 。Private Sub cmd1_Click() Dim ch As St
20、ring, i As Integer ch = DEF For i = 1 To Len(ch) ch = Mid(ch, 2 * i - 1, 1) & Left(ch, Len(ch) Print ch Next iEnd Sub29运行下面程序，单击CmdRun，在窗体上显示a的值是 5 ；b的值 14 ；i的值是 13 。Option ExplicitPrivate Sub CmdRun_Click() Dim i As Integer, a As Integer, b As Integer a = 1: b = 10 For i = a To b Step a + 1 a = a +
21、 1 b = b + 1 i = i + 1 Next i Print a, b, iEnd Sub30执行下面程序，当单击窗体时，显示在窗体上第一行的内容是 200 ，第二行的内容是 10 。 Private Sub Form_Click() Dim I As Integer,Sum As Integer For I=0.5 To 8.5 Step 2.5 Sum=Sum+I*10 Next I Print Sum print IEnd Sub31 执行下面程序，当单击窗体时，显示在窗体上第一行的内容是 0 1 2 ，第二行的内容是 1 0 1 ，第三行的内容是 2 1 0 。Private
22、 Sub Form_Click()Dim i As Integer, j As IntegerFor i = 1 To 3 For j = 1 To 3 If i j Then Print i - j; Else Print j - i; End If Next j PrintNext iEnd Sub32 执行下面程序，单击Command1，则窗体上显示的第一行是 9 12 ,第三行是 3 -3 ，最后一行是 0 -6 。Option ExplicitPrivate Sub Command1Click() Dim x As Integer,y As Integer x=12:y=0 Do W
23、hile x 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub33.执行下列程序，运行后a的值为 6 ，b的值为 55 。Private Sub cmd1_Click() Dim a As Integer, b As Integer a = 1: b = 0 Do While a 9 k=k+1 If i+13 And j+1=3 Then i=1:j=j+1 ElseIf i+13 Then i=i+1:j=1 Elself i+13 And j+13 Then i=i-1 ElseIf i+1=3
24、 And j+1=3 And A(i+1,j+1)0 Then i=i-1 Else i=i+1:j=j+1 End If A(i,j)=k Loop For i=1 To 3 For j=1 To 3 Picture1.Print A(i,j); Next j Picture1.Print Next iEnd Sub36 执行下面的程序,单击Command1,则数组元素a(1,2)的数值是_15_，数组元素a(2,3)的数值是_9_，数组元素a(4,3)的数值是_2_。Option ExplicitPrivate Sub Command1_Click() Dim a(4, 4) As Int
25、eger, i As Integer Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do For i = 1 To 4 For j = 1 To 4 If i + j = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1 Loop Until k 8 For i = 1 To 4 For j = 1 To 4 Print Right( & a(i, j), 3); Next j Print Next iEnd Sub37执行下列的程序，单击Command1，在窗体上显示的变量b的值为_-1_，变量c的值为_1_，变量z的值为_4_。Private Sub Co
