湖南二级计算机考试VB.doc

56、以下定义的函数（ C）是按“传值”方式传递参数的。 A. Public Function Sum(x,y) B. Public Function Sum(ByVal x, ByVal y) C. Public Function Sum(x as Integer,y as Integer) D. Public Function Sum(x%, y%) 57、以下函数的定义中，（ C）是错误的。 A. Public Function Sum(x ; y) B. Public Function Sum(ByVal x, ByVal y) C. Public Function Sum(x as Integer,y as Integer) D. Public Function Sum(x%, y%) 58、以下递归函数中，正确的是（A ）。 A. ?Public ?Function ?Fn(n as Integer) If ?n=0 Then Fn=1 Else Fn=Fn*n End ?Function B. ?Public ?Function ?Fn(n as Integer) If ?n=0 Then Fn=1 Else Fn=Fn(n)*n End ?Function C. ?Public ?Function ?Fn(n as Integer) If ?n=0 Then Fn=1 Else Fn=Fn(n-1)*n End ?Function D. ?Public ?Function ?Fn(n as Integer) If ?n=0 Then Fn=1 Else Fn=Fn(n+1)*n End ?Function 59、已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（C ）。 Public Function Fun(x, y) Fun = 1 For i = 1 To y Fun = Fun * x Next i End Function Private Sub Command1_Click() Print Fun(3, 4) End Sub A. 3 ? ? ? ? ? ? ? ?B. 4 ? ? ? ? ? ? ? ? ? ?C. 81 ? ? ? ? ? ? ? D. 256 60、已知一窗体上命令按钮Command1的Click事件代码如下，则单击Command1后，文本显示的文字为（A ）。 Private Sub Command1_Click() Text1.Text =”湖南省” “计算机” + “等级考试” Text1.ForeColor = vbRed Text1.BackColor = vbGreen Text1.FontBold = True End Sub A. 湖南省计算机等级考试 B. 计算机 C. 等级考试 D. 计算机等级考试 61、VB提供的三种访问文件的模式中，不包括（D ）。 A. 顺序文件 ? ? ?B. 数据库文件 ? ? ? ? ? C. 随机文件 ? ? ? ? D. 二进制文件 62、以下VB语句中，（B ）的功能是复制指定文件。 A. Kill ? ? ? ? ?B. FileCopy ? ? ? ? ? ? C. Name ? ? ? ? ? ? D. MkDir 63、以下是Command1的单击事件，单击Command1后，在当前目录下创建了一个名为a.txt的文件，该文件内容为（）。 Private Sub Command1_Click() Open “a.txt” For Output As #1 Print #1, “计算机”；”等级考试” Close #1 End Sub A. 等级考试 ? ? ?B. 计算机等级考试 ? ? ? C. 计算机 ? ? ? ? ? D. 计算机；等级考试 64、已知一名为“Student.txt”的文件，其内容如下： 张小三，98，87，99 李四明，77，88，93 陈大光，89，56，65 则以下程序段执行的结果为（A）。 Private Sub Command1_Click() Open “student.txt” For Input As #1 While (Not EOF(1)) Input #1, Nam, Chn, Eng, Cmp Sum = Chn + Eng + Cmp Print Sum; Wend Close #1 End Sub A. 284 ?258 ?210 B. 98 ?87 ?99 C. 77 ?88 ?93 D. 89 ?56 ?65 65、以下关于while-wend循环的说法中正确的为（D ）。 A、 与do while-loop循环完