VB期末考试题库201101.doc

试卷编号：587 所属语言：Visual Basic 试卷方案：201101VB期末考试方案 试卷总分：420分 共有题型：5种 一、填空 共20题 第1题 题号:28 运行下列程序，单击Command1, 在窗体上显示的第一行内容是_____ icBa _【1】____, 第二行的内容是__ baicBa ___【2】____, 第三行的内容是_____【3】baba ______。 Option Explicit Private Sub Command1_Click() Dim s As String s=Basic Call trans(s) End Sub Private Sub trans(s As String) Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,a) t=LCase(Right(s,j)) s=Right(t,Len(s)-k) Left(s,Len(t)) k=k-1 Print s Loop Until k=0 End Sub 答案： =======(答案1)======= icBa =======(答案2)======= baicBa =======(答案3)======= baba 第2题 题号:18 执行下面程序，单击Command1，则窗体上显示的第一行是＿【1】9 12 ＿＿＿， 第三行是3 -3 ＿＿【2】＿＿，最后一行是0 -6 ＿＿【3】＿＿。 Option Explicit Private Sub Command1＿Click() Dim x As Integer,y As Integer x=12:y=0 Do While x 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y Loop End Sub 答案： =======(答案1)======= 9 12 =======(答案2)======= 3 -3 =======(答案3)======= 0 -6 第3题 题号:27 执行下面的程序，单击Command1,窗体上显示的第一行是_2 3 _____【1】_____， 第二行是___5 8 ___【2】____,第四行是__34 55 ____【3】_____。 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 Sub Private 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 Sub 答案： =======(答案1)======= 2 3 =======(答案2)======= 5 8 =======(答案3)======= 34 55 第4题 题号:26 运行下面的程序，单击Command1,在窗体上显示的变量a的值为30 ____【1】______， 变量b的值为__30___【2】____,变量c的值为___15__【3】______。 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 Sub Private Function fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+y End Function 答案： =======(答案1)==