201109 VB习题册(学生用)3(含答案及题号).doc.doc

试卷编号：659 所属语言：Visual Basic 试卷方案：VB_习题册 试卷总分：648分 共有题型：5种 一、填空 共49题 （共计49分） 第1题 （1.0分） 题号:3 执行下面程序，单击Command1按钮，多行文本框Textl中显示的第一行是【1】、第 三行是【2】。 Option Explicit Private Sub Command1_C1ick() Dim st As String，n As Integer，ast As String st=Basic n=Len(st) Do ast = change(st,n) Text1=Text1 ast vbCrlf n = n-1 Loop Until n=1 End Sub Private Function change(st As String ,n As Integer) As String Static p As Integer p=p+1 change=Right(st,n-1) Left(st,p) End Function 答案： =======(答案1)======= asicB =======(答案2)======= icBas 第2题 （1.0分） 题号:48 运行下面程序，单击Command1，在窗体上显示的变量A的值为___【1】____,变量B的值为____【2】______。 Option Explicit Dim a As Integer Private Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, b End Sub Private Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + a End Function 答案： =======(答案1)======= 19 =======(答案2)======= 68 第3题 （1.0分） 题号:2 执行下面程序，当单击窗体时，显示在窗体上第一行的内容是【1】，第二行的内容是【2】 Private Sub Form_Click() Dim I As Integer,Sum As Intger For I=0.5 To 8.5 Step 2.5 Sum=Sum+I*10 Next I Print Sum print I End Sub 答案： =======(答案1)======= 200 =======(答案2)======= 10 第4题 （1.0分） 题号:28 执行下面的程序，单击Commandl，则窗体上第一行显示的是【1】 ，第二行显示的是【2】 。 Option Explicit Dim x As Integer Private Sub Command1_Click() Dim y as Integer X=10:Y=2 Call process(y) Print X,Y Call process((y)) Print X,Y End Sub Private Sub process(n As Integer) Dim y As Integer If n0 Then x=x-n y=x Else x=x+n y=x+2 End If n=-n End Sub 答案： =======(答案1)======= 8 -2 =======(答案2)======= 6 -2 第5题 （1.0分） 题号:32 执行下面程序，单击Command1，窗体上显示的第一行是＿＿【1】＿＿， 第二行是＿＿【2】＿＿，第三行是＿【3】＿＿＿。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim sa(3,3) As St